pagamenti_u.pas

Mosaic ERP大型系统 v6.09.rar

unit pagamenti_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, Mask, DBCtrls;

type
  TPagamenti_form = class(TForm)
    dsConti: TDataSource;
    Panel1: TPanel;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DsPnota: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Bevel1: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    ContoABtn: TButton;
    ContoBBtn: TButton;
    ContoCBtn: TButton;
    ContoDBtn: TButton;
    DBEditEntrata: TDBEdit;
    DBEditUscita: TDBEdit;
    DBEdit17: TDBEdit;
    ImportoOP: TLabel;
    Alabel: TLabel;
    BLabel: TLabel;
    cLabel: TLabel;
    DLabel: TLabel;
    Modifica: TCheckBox;
    Label5: TLabel;
    DBComboBox1: TDBComboBox;
    Calend: TButton;
    procedure ContoABtnClick(Sender: TObject);
    procedure ContoBBtnClick(Sender: TObject);
    procedure ContoCBtnClick(Sender: TObject);
    procedure ContoDBtnClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ModificaClick(Sender: TObject);
    procedure CalendClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Pagamenti_form: TPagamenti_form;

implementation

uses scade_mod, Ucalend, ana_mod;

{$R *.DFM}

procedure TPagamenti_form.ContoABtnClick(Sender: TObject);
begin
 With ModuloDatiScadenziario do
  begin
   TTTPnota.Edit ;
   TTTPnotaC1E.AsCurrency := TTTpnotaEntrata.AsCurrency ;
   TTTPNotaC1U.AsCurrency := TTTPnotaUscita.AsCurrency ;
   TTTPnotaC2E.AsCurrency := 0 ;
   TTTPNotaC2U.AsCurrency := 0 ;
   TTTPnotaC3E.AsCurrency := 0 ;
   TTTPNotaC3U.AsCurrency := 0 ;
   TTTPnotaC4E.AsCurrency := 0 ;
   TTTPNotaC4U.AsCurrency := 0 ;
  end ;
end;

procedure TPagamenti_form.ContoBBtnClick(Sender: TObject);
begin
 With ModuloDatiScadenziario do
  begin
   TTTPnota.Edit ;
   TTTPnotaC2E.AsCurrency := TTTpnotaEntrata.AsCurrency ;
   TTTPNotaC2U.AsCurrency := TTTPnotaUscita.AsCurrency ;
   TTTPnotaC1E.AsCurrency := 0 ;
   TTTPNotaC1U.AsCurrency := 0 ;
   TTTPnotaC3E.AsCurrency := 0 ;
   TTTPNotaC3U.AsCurrency := 0 ;
   TTTPnotaC4E.AsCurrency := 0 ;
   TTTPNotaC4U.AsCurrency := 0 ;
  end ;
end;

procedure TPagamenti_form.ContoCBtnClick(Sender: TObject);
begin
 With ModuloDatiScadenziario do
  begin
   TTTPnota.Edit ;
   TTTPnotaC3E.AsCurrency := TTTpnotaEntrata.AsCurrency ;
   TTTPNotaC3U.AsCurrency := TTTPnotaUscita.AsCurrency ;
   TTTPnotaC2E.AsCurrency := 0 ;
   TTTPNotaC2U.AsCurrency := 0 ;
   TTTPnotaC1E.AsCurrency := 0 ;
   TTTPNotaC1U.AsCurrency := 0 ;
   TTTPnotaC4E.AsCurrency := 0 ;
   TTTPNotaC4U.AsCurrency := 0 ;
  end ;
end;

procedure TPagamenti_form.ContoDBtnClick(Sender: TObject);
begin
 With ModuloDatiScadenziario do
  begin
   TTTPnota.Edit ;
   TTTPnotaC4E.AsCurrency := TTTpnotaEntrata.AsCurrency ;
   TTTPNotaC4U.AsCurrency := TTTPnotaUscita.AsCurrency ;
   TTTPnotaC2E.AsCurrency := 0 ;
   TTTPNotaC2U.AsCurrency := 0 ;
   TTTPnotaC3E.AsCurrency := 0 ;
   TTTPNotaC3U.AsCurrency := 0 ;
   TTTPnotaC1E.AsCurrency := 0 ;
   TTTPNotaC1U.AsCurrency := 0 ;
  end ;
end;

procedure TPagamenti_form.BitBtn1Click(Sender: TObject);
begin
 with ModuloDatiScadenziario do
  begin
   If TTTPnotaMezzo.AsString = '' then
    begin
     ShowMessage('Attenzione, il  campo "A MEZZO"