[Forms 6i] Capter l'erreur sur Next_Record [Résolu]

[Veve44]

Bonjour,

Je travaille sur Forms 6i et Oracle 8.1.5.
Je rencontre un petit problème sous Forms.

Cheminement amenant mon problème :

1) Dans mon écran, mon curseur est placé dans un champ
2) Je saisis une valeur et j'enregistre
3) A l'appui du bouton "enregistrer", une Unité de Programme est exécutée pour vérifier la validité de tous les Record Détails. Ceci est effectué avec

Code :

1
2
3
4
5
First Record
LOOP
   ......
   Next_Record;
END LOOP;

4) A l'exécution du Next_Record, le WHEN-VALIDATE-ITEM du champ est lui même exécuté, mais sort en erreur ! Du coup, le Next_Record ne s'exécute pas et la boucle LOOP ne se termine pas.

J'ai rajouté le test

Code :

IF NOT Forms_Success THEN

juste après, mais ça ne change rien, comme si il ne détectait pas que le Forms_Success n'avait pas fonctionné.

Comment dois-je faire ?
Y a-t-il un myen de détecter cette erreur ?

Merci par avance !

[Karim.1]

Je rajouterais une exception au loop avec un RAISE FORM_TRIGGER_FAILURE; en cas de pb

[Veve44]

Il y a déjà un RAISE FORM_TRIGGER_FAILURE dans le WHEN-VALIDATE-ERREUR.
Du coup, je pensais pouvoir le capter avec IF NOT FORM_SUCCESS. Mais ce n'est pas le cas....
Pour Reports, il ne semble pas y avoir de problème.

[SheikYerbouti]

Vous souhaitez donc que la boucle continue malgré l'erreur ?

[Veve44]

Non, je souhaite sortir de la boucle si le Next_Record entraîne une erreur.
Parce que mon problème vient de là : comme le Next_Record ne s'exécute pas car le WHEN-VALIDATE-ITEM sort en erreur, je reste sur le même enregistrement et donc la boucle tourne... Indéfiniment !

[SheikYerbouti]

Je pencherais plutôt sur le fait que vous ne testez pas le dernier enregistrement.
j'ajouterais donc:

Code :

1
2
3
4
5
6
 
Loop
   ...
   Exit when :system.last_record = 'TRUE' ;
   Next_record ;
End loop ;

[plaineR]

Essayez :

Code :

1
2
3
4
5
6
7
8
 
Loop
   ...
   Next_record ;
   IF get_item_property (:system.cursor_item, item_is_valid) = 'FALSE' then
      exit;
   end IF;
End loop

Nb : je ne suis pas sûr qu'il donne le focus à l'item en erreur dans ce cas vous devez mettre le nom de l'item en dur.

[Veve44]

@SheikYerbouti : Si, si, il y avait un test sur le dernier enregistrement

@plaineR : j'ai testé et ça fonctionne à merveille ! Ouf, un problème de résolu.

Merci à tous les deux pour votre aide.