Toc…Toc…Toc…
Tout d’abord je tien à remercier ‘CIREC’ ainsi que notre ami MARCIEN ‘f0xi’ ,d’avoir répandu à ma question qui , je reconnais , été mal expliquée ; alors je donne des explikaichens comme dirai notre ami le linguistique .
Voilà :
j’ai deux tables mettre détail ,
table factures := (est la table des factures )
la 2éme table := (est la table détail de la facture) celle-ci est reliée à un TClientDataSet via un TDataSetProvider .avec des champs Agregats qui calcules les totaux ‘Total HT’ , ‘Total TTC ‘ect….
Les deux tables sont reliées via le champ ‘Numéro de la piece’
Maintenant, j’ai un bouton pour la validation de la facture ,
impementation on click :
1- var := ‘numero piece ‘
2 – Table détail filtrée selon le ‘Numéro piece ‘
3- Table détail .first
4- Une boucle qui parcourt la table détail
5- var := ‘Numéro de produit ‘
6 – Recherche du produit dans la 3éme table ( Tables des produits ) // bien sur la
// table est indexée
7-Mise à jour du champ ‘Quantité’.
8- Table détail := NEXT
9- A la fin : message (fin de l’opération)
10- ?????? Message d’erreur ‘ L’index est en lecture seul ‘
REMARQUE : j’utilise la Table ‘PRODUIT’ pour la choix des produits lors de la saisie des détails de la facture ( cad : la table est éditée )
Voilà , j’espère que j’ai su m’expliquer , mes excuses pour les fautes d’orthographe , le Français n’est que ma 3émé langue maternelle .
Merci tout le monde , mes sincères salutations , votre ami le TERRIEN
|