Calculer un total sur un affichage

Stéphanie Tirtiat

- Titre : Calculer un total sur un affichage

- Auteur : Stéphanie Tirtiat

- Parution : 25 novembre 2005

- Licence : Copyright ® 2005 4D s.a. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Sommaire

- I. Présentation ♪

I - Présentation ♪

Produit : 4D 2004  ·  Plateforme : Mac & Win

« Quand j'affiche un total dans un formulaire liste, mon total varie selon les enregistrements visibles. »

C'est parce que vous vous basez sur l'affichage pour calculer le total.

L'événement « Sur affichage corps » est déclenché à chaque rafraîchissement de fenêtre. Votre total est donc altéré à chaque fois.

Vous devez séparer l'affichage du calcul en ajoutant un événement « Sur chargement » à votre méthode formulaire. Ainsi le résultat est correct quelle que soit la taille de la fenêtre.

1. Au cas ou

3. : (Evenement formulaire=Sur chargement )

5. MonTotal:=0

6. C_ENTIER LONG($i;$EnregDansSelection)

7. $EnregDansSelection:=Enregistrements trouves([Table1])

8. DEBUT SELECTION([Table1])

9. Boucle ($i;1;$EnregDansSelection)

10. MonTotal:=MonTotal+([Table1]Montant*[Table1]Quantite)

11. ENREGISTREMENT SUIVANT([Table1])

12. Fin de boucle

14. : (Evenement formulaire=Sur affichage corps )

16. vSubTotal:=[Table1]Montant*[Table1]Quantite

18. Fin de cas