doc_wiz_u.~pa

Mosaic ERP大型系统 v6.09.rar

unit doc_wiz_u;

interface

uses
  Doc_mod,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Grids, DBGrids, ActnList, Db, DBTables, Calendar,
  Mask, DBCtrls, ExtCtrls, Buttons, ppCtrls, ppStrtch, ppMemo, ppPrnabl,
  ppClass, ppDB, ppBands, ppProd, ppReport, ppComm, ppCache, ppDBPipe,
  ppDBBDE, ppRelatv, ppModule, daDatMod, ppSubRpt, ppRichTx, jpeg, DBGridEh,
  ToolEdit, RXDBCtrl;

type
  TDoc_wiz_form = class(TForm)
    Pagine: TPageControl;
    Causale: TTabSheet;
    Riepilogo: TTabSheet;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    DSCausali: TDataSource;
    DSCaudoc: TDataSource;
    Azioni: TActionList;
    Annulla: TAction;
    Fine: TAction;
    Avanti: TAction;
    Indietro: TAction;
    Fine_but: TButton;
    Avanti_but: TButton;
    Indietro_but: TButton;
    annulla_but: TButton;
    Memo1: TMemo;
    Special: TAction;
    Soggetto: TTabSheet;
    Destinazione: TTabSheet;
    Pagamento: TTabSheet;
    Dettaglio: TTabSheet;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    Label7: TLabel;
    DBEdit5: TDBEdit;
    DSTestata: TDataSource;
    Label15: TLabel;
    EditSoggetto: TDBEdit;
    DBText2: TDBText;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    Label8: TLabel;
    DBEdit2: TDBEdit;
    Label9: TLabel;
    DBEdit6: TDBEdit;
    Label16: TLabel;
    DBEdit7: TDBEdit;
    Label17: TLabel;
    DBEdit9: TDBEdit;
    Label18: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Memo4: TMemo;
    Memorizza_but: TButton;
    Label20: TLabel;
    IndirizzoMerce: TDBEdit;
    Label21: TLabel;
    DBEdit12: TDBEdit;
    Label22: TLabel;
    DBEdit13: TDBEdit;
    Label23: TLabel;
    DBEdit14: TDBEdit;
    Depositi: TTabSheet;
    Label24: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    Memo5: TMemo;
    Button1: TButton;
    Label25: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Label26: TLabel;
    DBLookupComboBox5: TDBLookupComboBox;
    Label29: TLabel;
    DBLookupComboBox8: TDBLookupComboBox;
    Label30: TLabel;
    Label31: TLabel;
    DBEdit16: TDBEdit;
    Label32: TLabel;
    DBEdit17: TDBEdit;
    Label33: TLabel;
    DBEdit18: TDBEdit;
    DsDettaglio: TDataSource;
    DSArtbase: TDataSource;
    DBGridDocumenti: TDBGrid;
    GroupBox2: TGroupBox;
    DSCastiva: TDataSource;
    DBGrid2: TDBGrid;
    DSEconto: TDataSource;
    Label56: TLabel;
    Label2: TLabel;
    DBEdit31: TDBEdit;
    Label10: TLabel;
    DBEdit32: TDBEdit;
    Label11: TLabel;
    DBEdit33: TDBEdit;
    Label12: TLabel;
    DBEdit34: TDBEdit;
    Label13: TLabel;
    DBEdit35: TDBEdit;
    Label49: TLabel;
    DBEdit36: TDBEdit;
    Label50: TLabel;
    DBEdit37: TDBEdit;
    Label59: TLabel;
    DBEdit40: TDBEdit;
    Memo2: TMemo;
    Label52: TLabel;
    Button3: TButton;
    Button2: TButton;
    Button4: TButton;
    Varianti: TAction;
    DBText1: TDBText;
    Label60: TLabel;
    DBEdit28: TDBEdit;
    Label62: TLabel;
    DBEdit42: TDBEdit;
    Label63: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DSSoggetti_ricerca: TDataSource;
    lookupsoggetti: TDBLookupListBox;
    Label14: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Nuovo_soggetto: TButton;
    Varianti_button: TButton;
    Button5: TButton;
    DBNavigator1: TDBNavigator;
    DBRadioGroup1: TDBRadioGroup;
    Auto: TButton;
    DBLookupComboBox9: TDBLookupComboBox;
    DBEdit8: TDBEdit;
    Label35: TLabel;
    IncollaBtn: TBitBtn;
    CalcBtn: TBitBtn;
    Auto_: TAction;
    SpeedButton1: TSpeedButton;
    DBText4: TDBText;
    Label37: TLabel;
    DBText5: TDBText;
    Label38: TLabel;
    DBText6: TDBText;
    Label39: TLabel;
    DBText7: TDBText;
    Label40: TLabel;
    DBText8: TDBText;
    Label41: TLabel;
    DBText9: TDBText;
    Label19: TLabel;
    DBEdit10: TDBEdit;
    TimerSogg: TTimer;
    VerificaDoc: TGroupBox;
    Label43: TLabel;
    Label45: TLabel;
    MessaggioCheck: TMemo;
    NumeroDoc: TEdit;
    SerieDoc: TEdit;
    ScadeBox: TGroupBox;
    DBLookupComboBox10: TDBLookupComboBox;
    Button6: TButton;
    Label3: TLabel;
    DBText3: TDBText;
    DBGridEh1: TDBGridEh;
    DBRadioGroup2: TDBRadioGroup;
    TrasportoBox: TGroupBox;
    DBEdit20: TDBEdit;
    Label44: TLabel;
    DBDateEdit1: TDBDateEdit;
    DBDateEdit2: TDBDateEdit;
    Label46: TLabel;
    DBDateEdit3: TDBDateEdit;
    DBEdit3: TDBEdit;
    Label47: TLabel;
    Label48: TLabel;
    DBEdit15: TDBEdit;
    Label57: TLabel;
    DBEdit21: TDBEdit;
    Label66: TLabel;
    DBEdit22: TDBEdit;
    Label42: TLabel;
    DBLookupComboBox13: TDBLookupComboBox;
    Label67: TLabel;
    DBMemo1: TDBMemo;
    Memo3: TMemo;
    Label68: TLabel;
    Label69: TLabel;
    Label70: TLabel;
    Memo6: TMemo;
    GroupBox1: TGroupBox;
    Label27: TLabel;
    Label28: TLabel;
    Label34: TLabel;
    Label36: TLabel;
    DBLookupComboBox6: TDBLookupComboBox;
    DBLookupComboBox7: TDBLookupComboBox;
    DBEdit19: TDBEdit;
    NessunoPagBtn: TButton;
    NessunoBanBtn: TButton;
    DBEdit11: TDBEdit;
    Memo7: TMemo;
    Label61: TLabel;
    Label51: TLabel;
    DBEdit38: TDBEdit;
    DBLookupComboBox11: TDBLookupComboBox;
    NessunoAgBtn: TButton;
    GroupBox3: TGroupBox;
    Label54: TLabel;
    DBEdit30: TDBEdit;
    DBLookupComboBox12: TDBLookupComboBox;
    NessunaEseBtn: TButton;
    DBMemo3: TDBMemo;
    Label55: TLabel;
    Panel1: TPanel;
    GrigliaDettaglio: TDBGridEh;
    Aiuto: TAction;
    Scheda_ArticoloBtn: TButton;
    Numero: TEdit;
    Label53: TLabel;
    Button7: TButton;
    Trova_Numero: TAction;
    Label_Adebito_Agente: TLabel;
    Adebito_Agente: TDBEdit;
    Distinta_Base: TAction;
    DBRadioGroup3: TDBRadioGroup;
    Label72: TLabel;
    DBEdit24: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBLookupComboBox14: TDBLookupComboBox;
    DBEdit23: TDBEdit;
    Label71: TLabel;
    Label73: TLabel;
    Gest_Dispositivo: TAction;
    rxLabelLettore: TLabel;
    Compatta_dettaglio: TAction;
    Button8: TButton;
    Label58: TLabel;
    DBEdit25: TDBEdit;
    Label74: TLabel;
    DBEdit26: TDBEdit;
    Label75: TLabel;
    DBEdit27: TDBEdit;
    Su: TAction;
    Giu: TAction;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure FineExecute(Sender: TObject);
    procedure AnnullaExecute(Sender: TObject);
    procedure AvantiExecute(Sender: TObject);
    procedure CausaleShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Memorizza_butClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure CausaleHide(Sender: TObject);
    procedure RiepilogoShow(Sender: TObject);
    procedure IndietroExecute(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure SoggettoShow(Sender: TObject);
    procedure RiepilogoHide(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure VariantiExecute(Sender: TObject);
    procedure DettaglioShow(Sender: TObject);
    procedure DettaglioHide(Sender: TObject);
    procedure Nuovo_soggettoClick(Sender: TObject);
    procedure GrigliaDettaglioEditButtonClick(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure DepositiShow(Sender: TObject);
    procedure DSTestataStateChange(Sender: TObject);
    procedure IncollaBtnClick(Sender: TObject);
    procedure CalcBtnClick(Sender: TObject);
    procedure NessunoPagBtnClick(Sender: TObject);
    procedure NessunoBanBtnClick(Sender: TObject);
    procedure NessunoAgBtnClick(Sender: TObject);
    procedure NessunaEseBtnClick(Sender: TObject);
    procedure Auto_Execute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure GrigliaDettaglioKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TimerSoggTimer(Sender: TObject);
    procedure DSTestataDataChange(Sender: TObject; Field: TField);
    procedure SoggettoHide(Sender: TObject);
    procedure NumeroDocChange(Sender: TObject);
    procedure DSCausaliDataChange(Sender: TObject; Field: TField);
    procedure PagineChanging(Sender: TObject; var AllowChange: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure AiutoExecute(Sender: TObject);
    procedure Scheda_ArticoloBtnClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Trova_NumeroExecute(Sender: TObject);
    procedure Distinta_BaseExecute(Sender: TObject);
    procedure Gest_DispositivoExecute(Sender: TObject);
    procedure Compatta_dettaglioExecute(Sender: TObject);
    procedure SuExecute(Sender: TObject);
    procedure GiuExecute(Sender: TObject);
  private
    { Private declarations }
    Procedure Preparadoc ;
    Procedure PreparaColonne ;
  public
    { Public declarations }
    Function Inserisci : boolean ;
    Function Mostra : boolean ;
    Procedure ImpostaTitolo ;
    function LeggiCuraTrasporto: string;
    function Modifica: boolean;
  end;

var
  Doc_wiz_form: TDoc_wiz_form;
  Inserito : boolean ;
  Soggetto_old: string;
  Sto_leggendo: boolean;

implementation

uses ana_mod, Ucalend, rica_art_u_fornit, u_griglia_varianti, Umenu,
  ana_sog_u, nuovo_soggetto_u, u_editdescrizione, u_doc_esistenti,
  u_ddoc_distinta, disp_ext;

{$R *.DFM}
Function Tdoc_Wiz_form.Inserisci : boolean ;
begin
    Inserito := false ;
    Result := False; 
    with ModuloDatiDocumenti do
     begin
      TTTestata.Filter := '' ;
      TTTestata.Filtered := false ;
      TTTestata.Insert ;
      TTTestataDocumento.Value := modulodatiAnagrafiche.IncNumeratore('DD','','','') ;
      TTTestataData.Value := Menu_form.DataE2k ;
      TTTestataStampato.AsBoolean := false ;
      TTTestataCompletato.AsBoolean := false ;
      TTTEstataAnnullato.AsBoolean := false ;
     end ;
    Annulla.Enabled := true ;
    Inserito := true ;
    Result := Inserito ;
    soggetto_old := '' ;
end ;

Function TDoc_Wiz_Form.Mostra : boolean ;
begin
 ModuloDatiDocumenti.Soggetti_Ricerca.Locate('Codice',ModuloDatiDocumenti.TTTestataSoggetto.asString,[]);
 moduloDatiDocumenti.TTCausali.FindKey([ModuloDatiDocumenti.TTTestataCausale.asString]) ;
 ModuloDatiDocumenti.TTCaudoc.Locate('Tipo documento',ModuloDatiDocumenti.TTTEstataTipo.AsString,[]) ;
 fine.Enabled := true ;
 Result := True ;
 ImpostaTitolo ;
 ModuloDatiDocumenti.ImpostaFormati ;
end;

Procedure TDoc_wiz_form.ImpostaTitolo ;
 Var
    Tipo,Numero, Data ,modo: String ;
begin
 With ModuloDatiDocumenti do
  begin
   Tipo := TTTEstataTipoDocumento.AsString ;
   Numero := TTTestataNumero.AsString ;
   Data := TTTestataData.AsString ;
   Case TTTestata.State of
    dsEdit   : Modo := 'Modifica' ;
    dsInsert : Modo := 'Inserimento' ;
   else
    Modo := 'Visualizzazione' ;
   end ;
  end;
 self.Caption := 'Document Wizard - ' + modo + ' di : ' + tipo + ' n