Discussion :

[conak]

salut je cherche de l'aide
j'ai un ecran commande avec un champ table listant pour une commande les differentes lignes de commande
avec un bouton validé dans lequel j'utilise tableAffiche(tableCommande,taDebut)
pour rafraichir la table aprés chaque commande,de l'autre coté jai un ecran listant les commandes avec un button modifié
qui ouvre l'ecran commande
mais ici quand je modifie une commande la table ne se rafraichit pas
je vudrais une solution qui me permet de la rafraichir aprés une modification.
NB: j'utilise un HFiltre(lignCommande,IDCommande,Commande.IDCommande) et HDésactiveFiltre(lignCommande) a la fermeture de Fen_Commande

[Yusep]

Bonjour
Utilisez la meme
Tableaffiche

[conak]

EN faite la modification s'effectue sur l'ecran commande apartir du boutton validé

[midou23175]

Bonjour,
la solution vous a été donnée.
un coup de pouce
Dans le code du bouton Modifier

Code :

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

1
2
3
4
 
Ouvre(MaFenêtre...)    // ouverture fenêtre table avec lignes de la commande
// rajouter ceci
TableAffiche(MaTable_Liste,taCourantBandeau)

N.B : dans le code du bouton Valider (Fen_Commande), vous allez mettre à jour, le fichier commande soit IDCommande en cours.

[conak]

J'ai déja fait tout cela , en faite quand je modifie , la modification prend.
je voudrais juste que la table se vide des enregistrements qu'elle contient pour que je puisse effectuer une nouvelle commande

[Voroltinquo]

Bonjour,
Es-tu allé voir du côté de TableSupprimeTout

[conak]

Salut à tous , voici le code de mon boutton VALIDER

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
SI TABLE_LignCommande..Occurrence = 0 ALORS
	Erreur("Vous devez  effectuer au moins une commande")
	RETOUR
FIN
 
EcranVersFichier()
 
SI Commande..NouvelEnregistrement ALORS
  HAjoute(Commande)
 
 
SINON
 
	HModifie(Commande)
 
FIN
 
POUR TOUTE LIGNE DE TABLE_LignCommande 
	TABLE_LignCommande.COL_IDCommande = Commande.IDCommande
 
	TableEnregistre(TABLE_LignCommande) 
 
FIN
 
TableAffiche(TABLE_LignCommande,taDebut)
 
 
HLitDernier(Commande,IDCommande)
SI HTrouve(Commande) ALORS
	SAI_IDCommande = Commande.IDCommande + 1    
FIN
 
HRAZ(Commande)

La Question est comment vider la table aprés une modification. je précise que quand c'est un ajout , la table se vide sans probléme

[Voroltinquo]

Dans un premier temps, comme ça ce sera plus lisible. Il suffit d'appuyer sur le bouton # puis de coller ton code.

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
 
SI TABLE_LignCommande..Occurrence = 0 ALORS
     Erreur("Vous devez effectuer au moins une commande")
     RETOUR
FIN
 
EcranVersFichier()
 
SI Commande..NouvelEnregistrement ALORS
     HAjoute(Commande)
SINON
     HModifie(Commande)
FIN
 
POUR TOUTE LIGNE DE TABLE_LignCommande
     TABLE_LignCommande.COL_IDCommande = Commande.IDCommande
     TableEnregistre(TABLE_LignCommande)
FIN
 
TableAffiche(TABLE_LignCommande,taDebut)
 
 
HLitDernier(Commande,IDCommande)
SI HTrouve(Commande) ALORS
     SAI_IDCommande = Commande.IDCommande + 1
FIN
 
HRAZ(Commande)

[Voroltinquo]

Dans un deuxième temps :

Code :

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

1
2
3
4
5
6
 
SI Commande..NouvelEnregistrement ALORS
     HAjoute(Commande)
SINON
     HModifie(Commande)
FIN

Peut être remplacé par

Code :

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

HEnregistre(Commande)

Venons en maintenant à ton problème.
Tu rafraichis ton champ table avant d'avoir initialisé une nouvelle commande. Donc ton filtre prend en compte cette ID
Il faut rafraichir après le HRAZ().
Nouvelle commande=ID inexistante dans ta table Ligne commande donc le champ associé sera vierge

[conak]

Bonjour à tous Mr Voroltinquo j'ai essayé votre solution mais ça ne marche toujours pas

[midou23175]

Bonjour,

Dans le code bouton Valider, rajouter : HFiltre(lignCommande,IDCommande,0)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
-----------
-----------
POUR TOUTE LIGNE DE TABLE_LignCommande
        TABLE_LignCommande.COL_IDCommande = Commande.IDCommande
        TableEnregistre(TABLE_LignCommande)
FIN
 
// rajouter ici
HFiltre(lignCommande,IDCommande,0) 
TableAffiche(TABLE_LignCommande,taDebut)
---------
---------

[midou23175]

remarque : autre solution
Il n'est pas nécessaire, à chaque validation, de filtrer de nouveau, la
table ligne commande.
En cas de rajout de commande, le filtre activé est toujours IDCommande = 0
Seulement en cas de modif, le IDCommande est différent de zéro, c'est dans ce cas, il faut modifier la condition du filtre.

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
 
-----------
-----------
POUR TOUTE LIGNE DE TABLE_LignCommande
        TABLE_LignCommande.COL_IDCommande = Commande.IDCommande
        TableEnregistre(TABLE_LignCommande)
FIN
 
// rajouter ceci
SI Commande..NouvelEnregistrement=Faux ALORS
     HFiltre(lignCommande,IDCommande,0) 
FIN
TableAffiche(TABLE_LignCommande,taDebut)
---------
---------

[conak]

Merci midou Votre solution à fonctionner ,
Merci à tous