[Forms]Erreur trigger générer par Forms 6i Fonctionnant en Forms10g

[Donaldo]

Salut tout le monde,
J'ai une table étudiant, où je vérifie le premier chiffre de l'insee et la civilité si c'est MR ou ME ou MLE. Exemple le premier chiffre est 1 donc c'est MR.
Sous Forms 10g il me génère ce code et j'ai aucun probleme, alors que en 6i il me met des erreurs.
Je passerais bien en 10g mais faut que je fasse en 6i.

- Begin default enforce data integrity constraint CK_ETUDIANT_CIV_INSEE section
--
if not( (SUBSTR(TO_CHAR(:ETUDIANT.NUMINSEE),1,1) = '1' AND :ETUDIANT.CIVILITE = 'MR') OR (SUBSTR(TO_CHAR(:ETUDIANT.NUMINSEE),1,1) <> '1') ) then
message( 'WHEN-VALIDATE-RECORD trigger failed.' );
raise form_trigger_failure;
end if;
--
-- End default enforce data integrity constraint CK_ETUDIANT_CIV_INSEE section
--

J'ai les erreurs suivantes :

too many declarations of to_chat match this call

Statement ignored

Si vous avez une idée.

Donaldo

[salim11]

Bonjour,

de quel type ?

Code :

:ETUDIANT.NUMINSEE

[Donaldo]

Il est en VARCHAR2(13).

Donaldo

[plaineR]

Dans ce cas vire le to_char

[Donaldo]

Oui mais je voulais récupérer juste le premier chiffre. Et si j'enlève le to_char le trigger compile mais quand on exécute il ne fait rien.

Donaldo

[salim11]

Bonjour,

Il suffit de mettre seulement SUBSTR(:ETUDIANT.NUMINSEE,1,1)

[Donaldo]

Je viens de retester avec ce que tu m'as donné, et non si je mes 2135687796451 et MR il insère bien l'enregistrement pareil si je mes 1236549876543. Alors que dans ma base oracle ça bloque bien et que si je fais pareil en 10g ça fonctionne également. Comment peut on vérifier ce que retourne la commande que tu m'as passé?

Donaldo

[plaineR]

Envoyé par Donaldo

Oui mais je voulais récupérer juste le premier chiffre. Et si j'enlève le to_char le trigger compile mais quand on exécute il ne fait rien.

Le to_char sert à convertir un nombre ou une date en chaine de caractères. Si c'est du varchar2, elle est inutile et provoque cette erreur sous forms 6i.

S'il ne se passe rien, c'est qu'il doit y avoir une autre erreur ailleurs.

[Donaldo]

Comme je disais précedement il y a un moyen de voir ce que retourne une requete? J'essaye de faire message('texte'); mais aucun message n'apparait.

Donaldo

[salim11]

Bonjour,

Essaies d'executer ce script

Code :

1
2
3
4
5
6
7
 
SELECT case when NOT( (SUBSTR(ETUDIANT.NUMINSEE,1,1) = '1' AND ETUDIANT.CIVILITE = 'MR') 
 OR (SUBSTR(ETUDIANT.NUMINSEE,1,1) <> '1') )  THEN 
 'MESSAGE1'
 END CASE 
 FROM ETUDIANT 
 WHERE  ETUDIANT.NUMINSEE='2135687796451' AND ETUDIANT.CIVILITE = 'MR'

Moi je pense que le problème est au niveau de ta condition

[Donaldo]

Il me met que ETUDIANT.NUMINSEE n'est pas déclaré. Oui tu as raison le to_char n'est pas nécessaire, mais ce qui est étrange c'est que meme malgrès cette ânerie sous oracle ça fonctionne et de meme pour Forms10g.

Donc j'aimerais voire ce que ça retourne sous Forms 6i mais je sais pas comment faire.

Je m'absente une petite heure mais je reviens.

Donaldo

[salim11]

Bonjour ,

Ta condition est la suivante

Code :

1
2
3
 
NOT ( (SUBSTR(:ETUDIANT.NUMINSEE,1,1) = '1' AND :ETUDIANT.CIVILITE = 'MR') 
         OR (SUBSTR(ETUDIANT.NUMINSEE,1,1) <> '1') )

est equivalent à :

Code :

1
2
3
 
((SUBSTR(:ETUDIANT.NUMINSEE,1,1) <> '1' OR :ETUDIANT.CIVILITE <> 'MR') 
 AND (SUBSTR(ETUDIANT.NUMINSEE,1,1) = '1'))

donc avec :ETUDIANT.NUMINSEE='2135687796451' AND :ETUDIANT.CIVILITE = 'MR' il rentreras pas dans la partie then

Code :

1
2
3
 
('2' <> '1' OR 'MR' <> 'MR')  AND ('2'= '1'))  
donc ca verifie pas la condition donc il rentre pas la partie then

[McM]

Envoyé par Donaldo

Donc j'aimerais voire ce que ça retourne sous Forms 6i mais je sais pas comment faire.

Tu mets un message

Code :

1
2
MESSAGE('SUB:[' || SUBSTR(:ETUDIANT.NUMINSEE),1,1)  || '] Civilité: ' ||:ETUDIANT.CIVILITE); 
MESSAGE(' ');

Le 2ème message avec espace est oblig pour avoir une fenetre alerte et non un message en bas de l'écran.

[salim11]

Bonjour,

Une autre manière de le faire

Code :

1
2
3
MESSAGE('SUB:[' || SUBSTR(:ETUDIANT.NUMINSEE),1,1)  || '] Civilité: ' ||:ETUDIANT.CIVILITE); 
pause ;

[McM]

je connaissais pas ce pause;
merci

[salim11]

Bonjour,

Je l'ai appris au travail