i est un entier
//////////////////////PARTIE BOUTEILLE//////////////////////////
SreqBte est une chaîne=
[
SELECT
Bouteille.NumMesser AS NumMesser,
Bouteille.Observations AS Observations,
Bouteille.NumFabrication AS NumFabrication,
Bouteille.DateReforme AS DateReforme,
Bouteille.DateEpreuve AS DateEpreuve,
Bouteille.StopBtl AS StopBtl,
Bouteille.Rebut AS Rebut,
Bouteille.Vendue AS Vendue,
Bouteille.IDCadre AS IDCadre,
Lot.IDLot AS IDLot,
Lot.NumLot AS NumLot,
Lot.Categorie AS Categorie,
Lot.IDEmballage AS IDEmballageLot,
Lot.DateOrigine AS DateOrigine,
Fournisseur.Nom AS Fabricant,
Fournisseur.IDFournisseur,
Lot.PressionEpreuve AS PressionEpreuve,
Bouteille.CategorieActuel,
Lot.StopLot AS StopLot
FROM Bouteille,lot,Fournisseur
Where Lot.IDLot=Bouteille.IDLot
AND Fournisseur.IDFournisseur=lot.IDFournisseur
]
SreqBte += RC
SI CHP_NumMesser<>Null ALORS SreqBte+=" AND Bouteille.NumMesser ="+ CHP_NumMesser + " "
For i = 1 a 3
Si INTERRUPT_Rech[i] = Vrai Alors
Si i = 1 Alors : Cond += " Bouteille.StopBtl=1"
Si i = 2 Alors
Si Cond <> "" Alors Cond += " OR"
Cond += "Bouteille.Rebut=1"
Fin
Si i = 3 Alors
Si Cond <> "" Alors Cond += " OR"
Cond += " Bouteille.Vendue=1"
Fin
Fin
Fin
Si Cond <> "" alors
SreqBte+= " AND (" + cond + ") "
Fin
SI HExécuteRequêteSQL(SresulBte,NomConnexion,hRequêteDéfaut,SreqBte) ALORS
Table_Bouteille1..FichierParcouru="SresulBte"
SINON
Info("erreur requete"+RC+HErreurInfo(hErrComplet))
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2401&post_id=10120