Discussion :

[begal]

bonjour,

voilà cela fait un petit bout de temps que je bloque sur un problème de méthode dans forms, je précise que je suis en Forms Version 10.1.2, Oracle 10g. je vous expose le pb:

J'ai un bloc détail basé sur une table VISITE, dans ce bloc, apparait un lieu de visite une date de début et de fin de visite.

Pour illustrer, on pourrait avoir dans le bloc:

1. Paris - 01/09/2000 - 10/09/2000
2. Strasbourg - 11/09/2000 - 15/11/2000
3. Marseille - 16/11/2000 - 30/11/2000
4. Paris - 01/12/2000 - 31/12/2000

Voici la règle:

• Pour une visite, la date de fin ne doit pas être inférieure ou égale à date de début
• Une visite ne doit pas se chevaucher avec une autre visite (test sur les dates de début et de fin)

Si dans l'exemple je veux rajouter 'Dijon - 11/09/2000 - 12/09/2000' il faudrait afficher un message comme quoi cette période a déjà une visite sur Strasbourg .

Dans ma programmation:
trigger WHEN-VALIDATE-RECORD avec

• Date de début non null
• test date de début < date de fin

trigger KEY-COMMIT

j'ai une boucle qui reprend toutes les lignes du bloc et qui va vérifier si il existe un chevauchement avec les valeurs que je veux rajouter.
Si il y a un chevauchement ou si on a fait toutes les lignes, on sort de la boucle

Le problème, c'est que si je mets une valeur fausse dans la date de fin (inférieur à la date de début par ex.), le WHEN-VALIDATE-RECORD s'éxécute plusieurs fois et donc le message d'erreur apparait plusieurs fois !

J'ai voulu mettre tous les tests dans le KEY-COMMIT, mais là il semble que les instructions FIRST-RECORD, NEXT-RECORD.. soient interdites (non- oracle exception)

Comment résoudre ce problème ? et surtout quelle méthode utiliser ?

Merci d'avance pour vos lumières.

[star]

J'ai voulu mettre tous les tests dans le KEY-COMMIT, mais là il semble que les instructions FIRST-RECORD, NEXT-RECORD.. soient interdites (non- oracle exception)

J'ai développé des forms qui utilisent ces fonctions dans le déclencheur KEY-COMMIT. Il faut savoir qu'il n'y a pas de navigation interne implicite lors de l'exécution du KEY-COMMIT et donc les fonctions "restricted" peuvent être utilisées.
.

[salim11]

Salut,

Essaie cette solution :

Dans le when-new-record_instance

Code :

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

1
2
3
4
5
6
7
8
 
declare 
	msg varchar(2) :=:system.message_level;
begin 
     :system.message_level:=10;
     post;
    :system.message_level:=msg ;
end ;

dans le trigger 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
DECLARE
   v_ville   VARCHAR2 (100);
   nb        NUMBER         := 0;
BEGIN
IF :SYSTEM.FORM_STATUS  IN ('CHANGED','NEW')THEN 
BEGIN 
   IF :dt_debut IS NULL
   THEN
      MESSAGE ('La date début ne doit pas être nulle ');
      RAISE form_trigger_failure;
   END IF;
 
   IF :dt_debut > :dt_fin
   THEN
      MESSAGE ('La date début doit être supérieure à la date de fin ');
      RAISE form_trigger_failure;
   END IF;
 
   FOR rec_ville IN (SELECT ville
                       FROM visite v
                      WHERE (:dt_debut BETWEEN v.dt_debut AND v.dt_fin)
                         OR (:dt_fin BETWEEN v.dt_debut AND v.dt_fin))
   LOOP
      MESSAGE ('Cette période a déjà une visite sur ' || rec_ville.ville);
      PAUSE;
      nb := nb + 1;
   END LOOP;
 
   IF nb > 0
   THEN
      RAISE form_trigger_failure;
   END IF;
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      NULL;
END;
END IF;
END;

[begal]

j'ai appliqué la solution de salim11 et cela fonctionne à merveille, je n'ai plus les répétions de messages et cela se passe très proprement.

Cette solution me fait de plus découvrir la manipulation de la variable :SYSTEM.MESSAGE_LEVEL et de l'instruction POST.

Mon niveau de connaissance Forms n'est pas très élevé, y-a t'il des documents explicatifs sur l'emploi de ces éléments ?

Pour répondre à Star, le message 'non- oracle exception' n'était peut-être pas du fait des instructions FIRST_RECORD, NEXT_RECORD,.. mais quand je mettais celles-ci en commentaire, je n'avais plus le message.. y'avait surement un autre pb qui générait cette erreur.

Merci pour votre aide.

[salim11]

Salut,

Tu trouveras la documentation dans ce lien
http://sheikyerbouti.developpez.com/forms10g/