Discussion :

[windsor]

Bonjour,

je rencontre un problème avec mon code en utilisant HFiltre, je m'explique :

Je fais une recherche d'une reference dans un fichier PARAMETRE pour ajouter une "Référence Mère" dans mon fichier PRODUCTION, le problème, c'est que si la reference n'existe pas dans le fichier PARAMETRES, le champs PRODUCTION.REFERENCEMERE se rempli quand même.

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
 
 
sCleParcour = HFiltre(PARAMETRES, REFPRO, reference)
Si sCleParcour <> "" alors
 
     HLitPremier(PARAMETRES, REFPRO)
     TANTQUE PAS HenDehors()
 
          SI PARAMETRES.REFPRO = reference alors
               PRODUCTION.REFERENCEMERE = PARAMETRES.REFMERE
          FIN
 
     HLitSuivant(PARAMETRES, REFPRO)
 
     FIN
 
FIN
 
HdésactiveFiltre(PARAMETRES)
 
HAjoute(PRODUCTION)

J'ai tourné le problème dans ton les sens et je ne comprends pas.

Si quelqu'un peut m'aider ?

[Lo²]

Bonjour,

C'est normal, tu ne parcours pas PARAMETRES avec le filtre.

Code :

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

HLitPremier(PARAMETRES, sCleParcour)

et aussi

Code :

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

HLitSuivant(PARAMETRES, sCleParcour)

[windsor]

Salut Lo²,

c'est ce que j'avais au début, j'avais toujours le même genre de problème, les valeurs pour les references qui n'existent pas sont différentes mais irréaliste.

ce que je souhaiterais, c'est que s'il ne trouve pas la reference, qu'il laisse à blanc le champs (ce serait logique, non ?)

[klbsjpolp]

Bonjour,

Ce qu'il te faut c'est une requête. La fonction HFiltre permet de "sauter" certains enregistrements qui ne répondent pas à un critère. Cette fonction ne met pas à blanc les champs qui ne marchent pas, elle ignore toute la ligne.

[Lo²]

oui ou en gardant le code actuel avec quelques modfications :

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
sCleParcour = HFiltre(PARAMETRES, REFPRO, reference)
sREFMERE est chaine

Si sCleParcour <> "" alors

     HLitPremier(PARAMETRES, sCleParcour )
     SI PAS HenDehors()
          SI PARAMETRES.REFPRO = reference alors
                sREFMERE = PARAMETRES.REFMERE
          FIN
     FIN

FIN
HdésactiveFiltre(PARAMETRES)

SI sREFMERE = "" ALORS
  PRODUCTION.REFERENCEMERE = ""
SINON
  PRODUCTION.REFERENCEMERE = PARAMETRES.REFMERE
FIN
HAjoute(PRODUCTION)