//////////////////////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"
b_filtre ,b_where,b_or est un booléen
b_where=True
//composition de la requete
SI CHP_NumMesser<>Null ALORS
SI b_where ALORS
SreqBte+=" AND Bouteille.NumMesser ="+ CHP_NumMesser
SINON
SreqBte+=" where Bouteille.NumMesser ="+ CHP_NumMesser
FIN
b_filtre=True
b_where=True
FIN
SI INTERRUPT_Rech[1] OU INTERRUPT_Rech[2] OU INTERRUPT_Rech[3] ALORS
cond est une chaîne
SI INTERRUPT_Rech[1] ALORS
cond=" Bouteille.StopBtl=1"
b_or=True
FIN
SI INTERRUPT_Rech[2] ALORS
SI b_or ALORS
cond+=" OR Bouteille.Rebut=1"
SINON
cond=" Bouteille.Rebut=1"
b_or=True
FIN
FIN
SI INTERRUPT_Rech[3] ALORS
SI b_or ALORS
cond+=" OR Bouteille.Vendue=1"
SINON
cond=" Bouteille.Vendue=1"
FIN
FIN
SI b_or ALORS
cond = " AND ("+cond+")"
SINON
cond =" AND "+ cond
FIN
SreqBte+= cond
FIN
SI b_filtre ALORS
SI HExécuteRequêteSQL(SresulBte,NomConnexion,hRequêteDéfaut,SreqBte) ALORS
Table_Bouteille1..FichierParcouru="SresulBte"
SINON
Info("erreur requete"+RC+HErreurInfo(hErrComplet))
FIN
SINON
HDésactiveFiltre(Bouteille)
Table_Bouteille1..FichierParcouru="Bouteille"
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2401&post_id=10118