crediti.pas

基于OOP设计的一套较好的ERP系统

unit Crediti;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, PageMngr, ExtCtrls, RXCtrls, Db, DBTables, Grids, DBGridEh,
  DBCtrls, Mask, ActnList;

type
  TCrediti_form = class(TForm)
    Panel1: TPanel;
    Notebook1: TNotebook;
    PageManager1: TPageManager;
    AvantiBtn: TButton;
    Indietro_Btn: TButton;
    Panel2: TPanel;
    RxLabel1: TRxLabel;
    P1: TPageProxy;
    P2: TPageProxy;
    P3: TPageProxy;
    QAperti: TQuery;
    dsAperti: TDataSource;
    QApertiCliente: TStringField;
    QApertiNominativo: TStringField;
    QApertiLocalita: TStringField;
    QApertiTel: TStringField;
    QApertiSaldoL: TCurrencyField;
    QApertiSaldoE: TCurrencyField;
    QScontrini: TQuery;
    QScontriniNumeroScontrino: TFloatField;
    QScontriniData: TDateField;
    QScontriniAcconto: TCurrencyField;
    QScontriniBuono: TCurrencyField;
    QScontriniTotaleL: TCurrencyField;
    QScontriniTotaleE: TCurrencyField;
    QScontriniCambioL: TCurrencyField;
    QScontriniCambioE: TCurrencyField;
    QScontriniSaldoL: TCurrencyField;
    QScontriniSaldoE: TCurrencyField;
    Panel3: TPanel;
    RxLabel2: TRxLabel;
    DBText1: TDBText;
    dsScontrini: TDataSource;
    Panel4: TPanel;
    RxLabel3: TRxLabel;
    QApertiAcconto: TCurrencyField;
    QApertiBuono: TCurrencyField;
    QApertiTotaleL: TCurrencyField;
    QApertiTotaleE: TCurrencyField;
    QApertiCambioL: TCurrencyField;
    QApertiCambioE: TCurrencyField;
    dsBuoni: TDataSource;
    ActionList1: TActionList;
    Salda: TAction;
    Avanti: TAction;
    TTBuoni: TTable;
    TTBuoniId: TAutoIncField;
    TTBuoniData: TDateField;
    TTBuoniCliente: TStringField;
    TTBuoniDescrizione: TMemoField;
    TTBuoniImporto: TCurrencyField;
    TTBuoniValuta: TStringField;
    TTBuoniUsato: TBooleanField;
    TTBuoniTipo: TStringField;
    TTBuoniIdGiornale: TStringField;
    Annulla: TAction;
    Panel5: TPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    cerca_cod: TEdit;
    Label2: TLabel;
    cerca_nome: TEdit;
    Panel6: TPanel;
    DBGridEh2: TDBGridEh;
    Panel7: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit3: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    Button2: TButton;
    DBEdit4: TDBEdit;
    Button1: TButton;
    procedure QApertiCalcFields(DataSet: TDataSet);
    procedure cerca_codChange(Sender: TObject);
    procedure QScontriniCalcFields(DataSet: TDataSet);
    procedure P3Enter(Next: Boolean);
    procedure DBRadioGroup1Change(Sender: TObject);
    procedure SaldaExecute(Sender: TObject);
    procedure TTBuoniAfterInsert(DataSet: TDataSet);
    procedure TTBuoniAfterPost(DataSet: TDataSet);
    procedure TTBuoniBeforeDelete(DataSet: TDataSet);
    procedure AnnullaExecute(Sender: TObject);
    procedure AvantiExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Crediti_form: TCrediti_form;

implementation

uses main;

{$R *.DFM}

procedure TCrediti_form.QApertiCalcFields(DataSet: TDataSet);
begin
 QApertiSaldoL.AsCurrency := QApertiTotaleL.AsCurrency - (QapertiAcconto.asCurrency * QApertiCambioL.asFloat) - (QapertiBuono.AsCurrency * QapertiCambioL.asFloat) ;
 QApertiSaldoE.AsCurrency := QApertiTotaleE.AsCurrency - (QapertiAcconto.asCurrency * QApertiCambioE.AsFloat) - (QapertiBuono.asCurrency * QApertiCambioE.AsFloat) ;
end;

procedure TCrediti_form.cerca_codChange(Sender: TObject);
begin
 QAperti.Locate('Cliente',cerca_cod.text,[]) ;
end;

procedure TCrediti_form.QScontriniCalcFields(DataSet: TDataSet);
begin
 QScontriniSaldoL.AsCurrency := QScontriniTotaleL.AsCurrency - (QScontriniAcconto.asCurrency * QScontriniCambioL.asFloat) - (QScontriniBuono.AsCurrency * QScontriniCambioL.asFloat) ;
 QScontriniSaldoE.AsCurrency := QScontriniTotaleE.AsCurrency - (QScontriniAcconto.asCurrency * QScontriniCambioE.AsFloat) - (QScontriniBuono.asCurrency * QScontriniCambioE.AsFloat) ;

end;

procedure TCrediti_form.P3Enter(Next: Boolean);
Var
   Importo : Currency ;
begin
 TTBuoni.Insert ;
 TTBuoniCliente.asSTring := QApertiCLiente.asString ;
 TTBuoniTipo.asString := 'P' ;
 TTBuoniDescrizione.asString := 'Pagamento scontrini:' ;
 Importo := QapertiSaldoE.asCurrency ;
 QScontrini.First ;
 While Not QScontrini.Eof do
  begin
   TTBuoniDescrizione.asString := TTBuoniDescrizione.AsString + #13 +
                                            'N