Discussion :

[Theo.H]

Bonjour à tous,

Voici mon problème, j'ai des tables à remplir ou à ne pas remplir en fonction de certains champs.
Voici mon code : HLitPremier(fourtemp,PRIMARY)
TANTQUE HEnDehors(fourtemp)=Faux
HLitRecherchePremier(fournisseur,Fourn_Code,fourtemp.Fourn_Code)
SI fourtemp.Fourn_Code = "0000000001" OU fourtemp.Fourn_Code [= "SC" OU fourtemp.Fourn_Code [= "PRY" OU fourtemp.Fourn_Crit_Sap = "COMPTA" OU fourtemp.Fourn_Crit_Sap = "FACTOR" ALORS
RETOUR
FIN
SI PAS HTrouve(fournisseur) ALORS
HCopieEnreg(fournisseur,fourtemp,"Fourn_Code,Fourn_Nom,Fourn_Crit_Sap, Fourn_Adr,Fourn_Ville,Fourn_Boite,Fourn_CP,Fourn_tSuppr,Fourn_Tel1,Fourn_Tel2,Fourn_Fax,Fourn_CodePays,Fourn_Pays,Fourn_Tbloq,Fourn_Bascout,Fourn_Dcrea,Fourn_Dbloq,Fourn_Dsupp,Fourn_Mincde,Fourn_Nom_Gest_CJR5,Fourn_Nom_Gest_FY1","Fourn_Code,Fourn_Nom,Fourn_Crit_Sap, Fourn_Adr,Fourn_Ville,Fourn_Boite,Fourn_CP,Fourn_tSuppr,Fourn_Tel1,Fourn_Tel2,Fourn_Fax,Fourn_CodePays,Fourn_Pays,Fourn_Tbloq,Fourn_Bascout,Fourn_Dcrea,Fourn_Dbloq,Fourn_Dsupp,Fourn_Mincde,Fourn_Nom_Gest_CJR5,Fourn_Nom_Gest_FY1",hCopieIdAuto)
SINON
HSupprime(fournisseur,hNumEnrEnCours)
HCopieEnreg(fournisseur,fourtemp,"Fourn_Code,Fourn_Nom,Fourn_Crit_Sap, Fourn_Adr,Fourn_Ville,Fourn_Boite,Fourn_CP,Fourn_tSuppr,Fourn_Tel1,Fourn_Tel2,Fourn_Fax,Fourn_CodePays,Fourn_Pays,Fourn_Tbloq,Fourn_Bascout,Fourn_Dcrea,Fourn_Dbloq,Fourn_Dsupp,Fourn_Mincde,Fourn_Nom_Gest_CJR5,Fourn_Nom_Gest_FY1","Fourn_Code,Fourn_Nom,Fourn_Crit_Sap, Fourn_Adr,Fourn_Ville,Fourn_Boite,Fourn_CP,Fourn_tSuppr,Fourn_Tel1,Fourn_Tel2,Fourn_Fax,Fourn_CodePays,Fourn_Pays,Fourn_Tbloq,Fourn_Bascout,Fourn_Dcrea,Fourn_Dbloq,Fourn_Dsupp,Fourn_Mincde,Fourn_Nom_Gest_CJR5,Fourn_Nom_Gest_FY1",hCopieIdAuto)
FIN
HAjoute(fournisseur,hFixeIdAuto)
HLitSuivant(fourtemp,PRIMARY)
FIN

Sauf que celui-ci ne marche pas, j'ai rempli mes champs pour me créer des erreurs mais on ne me renvoie pas à RETOUR lorsque l'une de mes conditions est exactes.
Ou est mon erreur?

Cordialement,

[mail.spam]

Bonjour,

Afin de faciliter la lecture de ton code, pense à utiliser les balises codes (c'est le # dans l'éditeur du forum)

sinon à tu essayé de mettre des trace(fourtemp.Fourn_Code) afin de voir la valeur que tu récupère.
Sinon essaie de faire un deboggage en mettant un point d'arret avant ta condition.
ensuite afin de voir quel condition te pose problème tu peux ajouter tes conditions dans le deboggeur (tu sélectionne ton test puis clic droit quand tu est en déboggage et ajouter l'expression dans le deboggeur).

[Nicolas_Jeanneau]

Bonjour,

essayes comme cela :

Code :

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

1
2
3
SI fourtemp.Fourn_Code = "0000000001" OU Gauche(fourtemp.Fourn_Code,2) = "SC" OU Gauche(fourtemp.Fourn_Code,3) = "PRY" OU fourtemp.Fourn_Crit_Sap = "COMPTA" OU fourtemp.Fourn_Crit_Sap = "FACTOR" ALORS
 RETOUR 
FIN

à bientôt,

Nicolas

[Theo.H]

Bonjour,

Merci pour ta réponse, enfet mon champs était un numérique et n'acceptais donc pas que les données commence par SC ou PRY donc mon problème est résolu.

Par contre je ne c'est pas comment a la place de RETOUR faire pour aller a un traitement choisi.

(Excuser moi si je n'est pas été assez explicite, je souhaiterais enfet si une condition tel que COMPTA ou FACTOR est vrai, ne rien faire et passer au traitement de la ligne suivante.)

Aurais-tu une idée?

Merci pour ta réponse, Cordialement,

[mail.spam]

Quand tu dis allez au traitement de la ligne suivante.
Tu veux dire quoi. sortir de ta boucle tantque ou faire autre chose.
Car pour sortir de la boucle tantque tu peux utiliser SORTIR.

mais tu peux aussi utiliser

Code :

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

1
2
3
SI condition ALORS
SINON
FIN

[Theo.H]

Merci de tes réponses,

Je souhaiterais enfet à la place de retour pouvoir revenir au début de ma boucle TANTQUE sans faire de hAjoute pour pouvoir lire la ligne suivantes de mes données.

Cordialement,

[madsland]

Je souhaiterais enfet à la place de retour pouvoir revenir au début de ma boucle TANTQUE sans faire de hAjoute pour pouvoir lire la ligne suivantes de mes données.

Bonjour,

Tu peux dans ce cas utiliser l'expression CONTINUER

Cordialement

Madsl@nD

[mail.spam]

moi j'utiliserai

Si ALORS SINON FIN

mais pour info regarde l'aide de CONTINUE
Attention si tu utilise continuer le code reprend à la ligne tantque donc le code HLitSuivant(fourtemp,PRIMARY) ne sera pas executé

[Theo.H]

Merci a vous pour vos réponses,

J'ai trouver une solution, j'ai plutôt dit pour la condition si <> alors faire sinon ne rien faire et hlitsuivant.

Merci, Cordialement, Bon dev.