unid_dados.pas

System for issue quitter of rental immobile.

unit Unid_Dados;

interface

uses
  SysUtils, Classes, DB, DBClient;

type
  TForm_Dados = class(TDataModule)
    CDS_Recibo: TClientDataSet;
    CDS_ReciboLOC_NOME: TStringField;
    CDS_ReciboLOC_CPF: TStringField;
    CDS_ReciboLOC_RG: TStringField;
    CDS_ReciboLOC_NASC: TDateField;
    CDS_ReciboLOC_SEXO: TStringField;
    CDS_ReciboEND_LOGRAD: TStringField;
    CDS_ReciboEND_NUM: TStringField;
    CDS_ReciboEND_COMPL: TStringField;
    CDS_ReciboEND_BAIRRO: TStringField;
    CDS_ReciboEND_CEP: TStringField;
    CDS_ReciboEND_CIDADE: TStringField;
    CDS_ReciboEND_ESTADO: TStringField;
    CDS_ReciboREC_NUM: TIntegerField;
    CDS_ReciboREC_DTA_EMIS: TDateField;
    CDS_ReciboREC_DTA_REF1: TDateField;
    CDS_ReciboREC_DTA_REF2: TDateField;
    CDS_ReciboREC_VALOR: TCurrencyField;
    CDS_ReciboREC_QTD_IMPRES: TIntegerField;
    CDS_ReciboREC_PAG_ANTEC: TStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
    procedure CriaTabela;
  public
    { Public declarations }
  end;

var
  Form_Dados: TForm_Dados;

implementation

{$R *.dfm}

procedure TForm_Dados.CriaTabela;
begin
   with CDS_Recibo do begin
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 60;
         Name := 'LOC_NOME';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 14;
         Name := 'LOC_CPF';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 20;
         Name := 'LOC_RG';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftDate;
         Name := 'LOC_NASC';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 1;
         Name := 'LOC_SEXO';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 60;
         Name := 'END_LOGRAD';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 10;
         Name := 'END_NUM';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 20;
         Name := 'END_COMPL';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 20;
         Name := 'END_BAIRRO';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 08;
         Name := 'END_CEP';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 30;
         Name := 'END_CIDADE';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 02;
         Name := 'END_ESTADO';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftInteger;
         Name := 'REC_NUM';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftCurrency;
         Name := 'REC_VALOR';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftDate;
         Name := 'REC_DTA_EMIS';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftDate;
         Name := 'REC_DTA_REF1';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftDate;
         Name := 'REC_DTA_REF2';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftString;
         Size := 1;
         Name := 'REC_PAG_ANTEC';
      end;
      with FieldDefs.AddFieldDef do begin
         DataType := ftInteger;
         Name := 'REC_QTD_IMPRES';
      end;
      FileName := '.\RECEIBO.XML';
      CreateDataSet;
      Open;
   end;
end;

procedure TForm_Dados.DataModuleCreate(Sender: TObject);
begin
   if FileExists('.\RECIBO.XML') then begin
      CDS_Recibo.FileName := '.\RECIBO.XML';
      CDS_Recibo.Open;
   end else begin
      CriaTabela;
   end;
   CDS_Recibo.IndexFieldNames := 'LOC_NOME; REC_NUM';
   CDS_Recibo.First;
end;

end.