Discussion :

[bertrantitude]

Bonjour,


J'ai deux soucis :


1)
Dans un smdbgrid, j'ai une serie d'articles avec leurs prix TVAC, et j'aurai voulu, tout en bas, afficher le total de la colonne montant total TVAC dans un tedit. Le prix TVAC de chaque produit est obtenu suite à une requête.

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
procedure TFLigneVente.Edit1Change(Sender: TObject);
 var
  TotalPrixPlein: double;
 
 begin
 
 
  TotalPrixPlein:=0;
   Datamod.ZTLigneVente.First;
while not Datamod.ZTLigneVente.eof do
begin
 
TotalPrixPlein := Datamod.ZTLigneVenteprixtvac.AsFloat;
  Datamod.ZTLigneVente.Next;
end;
end;

2)

Quand une vente est terminée, j'aimerai l'envoyer vers la table "vente" de ma base de données, qui comprendrait donc toutes les ventes qui ont été effectuées.
Voici le contenu de ma table vente

et voici celui de ma table ligne de vente



et voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFLigneVente.btnValiderClick(Sender: TObject);
begin
 
 
    if datamod.ZTVente.State in[dsedit , dsinsert] then
    DataMod.ZTVente.Post;
 
  datamod.ZTVente.ApplyUpdates;
  datamod.ZTVente.CommitUpdates;
  DataMod.ZTLigneVente.CachedUpdates:=false;
 
 //datamod.ZTVente.Post;
  end;

Merci d'avance