SELECT Bouteille.IDBouteille AS IDBouteille,
Bouteille.NumBte AS NumBte,
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,
Lot.PressionEpreuve AS PressionEpreuve,

Lot.StopLot AS StopLot
FROM Lot, Bouteille, Fournisseur
WHERE Lot.IDLot = Bouteille.IDLot
AND Lot.IDFournisseur = Fournisseur.IDFournisseur
AND Bouteille.NumMesser = {Param1}
AND Lot.IDEmballage = {Param2}
AND lot.categorie LIKE {Param3} 
AND Bouteille.NumFabrication = {Param5}
AND lot.NumLot = {Param6}
AND Fournisseur.IDFournisseur = {Param7}
AND Bouteille.StopBtl LIKE {Param8}
AND Bouteille.Rebut LIKE {Param9}
AND Bouteille.Vendue LIKE {Param10}
AND Lot.PressionEpreuve = {Param11}
AND Bouteille.ReglementActuel={param12}
AND lot.DateOrigine ={param13}
ORDER BY Bouteille.NumBte ASC

FROM Lot, Bouteille, Fournisseur
WHERE Lot.IDLot = Bouteille.IDLot
AND Lot.IDFournisseur = Fournisseur.IDFournisseur

AND Bouteille.NumMesser = {Param1}
AND Bouteille.NumFabrication = {Param5}
AND Bouteille.ReglementActuel={param12}

AND Bouteille.StopBtl LIKE {Param8}
AND Bouteille.Rebut LIKE {Param9}
AND Bouteille.Vendue LIKE {Param10}

AND Lot.IDEmballage = {Param2}
AND lot.categorie LIKE {Param3} 
AND lot.NumLot = {Param6}
AND Lot.PressionEpreuve = {Param11}
AND lot.DateOrigine ={param13}

AND Fournisseur.IDFournisseur = {Param7}

req est une chaîne= " SELECT   StopBtl,Rebut,Vendue,Bouteille.Observations,DateOrigine,IDBouteille,NumMesser,NumLot,NumFabrication, " +...
" CategorieActuel,Fournisseur.Nom,Emballage.Type,lot.IDLot,lot.StopLot,lot.Categorie FROM "+...
" Bouteille,Lot,Emballage,Fournisseur WHERE lot.IDLot = Bouteille.IDLot AND Emballage.IDEmballage=lot.IDEmballage AND Fournisseur.IDFournisseur=lot.IDFournisseur"
Resultat_Bte est une Source de Données

SI CHP_NumMesser<>Null ALORS
	req+= " AND Bouteille.NumMesser="+CHP_NumMesser
FIN

SI CHP_NumLot<>Null ALORS
	req+= " AND lot.NumLot="+CHP_NumLot
FIN

SI CHP_NumFabrication<>Null ALORS
	req+= " AND Bouteille.NumFabrication="+CHP_NumFabrication
FIN

SI Combo_Emballage<>Null ALORS
	HLitRecherche(Emballage,Type,Combo_Emballage..ValeurAffichée,hIdentique)
	SI HTrouve(Emballage) ALORS
		req+= " AND lot.IDEmballage=" + Emballage.IDEmballage	
	FIN
FIN

SI COMBO_Categorie<>Null ALORS
	SELON typerech
		CAS RECH_BTE :
			req+= " AND Bouteille.CategorieActuel="+(COMBO_Categorie-1)
		CAS RECH_LOT :
			req+= " AND lot.Categorie="+(COMBO_Categorie-1)					
	FIN		
FIN

SI Combo_Reglement<>Null ALORS
	SELON typerech
		CAS RECH_BTE :
			req+= " AND Bouteille.ReglementActuel ='"+ Combo_Reglement..ValeurAffichée	+"'"
		CAS RECH_LOT :
			req+= " AND lot.Reglement ='"+ Combo_Reglement..ValeurAffichée	+"'"			
	FIN			
FIN

SI COMBO_Fabricant<>Null ALORS
	req+=" AND Fournisseur.IDFournisseur = "+COMBO_Fabricant..ValeurMémorisée
FIN

SI CHP_DateOrigine<>Null ALORS
	req+= " AND lot.DateOrigine="+ CHP_DateOrigine	
FIN

SI CHP_PressionEp<>Null ALORS
	req+= " AND lot.PressionEpreuve="+CHP_PressionEp	
FIN

ValParam,ValParam2,ValParam3,ValParam5 sont des Variants=Null
SELON INTERRUPT_Rech[1]
	CAS 1:
		req+=" AND Bouteille.StopBtl=1"		
	CAS -1:
		req+=" AND Bouteille.StopBtl=0"		
FIN

SELON INTERRUPT_Rech[2] 
	CAS 1:
		req+=" AND Bouteille.Rebut=1"		
	CAS -1:
		req+=" AND Bouteille.Rebut=0"		
FIN

SELON INTERRUPT_Rech[3]
	CAS 1:
		req+=" AND Bouteille.Vendue=1"		
	CAS -1:
		req+=" AND Bouteille.Vendue=0"		
FIN

req+=" ORDER BY Bouteille.NumMesser ASC"

SI HExécuteRequêteSQL(Resultat_Bte,req) ALORS
	HLitPremier(Resultat_Bte)
	TANTQUE PAS HEnDehors(Resultat_Bte)		
		SELON typerech
			//recherche Bouteille
			CAS RECH_BTE :
				TableAjoute(Table_Bouteille ,Resultat_Bte.IDBouteille+TAB+Resultat_Bte.NumMesser+TAB+Resultat_Bte.NumFabrication+TAB+...
				Resultat_Bte.NumLot+TAB+GetTypeEpreuve(False,"",Resultat_Bte.CategorieActuel)+TAB+Resultat_Bte.Type+TAB+Resultat_Bte.Nom+TAB+Resultat_Bte.DateOrigine+TAB+...
				Resultat_Bte.Observations+TAB+Resultat_Bte.Vendue+TAB+0+TAB+Resultat_Bte.Rebut+TAB+Resultat_Bte.StopBtl)						
				//Couleurs		
				SI Resultat_Bte.StopBtl ALORS
					Table_Bouteille[Table_Bouteille..Occurrence]..CouleurFond=Coul_Btl_Stop..CouleurFond
				FIN		
				SI Resultat_Bte.Rebut ALORS
					Table_Bouteille[Table_Bouteille..Occurrence]..CouleurFond=Coul_Btl_Reforme..CouleurFond
				FIN
				SI Resultat_Bte.Vendue ALORS
					Table_Bouteille[Table_Bouteille..Occurrence]..CouleurFond=Coul_Btl_Vente..CouleurFond
				FIN	
		
			CAS RECH_LOT :
				numbtlfin est un entier
				SI TableCherche(TABLE_Lot.NumLot,Resultat_Bte.IDLot)=-1 
					TableAjoute(TABLE_Lot,Resultat_Bte.IDLot+TAB+Resultat_Bte.NumLot+TAB+Resultat_Bte.Type+TAB+GetTypeEpreuve(False,"",Resultat_Bte.Categorie)+...
					TAB+Resultat_Bte.Nom+TAB+Resultat_Bte.NumMesser+TAB+numbtlfin+TAB+Resultat_Bte.Observations+TAB+Resultat_Bte.StopLot)
				FIN
				
					
		FIN		
		
		HLitSuivant(Resultat_Bte)		
	FIN
	HAnnuleDéclaration(Resultat_Bte)