Cette procedure fonctionne bien sous IBCONSOLE

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
CREATE PROCEDURE "CDE_TOTAL_XXX"
(
  "ADH_NU" INTEGER,
  "CDE_NU" INTEGER,
  "MAG_NU" INTEGER,
  "IND_NU" INTEGER
)
RETURNS
(
  "QLV_01" INTEGER,
  "QLV_02" INTEGER,
  "QLV_03" INTEGER,
  "QLV_04" INTEGER,
  "QLV_05" INTEGER,
  "QLV_06" INTEGER,
  "QLV_07" INTEGER,
  "QLV_08" INTEGER,
  "QLV_09" INTEGER,
  "QLV_10" INTEGER,
  "QLV_11" INTEGER,
  "QLV_12" INTEGER,
  "QLV_13" INTEGER
)
AS
	BEGIN
	     /* Interrogation des livraisons */
	     FOR SELECT
                 Sum(QLV_01),
                 Sum(QLV_02),
                 Sum(QLV_03),
                 Sum(QLV_04),
                 Sum(QLV_05),
                 Sum(QLV_06),
                 Sum(QLV_07),
                 Sum(QLV_08),
                 Sum(QLV_09),
                 Sum(QLV_10),
                 Sum(QLV_11),
                 Sum(QLV_12),
                 Sum(QLV_13)
	         FROM CDE_LIV_DET
                 WHERE
		(ADH_NUMERO = :ADH_NU) And
		(CDE_NUMERO = :CDE_NU) And
		(CDE_INDICE = :IND_NU) And
		(MAG_NUMERO = :MAG_NU)
	         INTO
                 :QLV_01,
                 :QLV_02,
                 :QLV_03,
                 :QLV_04,
                 :QLV_05,
                 :QLV_06,
                 :QLV_07,
                 :QLV_08,
                 :QLV_09,
                 :QLV_10,
                 :QLV_11,
                 :QLV_12,
                 :QLV_13
             DO
             BEGIN
             SUSPEND;
             EXIT;
             END
 
 
END
 ^
Je rajoute une ligne

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
CREATE PROCEDURE "CDE_TOTAL_XXX"
(
  "ADH_NU" INTEGER,
  "CDE_NU" INTEGER,
  "MAG_NU" INTEGER,
  "IND_NU" INTEGER
)
RETURNS
(
  "QLV_01" INTEGER,
  "QLV_02" INTEGER,
  "QLV_03" INTEGER,
  "QLV_04" INTEGER,
  "QLV_05" INTEGER,
  "QLV_06" INTEGER,
  "QLV_07" INTEGER,
  "QLV_08" INTEGER,
  "QLV_09" INTEGER,
  "QLV_10" INTEGER,
  "QLV_11" INTEGER,
  "QLV_12" INTEGER,
  "QLV_13" INTEGER
)
AS
	BEGIN
	     /* Interrogation des livraisons */
	     FOR SELECT
                 Sum(QLV_01),
                 Sum(QLV_02),
                 Sum(QLV_03),
                 Sum(QLV_04),
                 Sum(QLV_05),
                 Sum(QLV_06),
                 Sum(QLV_07),
                 Sum(QLV_08),
                 Sum(QLV_09),
                 Sum(QLV_10),
                 Sum(QLV_11),
                 Sum(QLV_12),
                 Sum(QLV_13)
	         FROM CDE_LIV_DET
                 WHERE
		(ADH_NUMERO = :ADH_NU) And
		(CDE_NUMERO = :CDE_NU) And
		(CDE_INDICE = :IND_NU) And
		(MAG_NUMERO = :MAG_NU)
	         INTO
                 :QLV_01,
                 :QLV_02,
                 :QLV_03,
                 :QLV_04,
                 :QLV_05,
                 :QLV_06,
                 :QLV_07,
                 :QLV_08,
                 :QLV_09,
                 :QLV_10,
                 :QLV_11,
                 :QLV_12,
                 :QLV_13
             DO
             BEGIN
             [b]IF (:QLV_01 IS NULL) THEN :QLV_01 =0;[/b]    
             SUSPEND;
             EXIT;
             END
 
 
END
 ^
et là erreur

Dynamic SQL Error
SQL error code = -104
Token unknown - line 63, char 38
:

Je ne comprend pas pourquoi !!!!

Merci : : :

Edité par Barbibulle :