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
| BEGIN
first_record;
Loop
INSERT INTO DETAIL_CMDS(MONTANT_HT,
NBRE_JOURS,
LIGNE_COMMANDE,
PROFIL,
ID_DETAIL,
MONTANT_TTC,
PRIX,
TAUX_TVA,
CMD_ID_COMMANDE)
VALUES (: DETAIL_CMDS.MONTANT_HT,
: DETAIL_CMDS.NBRE_JOURS,
: DETAIL_CMDS.LIGNE_COMMANDE,
: DETAIL_CMDS.PROFIL,
DET_CMD_SEQ.NEXTVAL,
: DETAIL_CMDS.MONTANT_TTC,
: DETAIL_CMDS.PRIX,
: DETAIL_CMDS.TAUX_TVA,
COM_SEQ.CURRVAL);
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE' ;
NEXT_RECORD;
END LOOP;
display_error;
COMMIT_FORM;
CLEAR_FORM();
END; |
Partager