Discussion :

[kwakly]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[kwakly]

voici le code qui m'a été proposé et ça fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
30
code bouton OK :
//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)
// ----------------------------------------------------- 
Si REQ.QTE_LANCEE>0 Alors
MAPROCEDURE_LIGNES_EN_PLUS(REQ.QTE_LANCEE,REQ.NUM_OF)
FIN
// -----------------------------------------------------------
HLitSuivant(REQ)
FIN
SINON
Erreur("blabla")
RepriseSaisie(COMBO_codecli)
FIN
 
===================================
MAPROCEDURE_LIGNES_EN_PLUS(QTE,NUM_OF)
I est entier
//on ajoute autant de lignes supplémentaires dans la table qu'il y a quantité 
POUR I = 1 A qte
TableAjouteLigne(TABLE,"","","","","","","",NUM_OF+"/"+I)
FIN