Discussion :

[zouzoukha]

Salut les amis.

Je me remets à windev après un long moment d'absence et dure est la reprise lol.

Mon problème du jour concerne le remplissage d'un tableau d'état à partir d'une table mémoire avec des colonnes clonées.
J'ai donc réalisé ma table qui se remplit parfaitement à l'aide d'une requête SQL.



Par contre je n'arrive pas à trouver la manière de remplir les colonnes de l'état. Ci dessous le code d'init de l'état ou je clone les colonnes.

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
PROCEDURE MonEtat(sTiteEtat,sChauffeur,sListeLivreurs,sDate)
 
TITREDOC = sTiteEtat
LIBELLE_DATE = DateVersChaîne(sDate)
LIB_Chauffeur = sChauffeur
LIB_Livreur = sListeLivreurs
 
i est un entier = 0
nPosX est un entier = 60
nPosY est un entier = RUB_COL_Produit..Y
nLargeurColonne est un entier
 
// Calcul de la largeur pour chaque colonne (en enlèvant la largeur de colonne nom de 60 mm + les 2 marges de 5 mmm) sur A4 paysage
SI gnProduitNonEnSuspens>0 ALORS
	nLargeurColonne = PartieEntière(227/gnProduitNonEnSuspens)
FIN
 
POUR TOUT Produit AVEC SUSPENS=0
	i++
 
	ChampClone(LIB_COL_Produit,"Nouveau_Nom_"+i,nPosX,nPosY)
 
	// changer le libellé
	{"Nouveau_Nom_"+i}..Libellé = Produit.NOM
	{"Nouveau_Nom_"+i}..Visible = Vrai
	{"Nouveau_Nom_"+i}..Largeur = nLargeurColonne
 
	ChampClone(RUB_COL_Produit,"Nouvelle_Rub_"+i,nPosX,nPosY)
 
	// changer le libellé
	{"Nouvelle_Rub_"+i}..Libellé = "RUB_"+Produit.NOM
	{"Nouvelle_Rub_"+i}..Visible = Vrai
	{"Nouvelle_Rub_"+i}..Largeur = nLargeurColonne
 
	nPosX+=10
FIN