Re: Fichierversecran | Sujet: Re: Fichierversecran par Anonyme sur 17/6/2005 11:25:17
Bonjour
Voici le code lors du clic du bouton.
//////////////////////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
Le pire c'est que hier ca marchait bien du moins quand je faisais une recherche sur le numéro de bouteille.
C'est juste que j'ai rajouté des criteres de recherche et la c'est plus allé du tout. Donc je suis revenu au point de depart telle qu'elle mais je m'aperçois que ca ne marche pas...
Voyez-vous quelquechose que je ne fais pas bien ?
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|