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
| /* Table TMP_DETAIL_REALISATIONS */
DECLARE CURSOR DETAILCur IS
SELECT * FROM TMP_DETAIL_REALISATIONS;
tmp_detail TMP_DETAIL_REALISATIONS%ROWTYPE;
begin
open DETAILCur;
loop
fetch DETAILCur into tmp_detail;
EXIT WHEN DETAILCur%NOTFOUND;
VarIdChallenge :=0;
VarNumChallenge := tmp_detail.numchallenge;
VarMarque := tmp_detail.codemarque;
open IDChallenge(VarNumChallenge, VarMarque);
fetch IDChallenge into VarIdChallenge;
close IDCHALLENGE;
/* insertion de la ligne des titres */
if tmp_detail.NUMLIGNE = '0001' or tmp_detail.NUMLIGNE = '0002' then
insert into DETAILREALISATIONS
(IDCHALLENGE, NUMREGROUPEMENT, INFODETAILREALISATION, NUMLIGNE)
values
(VarIdChallenge, '0', CHAR(tmp_detail.INFORMATION), tmp_detail.NUMLIGNE);
/* insertion des informations */
else
insert into DETAILREALISATIONS
(IDCHALLENGE, NUMREGROUPEMENT, INFODETAILREALISATION, NUMLIGNE)
values
(VarIdChallenge, tmp_detail.NUMCONTRATREGROUPEMENT, tmp_detail.INFORMATION, tmp_detail.NUMLIGNE);
end if;
end loop;
close DETAILCur;
end; |
Partager