import_export_doc_u.pas

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

unit Import_export_doc_u;

interface

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

type
  TImport_Export_doc = class(TForm)
    PageControl1: TPageControl;
    Import_Export_Page: TTabSheet;
    Tipo_operazione: TRadioGroup;
    Documenti: TTabSheet;
    QCampi: TQuery;
    DBGrid1: TDBGrid;
    DsCampi: TDataSource;
    Scelta: TTabSheet;
    Elaborazione: TTabSheet;
    TabRapporto: TTabSheet;
    ActionList1: TActionList;
    Esporta: TAction;
    Button1: TButton;
    Importa: TAction;
    RxTdoc: TRxMemoryData;
    RxDdoc: TRxMemoryData;
    RxDocVar: TRxMemoryData;
    Button2: TButton;
    OpenDialogo: TOpenDialog;
    ProgressBar: TProgressBar;
    Rapporto: TMemo;
    RxCodice: TRxMemoryData;
    RxCodiceDocumento: TIntegerField;
    Label1: TLabel;
    Annulla_Button: TButton;
    Indietro_Button: TButton;
    Avanti_Button: TButton;
    Avanti: TAction;
    Indietro: TAction;
    Sep_campi: TRadioGroup;
    RxCodiceProgressivo: TIntegerField;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    dal: TDateTimePicker;
    Label3: TLabel;
    al: TDateTimePicker;
    Label5: TLabel;
    Label7: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    RxAgenti: TRxMemoryData;
    DsSoggetti: TDataSource;
    DsAgenti: TDataSource;
    DBLookupComboBox2: TDBLookupComboBox;
    Soggetti_tutti: TCheckBox;
    Agenti_tutti: TCheckBox;
    RxSoggetti: TRxMemoryData;
    RxSoggettiCodice: TStringField;
    RxAgentiCodice: TStringField;
    RxSoggetti_New: TRxMemoryData;
    RxSoggetti_Newcodice: TStringField;
    RxSoggetti_NewCodice_nuovo: TStringField;
    procedure EsportaExecute(Sender: TObject);
    procedure ImportaExecute(Sender: TObject);
    procedure ElaborazioneShow(Sender: TObject);
    procedure Annulla_ButtonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure AvantiExecute(Sender: TObject);
    procedure IndietroExecute(Sender: TObject);
    procedure Import_Export_PageShow(Sender: TObject);
    procedure DocumentiShow(Sender: TObject);
    procedure SceltaShow(Sender: TObject);
    procedure TabRapportoShow(Sender: TObject);
    procedure PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Import_Export_doc: TImport_Export_doc;

implementation

uses Doc_mod, ana_mod, nuovo_soggetto_u;

{$R *.DFM}

procedure TImport_Export_doc.EsportaExecute(Sender: TObject);
var tdoc_out, ddoc_in, ddocvar_out : TextFile ;                                 // File Export documenti
    tdoc_HEA, ddoc_HEA, ddocvar_HEA : TextFile ;                                // File testa Export documenti 
    file_ini : TextFile ;                                                       // File esportazione (*.MSA)
    report_out : TextFile ;                                                     // File Report
    nome_ini, nome_log : string ;                                               // Nome file ini e log
    nome_tdoc, nome_ddoc, nome_ddocvar : String ;                               // Nome file Export documenti
    HEA_tdoc, HEA_ddoc, HEA_ddocvar : String ;                                  // Nome file Testa documenti

    percorso_export : string ;                                                  // Percorso esportazione
    tipo_documento : String ;                                                   // Tipo documento
    Mod_esecuzione : string ;                                                   // Modalit