Discussion :

[Berrehal]

bonjour forum j'ai cree 4 boutons



le code de l'un des bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
 
// Lire l'enregistrement précédent
HLitPrécédent(ORDREDEFACTURATION, IDOF) 
 
SI HEnDehors() ALORS
  Info("Il n'y a plus de of à visualiser")
SINON
  // Initialiser les champs
  FichierVersEcran()
FIN

le code marche bien mais juste un problème la fenêtre elle se remplis sauf les deux table qui se remplisse avec programmation

[Yusep]

le code marche bien mais juste un problème la fenêtre elle se remplis sauf les deux table qui se remplisse avec programmation

Alors il faut que tu codes ton bouton pour remplir les tables par programmation.

[philouZ]

Perso,

Je ne comprends même pas la question...

[Berrehal]

se que je veux dire le HLitPrécédent m'actualise les donne de la fenêtre sauf les deux table qui se remplisse avec programmation

[philouZ]

Eh bien il faut coder le remplissage de tes tables dans une procédure locale et appeler cette procédure aux endroits nécessaires, suivant, précédent, ...

Code du bouton Suivant

Code :

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

Naviguer("suivant")

Code du bouton Précédent

Code :

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

Naviguer("precedent")

Code du bouton Premier

Code :

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

Naviguer("premier")

Code du bouton Dernier

Code :

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

Naviguer("dernier")

Procédure Naviguer

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
PROCEDURE Naviguer(sSens est une chaîne)
 
SELON sSens
	 CAS "suivant": HLitSuivant(ORDREDEFACTURATION)
	 CAS "precedent": HLitPrécédent(ORDREDEFACTURATION)
	 CAS "premier": HLitPremier(ORDREDEFACTURATION)
	 CAS "dernier": HLitDernier(ORDREDEFACTURATION)
FIN
 
SI HEnDehors() ALORS
	Info("Il n'y a plus de of à visualiser")
SINON
	// Initialiser les champs
	FichierVersEcran()
 
	//Remplissage des tables par programmation
	POUR TOUT Lignecde AVEC IDOF = ORDREDEFACTURATION.IDOF
		TableAjouteLigne(Table1,LigneCde.des_of,...)
	FIN
FIN

Voilà ce que je ferais.

[Berrehal]

j'ai crée la procédure

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
PROCEDURE Naviguer(sSens est une chaîne)
 
SELON sSens
	CAS "suivant": HLitSuivant(ORDREDEFACTURATION)
	CAS "precedent": HLitPrécédent(ORDREDEFACTURATION)
	CAS "premier": HLitPremier(ORDREDEFACTURATION)
	CAS "dernier": HLitDernier(ORDREDEFACTURATION)
FIN
 
SI HEnDehors() ALORS
	Info("Il n'y a plus de of à visualiser")
SINON
	// Initialiser les champs
 
	FichierVersEcran()
 
	//Remplissage des tables par programmation
	POUR TOUT ligneCde AVEC IDOF = ORDREDEFACTURATION.IDOF
		TableAjouteLigne(TABLE_LigneCde,ligneCde.IDligneCde, ligneCde.IDOF,ligneCde.des_of,ligneCde.capa_of,ligneCde.nbr_of,ligneCde.prix_of,ligneCde.montant,ligneCde.OrdreAffichage)
	FIN
FIN

sa na rien donne

[philouZ]

Tu as mis un point d'arrêt en debug pour voir si tu passes dans la procédure et pourquoi ça ne fonctionne pas ?

[Berrehal]

le hli marche mais la table lignecde ne se remplisse pas

[tbc92]

Parmi les exemples fournis avec Windev , il y en a une dizaine qui correspondent exactement à ton besoin.
Tu peux même utiliser le RAD, ça va te créer tes fenêtres avec les boutons que tu demandes, et avec le code qui fonctionne. Pourquoi tu te compliques la tâche, alors qu'il suffit d'utiliser les outils existants ?

[philouZ]

Est-ce que ça passe dans la boucle POUR TOUT ????

[Berrehal]

Non sa passe pas pour tout

[Voroltinquo]

En éditant LIGNE_CDE avec wdmap, la valeur de IDOF est elle différente de 0?

[philouZ]

Bon je suis désolé mais on part de trop loin. Le forum n'a pas pour vocation à donner des cours d'informatique mais à aider les gens qui sont dans l'impasse. Là il faudrait le faire pour toi et ce n'est pas possible, je jette l'éponge...

Essaye déjà de comprendre ce que tu écris au lieu de recopier bêtement.