Erreur Dans Procedure Pl/sql

**Redwings** · 07/11/2006, 14h23

Bonjour à tous,
Je suis en train d'executer une procédure SQL, et j'ai une violation de clé primaire sur un INSERT.
Je voulais savoir comment gérer cette erreur (dans une exception??) pour récupérer les valeurs qui me font planté mon traitement.
Ci-desssous le code (le plantage se fait sur le premier INSERT après 15 minutes de traitement. C'est une table assez lourde...):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
DECLARE
  NITRID             NUMBER;
   NIRUORDRE          NUMBER;
   NIRFORDRE          NUMBER;
   NIFAANNEE          NUMBER;
   DIFADTDEB          DATE;
   DIFADTFIN          DATE;
   NIFADOTLIN         NUMBER;
   NIFADOTLINMODIF    NUMBER;
   NIFAMTPROV64       NUMBER;
   NIFAMTPROV64MODIF  NUMBER;
   CURSOR CITRRUBFLUAMORT IS 
     SELECT   ITRID,
              IRUORDRE,
              IRFORDRE,
              IFAANNEE,
              IFADTDEB,
              IFADTFIN,
              IFADOTLIN,
              IFAMTPROV64
     FROM     ITRRUBFLUAMORT
     WHERE    (ITRID,IRUORDRE,IRFORDRE,IFAANNEE,IFADTDEB) NOT IN (SELECT DISTINCT ITRID,
                                                                                  IRUORDRE,
                                                                                  IRFORDRE,
                                                                                  IFAANNEE,
                                                                                  IFADTDEB
                                                                  FROM   ITRRUBFLUAMORT
                                                                  WHERE  TO_CHAR(IFADTDEB,'ddmm') NOT IN ('0101','0104','0107','0110')
                                                                         AND TO_CHAR(IFADTDEB,'mm') != TO_CHAR(IFADTFIN,'mm'))
              AND (ITRID,IRUORDRE,IRFORDRE,IFAANNEE,IFADTDEB) NOT IN (SELECT DISTINCT ITRID,
                                                                                      IRUORDRE,
                                                                                      IRFORDRE,
                                                                                      IFAANNEE,
                                                                                      IFADTDEB
                                                                      FROM   ITRRUBFLUAMORT
                                                                      WHERE  TO_CHAR(IFADTDEB,'mm') = TO_CHAR(IFADTFIN,'mm'))
     ORDER BY ITRID,
              IRUORDRE,
              IRFORDRE,
              IFAANNEE,
              IFADTDEB;
BEGIN
  FOR CITRRUBFLUAMORTREC IN CITRRUBFLUAMORT LOOP
    NITRID := CITRRUBFLUAMORTREC.ITRID;
 
    NIRUORDRE := CITRRUBFLUAMORTREC.IRUORDRE;
 
    NIRFORDRE := CITRRUBFLUAMORTREC.IRFORDRE;
 
    NIFAANNEE := CITRRUBFLUAMORTREC.IFAANNEE;
 
    DIFADTDEB := CITRRUBFLUAMORTREC.IFADTDEB;
 
    DIFADTFIN := CITRRUBFLUAMORTREC.IFADTFIN;
 
    NIFADOTLIN := CITRRUBFLUAMORTREC.IFADOTLIN;
 
    NIFAMTPROV64 := CITRRUBFLUAMORTREC.IFAMTPROV64;
 
    NIFADOTLINMODIF := ROUND(CITRRUBFLUAMORTREC.IFADOTLIN / 3,2);
 
    NIFAMTPROV64MODIF := ROUND(CITRRUBFLUAMORTREC.IFAMTPROV64 / 3,2);
 
    IF TO_NUMBER(TO_CHAR(CITRRUBFLUAMORTREC.IFADTDEB,'MM')) != TO_NUMBER(TO_CHAR(CITRRUBFLUAMORTREC.IFADTFIN,'MM')) THEN
      INSERT INTO ITRRUBFLUAMORT
                 (ITRID,
                  IRUORDRE,
                  IRFORDRE,
                  IFAANNEE,
                  IFADTDEB,
                  IFADTFIN,
                  IFADOTLIN,
                  IFAMTPROV64)
      VALUES     (NITRID,
                  NIRUORDRE,
                  NIRFORDRE,
                  NIFAANNEE,
                  ADD_MONTHS(ADD_MONTHS(LAST_DAY(DIFADTDEB),-1) + 1,1),
                  LAST_DAY(ADD_MONTHS(ADD_MONTHS(LAST_DAY(DIFADTDEB),-1) + 1,1)),
                  NIFADOTLINMODIF,
                  NIFAMTPROV64MODIF);
 
      INSERT INTO ITRRUBFLUAMORT
                 (ITRID,
                  IRUORDRE,
                  IRFORDRE,
                  IFAANNEE,
                  IFADTDEB,
                  IFADTFIN,
                  IFADOTLIN,
                  IFAMTPROV64)
      VALUES     (NITRID,
                  NIRUORDRE,
                  NIRFORDRE,
                  NIFAANNEE,
                  ADD_MONTHS(ADD_MONTHS(LAST_DAY(DIFADTDEB),-1) + 1,2),
                  LAST_DAY(ADD_MONTHS(ADD_MONTHS(LAST_DAY(DIFADTDEB),-1) + 1,2)),
                  NIFADOTLIN - (NIFADOTLINMODIF + NIFADOTLINMODIF),
                  NIFAMTPROV64 - (NIFAMTPROV64MODIF + NIFAMTPROV64MODIF));
 
      UPDATE ITRRUBFLUAMORT A
      SET    IFADOTLIN = NIFADOTLINMODIF,
             IFAMTPROV64 = NIFAMTPROV64MODIF,
             IFADTFIN = LAST_DAY(DIFADTDEB)
      WHERE  A.ITRID = CITRRUBFLUAMORTREC.ITRID
             AND A.IRUORDRE = CITRRUBFLUAMORTREC.IRUORDRE
             AND A.IRFORDRE = CITRRUBFLUAMORTREC.IRFORDRE
             AND A.IFAANNEE = CITRRUBFLUAMORTREC.IFAANNEE
             AND A.IFADTDEB = CITRRUBFLUAMORTREC.IFADTDEB;
    END IF;
  END LOOP;
END;
/

Balises de mise en forme ajoutée par Magnus. Merci d'y penser à l'avenir.

**Magnus** · 07/11/2006, 14h53

Pourquoi ne pas encapsuler votre instruction INSERT qui génère l'erreur dans un bloc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
BEGIN
  INSERT ...
EXCEPTION WHEN -- erreur Oracle de violation de clé primaire en l'occurence
  <traitement>;
END;
...

**Redwings** · 07/11/2006, 15h12

Envoyé par Magnus

Pourquoi ne pas encapsuler votre instruction INSERT qui génère l'erreur dans un bloc :

Merci... Je teste en direct...........
..........................
..........................
Mince, ça ne fonctionne pas...
ça me met

ORA-00001: violation de contrainte unique (PK_ITRRUBFLUAMORT)
ORA-06512: à ligne 39

Mon code modifié est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
...
LOOP
nItrid:=cItrrubfluamortRec.itrid;
nIruordre:=cItrrubfluamortRec.iruordre;
nIrfordre:=cItrrubfluamortRec.irfordre;
nIfaannee:=cItrrubfluamortRec.ifaannee;
dIfadtdeb:=cItrrubfluamortRec.ifadtdeb;
dIfadtfin:=cItrrubfluamortRec.ifadtfin;
nIfadotlin:=cItrrubfluamortRec.ifadotlin;
nIfamtprov64:=cItrrubfluamortRec.ifamtprov64;
nIfadotlinModif:=round(cItrrubfluamortRec.ifadotlin/3,2);
nIfamtprov64Modif:=round(cItrrubfluamortRec.ifamtprov64/3,2);
        IF to_char(cItrrubfluamortRec.ifadtdeb,'MM')!= to_char(cItrrubfluamortRec.ifadtfin,'MM') THEN
            BEGIN
            INSERT INTO ITRRUBFLUAMORT
	(itrid,
           	iruordre,
           	irfordre,
           	ifaannee,
           	ifadtdeb,
           	ifadtfin,
           	ifadotlin,
	ifamtprov64
             )
	VALUES
	(nItrid,
	nIruordre,
	nIrfordre,
	nIfaannee,
	add_months(add_months(last_day(dIfadtdeb),-1)+1,1),
	last_day(add_months(add_months(last_day(dIfadtdeb),-1)+1,1)),
	nIfadotlinModif,
	nIfamtprov64Modif
                  );
            EXCEPTION WHEN OCI_ERROR THEN 
            dbms_output.put_line('Code    erreur : '||to_char(SQLCODE));
            dbms_output.put_line('Libellé erreur : '||to_char(SQLERRM));
            dbms_output.put_line('Itrid          : '||nItrid);
            dbms_output.put_line('Iruordre       : '||nIruordre);
            END;
...

**Redwings** · 07/11/2006, 15h29

En fait la proposition m'a donné une idée et celà a marché!!!
J'ai en fait testé le code SQL et comme je faisaid un viol de PK c'est -1, si je trouvais ce code je faisais un DBMS_OUTPUT.PUT_LINE de mes variables....
Je peux comme ça débugger ma fonction

MERCI!!!

**SheikYerbouti** · 07/11/2006, 15h30

testez plutôt l'exception suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
When DUP_VAL_ON_INDEX Then
  ...

**Redwings** · 07/11/2006, 15h40

Exact!! ça marche, c'est plus propre effectivement, mon IF est donc bien imbriqué (comme le proposait Magnus), et je teste bien cette exception DUP_VAL.... et celà fonctionne.
Merci à tous...

Erreur Dans Procedure Pl/sql

PL/SQL Oracle

Vue hybride

Discussions similaires

Partager

Partager