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