WDForge.org - Forums

[résolu]Problème de requête pour Einstein en herbe

Sujet: [résolu]Problème de requête pour Einstein en herbe
par GoZeub sur 18/5/2004 10:18:30

Bonjour,
Le problème que je rencontre est assez particulier... Je remplis une table mémoire avec une requête mais le nombre d'enregistrement diffère selon qu'une partie de mon code(ci dessous) soit mis en commentaire ou non. En effet lorsque le code qui n'a rien à voir normalement avec le remplissage de la table est mis en commentaire j'obtiens toujours 5 enregistrements sinon ma table affiche 3 ou 5 enregistrements... pourquoi je ne sais pas... à vrai dire ç fait des heures que je suis dessus à tout essayer je comprend vraiment pas

Voici le fameux code fonctionnel car la partie en question est mise en commentaire :

Sablier()

QteBtl,QteCad,QteEmb,QteB2,QteB5,QteB10,QteB20,QteB50,QteCV8,QteCV12,QteCV18,QteAutres,QteBtlAutres sont des entiers=0
ValTemp1,ValTemp2,ValTemp3,ValTemp4 sont des Variants=Null
Letat,Letype,Lemotif sont des chaînes
Indice est un entier=0
SI COMBO_Rech_Famille..ValeurAffichée<>"" ALORS
ValTemp1=COMBO_Rech_Famille..ValeurAffichée
FIN
SI COMBO_Rech_Groupe..ValeurAffichée<>"" ALORS
ValTemp2=COMBO_Rech_Groupe..ValeurAffichée
FIN
SI COMBO_Rech_Etat..ValeurAffichée<>"" ALORS
ValTemp3=COMBO_Rech_Etat-1
FIN
SI COMBO_Rech_Type..ValeurAffichée<>"" ALORS
SI COMBO_Rech_Type=2 ALORS
ValTemp4=Vrai
SINON
SI COMBO_Rech_Type=3 ALORS
ValTemp4=Faux
FIN
FIN
FIN

TableSupprimeTout(TABLE_Demande)
//On parcours la requête correspondant à la recherche
HDésactiveFiltre(Demande_Des_Affectation)
Trace(COMBO_Rech_Produit+TAB+ValTemp1+TAB+COMBO_Rech_Emballage+TAB+COMBO_Rech_MP+TAB+ValTemp2+TAB+COMBO_Rech_SaisiPar+TAB+CHP_Rech_Periode1+TAB+CHP_Rech_Periode2+TAB+ValTemp4+TAB+COMBO_Rech_Site+TAB+ValTemp3+TAB+COMBO_Rech_CP)
HExécuteRequête(Req_Des_Affectations,hRequêteDéfaut,COMBO_Rech_Produit,ValTemp1,COMBO_Rech_Emballage,COMBO_Rech_MP,ValTemp2,COMBO_Rech_SaisiPar,CHP_Rech_Periode1,CHP_Rech_Periode2,ValTemp4,COMBO_Rech_Site,ValTemp3,COMBO_Rech_CP)
HLitPremier(Req_Des_Affectations)
TANTQUE PAS HEnDehors(Req_Des_Affectations)
//selon Req_Des_Affectations.Etat
// cas 1:
// Letat="Gazeux"
// cas 2:
// Letat="Liquide"
// cas 3:
// Letat="Solide"
// FIN
// si Req_Des_Affectations.Type ALORS
// Letype="Affectation"
// selon Req_Des_Affectations.Motif
// cas 1:
// lemotif="Nouveau besoin"
// cas 2:
// lemotif="Stock alerte"
// cas 3:
// lemotif="Réépreuve"
// FIN
// sinon
// Letype="Désaffectation"
// lemotif="Stock important"
// FIN
//
// //On regarde si le produit est un cadre
// si Req_Des_Affectations.NbBtl>1 ALORS
// selon Req_Des_Affectations.Emballage
// CAS "CV8":
// QteCV8+=Req_Des_Affectations.Qte
// CAS "CV12":
// QteCV12+=Req_Des_Affectations.Qte
// CAS "CV18":
// QteCV18+=Req_Des_Affectations.Qte
// autres CAS :
// QteAutres+=Req_Des_Affectations.Qte
// FIN
// //On s'occupe du nombre total d'emballages et de cadres
// QteCad+=Req_Des_Affectations.Qte
// QteEmb+=(Req_Des_Affectations.NbBtl*Req_Des_Affectations.Qte)
// sinon
// selon Req_Des_Affectations.Emballage
// cas "B2":
// QteB2+=Req_Des_Affectations.Qte
// cas "B5":
// QteB5+=Req_Des_Affectations.Qte
// CAS "B10":
// QteB10+=Req_Des_Affectations.Qte
// CAS "B20":
// QteB20+=Req_Des_Affectations.Qte
// CAS "B50":
// QteB50+=Req_Des_Affectations.Qte
// autres CAS :
// QtebtlAutres+=Req_Des_Affectations.Qte
// FIN
// //On s'occupe du nombre total de bouteilles et d'emballages
// QteBtl+=Req_Des_Affectations.Qte
// QteEmb+=Req_Des_Affectations.Qte
// FIN

TableAjoute(TABLE_Demande,Req_Des_Affectations.IDDemande_Des_Affectation+TAB+Req_Des_Affectations.Date+TAB+Req_Des_Affectations.DateLivraison+...
TAB+Req_Des_Affectations.Nom+TAB+Req_Des_Affectations.Emballage+TAB+Letat+TAB+Letype+TAB+Req_Des_Affectations.CentreProd+...
TAB+Req_Des_Affectations.Utilisateur+TAB+Lemotif+TAB+Req_Des_Affectations.Observations+TAB+Req_Des_Affectations.Traite+...
TAB+Req_Des_Affectations.Qte_EnCours+TAB+Req_Des_Affectations.Qte+TAB+Req_Des_Affectations.IDTraitant+TAB+Req_Des_Affectations.IDResponsable+...
TAB+Req_Des_Affectations.Qte_Ini)
HLitSuivant(Req_Des_Affectations)
FIN
HAnnuleDéclaration(Req_Des_Affectations)
TableAffiche(TABLE_Demande)

Sablier(Faux)

Merci d'avance pour votre aide