1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| GO_BLOCK('LIGNEMVT');
FIRST_RECORD;
LOOP
w_cursor_anc := :system.cursor_record;
valide := PR_MAJ_STOCK( :B_SAISIE.MOUVEMENT, :B_SAISIE.DATEMVT, :B_SAISIE.AGENCE, :B_SAISIE.POINTEXPL, :LIGNEMVT.ARTICLE, :LIGNEMVT.QTEMVT, NVL(:LIGNEMVT.PRIX_UNIT,0),
'M','C', null, null, :B_SAISIE.NUMDOC, :B_SAISIE.COMMVT, :GLOBAL.CUTI, null, null, null);
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
NEXT_RECORD;
END LOOP;
IF valide = TRUE THEN
w_retour := fgen_alert_erreur('ALERT_INFO1','ERR-00001','Mouvement effectué avec succès !');
commit_form;
ELSE
w_retour := fgen_alert_erreur('ALERT_ERREUR','ERR-00001','Erreur lors de la validation du mouvement!');
END IF; |
