Calculer le total des versements

**moh_oracle** · 21/12/2010, 10h24

salam,bonjour
je suis en train de crée un logiciel avec delphi 7 ;
j'ai une table(versement) qui contient les champs suivants:

-date_versement (clé principale)
-versement
-numero_facture (clé étrangère)
-total_versement (champ calculé)

une facture peut avoir plusieurs versements et je veux calculer le total des versements pour une facture.

alors j'ai crée un champs ( total) calculé dans la table (versement ) et j'ai met dans l'événement oncalcfield:

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
var v,i:integer;
begin
v:=0;
versement.filter:='numero_facture='+versemtnumero_facture.value;
versement.filtered:=true;
versement.first;
for i:=0 to versement.recordcount-1 do
   begin
       v:=v+versementversement.value;
        versement.next;
   end;
versementtotal_versement.value:=v;
end;

et quand j'exécute, ça se bloque.
je ne sais pas où est l'erreur.

**Linkin** · 21/12/2010, 13h41

Le parcours de la boucle est faux.
si tu utilises First/Next, il faut tester Eof. (par contre je n'utilise pas les filtres, donc je ne sais pas comment ça va se comporter)

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
var v,i:integer;
begin
v:=0;
versement.filter:='numero_facture='+versemtnumero_facture.value;
versement.filtered:=true;
versement.first;
while not versement.eof do begin
v:=v+versementversement.value;
versement.next;
end;
versementtotal_versement.value:=v;
end;

**redoran** · 21/12/2010, 15h46

slt ;

Code :

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

date_versement (clé principale)

dans une date on peut effectué plusieurs versement , je vous propose de faire un clé versement.

utilise la procédure de linkin sur ton query de sélection au lieu de la table versement .

**abdelghani_k** · 21/12/2010, 21h17

Tu es tombé dans une boucle infinie.

une telle boucle qui utilise la même table dans un evènement oncalcfield de cette table ca bloque.
tu changes le code en:

Code :

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

1
2
3
4
5
6
 
begin
    qvers.parambyname('num_fac').value:=facturesnumero_facture.value;
    qvers.close;qvers.open
    versementversement.value:=qverssomme.value;
end;

qvers est un composant Tquery; ayant comme sql l'expression :

Code :

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

select sum(total_versement) as somme from versement where  numero_facture=:num_fac

et qvers.datasource:=dsfactures; //datasource de facture
num_fac est le champ clé primaire dans la table facture.

Linkin a raison pour la boucle (test avec eof).

**moh_oracle** · 28/12/2010, 09h26

merci a vous tous ,je vais essai vos conseil

**moh_oracle** · 28/12/2010, 09h29

mais pour calculer le total des versement d'une facture je doit faire le filtre oui ou non? parce que la table versement contient plusieurs versements de plusieurs factures.

**archonte** · 28/12/2010, 15h22

Envoyé par moh_oracle

salam,bonjour
je suis en train de crée un logiciel avec delphi 7 ;
j'ai une table(versement) qui contient les champs suivants:

-date_versement (clé principale)
-versement
-numero_facture (clé étrangère)
-total_versement (champ calculé)

une facture peut avoir plusieurs versements et je veux calculer le total des versements pour une facture.

alors j'ai crée un champs ( total) calculé dans la table (versement ) et j'ai met dans l'événement oncalcfield:

Je crois que tes difficultés viennent d'une erreur de conception de tes tables

:
-- ta table TVersements ne peut pas contenir le total de ta facture; donc, il faut :
-- une table TVersements
+TVersements
|+DateVersement (clé principale)
|+Montant
|+NumeroFacture (clé étrangère)

-- et une table TFactures
+TFactures
|+NumeroFacture (clé principale)
|+TotalFacture
|+RestantDu

A chaque nouveau versement dans TVersements, tu mets à jour le champ TFactures.RestantDu qui vaut TFactures.TotalFacture moins la somme calculée selon abdelghani_k :

Envoyé par abdelghani_k (modifié)

Code :

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

select sum(versement) as somme from TVersements where  NumeroFacture =: num_fac

Avec cette structure, tu peux trouver facilement les factures complètement acquittées TFactures.RestantDu = 0, les factures non payées TFactures.RestantDu = TFactures.TotalFacture, et les autres ...

**Andry** · 29/12/2010, 13h27

La logique de archonte est juste.
Je voudrais juste préciser que si ta base de donnée supporte les champs calculé, il est préférable de mettre le champs TFactures.RestantDu en champs calculé directement dans la base de donnée.

A+

**redoran** · 29/12/2010, 13h41

re ;

Code :

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

1
2
3
4
+TVersements
|+DateVersement (clé principale) // 
|+Montant
|+NumeroFacture (clé étrangère)

date versement comme clè primaire là

on peut effectué plusieurs versements dans date données bien sur de plusieurs client .
y'a une probabilité que le même client fait deux versement la même journée
je propose N° de versement

**Rayek** · 29/12/2010, 14h17

Envoyé par redoran

date versement comme clè primaire là

on peut effectué plusieurs versements dans date données bien sur de plusieurs client .
y'a une probabilité que le même client fait deux versement la même journée
je propose N° de versement

Une date ne se limite pas qu'à la date du jour, il y a aussi les heures/Minutes/Secondes/Miliisecondes qui peut très bien faire une clé primaire

**redoran** · 30/12/2010, 07h49

Slt ; rayek dans le cas que vous avez cité avec date -heures-minutes-seconde c'est

**popo** · 06/01/2011, 13h28

Une date ne se limite pas qu'à la date du jour, il y a aussi les heures/Minutes/Secondes/Miliisecondes qui peut très bien faire une clé primaire

Je ne trouve pas ça très propre !
En plus un champ date de se format prend beaucoup plus de place qu'un simple entier (Il n'y a pas non plus des millers de versement pour une facture)

Selon moi la table des versement devrait avoir une clé primaire composée du numéro de facture et d'un ID, la date étant simplement une information.

**Rayek** · 06/01/2011, 14h12

Envoyé par popo

Je ne trouve pas ça très propre !
En plus un champ date de se format prend beaucoup plus de place qu'un simple entier (Il n'y a pas non plus des millers de versement pour une facture)

Selon moi la table des versement devrait avoir une clé primaire composée du numéro de facture et d'un ID, la date étant simplement une information.

Je n'ai jamais dit le contraire c'était juste pour répondre à Redoran que c'était possible et qu'une date n'est pas limitée à la date du jour

**Mstreatboy** · 08/01/2011, 00h59

Je me demande s'il n'est pas bien mieux de mettre juste un ID (pas besoin forcément d'une clé composée), la date faisant simplement office de clé étrangère peut-être...
Moh_Oracle, évite déja de laisser des champs calculés dans tes modèles quand une simple requête peut te renvoyer le résultat!

**redoran** · 08/01/2011, 08h45

Bonjour ; +1 Mstr toute a fait d'accord ;
Moh utilise la méthode de linkin avec une requête de selection est tu aura ton total pas besoin de faire un filtre , sinon sa marche très bien avec un filtre si je ne me trompe pas

**popo** · 11/01/2011, 13h22

Je me demande s'il n'est pas bien mieux de mettre juste un ID (pas besoin forcément d'une clé composée), la date faisant simplement office de clé étrangère peut-être

Il s'agit de facturation, ce qui implique qu'une facture peut avoir plusieurs réglements. En général on recherche le règlement par rapport à la facture et non l'inverse ! En plus il va falloir avoir un ID très long et/ou très compliqué pour garantir l'unicité.
Coupler l'ID avec le numéro de la facture permet non seulement une recherche plus rapide car le numéro de facture est automatiquement indexé mais il permet aussi de multiplier la capacité d'enregistrement puisqu'un ID poura être utilisé plusieurs fois sans provoquer de doublons.

Pour ma part, je gère les versements avec un ID de type entier couplé avec le numéro de facture.

**moh_oracle** · 16/01/2011, 09h25

merci pour vos conseils ;

**moh_oracle** · 17/01/2011, 12h46

salut,j'ai besoin de vos aides encore;
pour calculer le solde (montant_global-total_versement);
j'ai met le champ solde (champ calculé) dans la table facture comme il m'a conseil archonte.
--num_fact
--montant_global
--solde
et dans l'évènement oncalcfield de la table facture:
facturesolde.value:=facturemontant_global.value - Querytotal_versement.value

mais a l'exécution un message d'erreur apparis:
type incompatible :float et extented.

merci de vos aides

**popo** · 17/01/2011, 13h46

Le "value" ne renvoie pas de type Float, ni de type Extended, il renvoie une donnée de type Variant.

ll faut utiliser une forme de ce genre :

Code :

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

1
2
3
4
 
mt_glob := MonQuery.FindField('facturemontant_global').AsFloat;
mt_vers := MonQuery.FindField('total_versement').AsFloat;
mt_solde := mt_glob-mt_vers;

**moh_oracle** · 17/01/2011, 15h17

abon, je vais l'essai,
je suis variment nul en delphi ,vous n'avez pas quelle documentation sur delphi.

Calculer le total des versements

Delphi

Discussions similaires

Partager

Partager