AlonsoYSal_FactuGES/Modulos/Pagos/Reglas/schPagosClient_Intf.pas

unit schPagosClient_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable;

const
  { Data table rules ids
       Feel free to change them to something more human readable
       but make sure they are unique in the context of your application }
  RID_InformeCabeceraPago = '{B59F93CF-6EAF-4991-B028-BB0CCE36364E}';
  RID_ListaAnosPagos = '{850055F7-8D08-4539-AB66-5DA63D40E26A}';
  RID_Pagos = '{29B2AF5B-087B-4E74-83F7-8D96ECEC370C}';
  RID_Refresh_Pagos = '{7E9A215E-D8F2-452C-83EB-36815D1F2E30}';

  { Data table names }
  nme_InformeCabeceraPago = 'InformeCabeceraPago';
  nme_ListaAnosPagos = 'ListaAnosPagos';
  nme_Pagos = 'Pagos';
  nme_Refresh_Pagos = 'Refresh_Pagos';

  { InformeCabeceraPago fields }
  fld_InformeCabeceraPagoCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_InformeCabeceraPagoCODIGO = 'CODIGO';
  fld_InformeCabeceraPagoCUENTA = 'CUENTA';
  fld_InformeCabeceraPagoFECHAPAGO = 'FECHAPAGO';
  fld_InformeCabeceraPagoFORMAPAGO = 'FORMAPAGO';
  fld_InformeCabeceraPagoDESCRIPCION = 'DESCRIPCION';
  fld_InformeCabeceraPagoIMPORTE = 'IMPORTE';
  fld_InformeCabeceraPagoCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_InformeCabeceraPagoNOMBRE = 'NOMBRE';
  fld_InformeCabeceraPagoNIFCIF = 'NIFCIF';
  fld_InformeCabeceraPagoCALLE = 'CALLE';
  fld_InformeCabeceraPagoCODIGOPOSTAL = 'CODIGOPOSTAL';
  fld_InformeCabeceraPagoPOBLACION = 'POBLACION';
  fld_InformeCabeceraPagoPROVINCIA = 'PROVINCIA';

  { InformeCabeceraPago field indexes }
  idx_InformeCabeceraPagoCODIGOEMPRESA = 0;
  idx_InformeCabeceraPagoCODIGO = 1;
  idx_InformeCabeceraPagoCUENTA = 2;
  idx_InformeCabeceraPagoFECHAPAGO = 3;
  idx_InformeCabeceraPagoFORMAPAGO = 4;
  idx_InformeCabeceraPagoDESCRIPCION = 5;
  idx_InformeCabeceraPagoIMPORTE = 6;
  idx_InformeCabeceraPagoCODIGOCONTACTO = 7;
  idx_InformeCabeceraPagoNOMBRE = 8;
  idx_InformeCabeceraPagoNIFCIF = 9;
  idx_InformeCabeceraPagoCALLE = 10;
  idx_InformeCabeceraPagoCODIGOPOSTAL = 11;
  idx_InformeCabeceraPagoPOBLACION = 12;
  idx_InformeCabeceraPagoPROVINCIA = 13;

  { ListaAnosPagos fields }
  fld_ListaAnosPagosANO = 'ANO';

  { ListaAnosPagos field indexes }
  idx_ListaAnosPagosANO = 0;

  { Pagos fields }
  fld_PagosCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_PagosCODIGO = 'CODIGO';
  fld_PagosFECHAALTA = 'FECHAALTA';
  fld_PagosUSUARIO = 'USUARIO';
  fld_PagosCUENTA = 'CUENTA';
  fld_PagosIMPORTE = 'IMPORTE';
  fld_PagosFORMAPAGO = 'FORMAPAGO';
  fld_PagosDESCRIPCION = 'DESCRIPCION';
  fld_PagosFECHAPAGO = 'FECHAPAGO';
  fld_PagosFECHAMODIFICACION = 'FECHAMODIFICACION';
  fld_PagosCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_PagosNOMBRE = 'NOMBRE';
  fld_PagosCODIGOCATEGORIA = 'CODIGOCATEGORIA';
  fld_PagosCATEGORIA = 'CATEGORIA';

  { Pagos field indexes }
  idx_PagosCODIGOEMPRESA = 0;
  idx_PagosCODIGO = 1;
  idx_PagosFECHAALTA = 2;
  idx_PagosUSUARIO = 3;
  idx_PagosCUENTA = 4;
  idx_PagosIMPORTE = 5;
  idx_PagosFORMAPAGO = 6;
  idx_PagosDESCRIPCION = 7;
  idx_PagosFECHAPAGO = 8;
  idx_PagosFECHAMODIFICACION = 9;
  idx_PagosCODIGOCONTACTO = 10;
  idx_PagosNOMBRE = 11;
  idx_PagosCODIGOCATEGORIA = 12;
  idx_PagosCATEGORIA = 13;

  { Refresh_Pagos fields }
  fld_Refresh_PagosCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_Refresh_PagosCODIGO = 'CODIGO';
  fld_Refresh_PagosFECHAALTA = 'FECHAALTA';
  fld_Refresh_PagosUSUARIO = 'USUARIO';
  fld_Refresh_PagosCUENTA = 'CUENTA';
  fld_Refresh_PagosIMPORTE = 'IMPORTE';
  fld_Refresh_PagosFORMAPAGO = 'FORMAPAGO';
  fld_Refresh_PagosDESCRIPCION = 'DESCRIPCION';
  fld_Refresh_PagosFECHAPAGO = 'FECHAPAGO';
  fld_Refresh_PagosFECHAMODIFICACION = 'FECHAMODIFICACION';
  fld_Refresh_PagosCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_Refresh_PagosNOMBRE = 'NOMBRE';
  fld_Refresh_PagosCODIGOCATEGORIA = 'CODIGOCATEGORIA';
  fld_Refresh_PagosCATEGORIA = 'CATEGORIA';

  { Refresh_Pagos field indexes }
  idx_Refresh_PagosCODIGOEMPRESA = 0;
  idx_Refresh_PagosCODIGO = 1;
  idx_Refresh_PagosFECHAALTA = 2;
  idx_Refresh_PagosUSUARIO = 3;
  idx_Refresh_PagosCUENTA = 4;
  idx_Refresh_PagosIMPORTE = 5;
  idx_Refresh_PagosFORMAPAGO = 6;
  idx_Refresh_PagosDESCRIPCION = 7;
  idx_Refresh_PagosFECHAPAGO = 8;
  idx_Refresh_PagosFECHAMODIFICACION = 9;
  idx_Refresh_PagosCODIGOCONTACTO = 10;
  idx_Refresh_PagosNOMBRE = 11;
  idx_Refresh_PagosCODIGOCATEGORIA = 12;
  idx_Refresh_PagosCATEGORIA = 13;

type
  { IInformeCabeceraPago }
  IInformeCabeceraPago = interface(IDAStronglyTypedDataTable)
  ['{148B6411-0D8B-49BB-BB6D-B7EC3E511B59}']
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer);
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetCUENTAValue: Integer;
    procedure SetCUENTAValue(const aValue: Integer);
    function GetFECHAPAGOValue: DateTime;
    procedure SetFECHAPAGOValue(const aValue: DateTime);
    function GetFORMAPAGOValue: String;
    procedure SetFORMAPAGOValue(const aValue: String);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetIMPORTEValue: Float;
    procedure SetIMPORTEValue(const aValue: Float);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetNIFCIFValue: String;
    procedure SetNIFCIFValue(const aValue: String);
    function GetCALLEValue: String;
    procedure SetCALLEValue(const aValue: String);
    function GetCODIGOPOSTALValue: String;
    procedure SetCODIGOPOSTALValue(const aValue: String);
    function GetPOBLACIONValue: String;
    procedure SetPOBLACIONValue(const aValue: String);
    function GetPROVINCIAValue: String;
    procedure SetPROVINCIAValue(const aValue: String);


    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property CUENTA: Integer read GetCUENTAValue write SetCUENTAValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property FORMAPAGO: String read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
  end;

  { TInformeCabeceraPagoDataTableRules }
  TInformeCabeceraPagoDataTableRules = class(TDADataTableRules, IInformeCabeceraPago)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetCUENTAValue: Integer; virtual;
    procedure SetCUENTAValue(const aValue: Integer); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(const aValue: DateTime); virtual;
    function GetFORMAPAGOValue: String; virtual;
    procedure SetFORMAPAGOValue(const aValue: String); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetIMPORTEValue: Float; virtual;
    procedure SetIMPORTEValue(const aValue: Float); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetNIFCIFValue: String; virtual;
    procedure SetNIFCIFValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetCODIGOPOSTALValue: String; virtual;
    procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property CUENTA: Integer read GetCUENTAValue write SetCUENTAValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property FORMAPAGO: String read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property IMPORTE: Float read GetIMPORTEValue write SetIMPORTEValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

  { IListaAnosPagos }
  IListaAnosPagos = interface(IDAStronglyTypedDataTable)
  ['{1FB6B43B-966A-47CA-BACF-1BC4BBF28F54}']
    { Property getters and setters }
    function GetANOValue: String;
    procedure SetANOValue(const aValue: String);


    { Properties }
    property ANO: String read GetANOValue write SetANOValue;
  end;

  { TListaAnosPagosDataTableRules }
  TListaAnosPagosDataTableRules = class(TDADataTableRules, IListaAnosPagos)
  private
  protected
    { Property getters and setters }
    function GetANOValue: String; virtual;
    procedure SetANOValue(const aValue: String); virtual;

    { Properties }
    property ANO: String read GetANOValue write SetANOValue;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

  { IPagos }
  IPagos = interface(IDAStronglyTypedDataTable)
  ['{26CF2773-53D4-4547-A06B-7E5C1A131C5A}']
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer);
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetFECHAALTAValue: DateTime;
    procedure SetFECHAALTAValue(const aValue: DateTime);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetCUENTAValue: Integer;
    procedure SetCUENTAValue(const aValue: Integer);
    function GetIMPORTEValue: Currency;
    procedure SetIMPORTEValue(const aValue: Currency);
    function GetFORMAPAGOValue: IROStrings;
    procedure SetFORMAPAGOValue(const aValue: IROStrings);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetFECHAPAGOValue: DateTime;
    procedure SetFECHAPAGOValue(const aValue: DateTime);
    function GetFECHAMODIFICACIONValue: DateTime;
    procedure SetFECHAMODIFICACIONValue(const aValue: DateTime);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetCODIGOCATEGORIAValue: Integer;
    procedure SetCODIGOCATEGORIAValue(const aValue: Integer);
    function GetCATEGORIAValue: String;
    procedure SetCATEGORIAValue(const aValue: String);


    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property CUENTA: Integer read GetCUENTAValue write SetCUENTAValue;
    property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property FECHAMODIFICACION: DateTime read GetFECHAMODIFICACIONValue write SetFECHAMODIFICACIONValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOCATEGORIA: Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
    property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;
  end;

  { TPagosDataTableRules }
  TPagosDataTableRules = class(TDADataTableRules, IPagos)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetCUENTAValue: Integer; virtual;
    procedure SetCUENTAValue(const aValue: Integer); virtual;
    function GetIMPORTEValue: Currency; virtual;
    procedure SetIMPORTEValue(const aValue: Currency); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(const aValue: DateTime); virtual;
    function GetFECHAMODIFICACIONValue: DateTime; virtual;
    procedure SetFECHAMODIFICACIONValue(const aValue: DateTime); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCODIGOCATEGORIAValue: Integer; virtual;
    procedure SetCODIGOCATEGORIAValue(const aValue: Integer); virtual;
    function GetCATEGORIAValue: String; virtual;
    procedure SetCATEGORIAValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property CUENTA: Integer read GetCUENTAValue write SetCUENTAValue;
    property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property FECHAMODIFICACION: DateTime read GetFECHAMODIFICACIONValue write SetFECHAMODIFICACIONValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOCATEGORIA: Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
    property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

  { IRefresh_Pagos }
  IRefresh_Pagos = interface(IDAStronglyTypedDataTable)
  ['{D6BB1255-4087-475E-AC3E-54FD4FA60158}']
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer);
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetFECHAALTAValue: DateTime;
    procedure SetFECHAALTAValue(const aValue: DateTime);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetCUENTAValue: Integer;
    procedure SetCUENTAValue(const aValue: Integer);
    function GetIMPORTEValue: Currency;
    procedure SetIMPORTEValue(const aValue: Currency);
    function GetFORMAPAGOValue: IROStrings;
    procedure SetFORMAPAGOValue(const aValue: IROStrings);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetFECHAPAGOValue: DateTime;
    procedure SetFECHAPAGOValue(const aValue: DateTime);
    function GetFECHAMODIFICACIONValue: DateTime;
    procedure SetFECHAMODIFICACIONValue(const aValue: DateTime);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetCODIGOCATEGORIAValue: Integer;
    procedure SetCODIGOCATEGORIAValue(const aValue: Integer);
    function GetCATEGORIAValue: String;
    procedure SetCATEGORIAValue(const aValue: String);


    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property CUENTA: Integer read GetCUENTAValue write SetCUENTAValue;
    property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property FECHAMODIFICACION: DateTime read GetFECHAMODIFICACIONValue write SetFECHAMODIFICACIONValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOCATEGORIA: Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
    property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;
  end;

  { TRefresh_PagosDataTableRules }
  TRefresh_PagosDataTableRules = class(TDADataTableRules, IRefresh_Pagos)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetCUENTAValue: Integer; virtual;
    procedure SetCUENTAValue(const aValue: Integer); virtual;
    function GetIMPORTEValue: Currency; virtual;
    procedure SetIMPORTEValue(const aValue: Currency); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(const aValue: DateTime); virtual;
    function GetFECHAMODIFICACIONValue: DateTime; virtual;
    procedure SetFECHAMODIFICACIONValue(const aValue: DateTime); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCODIGOCATEGORIAValue: Integer; virtual;
    procedure SetCODIGOCATEGORIAValue(const aValue: Integer); virtual;
    function GetCATEGORIAValue: String; virtual;
    procedure SetCATEGORIAValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property CUENTA: Integer read GetCUENTAValue write SetCUENTAValue;
    property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property FECHAMODIFICACION: DateTime read GetFECHAMODIFICACIONValue write SetFECHAMODIFICACIONValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOCATEGORIA: Integer read GetCODIGOCATEGORIAValue write SetCODIGOCATEGORIAValue;
    property CATEGORIA: String read GetCATEGORIAValue write SetCATEGORIAValue;

  public
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

implementation

uses Variants;

{ TInformeCabeceraPagoDataTableRules }
constructor TInformeCabeceraPagoDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TInformeCabeceraPagoDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraPagoDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoCODIGOEMPRESA].AsInteger;
end;

procedure TInformeCabeceraPagoDataTableRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_InformeCabeceraPagoCODIGOEMPRESA].AsInteger := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoCODIGO].AsInteger;
end;

procedure TInformeCabeceraPagoDataTableRules.SetCODIGOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_InformeCabeceraPagoCODIGO].AsInteger := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetCUENTAValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoCUENTA].AsInteger;
end;

procedure TInformeCabeceraPagoDataTableRules.SetCUENTAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_InformeCabeceraPagoCUENTA].AsInteger := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetFECHAPAGOValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoFECHAPAGO].AsDateTime;
end;

procedure TInformeCabeceraPagoDataTableRules.SetFECHAPAGOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraPagoFECHAPAGO].AsDateTime := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetFORMAPAGOValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoFORMAPAGO].AsString;
end;

procedure TInformeCabeceraPagoDataTableRules.SetFORMAPAGOValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPagoFORMAPAGO].AsString := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoDESCRIPCION].AsString;
end;

procedure TInformeCabeceraPagoDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPagoDESCRIPCION].AsString := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetIMPORTEValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoIMPORTE].AsFloat;
end;

procedure TInformeCabeceraPagoDataTableRules.SetIMPORTEValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeCabeceraPagoIMPORTE].AsFloat := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoCODIGOCONTACTO].AsInteger;
end;

procedure TInformeCabeceraPagoDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_InformeCabeceraPagoCODIGOCONTACTO].AsInteger := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoNOMBRE].AsString;
end;

procedure TInformeCabeceraPagoDataTableRules.SetNOMBREValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPagoNOMBRE].AsString := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetNIFCIFValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoNIFCIF].AsString;
end;

procedure TInformeCabeceraPagoDataTableRules.SetNIFCIFValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPagoNIFCIF].AsString := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetCALLEValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoCALLE].AsString;
end;

procedure TInformeCabeceraPagoDataTableRules.SetCALLEValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPagoCALLE].AsString := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetCODIGOPOSTALValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoCODIGOPOSTAL].AsString;
end;

procedure TInformeCabeceraPagoDataTableRules.SetCODIGOPOSTALValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPagoCODIGOPOSTAL].AsString := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetPOBLACIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoPOBLACION].AsString;
end;

procedure TInformeCabeceraPagoDataTableRules.SetPOBLACIONValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPagoPOBLACION].AsString := aValue;
end;

function TInformeCabeceraPagoDataTableRules.GetPROVINCIAValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPagoPROVINCIA].AsString;
end;

procedure TInformeCabeceraPagoDataTableRules.SetPROVINCIAValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPagoPROVINCIA].AsString := aValue;
end;


{ TListaAnosPagosDataTableRules }
constructor TListaAnosPagosDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TListaAnosPagosDataTableRules.Destroy;
begin
  inherited;
end;

function TListaAnosPagosDataTableRules.GetANOValue: String;
begin
  result := DataTable.Fields[idx_ListaAnosPagosANO].AsString;
end;

procedure TListaAnosPagosDataTableRules.SetANOValue(const aValue: String);
begin
  DataTable.Fields[idx_ListaAnosPagosANO].AsString := aValue;
end;


{ TPagosDataTableRules }
constructor TPagosDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TPagosDataTableRules.Destroy;
begin
  inherited;
end;

function TPagosDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_PagosCODIGOEMPRESA].AsInteger;
end;

procedure TPagosDataTableRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_PagosCODIGOEMPRESA].AsInteger := aValue;
end;

function TPagosDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_PagosCODIGO].AsInteger;
end;

procedure TPagosDataTableRules.SetCODIGOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_PagosCODIGO].AsInteger := aValue;
end;

function TPagosDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_PagosFECHAALTA].AsDateTime;
end;

procedure TPagosDataTableRules.SetFECHAALTAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_PagosFECHAALTA].AsDateTime := aValue;
end;

function TPagosDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_PagosUSUARIO].AsString;
end;

procedure TPagosDataTableRules.SetUSUARIOValue(const aValue: String);
begin
  DataTable.Fields[idx_PagosUSUARIO].AsString := aValue;
end;

function TPagosDataTableRules.GetCUENTAValue: Integer;
begin
  result := DataTable.Fields[idx_PagosCUENTA].AsInteger;
end;

procedure TPagosDataTableRules.SetCUENTAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_PagosCUENTA].AsInteger := aValue;
end;

function TPagosDataTableRules.GetIMPORTEValue: Currency;
begin
  result := DataTable.Fields[idx_PagosIMPORTE].AsCurrency;
end;

procedure TPagosDataTableRules.SetIMPORTEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_PagosIMPORTE].AsCurrency := aValue;
end;

function TPagosDataTableRules.GetFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_PagosFORMAPAGO].AsString;
end;

procedure TPagosDataTableRules.SetFORMAPAGOValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_PagosFORMAPAGO].AsString := aValue.Text;
end;

function TPagosDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_PagosDESCRIPCION].AsString;
end;

procedure TPagosDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
  DataTable.Fields[idx_PagosDESCRIPCION].AsString := aValue;
end;

function TPagosDataTableRules.GetFECHAPAGOValue: DateTime;
begin
  result := DataTable.Fields[idx_PagosFECHAPAGO].AsDateTime;
end;

procedure TPagosDataTableRules.SetFECHAPAGOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_PagosFECHAPAGO].AsDateTime := aValue;
end;

function TPagosDataTableRules.GetFECHAMODIFICACIONValue: DateTime;
begin
  result := DataTable.Fields[idx_PagosFECHAMODIFICACION].AsDateTime;
end;

procedure TPagosDataTableRules.SetFECHAMODIFICACIONValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_PagosFECHAMODIFICACION].AsDateTime := aValue;
end;

function TPagosDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_PagosCODIGOCONTACTO].AsInteger;
end;

procedure TPagosDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_PagosCODIGOCONTACTO].AsInteger := aValue;
end;

function TPagosDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_PagosNOMBRE].AsString;
end;

procedure TPagosDataTableRules.SetNOMBREValue(const aValue: String);
begin
  DataTable.Fields[idx_PagosNOMBRE].AsString := aValue;
end;

function TPagosDataTableRules.GetCODIGOCATEGORIAValue: Integer;
begin
  result := DataTable.Fields[idx_PagosCODIGOCATEGORIA].AsInteger;
end;

procedure TPagosDataTableRules.SetCODIGOCATEGORIAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_PagosCODIGOCATEGORIA].AsInteger := aValue;
end;

function TPagosDataTableRules.GetCATEGORIAValue: String;
begin
  result := DataTable.Fields[idx_PagosCATEGORIA].AsString;
end;

procedure TPagosDataTableRules.SetCATEGORIAValue(const aValue: String);
begin
  DataTable.Fields[idx_PagosCATEGORIA].AsString := aValue;
end;


{ TRefresh_PagosDataTableRules }
constructor TRefresh_PagosDataTableRules.Create(aDataTable: TDADataTable);
begin
  inherited;
end;

destructor TRefresh_PagosDataTableRules.Destroy;
begin
  inherited;
end;

function TRefresh_PagosDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PagosCODIGOEMPRESA].AsInteger;
end;

procedure TRefresh_PagosDataTableRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_PagosCODIGOEMPRESA].AsInteger := aValue;
end;

function TRefresh_PagosDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PagosCODIGO].AsInteger;
end;

procedure TRefresh_PagosDataTableRules.SetCODIGOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_PagosCODIGO].AsInteger := aValue;
end;

function TRefresh_PagosDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_PagosFECHAALTA].AsDateTime;
end;

procedure TRefresh_PagosDataTableRules.SetFECHAALTAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Refresh_PagosFECHAALTA].AsDateTime := aValue;
end;

function TRefresh_PagosDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PagosUSUARIO].AsString;
end;

procedure TRefresh_PagosDataTableRules.SetUSUARIOValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_PagosUSUARIO].AsString := aValue;
end;

function TRefresh_PagosDataTableRules.GetCUENTAValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PagosCUENTA].AsInteger;
end;

procedure TRefresh_PagosDataTableRules.SetCUENTAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_PagosCUENTA].AsInteger := aValue;
end;

function TRefresh_PagosDataTableRules.GetIMPORTEValue: Currency;
begin
  result := DataTable.Fields[idx_Refresh_PagosIMPORTE].AsCurrency;
end;

procedure TRefresh_PagosDataTableRules.SetIMPORTEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_Refresh_PagosIMPORTE].AsCurrency := aValue;
end;

function TRefresh_PagosDataTableRules.GetFORMAPAGOValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_Refresh_PagosFORMAPAGO].AsString;
end;

procedure TRefresh_PagosDataTableRules.SetFORMAPAGOValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_Refresh_PagosFORMAPAGO].AsString := aValue.Text;
end;

function TRefresh_PagosDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PagosDESCRIPCION].AsString;
end;

procedure TRefresh_PagosDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_PagosDESCRIPCION].AsString := aValue;
end;

function TRefresh_PagosDataTableRules.GetFECHAPAGOValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_PagosFECHAPAGO].AsDateTime;
end;

procedure TRefresh_PagosDataTableRules.SetFECHAPAGOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Refresh_PagosFECHAPAGO].AsDateTime := aValue;
end;

function TRefresh_PagosDataTableRules.GetFECHAMODIFICACIONValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_PagosFECHAMODIFICACION].AsDateTime;
end;

procedure TRefresh_PagosDataTableRules.SetFECHAMODIFICACIONValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Refresh_PagosFECHAMODIFICACION].AsDateTime := aValue;
end;

function TRefresh_PagosDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PagosCODIGOCONTACTO].AsInteger;
end;

procedure TRefresh_PagosDataTableRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_PagosCODIGOCONTACTO].AsInteger := aValue;
end;

function TRefresh_PagosDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PagosNOMBRE].AsString;
end;

procedure TRefresh_PagosDataTableRules.SetNOMBREValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_PagosNOMBRE].AsString := aValue;
end;

function TRefresh_PagosDataTableRules.GetCODIGOCATEGORIAValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PagosCODIGOCATEGORIA].AsInteger;
end;

procedure TRefresh_PagosDataTableRules.SetCODIGOCATEGORIAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_PagosCODIGOCATEGORIA].AsInteger := aValue;
end;

function TRefresh_PagosDataTableRules.GetCATEGORIAValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PagosCATEGORIA].AsString;
end;

procedure TRefresh_PagosDataTableRules.SetCATEGORIAValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_PagosCATEGORIA].AsString := aValue;
end;


initialization
  RegisterDataTableRules(RID_InformeCabeceraPago, TInformeCabeceraPagoDataTableRules);
  RegisterDataTableRules(RID_ListaAnosPagos, TListaAnosPagosDataTableRules);
  RegisterDataTableRules(RID_Pagos, TPagosDataTableRules);
  RegisterDataTableRules(RID_Refresh_Pagos, TRefresh_PagosDataTableRules);

end.