Aide calcul quantité en stock
Bonjour tout le monde
Je cherche depuis quelques jours une solution à mon problème.
Mon projet consiste à gérer la gestion de stock des produits. Ce que je veux faire c'est de gérer les stocks.
j'ai 3 fichiers, Ligne Prod-Livraison « relation composée BL-Produit » :"ID_BL_Prod , N° BL, IDProd ,Quantité Liv ", Produit:" IDProd, Nom Produit, Prix HT", Stocks :"N° Stock , IDProd, Quantité en stock ".
Je veux que lorsque je clique sur ajouter, chaque produit livré diminue en stock .
Par exemple la Qté En Stock du produit X = 200, si dans ma table (Table fichier) je livre ce produit avec Qté=50 la Qté En Stock de celui-ci devient 150 (y compris la Qté en stock du fichier stocks bien sûr) et ainsi de suite pour chaque produit.
J’ai essayé plusieurs procédures d’indice produit mais ca n’a pas marcher (La Qté en stock du produit prédécesseur ou successeur soustraire la qté du produit indicé (selon action insertion – ajout – ou modif de la Qté)
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 27 28 29 30 31 32 33 34 35 36
| PROCEDURE AjouteLigneBL()
nRefProduit est un entier
nIndiceProduit est un entier
nRefProduit = COMBO_Produits..Valeur
nIndiceProduit = TableCherche(TABLE_Bon_Liv.COL_Num_Prod,nRefProduit)
SI nIndiceProduit = -1 ALORS
HLitRecherchePremier(Stocks, Num_Prod,TABLE_Bon_Liv.COL_Num_Prod)
SI HTrouve(Stocks) = Vrai ALORS
Stocks.Qte_en_Stock = Stocks.Qte_en_Stock - (SAI_Qte_BLExt)
FIN
HModifie(Stocks)
// Ajoute une ligne pour ce produit
TableAjouteLigne(TABLE_Bon_Liv, 0, Bon_Liv.Num_BL,Produit.Num_Prod, Produit.Des_Prod,SAI_Qte_BL, Stocks.Qte_en_Stock)
TableEnregistre(TABLE_Bon_Liv)
SINON //1 : Ajouter
//2 : Modifier
//3 : Annuler
SELON Dialogue ("La référence du produit indiquée est déjà présente dans la commande.")
// Ajouter
CAS 1 Stocks.Qte_en_Stock += TABLE_Bon_Liv.COL_Qte_Livree_Ext[nIndiceProduit]
TABLE_Bon_Liv.COL_Qte_Livree_Ext[nIndiceProduit] += SAI_Qte_BLExt
Stocks.Qte_en_Stock -= TABLE_Bon_Liv.COL_Qte_Livree_Ext[nIndiceProduit]
HModifie(Stocks)
TABLE_Bon_Liv.COL_Qte_Stock[nIndiceProduit] = stocks.Qte_en_Stock |
Que dois-je faire? Pouvez-vous m'aider s'il vous plaît :cry:?
Merci bien.