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
| Var_Cpt :=0;
Open CMess;
Loop
Begin
Fetch CMess into Var_Message_Id_Message,Var_Message_Num_Message, Var_Message_Emi, Var_Message_Rec, Var_Message_Id_Ipl_Message;
Exit when CMess%NOTFOUND;
Select Emi_message, Rec_Message into Var_Message_Emi2,Var_Message_Rec2 From Ipl_Message I, Message M
Where Id_SYS = Var_sys2 And I.Id_Message = M.Id_Message And Num_Message = Var_Message_Num_Message;
insert into ipl_test_2 values(Var_Cpt,Var_Message_Num_Message,'NULL','NULL','NULL', Var_Message_Emi, Var_Message_Rec, Var_Message_Emi2, Var_Message_Rec2,0);
Var_Cpt :=Var_Cpt+1;
Open CMot;
Loop
Begin
Fetch CMot into Var_Mot_id_Message,Var_Mot_Num_Mot,Var_Mot_Code_proto,Var_Mot_Num_Mot_Code_Proto,Var_Mot_Id_Ipl_Mot,Var_Mot_Id_Mot,Var_Mot_Emission,Var_Mot_Reception;
Exit when CMot%NOTFOUND;
Var_Mot_Num_Mot_Code_Proto := '''' || Var_Mot_Num_Mot_Code_Proto || '''';
--cette requete qui suit marche pas, ce qui precede marche correctement
Select count(*) Into Var_Cpt_IDMOT from Ipl_Mot I, Mot M
Where I.id_ipl_message in (select id_ipl_message from ipl_message where id_sys = Var_sys2)
And I.Id_Mot = M.Id_Mot And num_mot||' '||code_proto = Var_Mot_Num_Mot_Code_Proto ;
Var_Mot_Emission2 :='-';
Var_Mot_Reception2 :='-';
Dbg( 'cpt= ' ||Var_Cpt || ' Var_cpt_IDMOT=' || Var_Cpt_IDMOT || ' codeproto= a' || Var_Mot_Num_Mot_Code_Proto ||'a');
if (Var_Cpt_IDMOT>0)
then
Dbg( 'plop2');
Select Emi_Mot,Rec_Mot Into Var_Mot_Emission2, Var_Mot_Reception2 From Ipl_Mot I, Mot M
Where I.id_ipl_message in (select id_ipl_message from ipl_message where id_sys = :ID_SYS2)
And I.Id_Mot = M.Id_Mot And Num_mot||' '||code_proto = Var_Mot_Num_Mot_Code_Proto;
Dbg( 'plop3');
end if;
If ( Var_Mot_Emission2 is null ) Then Var_Mot_Emission2 := 'TBD'; End If;
If ( Var_Mot_Reception2 is null ) Then Var_Mot_Reception2 := 'TBD'; End If;
insert into ipl_test_2 values(Var_Cpt,Var_Message_Num_Message,Var_Mot_Num_Mot,'NULL','NULL', Var_Mot_Emission,Var_Mot_Reception, Var_Mot_Emission2, Var_Mot_Reception2,1);
Var_Cpt :=Var_Cpt+1;
End;
End Loop;
Close CMot;
End;
End Loop;
Close CMess; |
