Bonjour,

J'ai un champ table qui est chargé par programmation selon que je sélectionne une semaine ou une date de début et de fin.

Le code utilisé pour chargé le champ table est le suivant:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
PROCEDURE Remplir_Planification_Vernis()
 
I est un entier
I = 1
 
TableSupprimeTout(TABLE_Planif_Vernis)
TableSupprimeTout(TABLE_Planif_VernisRV)
 
Sablier(Vrai)
 
HExécuteRequête(REQ_QuantitéEnCommande,hRequêteDéfaut,SAI_DateDébut,SAI_DateFin)
HLitPremier(REQ_QuantitéEnCommande)
TANTQUE PAS HEnDehors(REQ_QuantitéEnCommande)
	HLitRecherchePremier(SW00SX005,stocknumber,REQ_QuantitéEnCommande.stockordered)
	SI HTrouve(SW00SX005) ALORS
		TableAjouteLigne(TABLE_Planif_Vernis)
		TABLE_Planif_Vernis.COL_Couleur[I] = SW00SX005.couleurdesc
		TABLE_Planif_Vernis.COL_Essence[I] = SW00SX005.essence
		TABLE_Planif_Vernis.COL_Grade[I] = SW00SX005.grade
		TABLE_Planif_Vernis.COL_Largeur[I] = SW00SX005.largeur
		TABLE_Planif_Vernis.COL_QtéRequise[I] = REQ_QuantitéEnCommande.la_somme_quantityordered - REQ_QuantitéEnCommande.la_somme_qtycanceled
		TABLE_Planif_Vernis.COL_NuméroStock[I] = REQ_QuantitéEnCommande.stockordered
		TABLE_Planif_Vernis.COL_Type[I] = SW00SX005.recordtype
		TABLE_Planif_Vernis.COL_Source[I] = SW00SX005.sourcepf
		HLitRecherchePremier(SW00XX099,stocknumber,REQ_QuantitéEnCommande.stockordered)
		SI HTrouve(SW00XX099) ALORS
			TABLE_Planif_Vernis.COL_QtéProduire[I] = SW00XX099.QtéProduire
			TABLE_Planif_Vernis.COL_Commentaire[I] = SW00XX099.Commentaire
		SINON
			TABLE_Planif_Vernis.COL_QtéProduire[I] = ""
			TABLE_Planif_Vernis.COL_Commentaire[I] = ""
		FIN
		HLitRecherchePremier(SW00XD031,recordkey,SW00SX005.recordkey)
		SI HTrouve(SW00XD031) ALORS
			TABLE_Planif_Vernis.COL_��paisseur[I] = SW00XD031.epaisseur
			TABLE_Planif_Vernis.COL_Boite[I] = SW00XD031.codeboite
			TABLE_Planif_Vernis.COL_QtéBoite[I] = (REQ_QuantitéEnCommande.la_somme_quantityordered - REQ_QuantitéEnCommande.la_somme_qtycanceled) / SW00XD031.piedparboite
			TABLE_Planif_Vernis.COL_Gloss[I] = SW00XD031.gloss
		FIN
		HLitRecherchePremier(SW00XD040,recordkey,SW00SX005.recordkey)
		SI HTrouve(SW00XD040) ALORS
			TABLE_Planif_Vernis.COL_Teinture[I] = SW00XD040.teinturecode
			TABLE_Planif_Vernis.COL_Intensité[I] = SW00XD040.teintintensite
		FIN
	FIN
	I = I + 1
	HLitSuivant(REQ_QuantitéEnCommande)
FIN
Mon problème est le suivant:

À ma première sélection tout se passe bien mon champ table est chargé.

Cependant si je fait une seconde sélection toutes les lignes du champ table sont à blanc sauf la dernière qui correspond au dernier record lu.

Si je roule mon programme étape par étape je vois la ligne 1 dans mon champ table.
Lorsque je continue pour la ligne 2 la ligne 1 est mis à blanc et la ligne 2 s'affiche et ainsi de suite jusqu'à la fin.

Merci pour votre aide.

Bonne fin de journée