[WD10] Requête : problème affichage ligne de table
Bonjour
J'affiche via une requête des lignes de fabrication. L'exécution de la requête est dans un bouton OK.
Ensuite dans le code d'affichage de la ligne de table, je vérifie la quantité. Si la quantité est sup à 1 alors j'ajoute le nombre de ligne correspondant à la quantité -1.
Cela fonctionne sur les 7 premiers enregistrements de la requête. Pourquoi ???
J'ai mis le point d'arrêt et effectivement, arrivé au huitième enregfistrement, le code d'affichage d'une ligne de table ne s'effectue plus.
Si vous avez des idées car là je suis larguée !!
code bouton OK :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| //déclaration des variables
n est un entier
n=ListeSelect(COMBO_codecli)
gsCodeclient=COMBO_codecli[n]
//on exécute la requête
SI HExécuteRequête(REQ,hRequêteDéfaut,gsCodeclient)=Vrai ALORS
HLitPremier(REQ)
TANTQUE PAS HEnDehors(REQ)
TableAjouteLigne(TABLE,colonne1, colonne2,etc)
HLitSuivant(REQ)
FIN
SINON
Erreur("blabla")
RepriseSaisie(COMBO_codecli)
FIN
code affichage d'une ligne de table :
//déclaration des variables
qte est un entier
i est un entier
//on récupère la valeur de la colonne qté dans la ligne affichée
qte=TABLE_lames_cours_prod.QTE_LANCEE
//on ajoute des lignes dans la table correspondant à la quantité lancée
POUR i = 2 A qte
TableAjouteLigne(TABLE,"","","","","","","",REQ.NUM_OF+"/"+i)
FIN |
Merci d'avance.
