Discussion :

[LandGreen]

Bonjour,
je reviens vers vous :

ce code je l'utilise dans l'évènement DBGrid1KeyPress mais le problème tout marche bien dans le DBGRID c'est à dire le calcul se fait normal en appuyant sur + et sur -, le problème est dans les :

edit5.Text et memo2.Lines[0] qui ne sont pas à jour, je dois à chaque fois changer de ligne pour que le résultat est actualisé

voir l'image ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
if key = #43 then
begin
 
 if F_DM.Q_TotV.Active=true then F_DM.Q_TotV.Requery
  else F_DM.Q_TotV.Active:=true;   F_DM.Q_TotV.Requery ;
 
  F_DM.Vent_Int.Edit;
  F_DM.Vent_Int.FieldValues['Qtite'] := F_DM.Vent_Int.FieldValues['Qtite']+1 ;
  F_DM.Vent_Int.FieldValues['M_HT']:=F_DM.Vent_Int.FieldValues['Qtite']*F_DM.Vent_Int.FieldValues['Px_U'];
  F_DM.Vent_Int.FieldValues['TVA']:=F_DM.Vent_Int.FieldValues['M_HT']*F_DM.Vent_Int.FieldValues['Tx_TVA']/100;
  F_DM.Vent_Int.FieldValues['M_TTC']:=F_DM.Vent_Int.FieldValues['M_HT']+F_DM.Vent_Int.FieldValues['TVA'];
 
 
 
             edit5.Text:=formatfloat('0.00',F_DM.Q_TotVsumTTC.Value);
             memo2.Lines[0] :=formatfloat('0.00',F_DM.Q_TotVsumTTC.Value);
 
 
 
end;
if key = #45 then
 
begin
  F_DM.Vent_Int.Edit;
 
  F_DM.Vent_Int.FieldValues['Qtite'] := F_DM.Vent_Int.FieldValues['Qtite']-1 ;
  F_DM.Vent_Int.FieldValues['M_HT']:=F_DM.Vent_Int.FieldValues['Qtite']*F_DM.Vent_Int.FieldValues['Px_U'];
  F_DM.Vent_Int.FieldValues['TVA']:=F_DM.Vent_Int.FieldValues['M_HT']*F_DM.Vent_Int.FieldValues['Tx_TVA']/100;
  F_DM.Vent_Int.FieldValues['M_TTC']:=F_DM.Vent_Int.FieldValues['M_HT']+F_DM.Vent_Int.FieldValues['TVA'];
 
 
 if F_DM.Q_TotV.Active=true then F_DM.Q_TotV.Requery else F_DM.Q_TotV.Active:=true;   F_DM.Q_TotV.Requery ;
       F_DM.Q_TotV.Close;
       F_DM.Q_TotV.Open;
 
 
 
             edit5.Text:=formatfloat('0.00',F_DM.Q_TotVsumTTC.Value);
             memo2.Lines[0] :=formatfloat('0.00',F_DM.Q_TotVsumTTC.Value);
 end;

[ShaiLeTroll]

N'avions nous pas conseillé des champs calculés ?
Et pour les totaux, il n'y a grand chose à faire que manuellement

Quelle est la question ?

[LandGreen]

Quelle est la question ?

la question est la suivante :
quand je sélectionne une ligne et j'appui sur [+] d'une manière répétitive le colonne Qtité et Total se mettent à jour
exemple

Code :

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

1
2
3
4
5
6
Qtité---- Prix unitaire ---- total
1                100                 100              ---- si j'appui sur [+] une fois le résultat devient
Qtité---- Prix unitaire ---- total
2                100                 200              ---- si j'appui sur [+] encore une fois le résultat devient
Qtité---- Prix unitaire ---- total
3               100                 300

mais sur
EDIT5 = 200 et memo2.Lines[0] = 200 --------- erronée normalement c'est EDIT5 = 300 et memo2.Lines[0] = 300

pour que le résultat soit correct je doit quitter le dbgrid et rentrer

c'est claire ?

[SergioMaster]

N'avions nous pas conseillé des champs calculés ?

Si, et d'ailleurs si cela avait été suivi cette question n'aurait même pas eu besoin d'être posée !

mais surtout avec votre code, tant que la ligne n'est pas validée (post) le calcul ne peut être fait par une requête.
Il me semble même avoir indiqué d'utiliser l'évènement AfterPost.

Quant à ces requerys, pff ... autant faire un active.false; active:=true; cela a au moins le mérite d'éviter ces if then else ou alors que cela soit fait correctement

Code :

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

1
2
3
4
 if F_DM.Q_TotV.Active=true 
  then F_DM.Q_TotV.Requery
  else F_DM.Q_TotV.Active:=true;  
//   F_DM.Q_TotV.Requery ; // mais pourquoi donc ?

[LandGreen]

Si, et d'ailleurs si cela avait été suivi cette question n'aurait même pas eu besoin d'être posée !

mais surtout avec votre code, tant que la ligne n'est pas validée (post) le calcul ne peut être fait par une requête.
Il me semble même avoir indiqué d'utiliser l'évènement AfterPost.

comment valider la ligne ? ?
doit je changer l'évènement ?

[SergioMaster]

comment valider la ligne ? ?

je vous l'ai écrit entre parenthèses : Post

doit je changer l'évènement ?

déjà il faudrait l'avoir créer non ? en avous vous un ?
Qu'est-ce que vous avez contre les champs calculés, c'est culturel ou quoi !?

[LandGreen]

je vous l'ai écrit entre parenthèses : Post

merci bien, ça marche !