www.pudn.com > Source.rar > Unit18.pas, change:2007-02-04,size:3228b


unit Unit18; 
 
interface 
 
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls; 
 
type 
  TChoix_Etat = class(TForm) 
    OKBtn: TButton; 
    CancelBtn: TButton; 
    Choix: TRadioGroup; 
    Panel1: TPanel; 
    Shape1: TShape; 
    Label2: TLabel; 
    Panel2: TPanel; 
    Image2: TImage; 
    procedure OKBtnClick(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Choix_Etat: TChoix_Etat; 
 
implementation 
 
uses Unit77, Unit3, Unit66, Unit82; 
 
{$R *.dfm} 
 
procedure TChoix_Etat.OKBtnClick(Sender: TObject); 
VAR 
i:integer; 
Total,Versement:Double; 
begin 
Case choix.ItemIndex Of 
0:BEGIN 
  Total:=0;Versement:=0; 
  Etat_Clients.Clients.Open; 
  Traitement_Dossier.Show; 
  Traitement_Dossier.Update; 
  Traitement_Dossier.ProgressBar1.Max:=Etat_Clients.Clients.RecordCount; 
  i:=1; 
  Etat_Clients.Clients.First; 
  While Not Etat_Clients.Clients.Eof DO 
      BEGIN 
      data.T_Ventes.Filter:='Type=''Facture'' AND Code_cli='+Etat_Clients.Clientscode_cli.AsString; 
      data.T_Ventes.Filtered:=TRUE; 
     Total:=0;versement:=0; 
      DATA.T_Ventes.First; 
      WHILE  not data.T_Ventes.Eof DO 
      BEGIN 
        Total:=Total+data.T_VentesTotal_TTC.Value; 
        Versement:=Versement+data.T_VentesMt_Rgler.Value; 
        DATA.T_Ventes.Next; 
        END; 
      Etat_Clients.Clients.edit; 
      Etat_Clients.ClientsCA.Value:=0;Etat_Clients.ClientsSolde.Value:=0; 
      Etat_Clients.ClientsCA.Value:=TOTAL;Etat_Clients.ClientsSolde.Value:=VERSEMENT; 
      Etat_Clients.Clients.POST; 
      application.ProcessMessages; 
      Inc(i); 
      Traitement_Dossier.ProgressBar1.Position:=i; 
      Etat_Clients.Clients.Next; 
  END; 
Traitement_Dossier.Close; 
Etat_Clients.Preview; 
Etat_Clients.Clients.Close; 
data.T_Ventes.Filtered:=False; 
 
end; 
1: BEGIN 
  Total:=0;Versement:=0; 
  Etat_Fournisseurs.Fournisseurs.Open; 
  Traitement_Dossier.Show; 
  Traitement_Dossier.Update; 
  Traitement_Dossier.ProgressBar1.Max:=Etat_Fournisseurs.Fournisseurs.RecordCount; 
  i:=1; 
  Etat_Fournisseurs.Fournisseurs.First; 
  While Not Etat_Fournisseurs.Fournisseurs.Eof DO 
     BEGIN 
      data.T_Achats.Filter:='Type=''Facture'' AND Code_FRN='+Etat_Fournisseurs.Fournisseurscode_FR.AsString; 
      data.T_Achats.Filtered:=TRUE; 
     Total:=0;versement:=0; 
      DATA.T_Achats.First; 
      WHILE  not data.T_Achats.Eof DO 
      BEGIN 
        Total:=Total+data.T_AchatsTotal_TTC.Value; 
        Versement:=Versement+data.T_AchatsMt_Rgler.Value; 
        DATA.T_Achats.Next; 
        END; 
      Etat_Fournisseurs.Fournisseurs.edit; 
      Etat_Fournisseurs.FournisseursCA.Value:=0;Etat_Fournisseurs.FournisseursSolde.Value:=0; 
      Etat_Fournisseurs.fournisseursCA.Value:=TOTAL;Etat_fournisseurs.fournisseursSolde.Value:=VERSEMENT; 
      Etat_fournisseurs.fournisseurs.POST; 
      application.ProcessMessages; 
      Inc(i); 
      Traitement_Dossier.ProgressBar1.Position:=i; 
 
  Etat_fournisseurs.fournisseurs.Next; 
  END; 
Traitement_Dossier.Close; 
Etat_fournisseurs.Preview; 
Etat_fournisseurs.fournisseurs.Close; 
data.T_Ventes.Filtered:=False; 
 
END; 
 
END; 
end; 
 
end.