Bjr, utilisant WM18 avec hyperfile je bute sur une erreur toute simple !!
Après un hexecuterequete la fonction hlitpremier me renvoie une erreur d'initialisation de cette requete.
La tablette dispose bien des fichiers, les ZR comportent toutes mes données, tout est ok, sauf cette instruction : HLitPremier(REQ_Nom1)
Merci pour votre aide
// Calcul des proportions dans le cas d'une pesée
xMaPortion est un monétaire = INT_Nbre_Portion
MaQuantite est un monétaire = (SAI_Portion*xMaPortion)/100
// Création des variables table
Energie, Proteine, Glucide, lipide est un monétaire
// Recherche de l'aliment
HExécuteRequête(REQ_Nom1,hRequêteDéfaut,ZR_Req_Composant2.SAI_Sous_Liste)
// Recherche de quelques constituants
HLitPremier(REQ_Nom1) // PLANTAGE !!!!
TANTQUE HEnDehors(REQ_Nom1) =Faux
SI REQ_Nom1.Num = 1 ALORS
Energie=Val(REQ_Nom1.SELVALtexte)*MaQuantite
FIN
SI REQ_Nom1.Num=17 ALORS
Proteine=Val(REQ_Nom1.SELVALtexte)*MaQuantite
FIN
SI REQ_Nom1.Num=19 ALORS
Glucide=Val(REQ_Nom1.SELVALtexte)*MaQuantite
FIN
SI REQ_Nom1.Num=24 ALORS
lipide=Val(REQ_Nom1.SELVALtexte)*MaQuantite
FIN
HLitSuivant(REQ_Nom1)
FIN
// Alimentation des tables
ZoneRépétéeAjouteLigne(TABLE_Aliment,ZR_Req_Composant2.SAI_Sous_Liste,(MaQuantite*100),INT_Nbre_Portion,SAI_Portion,Energie,Proteine,Glucide,lipide)
//TableAjouteLigne(TABLE_Aliment1,ZR_Req_Composant2.SAI_Sous_Liste)
//POUR TOUT REQ_Nom1
// k est un entier=TABLE_Aliment1..Occurrence
// i est un entier = HNumEnr(REQ_Nom1)
//{"Nbre"+REQ_Nom1.Num,indChamp}[k] = REQ_Nom1.SELVALtexte
//FIN
HLibèreRequête(REQ_Nom1) |