Problèmes HerreurDoublon() urgent !

Version imprimable

29/09/2012, 23h22
princesse_sissi

Problèmes HerreurDoublon() urgent !

Bonsoir tous le monde,
Je suis débutante en Windev et je cherche à gérer ma BDD hyperfile en utilisant la fonction HerreurDoublon() ... mais cette fonction me renvoi à chaque fois FAUX dans tous les cas.

j'utilise cette fonction dans une procédure générale appelée par un trigger !!

SVP aidez-moi, c'est urgent!

:cry:
29/09/2012, 23h58
miripesage

bonsoir,
Sans plus de précision(sans code), il est difficile de savoir ce qui se passe. Postez votre code svp.
30/09/2012, 00h12
princesse_sissi

Citation:

Envoyé par miripesage

bonsoir,
Sans plus de précision(sans code), il est difficile de savoir ce qui se passe. Postez votre code svp.

Alors le voici:

Citation:

PROCEDURE proctrigger()

SELON Majuscule(H.FonctionTrigger)

CAS "HAJOUTE"

SI Trace ALORS Trace("Trigger avant : Ajout")

SI HErreurDoublon()=Vrai ALORS
//abondon de l'action
H.AFaire="A"
Erreur("Doublons: Enregistrement Existant !")
SINON
//ajouter
Dialogue("Ajout Réussi !")
FIN

CAS "HMODIFIE"
SI Trace ALORS Trace("Trigger avant : Modification")
SI HErreurDoublon()=Vrai ALORS
//abondon de l'action
H.AFaire="A"
Erreur("Integrite:: Enregistrement Existant")
SINON
//modifier
Dialogue("Modification Réussi !")
FIN

CAS "HSUPPRIME"
SI Trace ALORS Trace("Trigger avant : Suppression")
//1 : &Supprimer
//2 : &Ne pas supprimer
SELON Dialogue("voulez-vous supprimer cette enregistement ?")
// supprimer
Erreur("Erreur: "+HErreurIntégrité())
CAS 1
SI HErreurIntégrité()=Vrai ALORS
//abondon de l'action
H.AFaire="A"
Dialogue("Impossible: Enregistrement Lié !")

SINON
Dialogue("Suppression Finie !")
//sortir selon
FIN

// ne pas supprimer
CAS 2
//abondon de l'action
H.AFaire="A"

FIN
FIN
30/09/2012, 10h05
miripesage

Bonjour, votre code est anormale : revoyez ce qui est en rouge : :cry:

Citation:

Envoyé par princesse_sissi

Alors le voici:
PROCEDURE proctrigger()

SELON Majuscule(H.FonctionTrigger)

CAS "HAJOUTE"

SI Trace ALORS Trace("Trigger avant : Ajout")

SI HErreurDoublon()=Vrai ALORS
//abondon de l'action
H.AFaire="A"
Erreur("Doublons: Enregistrement Existant !")
SINON
//ajouter
Dialogue("Ajout Réussi !")
FIN

CAS "HMODIFIE"
SI Trace ALORS Trace("Trigger avant : Modification")
SI HErreurDoublon()=Vrai ALORS
//abondon de l'action
H.AFaire="A"
Erreur("Integrite:: Enregistrement Existant")
SINON
//modifier
Dialogue("Modification Réussi !")
FIN

CAS "HSUPPRIME"
SI Trace ALORS Trace("Trigger avant : Suppression")
//1 : &Supprimer
//2 : &Ne pas supprimer
SELON Dialogue("voulez-vous supprimer cette enregistement ?")
// supprimer
Erreur("Erreur: "+HErreurIntégrité())
CAS 1
SI HErreurIntégrité()=Vrai ALORS
//abondon de l'action
H.AFaire="A"
Dialogue("Impossible: Enregistrement Lié !")

SINON
Dialogue("Suppression Finie !")
//sortir selon
FIN

// ne pas supprimer
CAS 2
//abondon de l'action
H.AFaire="A"

FIN
FIN
30/09/2012, 12h34
princesse_sissi

Bonjour,
Non, ce qui est en rouge :

TRACE: pour afficher seulement une fenetre ou on pourra voir quelle fonction est en cours

Dialogue: pour afficher une fenetre avec l'utilisateur afin de savoir si tout a marcher bien.

Mon problème est avec :HerreurDoublon, HerreurIntegrite renvoie toujours FAUX!
:cry:
01/10/2012, 08h53
frenchsting

Bonjour,

à quel moment fais tu appel à ta procédure proctrigger() ?
Elle doit être "mise en place" avec HDécritTrigger() et tu dois l'appeler après les hajoute(), hmodifie(), hsupprime().
Attention aussi tu dois gérer le hintégrité mais aussi le herreurdoublon juste après l'opération sous peine de "fausser' les valeurs retournées.
01/10/2012, 14h00
princesse_sissi

Citation:

Envoyé par frenchsting

Bonjour,

à quel moment fais tu appel à ta procédure proctrigger() ?
Elle doit être "mise en place" avec HDécritTrigger() et tu dois l'appeler après les hajoute(), hmodifie(), hsupprime().
Attention aussi tu dois gérer le hintégrité mais aussi le herreurdoublon juste après l'opération sous peine de "fausser' les valeurs retournées.

Bonjour,
Merci de répondre!
Effectivement:
ResultatTrigger = HDécritTrigger("*","HAJOUTE,HMODIFIE,HSUPPRIME",proctrigger, hTriggerAvant)

Et à chaque appel de l'une des 03 fonctions précédente, la procédure démarre ... :ccool:

Mais, les fonctions de gestion d’intégrité et des doublons renvoi faux :cry:

Je donne mon code:
Code du projet générale

Citation:

// Dans le code d'initialisation du projet
LOCAL
ResultatTrigger est un booléen

// changer le mode de tous les fichiers
//ici, tous les fichier en mode multi-utilisateurs
HMode(hModeMulti)

// Création du Trigger AVANT pour tous les fichiers de l'analyse
ResultatTrigger = HDécritTrigger("*","HAJOUTE,HMODIFIE,HSUPPRIME",proctrigger, hTriggerAvant)

// Avec "VerifDroitUtilisateur" une procédure globale du projet
SI ResultatTrigger = Faux ALORS
DélaiAvantFermeture(1000)
Erreur("Erreur sur un trigger : " + HErreurInfo)
RETOUR
FIN

proctrigger est déjà donné avant ... (procédure globale)

Merci de me répondre !
01/10/2012, 15h05
frenchsting
Il ne faudrait pas faire plutôt :
Code:

1 2 3 H.AFaire="A" SI HErreurDoublon()=Vrai ALORS
Je n'ai jamais mis en oeuvre de trigger...
01/10/2012, 16h24
miripesage
Bonjour, puisque vous avez décider de gérer vous mëme les erreurs de doublon, intégrité,..., avez vous désactivé la gestion automatique des erreurs?
Si non, il faut ajouter dans l'initialisation du projet :
Code:

1 2 // Désactivation de la gestion automatique des erreurs HSurErreur("*",hErrTout,"")
02/10/2012, 14h59
princesse_sissi

Bonjour,
Merci pour vos réponses !

@ frenchsting:
Ceci juste pour éviter la fenêtre d'erreur de Windev n'a aucun impact sur HerreurDoublon()

Citation:

H.AFaire="A"

@miripesage:
Comme j'utilise herreurDoublon() alors la gestion est automatique avec des fonctions prédéfinies, et ce que je veux et d’arrêter l’opération(hajoute, hmodifie) et le message de windev pour que l'utilisateur soit alaise.
03/10/2012, 13h35
frenchsting

Question : sur quelle version de windev es-tu ? Et sur quelle version de hf (classic ou CS) ?
03/10/2012, 16h30
princesse_sissi

Citation:

Envoyé par frenchsting

Question : sur quelle version de windev es-tu ? Et sur quelle version de hf (classic ou CS) ?

:)
Windev 15
HyperFile Classic

Merci à vous !
03/10/2012, 17h17
princesse_sissi

J'ai essayé ton code mais je suis entré dans une bouvle infinie ...
Sur le 1er coup herreurDoublon=0
Sinon du 02eme coup a l'infini =1

:aie:

Merci

Faites un essai avec ceci :

dans "initialisation du projet"

Code:

1
2
HSurErreur("*",hErrIntégrité+hErrDoublon+...
                hErrModification+hErrSuppression,"proctrigger")

Code:

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
PROCEDURE proctrigger()
 
SELON Majuscule(H.FonctionTrigger)
 
CAS "HAJOUTE"
 
SI Trace ALORS Trace("Trigger avant : Ajout")
 
SI HErreurDoublon()=Vrai ALORS
 // ON rend la main 
RENVOYER opFinTraitement
FIN
 
CAS "HMODIFIE"
SI Trace ALORS Trace("Trigger avant : Modification")
SI HErreurDoublon()=Vrai ALORS 
  // ON rend la main 
RENVOYER opFinTraitement
FIN
 
CAS "HSUPPRIME"
SI Trace ALORS Trace("Trigger avant : Suppression") 
//1 : &Supprimer
//2 : &Ne pas supprimer
SELON Dialogue("voulez-vous supprimer cette enregistement ?")
// supprimer 
 
CAS 1 
SI HErreurIntégrité()=Vrai ALORS
  RENVOYER opFinTraitement
FIN
 
// ne pas supprimer
CAS 2 
//abondon de l'action
RENVOYER opFinTraitement
 
 
FIN
FIN

Bonjour tous le monde,

Effectivement, j'ai résolu mon problème :
1/ Dans l'initialisation du projet
Code:

1 2 HSurErreur("*",hErrIntégrité+hErrDoublon+hErrModification,"proctrigger")
2/ Dans la procédure du tigger:
Code:

1 2 3 4 5 6 7 CAS "HAJOUTE" SI HErreurDoublon()=Vrai ALORS Erreur("Doublons: Enregistrement Existant !") Ferme() RENVOYER opFinTraitement FIN
3/ Et enfin, pour optimiser un peu le code pour l'utilisateur:
Code:

1 2 3 4 5 6 test=HAjoute(Affaire) //Msg d'ajout IF test=Vrai ALORS Dialogue("Ajout Réussi !") FIN
:ccool: :ccool:
Merci beaucoup pour votre aide à vous tous et spécialement à toi :
miripesage :ccool: :mrgreen: :ccool:

04/10/2012, 14h15
miripesage

Bonjour, alors appuyez sur :resolu: et bon développement