A la Recherche d'une solution

Version imprimable

salut à tous ,j'ai un champ table contenant les lignes de commande d'une commande, à coté j'ai un boutton supprimer
pour pouvoir selectionner une ligne et la supprimer.
Mais avant de la supprimer , j'ai une boite de dialogue demandant s'il faut remettre la quantite commandée dans la quantité
totale du produit ou pas. dans le cas ou il faut la remettre , c'est toujours au niveau de la derniere ligne de commande
ajouté dans la table que le produit est ajouté.

Comment agir sur la ligne qui est effectivement selectionner ?

VOICI MON CODE
Code:

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 SI TableSelect(TABLE_LignCommande) = -1 ALORS RETOUR SINON nRefProduit est un entier sur 8 octet nRefProduit = TABLE_LignCommande.COL_IDProduit SELON Dialogue("Voulez-vous Remettre cette quantité ") // &Ajouter CAS 1 Produit.qtite +=TABLE_LignCommande.COL_Qtite..Valeur HEnregistre(Produit) // &Ne pas ajouter CAS 2 FIN TableSupprime(TABLE_LignCommande,TableSelect(TABLE_LignCommande)) TableSelectMoins(TABLE_LignCommande) CalculToTaux() FIN

Bonjour,

Je n'ai pas bien compris ton problème mais ce qui est sûr c'est qu'il manque la recherche sur le produit et il faut indicer la ligne de la table pour savoir quelle valeur prendre

Code:

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
SI TableSelect(TABLE_LignCommande) = -1 ALORS
	RETOUR
SINON
	nIndice est entier = TableSelect(TABLE_LignCommande)
	nRefProduit est un entier sur 8 octet = TABLE_LignCommande[nIndice].COL_IDProduit
 
	SELON Dialogue("Voulez-vous Remettre cette quantité ")
		// &Ajouter
		CAS 1
			SI HLitRecherche(Produit,IDProduit,nRefProduit,hIdentique) ALORS
				Produit.qtite +=TABLE_LignCommande[nIndice].COL_Qtite
				HEnregistre(Produit)
			FIN
 
		// &Ne pas ajouter
		CAS 2
 
	FIN
 
	TableSupprime(TABLE_LignCommande,TableSelect(TABLE_LignCommande))
	TableSelectMoins(TABLE_LignCommande)
 
	CalculToTaux()
 
FIN

05/04/2018, 16h29
conak

salut j'ai essayé avec l'indice mais quant je supprimer , l'ajout s'effectue toujours sur le dernier enregistrement effectué dans la table .
ne serait il pas lié au fait que c'est ce élément qui est actif au niveau de la memoire ?
05/04/2018, 16h41
tbc92

Dans le code qu'il proposait , Philouz faisait 2 changements par rapport à ton code :
- ajouter un indice sur la ligne nrefProduit = ... ...
- Ajouter une instruction hLitRecherche...

Et d'après ta réponse, j'ai l'impression que tu a pris en compte uniquement le 1er changement.

Bonjour;
Essaye Hmodifie à la place de HEnregistre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
SI TableSelect(TABLE_LignCommande) = -1 ALORS RETOUR
 
SI OuiNon(Non,"Voulez-vous supprimer ce Produit ?") ALORS
	SI OuiNon(Non,"Voulez-vous Remettre cette quantité ?") ALORS
		SI HLitRecherche(Produit,IDProduit,TABLE_LignCommande.COL_IDProduit,hIdentique) ALORS
			Produit.qtite +=TABLE_LignCommande.COL_Qtite
			HModifie(Produit)
		FIN
	FIN
 
	TableSupprime(TABLE_LignCommande)
 
	CalculToTaux()
FIN

Bon Dev.

05/04/2018, 22h52
conak

Merci à tous et particulierement à M. Fouedusa votre solution à fonctionner