Discussion :

[zonoelson]

J'ai mis en PJ ci-joint les résultats que je veux avoir, J'ai essayé avec le TCD, mais ce dernier semble ne pas être la bonne solution.
Je tiens à préciser que pour les colonnes du tableau, en ne considérant que les colonnes:
Valeurs Faciales Col_Qté Initiales Col_Valeurs Initiales.......Col_Qté Finales/tenues Col_Valeurs Finales/Tenues
J'ai procédé comme suit
Dans le section Affichage d'une ligne de la table

Code :

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

1
2
3
4
5
COL_ValeursInitiales=COL_QtéInitiales*COL_VAleursFaciales
COL_ValeursReçues=COL_QtésReçues*COL_VAleursFaciales
COL_ValeursSorties=COL_QtésSorties*COL_VAleursFaciales
COL_QtésFinales=(COL_QtéInitiales+COL_QtésReçues-COL_QtésSorties)
COL_ValeursFinales=COL_QtésFinales*COL_VAleursFaciales

En procédure Locale

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
PROCEDURE CALCULQte()
i est un entier
POUR  i = 2 A TableOccurrence(TABLE_Produit)
	TABLE_Produit[i].COL_QtéInitiales=TABLE_Produit[i-1].COL_QtésFinales
	SI COL_QtésReçues>0 ET COL_QtésSorties>0 ALORS
		COL_QtésFinales=(COL_QtéInitiales+COL_QtésReçues-COL_QtésSorties)
	FIN
	SI COL_QtésReçues=0 ET COL_QtésSorties>0 ALORS
		COL_QtésFinales=(COL_QtéInitiales-COL_QtésSorties)
	FIN
	SI COL_QtésReçues>0 ET COL_QtésSorties= 0 ALORS
		COL_QtésFinales=(COL_QtéInitiales+COL_QtésReçues)
	FIN
FIN

A l'initialisation et prise de focus de la Fenêtre

Code :

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

CALCULQte()

Pour ne prendre en compte que les colonnes sus-dites ce code semble juste, mais ça ne marche pas correctement, car :
1/ Après chaque ajout de nouvelles données, celles-ci ne s'ajoutent pas directement, il faut fermer l'application et l'ouvrir de nouveau pour que les nouvelles données ajoutées s'affichent.
2/ Après chaque suppression, toutes les données dans la Col_Qté initiales s'efface automatiquement, elles ne se rétablissent qu'après ajouts

Je vais maintenant ajouter de nouvelles lignes, lignes produits comme affichées dans la PJ, CD1,CD2, DVD, et cartes Postales, J'ai fait un TCD, et modifier les codes, mais ça ne marche pas. Sinon, peut-on créer manuellement le TCD?
Est-ce qu'il y a une piste pour me remettre sur le rail........
Merci pour votre aide