unuovo_tipodoc.pas

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

unit uNuovo_tipoDoc;

interface

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

type
  TNuovo_TipoDoc = class(TForm)
    PageManager: TPageManager;
    Panel1: TPanel;
    Annulla: TButton;
    Avanti: TButton;
    fine: TButton;
    Indietro: TButton;
    Panel2: TPanel;
    Notebook: TNotebook;
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    Memo2: TMemo;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    BenvenutoProxy: TPageProxy;
    InizioProxy: TPageProxy;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    mostra_cod: TButton;
    TipiDb: TTable;
    dsTipi: TDataSource;
    TipiEsistenti: TDBGrid;
    AutomatismiProxy: TPageProxy;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    DBRadioGroup1: TDBRadioGroup;
    CheckBoxGiacenza: TDBCheckBox;
    CheckBoxProvvigione: TDBCheckBox;
    CheckBoxScadenziario: TDBCheckBox;
    DBCheckBox26: TDBCheckBox;
    DBCheckBox27: TDBCheckBox;
    DBLookupComboBox1: TDBLookupComboBox;
    BitBtn1: TBitBtn;
    Label6: TLabel;
    Memo3: TMemo;
    PagineVisualizzateProxy: TPageProxy;
    Pagine_Visualizzate: TGroupBox;
    DBCheckBox23: TDBCheckBox;
    DBCheckBox24: TDBCheckBox;
    DBCheckBox25: TDBCheckBox;
    Label7: TLabel;
    Memo4: TMemo;
    ColonneDettaglioProxy: TPageProxy;
    Label8: TLabel;
    Memo5: TMemo;
    GroupBox2: TGroupBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox30: TDBCheckBox;
    DBCheckBox31: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    GroupBox3: TGroupBox;
    DBCheckBox8: TDBCheckBox;
    DBCheckBox21: TDBCheckBox;
    DBCheckBox32: TDBCheckBox;
    DBCheckBox33: TDBCheckBox;
    GroupBox4: TGroupBox;
    DBCheckBox11: TDBCheckBox;
    DBCheckBox13: TDBCheckBox;
    DBCheckBox14: TDBCheckBox;
    DBCheckBox15: TDBCheckBox;
    DBCheckBox16: TDBCheckBox;
    GroupBox5: TGroupBox;
    DBCheckBox7: TDBCheckBox;
    DBCheckBox12: TDBCheckBox;
    DBCheckBox19: TDBCheckBox;
    DBCheckBox22: TDBCheckBox;
    DBCheckBox20: TDBCheckBox;
    DBCheckBox9: TDBCheckBox;
    DBCheckBox17: TDBCheckBox;
    DBCheckBox10: TDBCheckBox;
    DBCheckBox18: TDBCheckBox;
    DBCheckBox28: TDBCheckBox;
    DBCheckBox29: TDBCheckBox;
    DBRadioGroup2: TDBRadioGroup;
    Label9: TLabel;
    Memo6: TMemo;
    TipoCalcoloProxy: TPageProxy;
    GroupBox6: TGroupBox;
    Label10: TLabel;
    DBComboBox1: TDBComboBox;
    GrigliaConversioni: TDBGridEh;
    Label11: TLabel;
    Memo7: TMemo;
    ScrollBox1: TScrollBox;
    DBRadioGroup3: TDBRadioGroup;
    DBRadioGroup4: TDBRadioGroup;
    Label12: TLabel;
    DBEdit3: TDBEdit;
    Label13: TLabel;
    DBEdit4: TDBEdit;
    Label14: TLabel;
    DBEdit5: TDBEdit;
    Label15: TLabel;
    DBEdit6: TDBEdit;
    Label16: TLabel;
    DBEdit7: TDBEdit;
    Label17: TLabel;
    DBMemo2: TDBMemo;
    Label18: TLabel;
    DBMemo1: TDBMemo;
    DBEdit8: TDBEdit;
    Label19: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Label20: TLabel;
    Memo8: TMemo;
    Label21: TLabel;
    Memo9: TMemo;
    GroupBox7: TGroupBox;
    Label22: TLabel;
    DBCheckBox3: TDBCheckBox;
    EditCopie: TDBEdit;
    DBCheckBox34: TDBCheckBox;
    Label25: TLabel;
    Memo10: TMemo;
    ConversioneProxy: TPageProxy;
    InvioProxy: TPageProxy;
    StampaProxy: TPageProxy;
    CausaliProxy: TPageProxy;
    ConclusioneProxy: TPageProxy;
    Memo11: TMemo;
    Label26: TLabel;
    ListaCausali: TCheckListBox;
    Label27: TLabel;
    Panel3: TPanel;
    Label23: TLabel;
    DBEdit9: TDBEdit;
    SelezionaL: TButton;
    ModificaL_but: TButton;
    DBEdit10: TDBEdit;
    Label24: TLabel;
    SelezionaE_but: TButton;
    ModificaE_but: TButton;
    Sceglifile: TOpenDialog;
    GroupBox8: TGroupBox;
    CheckBoxAcquistato: TDBCheckBox;
    CheckBoxVenduto: TDBCheckBox;
    DBCheckBox35: TDBCheckBox;
    procedure InizioProxyEnter(Next: Boolean);
    procedure AnnullaClick(Sender: TObject);
    procedure mostra_codClick(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
    procedure DBEdit1Exit(Sender: TObject);
    procedure BenvenutoProxyEnter(Next: Boolean);
    procedure DBEdit2Exit(Sender: TObject);
    procedure CausaliProxyEnter(Next: Boolean);
    procedure PageManagerGetNextPage(CurrentPage: Integer;
      var NewPage: Integer);
    procedure PageManagerGetPriorPage(CurrentPage: Integer;
      var NewPage: Integer);
    procedure DBCheckBox34Click(Sender: TObject);
    procedure ModificaL_butClick(Sender: TObject);
    procedure SelezionaLClick(Sender: TObject);
    procedure SelezionaE_butClick(Sender: TObject);
    procedure ModificaE_butClick(Sender: TObject);
    procedure fineClick(Sender: TObject);
    procedure InizioProxyShow(Next: Boolean);
    procedure ConversioneProxyEnter(Next: Boolean);
    procedure InizioProxyLeave(Next: Boolean);
    procedure ConversioneProxyLeave(Next: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure ConclusioneProxyShow(Next: Boolean);
  private
    { Private declarations }
  public
    ExNovo: boolean;
    function MostraInvioDoc: integer;
    function MostraInvioDocIndietro: integer;
    procedure VerificaDocProva;
    function ControllaTipoMovimento: integer;
    { Public declarations }
  end;

var
  Nuovo_TipoDoc: TNuovo_TipoDoc;
  Cambiato : boolean ;

implementation

uses ana_mod, aboutOS, Doc_mod;

{$R *.DFM}

procedure TNuovo_TipoDoc.InizioProxyEnter(Next: Boolean);
begin
 ModuloDatiAnagrafiche.TTTipidoc.Insert ;
 ExNovo := true ;
end;

procedure TNuovo_TipoDoc.AnnullaClick(Sender: TObject);
begin
 If MessageDlG('Annullare l''operazione ?',mtConfirmation,[mbYes,mbNo],0) = mrNo then
    exit ;

 If ModuloDatiAnagrafiche.TTTipidoc.State = dsInsert then
  begin
    While ModuloDatiAnagrafiche.TTConvDoc_ana.Locate('Tipo Documento Padre',ModuloDatiAnagrafiche.TTTipidocCodice.AsString,[]) do
     ModuloDatiAnagrafiche.TTconvDoc_ana.Delete ;
    ModuloDatiAnagrafiche.TTTipidoc.Cancel ;
  end ;
 If ModuloDatiAnagrafiche.TTTipidoc.State = dsEdit then
  begin
    if exnovo then
     begin
      While ModuloDatiAnagrafiche.TTConvDoc_ana.Locate('Tipo Documento Padre',ModuloDatiAnagrafiche.TTTipidocCodice.AsString,[]) do
       ModuloDatiAnagrafiche.TTconvDoc_ana.Delete ;
      ModuloDatiAnagrafiche.TTTipidoc.Delete ;
     end
    else
     begin
      ModuloDatiAnagrafiche.TTTipidoc.Cancel ;
     end ;
  end ;
 modalResult := mrCancel ;
end;

procedure TNuovo_TipoDoc.mostra_codClick(Sender: TObject);
begin
 TipiEsistenti.Visible := True ;
end;

procedure TNuovo_TipoDoc.DBEdit1Change(Sender: TObject);
begin
 cambiato := true ;
end;

procedure TNuovo_TipoDoc.DBEdit1Exit(Sender: TObject);
Var
   suff : string ;

begin

   If DbEdit1.Text = '' then
    begin
     Avanti.Enabled := False ;
     exit ;
    end ;
   suff := '' ;
   if cambiato then
    begin
      If TipiDb.locate('Descrizione',dbEdit1.Text,[]) then
       begin
        ShowMessage('Descrizione gi