Discussion :

[dany13]

Bonjour,

je fais appel avous aujourd'hui car j'ai un paquet de noeud dans mon cerveau et ça commence à fumer!!

Le problème en soi n'est pas compliqué mais je me demande si c'est possible ou pas.

Explication :

¤Au niveau de la base de données HF :
- J'ai un fichier RAPPORT.FIC contenant des rubriques dont 2 qui sont : LES_CONDITIONS | LE_CONTENU_A_AFFICHER
- Dans mon fichier RAPPORT.FIC, j'ai par exemple ce genre d'enregistrement :
ID |LES_CONDITIONS | LE_CONTENU_A_AFFICHER
450 | Contient(REQ_Coordonnees.Date_entree,"inconnu") = vrai | La date d'entrée est inconnue

¤Au niveau de mon code (qui est donc un code general ou tout est parametré car des requetes differentes peuvent se trouver dans la rubrique LES_CONDITIONS)

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
 
SI HExécuteRequête(REQ_RAPPORT,hRequêteDéfaut) = Vrai ALORS
  POUR TOUT REQ_RAPPORT 
    sConditionTexte = REQ_RAPPORT.LES_CONDITIONS
    SI Contient(sConditionTexte ,"REQ") = Vrai ALORS
	nNumDebut = Position(sConditionTexte ,"REQ",1,DepuisDébut)
	nNumFin = Position(sConditionTexte ,".",1,DepuisDébut) - 1
	sRQConditionTexte = sConditionTexte [[nNumDebut A nNumFin]] // sRQConditionTexte contient le nom de la requete
 
	SI HExécuteRequête(sRQConditionTexte,hRequêteDéfaut) = Vrai ALORS
	  POUR TOUT {sRQConditionTexte} 
	    SI {sConditionTexte} ALORS
		sTexteAAfficher = sTexteAAfficher + REQ_RAPPORT.LE_CONTENU_A_AFFICHER
					FIN
				FIN
			FIN
		FIN

Au moment de l'execution, tout se déroule à merveille juqu'a ce point ci :
SI {sConditionTexte} ALORS ou la il s'arrete et me et que le texte contenu dans sConditionTexte est inconnu, c'est a dire avec l'exemple donné, il me met
L'élément 'Contient(REQ_Coordonnees.Date_entree,"inconnu") = vrai' est inconnu.

H.E.L.P

merci par avance de vos lumières

[dany13]

Et bien finalement, c'est tout bon!
Je pense que de poser mon souci m'a mis dans une piste que je n'avais pas explorée : EVALUER!
Et j'ai trouvé cette fameuse fonction : EvalueExpression qui répond completement à ce que je voulais

Pour le coup, dans mon code j'ai remplacé ou il fallait à savoir :

Code :

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

1
2
3
4
5
6
7
8
 
SI HExécuteRequête(sRQConditionTexte,hRequêteDéfaut) = Vrai ALORS
  POUR TOUT {sRQConditionTexte} 
    SI EvalueExpression(sConditionTexte) ALORS
      sTexteAAfficher = sTexteAAfficher + REQ_RAPPORT.LE_CONTENU_A_AFFICHER
    FIN
  FIN
FIN

Peut etre que ça pourra aider d'autres
Bonne journée
@++