Cette procedure fonctionne bien sous IBCONSOLE
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 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 ^
et là erreur
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 ^
Dynamic SQL Error
SQL error code = -104
Token unknown - line 63, char 38
:
Je ne comprend pas pourquoi !!!!
Merci : : :
Edité par Barbibulle :
Partager