FORUM WINDEV

gwing a écrit:Bonjour
voici un truc qui marche

Fichier ENTREE :
Date....npièce....Article....QtitéE

Fichier SORTIE :
Date....n° pièce.....Article....QtitéS

Fichier STOCK :
Date....n° pièce.....Mouvement.....Article....Qtité
---------------------------------------------------------------
// Click d'un bouton
// Stock à zéro
Hcréation(STOCK)


//Ajouter Les ENTREES
HLitPremier (ENTREE,IDENTREE)
TANTQUE PAS HEnDehors(ENTREE)
HLitPremier(STOCK, IDStock)
STOCK.Date=ENTREE.DATE
STOCK.npiéce=ENTREE.npiece
STOCK.Mouvement="E"// pour Entrées
STOCK.ARTICLE=ENTREE.ARTICLE
STOCK.Qtité=ENTREE.QtitéE

HAjoute(STOCK)
HLitSuivant(STOCK,IDSTOCK)

// Passe à l'enregistrement suivant
HLitSuivant(ENTREE,idENTREE)
FIN
//ajouter Les SORTIES
HLitPremier (SORTIES,IDSORTIES)
TANTQUE PAS HEnDehors(SORTIES)
HLitPremier(STOCK, IDStock)
STOCK.Date=SORTIES.DATE
STOCK.npiéce=SORTIES.npiece
STOCK.Mouvement="S" //pour Sortie
STOCK.ARTICLE=SORTIES.ARTICLE
STOCK.Qtité=SORTIES.QtitéS*-1 // négatif

HAjoute(STOCK)
HLitSuivant(STOCK,IDSTOCK)

// Passe à l'enregistrement suivant
HLitSuivant(SORTIES,idSORTIES)
FIN
---------------------------------------------------------------
voilà
Pas de souci pour Hcréation(STOCK) Car tes données sont stockées dans les fichiers ENTREES et SORTIES
et en plus avec cette methode tu gardes l'historique des mouvemments de stock , flux etc...
tu peux également utliser des requettes parametreés à la place des fichiers E/S.Comme ça tu peux n' interroger qu'une
une partie des données .

Deux requettes AJOUT successives peuvent également remplacer le code cité en haut.

bonne chance