Discussion :

[am_bra]

Ma boucle ne tient pas compte du dernier élément de ma liste d'enregistrement. (pb rencontrer sous oracle forms)
Voici le code:

GO_BLOCK('LIGNEMVT');
FIRST_RECORD;
LOOP
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
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);

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;

[plaineR]

Il faut mettre le exit à la fin :

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
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;

Merci d'éditer votre message pour :
- mettre [forms] dans le titre
- utiliser les balises code (# dans la barre d'outils)