plug_doc_gen.pas

Mosaic ERP大型系统 v6.09.rar

unit plug_doc_gen;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, ActnList, StdCtrls, ExtCtrls;

type
  TDocumenti_Generati_form = class(TForm)
    QElencoDoc: TQuery;
    dsElencoDoc: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Stampa_tutti: TButton;
    Chiudi: TButton;
    ActionList1: TActionList;
    Cerca: TAction;
    QElencoDocDocumento: TIntegerField;
    QElencoDocData: TDateField;
    QElencoDocNumero: TIntegerField;
    QElencoDocRagionesocialedocumento: TStringField;
    QElencoDocImponibilescontato: TCurrencyField;
    QElencoDocImposta: TCurrencyField;
    QElencoDocTotaleE: TCurrencyField;
    QElencoDocTotaleL: TCurrencyField;
    QElencoDocTipo: TStringField;
    procedure CercaExecute(Sender: TObject);
    procedure ChiudiClick(Sender: TObject);
    procedure dsElencoDocDataChange(Sender: TObject; Field: TField);
    procedure Stampa_tuttiClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Documenti_Generati_form: TDocumenti_Generati_form;

implementation

uses Ucerca, Doc_mod, u_doc_manager;

{$R *.DFM}

procedure TDocumenti_Generati_form.CercaExecute(Sender: TObject);
begin
 Cerca_form.trova(self);
end;

procedure TDocumenti_Generati_form.ChiudiClick(Sender: TObject);
begin
 release ;
end;

procedure TDocumenti_Generati_form.dsElencoDocDataChange(Sender: TObject;
  Field: TField);
begin
 If Field = nil then
  begin
   Doc_manager.TTTipiDoc.Locate('Descrizione',QelencoDocTipo.asString,[]) ;
   Doc_Manager.Caption := 'Explorer documenti - ' + QelencoDocTipo.AsString ;
   If Doc_Manager.Qdocumenti.Active = false then Doc_Manager.Qdocumenti.Open ;
   Doc_Manager.Qdocumenti.Locate('Documento',QelencoDocDocumento.asInteger,[]) ;
  end ;
end;

procedure TDocumenti_Generati_form.Stampa_tuttiClick(Sender: TObject);
begin

 QelencoDoc.First ;
 While Not Qelencodoc.Eof do
  begin
   ModuloDatiDocumenti.StampaDoc(false,False) ;
   QelencoDoc.Next ;
  end ;
end;

end.