Discussion :

[lafouine]

Bonjour !

Voila j'ai un petit soucis de compréhension concernant l'enchainement des triggers.

J'explique ma situation : ma forme contient 3 onglets, sur l'onglet qui me pose probleme, j'ai un bloc maitre et un bloc détail. Une regle de gestion impose qu'on ne puisse pas changer de ligne dans le bloc detail si la ligne n'est pas completement rempli (Ce test est effectué dans le trigger When-Validate-Record). Dans ce cas, un message d'erreur apparait.

Mon probleme est le suivant : quand je remplis partiellement ma ligne de détail et que je decide de changer d'onglet pour provoquer l'erreur expliquee plus haut, mon message d'erreur apparait bien, mais 4 fois (alors que je ne pense passer dans W-V-R qu'une seule fois...). De plus ce message d'erreur apparait sur l'onglet que j'essaie d'atteindre alors que je pensais que le W-V-R allait survenir avant que je quitte mon onglet initial.

Je pense donc avoir placé mon controle de pertinence des champs dans un mauvais trigger, qu'en pensez vous ?

Merci pour votre aide !

[SheikYerbouti]

Quel est le code du trigger W-V-R ?

[lafouine]

Quel est le code du trigger W-V-R ?

Il contient un appel vers une procedure, tout simplement.

Et cette procedure ressemble a ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PROCEDURE PROC_PRESENCE IS
 
BEGIN
 
	--Tests sur présence valeurs.	
	--*** UTILISATION
	IF :BLK_T000.UTILISATION IS NULL THEN
		AFFICHE_MESSAGE(Get_Error_Message('MSG_097'),'E');		
	END IF;
	--*** VOL
	IF :BLK_T000.FLIGHT IS NULL THEN
		AFFICHE_MESSAGE(Get_Error_Message('MSG_092'),'E');		
	END IF;
END;

C'est tout...

[SheikYerbouti]

Dans la procedure il faut stopper le traitement avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Raise Form_Trigger_Failure ;

et dans le trigger W-V-R trapper l'exception

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Begin
  -- Appel de la procedure
Exception
  When Form_Trigger_Failure Then
     Raise ;
End ;

[lafouine]

Dans la procedure il faut stopper le traitement avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Raise Form_Trigger_Failure ;

c'est ce que fait la procedure AFFICHE_MESSAGE();
En fonction du 2e parametre, on cree un message d'erreur ou d'information en enchainant les commandes suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
al_id := FIND_ALERT('ALERT_ERROR'); 
SET_ALERT_PROPERTY(al_id,ALERT_MESSAGE_TEXT,P_LIBELLE);
al_button := SHOW_ALERT(al_id);
RAISE FORM_TRIGGER_FAILURE;

et dans le trigger W-V-R trapper l'exception

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Begin
  -- Appel de la procedure
Exception
  When Form_Trigger_Failure Then
     Raise ;
End ;

c'est déjà fait (excuse j'aurais du le préciser...)

[SheikYerbouti]

Ajoutez-le quand même dans PROC_PRESENCE.

[lafouine]

Ajoutez-le quand même dans PROC_PRESENCE.

Bon je le fais parce que c'est SheikYerbouti qui me le demande

[lafouine]

Bon, ca n'a rien changé.
Mon message d'erreur apparait toujours 4 fois quand je veux passer à un autre onglet...

[SheikYerbouti]

Bon, et bien il va falloir exécuter la forme en mode debug. (placer le point d'arrêt sur la première instruction du W-V-R).

[plaineR]

Essaie de valider ton enregistrement avant de changer de page, en faisant par exemple dans le trigger WHEN-TAB-PAGE-CHANGED (au début du trigger) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
if :system.tab_previous_page = 'ONGLET_DETAIL' then
   set_canvas_property ('CANVAS_ONGLET', topmost_tab_page, 'ONGLET_DETAIL');
	 go_block ('BLOC_DETAIL');
   if not form_success then
      raise form_trigger_failure;
   end if;   
end if;

Sinon repère, les go_block ou go_item que tu peux faire (y compris dans les triggers de relation maître détail).

[lafouine]

Bon, j'ai mené ma petite enquete a ce sujet.

Tout d'abord, l'idée du trigger WHEN-TAB-PAGE-CHANGED est écartée, celui-ci est appelé apres WHEN-VALIDATE-RECORD.
Les GO_BLOCK et GO_ITEM, c'est bien simple, il n'y en a pas.

Donc je suis passé en mode débug.
Pour mémoire, voila à quoi ressemble mon code :

WHEN-VALIDATE-RECORD :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
BEGIN
 
	-- Contrôle presence des champs.
	PROC_PRESENCE;
 
EXCEPTION
WHEN PACK_CONST.ERR_FORMS THEN
	--SI Erreur NON-ORACLE => Forms.
	RAISE FORM_TRIGGER_FAILURE;
WHEN OTHERS THEN
	--SINON: Erreur ORACLE.
	AFFICHE_MESSAGE('Erreur ORACLE: (' || SQLCODE|| ') - '||SQLERRM,'E');	
 
END;

PROC_PRESENCE (vérifie la presence de champs obligatoires) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PROCEDURE PROC_PRESENCE IS
 
BEGIN
 
   --Tests sur présence valeurs.   
   --*** UTILISATION
   IF :BLK_T000.UTILISATION IS NULL THEN
      AFFICHE_MESSAGE(Get_Error_Message('MSG_097'),'E');      
   END IF;
   --*** VOL
   IF :BLK_T000.FLIGHT IS NULL THEN
      AFFICHE_MESSAGE(Get_Error_Message('MSG_092'),'E');      
   END IF;
END;

et enfin AFFICHE_MESSAGE (génère un message d'erreur, d'avertissement ou d'information suivant le parametre passé) :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
PROCEDURE AFFICHE_MESSAGE(P_LIBELLE VARCHAR2, P_NIVEAU_ALERTE VARCHAR2) IS
		al_id     	Alert; 
		al_button 	Number;
BEGIN
 
	-- traitement d'une erreur
  	IF P_NIVEAU_ALERTE = 'E' THEN
  		al_id := FIND_ALERT('ALERT_ERROR'); 
  		SET_ALERT_PROPERTY(al_id,ALERT_MESSAGE_TEXT,P_LIBELLE);  			
  		al_button := SHOW_ALERT(al_id);
 
		RAISE FORM_TRIGGER_FAILURE;
 
	-- traitement d'un avertissement
  	ELSIF P_NIVEAU_ALERTE = 'W' THEN
 
  		al_id := FIND_ALERT('ALERT_AVERTISSEMENT'); 
  		SET_ALERT_PROPERTY(al_id,ALERT_MESSAGE_TEXT,P_LIBELLE);  			
  		al_button := SHOW_ALERT(al_id);
 
		IF al_button <> ALERT_BUTTON1 THEN
			RAISE FORM_TRIGGER_FAILURE;
		END IF;  		
 
	-- Information
	ELSIF P_NIVEAU_ALERTE = 'I' THEN
  		al_id := FIND_ALERT('ALERT_INFORMATION'); 
  		SET_ALERT_PROPERTY(al_id,ALERT_MESSAGE_TEXT,P_LIBELLE);  			
  		al_button := SHOW_ALERT(al_id);		
 
	ELSE
		NULL;
  	END IF;
 
END;

Apres de multiples mises en commentaire, j'ai pu constater que la repetition du message d'erreur ne se produit que lorsque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

P_NIVEAU_ALERTE = 'E'

Or la seule difference avec les autres elements du IF est la présence d'un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RAISE FORM_TRIGGER_FAILURE

Et mon probleme c'est que je ne vois pas en quoi cette commande, à elle seule, me fait repartir au début du W-V-R, pour finalement boucler 4 fois...
Une idée ?

[SheikYerbouti]

PROC_PRESENCE ne traite pas l'exception Form_Trigger_Failure ni W-V-R

[lafouine]

PROC_PRESENCE ne traite pas l'exception Form_Trigger_Failure ni W-V-R

bah je pense la traiter pourtant (du moins dans W-V-R)
En effet mon premier bloc exception est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
WHEN PACK_CONST.ERR_FORMS THEN
   --SI Erreur NON-ORACLE => Forms.
   RAISE FORM_TRIGGER_FAILURE;

Or ERR_FORMS est défini de la maniere suivante dans le package PACK_CONST :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ERR_FORMS 	exception;
pragma 	exception_init(ERR_FORMS, -100501);

Cela n'est pas satisfaisant ?

[SheikYerbouti]

Pour faire simple, au début, testez dans chaque couche de la pile les variables Form_trigger_failure et Form_Success.

[lafouine]

Pour faire simple, au début, testez dans chaque couche de la pile les variables Form_trigger_failure et Form_Success.

Je reproduis mon problème dans avec un montage plus simplifié :
Il suffit que W-V-R soit de la forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
BEGIN
 
	AFFICHE_MESSAGE('ERROR !','E');
 
EXCEPTION
WHEN PACK_CONST.ERR_FORMS OR Form_Trigger_Failure THEN
	--SI Erreur NON-ORACLE => Forms.
	RAISE FORM_TRIGGER_FAILURE;
WHEN OTHERS THEN
	--SINON: Erreur ORACLE.
	AFFICHE_MESSAGE('Erreur ORACLE: (' || SQLCODE|| ') - '||SQLERRM,'E');	
 
END;

Au niveau debug, on voit qu'on entre bien dans AFFICHE_MESSAGE, le message "ERROR !" s'affiche puis on arrive sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RAISE FORM_TRIGGER_FAILURE;

(toujours dans AFFICHE_MESSAGE).

Puis a l'etape suivante je suis dans le bloc Exception de W-V-R, au niveau du RAISE FORM_TRIGGER_FAILURE;

A l'etape suivante, je me retrouve a nouveau au début du trigger W-V-R...

[plaineR]

1. La question que je me pose : puisque cela fonctionne quand tu changes de ligne de détail, que fais-tu en plus quand tu changes d'onglet ?

2. Il ne faut pas seulement regarder au premier déclenchement du WVR, mais trouver si qui le déclenche les fois suivantes (=> ne fais tu pas de go_block (ou go_item) dans ton when-tab-page-changed ?, ou dans un trigger when-new-block-instance).

3. Il est normal que lorque tu ne fais pas raise form_trigger_failure, ton message ne se déclenche qu'une fois : ton enregistrement étant validé, forms ne cherche pas à le valider une 2è fois

[lafouine]

1. La question que je me pose : puisque cela fonctionne quand tu changes de ligne de détail, que fais-tu en plus quand tu changes d'onglet ?

Très bonne remarque, j'avais oublié que le comportement n'etait pas identique quand je changais de ligne détail...
Eh bien malheureusement, ca ne fait pas bcp avancer le schmilblik : quand je débug (en placant un breakpoint au début de W-V-R), le comportement est le meme sauf qu'une arrivé dans le bloc exception de W-V-R, je sors "normalement" du trigger. Le message d'erreur est donc affiché une fois seulement...

2. Il ne faut pas seulement regarder au premier déclenchement du WVR, mais trouver si qui le déclenche les fois suivantes (=> ne fais tu pas de go_block (ou go_item) dans ton when-tab-page-changed ?, ou dans un trigger when-new-block-instance).

Dans when-tab-page-changed il y a bien des go_block, je vais regarder cela...

3. Il est normal que lorque tu ne fais pas raise form_trigger_failure, ton message ne se déclenche qu'une fois : ton enregistrement étant validé, forms ne cherche pas à le valider une 2è fois

ok c'est noté !

[plaineR]

Eh bien malheureusement, ca ne fait pas bcp avancer le schmilblik : quand je débug (en placant un breakpoint au début de W-V-R), le comportement est le meme sauf qu'une arrivé dans le bloc exception de W-V-R, je sors "normalement" du trigger. Le message d'erreur est donc affiché une fois seulement...

J'ai une confiance très limitée dans le debugger de forms 6i

Mets plutôt des messages du style (pour pouvoir les supprimer facilement) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

message ('DEBUG NOM_DU_TRIGGER NOM_DU_BLOCK');pause;

dans les triggers qui peuvent se déclencher :
- WHEN-VALIDATE_RECORD
- WHEN-NEW-BLOCK-INSTANCE
- WHEN-TAB-PAGE-CHANGED
- et tous les endroits où tu as des go_item et des go_block (enfin dans un premier temps ceux que tu pensent être concernés )

[lafouine]

J'ai une confiance très limitée dans le debugger de forms 6i

et tu fais bien !
Alors que dans le debugger je passais dans WHEN-TAB-PAGE-CHANGED apres être passé dans WHEN-VALIDATE-RECORD, lors de l'exécution il s'avère que le comportement est inverse !

Or dans W-T-P-G il y avait des GO_BLOCK, ce qui avait pour consequence de me declencher W-V-R...

Du coup je pense que je vais reussir a m'en sortir !

Merci bcp
(je clos le thread qd je suis vraiment certain que ca marche )

[lafouine]

Bon alors où en sommes nous ? Le probleme n'existe plus quand on essaie de changer de thread, ce qui est une bonne chose.

Le soucis est que maintenant mon probleme survient quand j'essaie de créer une nouvelle ligne (à l'aide de la souris) dans mon bloc détail.
La chronologie de l'erreur est similaire a celle exposé précédemment :
1/ je crée une ligne incomplete et donc erronée dans mon bloc detail (ie un des champs de mon bloc detail n'est pas renseigné)
2/ je clique sur la ligne suivante pour générer une erreur. Le trigger When-new-record-instance se déclenche
3/ on passe ensuite par le trigger when-validate-record (toujours le meme code que plus haut dans le thread). Dans ce trigger on entre dans la proc PROC_PRESENCE qui lève une erreur a l'aide de la procedure AFFICHE_MESSAGE
4/ l'affichage du message d'erreur se fait, on passe ensuite dans le bloc exception de W-V-R
5/ on sort du trigger exception pour se retrouver a nouveau en début de W-V-R. On affiche donc deux fois le message d'erreur et en plus la ligne est quand meme crée malgré le message d'erreur...

Alors vous allez me dire que je suis lent à la détente mais honnetement je ne comprends pas ce qui explique cette répétition... je me doute qu'il y a une histoire de propagation d'exception là dessous mais ce qui est sur c'est que je ne la comprends pas...