Discussion :

[bhami9]

salut tout le monde

stp Où est le problème dans cette calcule entre 2 tables projet et lot

pour calculer le montant de lot j'ai écrire cette programme

Code :

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

1
2
3
4
5
procedure TFprojet.TlotCalcFields(DataSet: TDataSet);
 
begin
Tlot['mont_lot']:=(Tlot['prix_un']* Tlot['Volum_lot']);
end;

ce programme est juste Mais :
pour calculer le montant total de projet est la règle suivant :
montant de projet:= la somme des montants des lots
j'ai écrire cette programme en sql

Code :

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

1
2
3
4
5
6
7
procedure TFprojet.TlotCalcFields(DataSet: TDataSet);
begin
query.SQL.Clear;
query.SQL.Add('select sum[mont_lot] as somme from somme ') ;
query.ExecSQL;
query.active:=true;
Tprojet['montant_projet']=inttostr(query.FieldValues['somme']);

ou bien en boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFprojet.TprojetCalcFields(DataSet: TDataSet);
var s:integer;
begin
Tlot.active:=true;
s:=0;
Tlot.first;
while (not Tlot.eof) do
begin
s:=s+ Tlot.FieldValues['mont_lot'];
Tlot.Next;
end;
Tprojet['montant_projet']:=inttostr(s);
end;

mais toujours le message erreur suivant:

could not convert variant of type (null) in to (integer)

et quand je lève

Code :

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

Tlot.active:=true;

j'ai le message erreur suivant:
exeption class EDatabasErreur('tlot: cannot perform this opération on a
closed dataset'

NOT:
mont_lot : champ calculé:integer dans la table Tlot et,
montant_projet : champ calculer dans la table projet
la table projet est maitre
la table lot est détalai
stp Où est le problème dans cette calcule

[ShaiLeTroll]

Elle est curieuse ta requête

Code :

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

select sum[mont_lot] as somme from somme

somme c'est quoi ? une table temporaire ?
Pourquoi des []

[Mstreatboy]

Montant projet devrait etre de type integer non?
Pourquoi tu lui affecte inttostr(s)?

[redoran]

salut; votre code :

Code :

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

1
2
3
4
5
6
7
8
procedure TFprojet.TlotCalcFields(DataSet: TDataSet);
begin
query.SQL.Clear;
query.SQL.Add('select sum[mont_lot] as somme from somme ') ;
query.ExecSQL; // normalement c'est dédié pour les requêtes update et non pour le select :?
query.active:=true;
Tprojet['montant_projet']=inttostr(query.FieldValues['somme']);
//montant_projet normalement c'est un float avec des décimal sinon vous allez perde des centimes ensuite des euro si le chifre d'affaire est important

en plus montant_projet n'est pas un string selon votre définition alors pourquoi inttostr !!!!!!!

[popo]

Il n'y a que moi qui suis choqué par cette requête ?

Code :

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

select sum[mont_lot] as somme from somme

Depuis quand utilise ton des crochets à la place de parenthèses ?

Code :

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

sum(mont_lot)

le nom de l'alias qui a le même nom que la table, ça doit pas toujours passer.

Code :

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

select sum(mont_lot) as LaSomme from somme

[Just-Soft]

Bonjour

vous l'avez fait fuir

[Mstreatboy]

Et oui on dirait que l'intéressé s'est désabonné de la dicussion! Courage au bonhomme

[bhami9]

salut mes amies:
désoler mais amies; par ce que y a pas l'internet pondant 1 mois
merci de vous réponses
maintenant j'ai un problème de calcule 2 champs de la table_ Bilan
comment faire l'addition entre 2 champs
volume_réalisé + volume_précédent := réalisation
j'ai fais
le code suivant :
tbilan['realisation']:=tbilan['volume_réalisé]+tbilan['volume_précedent'])
mais ne fonction pas
ou eh le problème stp