AlonsoYSal_FactuGES/Modulos/Facturas de cliente/Reglas/schFacturasClienteClient_Intf.pas

unit schFacturasClienteClient_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_ListaAnosFacturas = '{42919587-DDC2-4D2F-8B79-4C034016B877}';
  RID_DarReferenciaFactura = '{75D2C86E-2226-4165-AE57-6FBB114F6C38}';
  RID_FacturasCliente = '{46F2D1A1-F069-49C3-8FD7-F73A82EA4B30}';
  RID_DetallesFacturasCliente = '{BB44EE25-910C-4356-B962-792C1239F806}';
  RID_InformeCabeceraFacturaCliente = '{865C733F-2C85-46C9-A40C-8A022512FC4E}';
  RID_InformeDetallesFacturaCliente = '{E219BB9F-D3FD-438D-A03B-0E466305B8A9}';

  { Data table names }
  nme_ListaAnosFacturas = 'ListaAnosFacturas';
  nme_DarReferenciaFactura = 'DarReferenciaFactura';
  nme_FacturasCliente = 'FacturasCliente';
  nme_DetallesFacturasCliente = 'DetallesFacturasCliente';
  nme_InformeCabeceraFacturaCliente = 'InformeCabeceraFacturaCliente';
  nme_InformeDetallesFacturaCliente = 'InformeDetallesFacturaCliente';

  { ListaAnosFacturas fields }
  fld_ListaAnosFacturasANO = 'ANO';

  { ListaAnosFacturas field indexes }
  idx_ListaAnosFacturasANO = 0;

  { DarReferenciaFactura fields }
  fld_DarReferenciaFacturaREFERENCIA = 'REFERENCIA';

  { DarReferenciaFactura field indexes }
  idx_DarReferenciaFacturaREFERENCIA = 0;

  { FacturasCliente fields }
  fld_FacturasClienteCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_FacturasClienteCODIGO = 'CODIGO';
  fld_FacturasClienteFECHAALTA = 'FECHAALTA';
  fld_FacturasClienteUSUARIO = 'USUARIO';
  fld_FacturasClienteFECHAFACTURA = 'FECHAFACTURA';
  fld_FacturasClienteREFERENCIA = 'REFERENCIA';
  fld_FacturasClienteBASEIMPONIBLE = 'BASEIMPONIBLE';
  fld_FacturasClienteDESCUENTO = 'DESCUENTO';
  fld_FacturasClienteIMPORTEDESCUENTO = 'IMPORTEDESCUENTO';
  fld_FacturasClienteIVA = 'IVA';
  fld_FacturasClienteIMPORTEIVA = 'IMPORTEIVA';
  fld_FacturasClienteIMPORTETOTAL = 'IMPORTETOTAL';
  fld_FacturasClienteOBSERVACIONES = 'OBSERVACIONES';
  fld_FacturasClienteFORMAPAGO = 'FORMAPAGO';
  fld_FacturasClienteCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_FacturasClienteNIFCIF = 'NIFCIF';
  fld_FacturasClienteNOMBRE = 'NOMBRE';
  fld_FacturasClienteCALLE = 'CALLE';
  fld_FacturasClientePROVINCIA = 'PROVINCIA';
  fld_FacturasClienteCODIGOPOSTAL = 'CODIGOPOSTAL';
  fld_FacturasClientePOBLACION = 'POBLACION';
  fld_FacturasClienteCODIGOALBARAN = 'CODIGOALBARAN';

  { FacturasCliente field indexes }
  idx_FacturasClienteCODIGOEMPRESA = 0;
  idx_FacturasClienteCODIGO = 1;
  idx_FacturasClienteFECHAALTA = 2;
  idx_FacturasClienteUSUARIO = 3;
  idx_FacturasClienteFECHAFACTURA = 4;
  idx_FacturasClienteREFERENCIA = 5;
  idx_FacturasClienteBASEIMPONIBLE = 6;
  idx_FacturasClienteDESCUENTO = 7;
  idx_FacturasClienteIMPORTEDESCUENTO = 8;
  idx_FacturasClienteIVA = 9;
  idx_FacturasClienteIMPORTEIVA = 10;
  idx_FacturasClienteIMPORTETOTAL = 11;
  idx_FacturasClienteOBSERVACIONES = 12;
  idx_FacturasClienteFORMAPAGO = 13;
  idx_FacturasClienteCODIGOCONTACTO = 14;
  idx_FacturasClienteNIFCIF = 15;
  idx_FacturasClienteNOMBRE = 16;
  idx_FacturasClienteCALLE = 17;
  idx_FacturasClientePROVINCIA = 18;
  idx_FacturasClienteCODIGOPOSTAL = 19;
  idx_FacturasClientePOBLACION = 20;
  idx_FacturasClienteCODIGOALBARAN = 21;

  { DetallesFacturasCliente fields }
  fld_DetallesFacturasClienteCODIGOFACTURA = 'CODIGOFACTURA';
  fld_DetallesFacturasClienteNUMCONCEPTO = 'NUMCONCEPTO';
  fld_DetallesFacturasClientePOSICION = 'POSICION';
  fld_DetallesFacturasClienteTIPO = 'TIPO';
  fld_DetallesFacturasClienteDESCRIPCION = 'DESCRIPCION';
  fld_DetallesFacturasClienteCANTIDAD = 'CANTIDAD';
  fld_DetallesFacturasClienteIMPORTEUNIDAD = 'IMPORTEUNIDAD';
  fld_DetallesFacturasClienteIMPORTETOTAL = 'IMPORTETOTAL';
  fld_DetallesFacturasClienteVISIBLE = 'VISIBLE';

  { DetallesFacturasCliente field indexes }
  idx_DetallesFacturasClienteCODIGOFACTURA = 0;
  idx_DetallesFacturasClienteNUMCONCEPTO = 1;
  idx_DetallesFacturasClientePOSICION = 2;
  idx_DetallesFacturasClienteTIPO = 3;
  idx_DetallesFacturasClienteDESCRIPCION = 4;
  idx_DetallesFacturasClienteCANTIDAD = 5;
  idx_DetallesFacturasClienteIMPORTEUNIDAD = 6;
  idx_DetallesFacturasClienteIMPORTETOTAL = 7;
  idx_DetallesFacturasClienteVISIBLE = 8;

  { InformeCabeceraFacturaCliente fields }
  fld_InformeCabeceraFacturaClienteCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_InformeCabeceraFacturaClienteCODIGO = 'CODIGO';
  fld_InformeCabeceraFacturaClienteFECHAALTA = 'FECHAALTA';
  fld_InformeCabeceraFacturaClienteUSUARIO = 'USUARIO';
  fld_InformeCabeceraFacturaClienteFECHAFACTURA = 'FECHAFACTURA';
  fld_InformeCabeceraFacturaClienteREFERENCIA = 'REFERENCIA';
  fld_InformeCabeceraFacturaClienteCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_InformeCabeceraFacturaClienteBASEIMPONIBLE = 'BASEIMPONIBLE';
  fld_InformeCabeceraFacturaClienteDESCUENTO = 'DESCUENTO';
  fld_InformeCabeceraFacturaClienteIMPORTEDESCUENTO = 'IMPORTEDESCUENTO';
  fld_InformeCabeceraFacturaClienteIVA = 'IVA';
  fld_InformeCabeceraFacturaClienteIMPORTEIVA = 'IMPORTEIVA';
  fld_InformeCabeceraFacturaClienteIMPORTETOTAL = 'IMPORTETOTAL';
  fld_InformeCabeceraFacturaClienteOBSERVACIONES = 'OBSERVACIONES';
  fld_InformeCabeceraFacturaClienteFORMAPAGO = 'FORMAPAGO';
  fld_InformeCabeceraFacturaClienteNIFCIF = 'NIFCIF';
  fld_InformeCabeceraFacturaClienteNOMBRE = 'NOMBRE';
  fld_InformeCabeceraFacturaClienteCALLE = 'CALLE';
  fld_InformeCabeceraFacturaClientePROVINCIA = 'PROVINCIA';
  fld_InformeCabeceraFacturaClienteCODIGOPOSTAL = 'CODIGOPOSTAL';
  fld_InformeCabeceraFacturaClientePOBLACION = 'POBLACION';

  { InformeCabeceraFacturaCliente field indexes }
  idx_InformeCabeceraFacturaClienteCODIGOEMPRESA = 0;
  idx_InformeCabeceraFacturaClienteCODIGO = 1;
  idx_InformeCabeceraFacturaClienteFECHAALTA = 2;
  idx_InformeCabeceraFacturaClienteUSUARIO = 3;
  idx_InformeCabeceraFacturaClienteFECHAFACTURA = 4;
  idx_InformeCabeceraFacturaClienteREFERENCIA = 5;
  idx_InformeCabeceraFacturaClienteCODIGOCONTACTO = 6;
  idx_InformeCabeceraFacturaClienteBASEIMPONIBLE = 7;
  idx_InformeCabeceraFacturaClienteDESCUENTO = 8;
  idx_InformeCabeceraFacturaClienteIMPORTEDESCUENTO = 9;
  idx_InformeCabeceraFacturaClienteIVA = 10;
  idx_InformeCabeceraFacturaClienteIMPORTEIVA = 11;
  idx_InformeCabeceraFacturaClienteIMPORTETOTAL = 12;
  idx_InformeCabeceraFacturaClienteOBSERVACIONES = 13;
  idx_InformeCabeceraFacturaClienteFORMAPAGO = 14;
  idx_InformeCabeceraFacturaClienteNIFCIF = 15;
  idx_InformeCabeceraFacturaClienteNOMBRE = 16;
  idx_InformeCabeceraFacturaClienteCALLE = 17;
  idx_InformeCabeceraFacturaClientePROVINCIA = 18;
  idx_InformeCabeceraFacturaClienteCODIGOPOSTAL = 19;
  idx_InformeCabeceraFacturaClientePOBLACION = 20;

  { InformeDetallesFacturaCliente fields }
  fld_InformeDetallesFacturaClienteCODIGOFACTURA = 'CODIGOFACTURA';
  fld_InformeDetallesFacturaClienteNUMCONCEPTO = 'NUMCONCEPTO';
  fld_InformeDetallesFacturaClienteDESCRIPCION = 'DESCRIPCION';
  fld_InformeDetallesFacturaClienteCANTIDAD = 'CANTIDAD';
  fld_InformeDetallesFacturaClienteIMPORTEUNIDAD = 'IMPORTEUNIDAD';
  fld_InformeDetallesFacturaClienteIMPORTETOTAL = 'IMPORTETOTAL';
  fld_InformeDetallesFacturaClienteTIPO = 'TIPO';
  fld_InformeDetallesFacturaClientePOSICION = 'POSICION';

  { InformeDetallesFacturaCliente field indexes }
  idx_InformeDetallesFacturaClienteCODIGOFACTURA = 0;
  idx_InformeDetallesFacturaClienteNUMCONCEPTO = 1;
  idx_InformeDetallesFacturaClienteDESCRIPCION = 2;
  idx_InformeDetallesFacturaClienteCANTIDAD = 3;
  idx_InformeDetallesFacturaClienteIMPORTEUNIDAD = 4;
  idx_InformeDetallesFacturaClienteIMPORTETOTAL = 5;
  idx_InformeDetallesFacturaClienteTIPO = 6;
  idx_InformeDetallesFacturaClientePOSICION = 7;

type
  { IListaAnosFacturas }
  IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
  ['{728E1D30-3B2E-44F0-86B2-D18BDDE2C92C}']
    { Property getters and setters }
    function GetANOValue: String;
    procedure SetANOValue(const aValue: String);


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

  { TListaAnosFacturasDataTableRules }
  TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
  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;

  { IDarReferenciaFactura }
  IDarReferenciaFactura = interface(IDAStronglyTypedDataTable)
  ['{E947ABD4-4AD9-41C2-9351-96CBCDFFF938}']
    { Property getters and setters }
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);


    { Properties }
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
  end;

  { TDarReferenciaFacturaDataTableRules }
  TDarReferenciaFacturaDataTableRules = class(TDADataTableRules, IDarReferenciaFactura)
  private
  protected
    { Property getters and setters }
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;

    { Properties }
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;

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

  end;

  { IFacturasCliente }
  IFacturasCliente = interface(IDAStronglyTypedDataTable)
  ['{1D8ABDA0-4A60-4470-9880-627ED9D48B67}']
    { 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 GetFECHAFACTURAValue: DateTime;
    procedure SetFECHAFACTURAValue(const aValue: DateTime);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetBASEIMPONIBLEValue: Currency;
    procedure SetBASEIMPONIBLEValue(const aValue: Currency);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetIMPORTEDESCUENTOValue: Currency;
    procedure SetIMPORTEDESCUENTOValue(const aValue: Currency);
    function GetIVAValue: Float;
    procedure SetIVAValue(const aValue: Float);
    function GetIMPORTEIVAValue: Currency;
    procedure SetIMPORTEIVAValue(const aValue: Currency);
    function GetIMPORTETOTALValue: Currency;
    procedure SetIMPORTETOTALValue(const aValue: Currency);
    function GetOBSERVACIONESValue: IROStrings;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings);
    function GetFORMAPAGOValue: IROStrings;
    procedure SetFORMAPAGOValue(const aValue: IROStrings);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNIFCIFValue: String;
    procedure SetNIFCIFValue(const aValue: String);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetCALLEValue: String;
    procedure SetCALLEValue(const aValue: String);
    function GetPROVINCIAValue: String;
    procedure SetPROVINCIAValue(const aValue: String);
    function GetCODIGOPOSTALValue: String;
    procedure SetCODIGOPOSTALValue(const aValue: String);
    function GetPOBLACIONValue: String;
    procedure SetPOBLACIONValue(const aValue: String);
    function GetCODIGOALBARANValue: Integer;
    procedure SetCODIGOALBARANValue(const aValue: Integer);


    { 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 FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property IMPORTEDESCUENTO: Currency read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue;
    property IVA: Float read GetIVAValue write SetIVAValue;
    property IMPORTEIVA: Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
  end;

  { TFacturasClienteDataTableRules }
  TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
  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 GetFECHAFACTURAValue: DateTime; virtual;
    procedure SetFECHAFACTURAValue(const aValue: DateTime); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetBASEIMPONIBLEValue: Currency; virtual;
    procedure SetBASEIMPONIBLEValue(const aValue: Currency); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetIMPORTEDESCUENTOValue: Currency; virtual;
    procedure SetIMPORTEDESCUENTOValue(const aValue: Currency); virtual;
    function GetIVAValue: Float; virtual;
    procedure SetIVAValue(const aValue: Float); virtual;
    function GetIMPORTEIVAValue: Currency; virtual;
    procedure SetIMPORTEIVAValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNIFCIFValue: String; virtual;
    procedure SetNIFCIFValue(const aValue: String); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(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 GetCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(const aValue: Integer); 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 FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property IMPORTEDESCUENTO: Currency read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue;
    property IVA: Float read GetIVAValue write SetIVAValue;
    property IMPORTEIVA: Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;

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

  end;

  { IDetallesFacturasCliente }
  IDetallesFacturasCliente = interface(IDAStronglyTypedDataTable)
  ['{5D2C18DA-1596-42C5-B509-360BFB347BDD}']
    { Property getters and setters }
    function GetCODIGOFACTURAValue: Integer;
    procedure SetCODIGOFACTURAValue(const aValue: Integer);
    function GetNUMCONCEPTOValue: Integer;
    procedure SetNUMCONCEPTOValue(const aValue: Integer);
    function GetPOSICIONValue: Integer;
    procedure SetPOSICIONValue(const aValue: Integer);
    function GetTIPOValue: String;
    procedure SetTIPOValue(const aValue: String);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetCANTIDADValue: Integer;
    procedure SetCANTIDADValue(const aValue: Integer);
    function GetIMPORTEUNIDADValue: Currency;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency);
    function GetIMPORTETOTALValue: Currency;
    procedure SetIMPORTETOTALValue(const aValue: Currency);
    function GetVISIBLEValue: String;
    procedure SetVISIBLEValue(const aValue: String);


    { Properties }
    property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;
  end;

  { TDetallesFacturasClienteDataTableRules }
  TDetallesFacturasClienteDataTableRules = class(TDADataTableRules, IDetallesFacturasCliente)
  private
  protected
    { Property getters and setters }
    function GetCODIGOFACTURAValue: Integer; virtual;
    procedure SetCODIGOFACTURAValue(const aValue: Integer); virtual;
    function GetNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetIMPORTEUNIDADValue: Currency; virtual;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetVISIBLEValue: String; virtual;
    procedure SetVISIBLEValue(const aValue: String); virtual;

    { Properties }
    property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue;

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

  end;

  { IInformeCabeceraFacturaCliente }
  IInformeCabeceraFacturaCliente = interface(IDAStronglyTypedDataTable)
  ['{64DCF384-1920-4E15-9B5A-BD3B2673C3C4}']
    { 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 GetFECHAFACTURAValue: DateTime;
    procedure SetFECHAFACTURAValue(const aValue: DateTime);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetBASEIMPONIBLEValue: Currency;
    procedure SetBASEIMPONIBLEValue(const aValue: Currency);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetIMPORTEDESCUENTOValue: Currency;
    procedure SetIMPORTEDESCUENTOValue(const aValue: Currency);
    function GetIVAValue: Float;
    procedure SetIVAValue(const aValue: Float);
    function GetIMPORTEIVAValue: Currency;
    procedure SetIMPORTEIVAValue(const aValue: Currency);
    function GetIMPORTETOTALValue: Currency;
    procedure SetIMPORTETOTALValue(const aValue: Currency);
    function GetOBSERVACIONESValue: IROStrings;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings);
    function GetFORMAPAGOValue: IROStrings;
    procedure SetFORMAPAGOValue(const aValue: IROStrings);
    function GetNIFCIFValue: String;
    procedure SetNIFCIFValue(const aValue: String);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetCALLEValue: String;
    procedure SetCALLEValue(const aValue: String);
    function GetPROVINCIAValue: String;
    procedure SetPROVINCIAValue(const aValue: String);
    function GetCODIGOPOSTALValue: String;
    procedure SetCODIGOPOSTALValue(const aValue: String);
    function GetPOBLACIONValue: String;
    procedure SetPOBLACIONValue(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 FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property IMPORTEDESCUENTO: Currency read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue;
    property IVA: Float read GetIVAValue write SetIVAValue;
    property IMPORTEIVA: Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
  end;

  { TInformeCabeceraFacturaClienteDataTableRules }
  TInformeCabeceraFacturaClienteDataTableRules = class(TDADataTableRules, IInformeCabeceraFacturaCliente)
  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 GetFECHAFACTURAValue: DateTime; virtual;
    procedure SetFECHAFACTURAValue(const aValue: DateTime); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetBASEIMPONIBLEValue: Currency; virtual;
    procedure SetBASEIMPONIBLEValue(const aValue: Currency); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetIMPORTEDESCUENTOValue: Currency; virtual;
    procedure SetIMPORTEDESCUENTOValue(const aValue: Currency); virtual;
    function GetIVAValue: Float; virtual;
    procedure SetIVAValue(const aValue: Float); virtual;
    function GetIMPORTEIVAValue: Currency; virtual;
    procedure SetIMPORTEIVAValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetNIFCIFValue: String; virtual;
    procedure SetNIFCIFValue(const aValue: String); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetCODIGOPOSTALValue: String; virtual;
    procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(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 FECHAFACTURA: DateTime read GetFECHAFACTURAValue write SetFECHAFACTURAValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property BASEIMPONIBLE: Currency read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property IMPORTEDESCUENTO: Currency read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue;
    property IVA: Float read GetIVAValue write SetIVAValue;
    property IMPORTEIVA: Currency read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;

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

  end;

  { IInformeDetallesFacturaCliente }
  IInformeDetallesFacturaCliente = interface(IDAStronglyTypedDataTable)
  ['{398C14EC-410D-4756-B0B6-97EF74DA85D2}']
    { Property getters and setters }
    function GetCODIGOFACTURAValue: Integer;
    procedure SetCODIGOFACTURAValue(const aValue: Integer);
    function GetNUMCONCEPTOValue: Integer;
    procedure SetNUMCONCEPTOValue(const aValue: Integer);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetCANTIDADValue: Integer;
    procedure SetCANTIDADValue(const aValue: Integer);
    function GetIMPORTEUNIDADValue: Currency;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency);
    function GetIMPORTETOTALValue: Currency;
    procedure SetIMPORTETOTALValue(const aValue: Currency);
    function GetTIPOValue: String;
    procedure SetTIPOValue(const aValue: String);
    function GetPOSICIONValue: Integer;
    procedure SetPOSICIONValue(const aValue: Integer);


    { Properties }
    property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
  end;

  { TInformeDetallesFacturaClienteDataTableRules }
  TInformeDetallesFacturaClienteDataTableRules = class(TDADataTableRules, IInformeDetallesFacturaCliente)
  private
  protected
    { Property getters and setters }
    function GetCODIGOFACTURAValue: Integer; virtual;
    procedure SetCODIGOFACTURAValue(const aValue: Integer); virtual;
    function GetNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetIMPORTEUNIDADValue: Currency; virtual;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;
    function GetPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;

    { Properties }
    property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;

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

  end;

implementation

uses Variants;

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

destructor TListaAnosFacturasDataTableRules.Destroy;
begin
  inherited;
end;

function TListaAnosFacturasDataTableRules.GetANOValue: String;
begin
  result := DataTable.Fields[idx_ListaAnosFacturasANO].AsString;
end;

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


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

destructor TDarReferenciaFacturaDataTableRules.Destroy;
begin
  inherited;
end;

function TDarReferenciaFacturaDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_DarReferenciaFacturaREFERENCIA].AsString;
end;

procedure TDarReferenciaFacturaDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
  DataTable.Fields[idx_DarReferenciaFacturaREFERENCIA].AsString := aValue;
end;


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

destructor TFacturasClienteDataTableRules.Destroy;
begin
  inherited;
end;

function TFacturasClienteDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_FacturasClienteCODIGOEMPRESA].AsInteger;
end;

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

function TFacturasClienteDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_FacturasClienteCODIGO].AsInteger;
end;

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

function TFacturasClienteDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_FacturasClienteFECHAALTA].AsDateTime;
end;

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

function TFacturasClienteDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_FacturasClienteUSUARIO].AsString;
end;

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

function TFacturasClienteDataTableRules.GetFECHAFACTURAValue: DateTime;
begin
  result := DataTable.Fields[idx_FacturasClienteFECHAFACTURA].AsDateTime;
end;

procedure TFacturasClienteDataTableRules.SetFECHAFACTURAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_FacturasClienteFECHAFACTURA].AsDateTime := aValue;
end;

function TFacturasClienteDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_FacturasClienteREFERENCIA].AsString;
end;

procedure TFacturasClienteDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
  DataTable.Fields[idx_FacturasClienteREFERENCIA].AsString := aValue;
end;

function TFacturasClienteDataTableRules.GetBASEIMPONIBLEValue: Currency;
begin
  result := DataTable.Fields[idx_FacturasClienteBASEIMPONIBLE].AsCurrency;
end;

procedure TFacturasClienteDataTableRules.SetBASEIMPONIBLEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_FacturasClienteBASEIMPONIBLE].AsCurrency := aValue;
end;

function TFacturasClienteDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_FacturasClienteDESCUENTO].AsFloat;
end;

procedure TFacturasClienteDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
  DataTable.Fields[idx_FacturasClienteDESCUENTO].AsFloat := aValue;
end;

function TFacturasClienteDataTableRules.GetIMPORTEDESCUENTOValue: Currency;
begin
  result := DataTable.Fields[idx_FacturasClienteIMPORTEDESCUENTO].AsCurrency;
end;

procedure TFacturasClienteDataTableRules.SetIMPORTEDESCUENTOValue(const aValue: Currency);
begin
  DataTable.Fields[idx_FacturasClienteIMPORTEDESCUENTO].AsCurrency := aValue;
end;

function TFacturasClienteDataTableRules.GetIVAValue: Float;
begin
  result := DataTable.Fields[idx_FacturasClienteIVA].AsFloat;
end;

procedure TFacturasClienteDataTableRules.SetIVAValue(const aValue: Float);
begin
  DataTable.Fields[idx_FacturasClienteIVA].AsFloat := aValue;
end;

function TFacturasClienteDataTableRules.GetIMPORTEIVAValue: Currency;
begin
  result := DataTable.Fields[idx_FacturasClienteIMPORTEIVA].AsCurrency;
end;

procedure TFacturasClienteDataTableRules.SetIMPORTEIVAValue(const aValue: Currency);
begin
  DataTable.Fields[idx_FacturasClienteIMPORTEIVA].AsCurrency := aValue;
end;

function TFacturasClienteDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_FacturasClienteIMPORTETOTAL].AsCurrency;
end;

procedure TFacturasClienteDataTableRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  DataTable.Fields[idx_FacturasClienteIMPORTETOTAL].AsCurrency := aValue;
end;

function TFacturasClienteDataTableRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_FacturasClienteOBSERVACIONES].AsString;
end;

procedure TFacturasClienteDataTableRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_FacturasClienteOBSERVACIONES].AsString := aValue.Text;
end;

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

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

function TFacturasClienteDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_FacturasClienteCODIGOCONTACTO].AsInteger;
end;

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

function TFacturasClienteDataTableRules.GetNIFCIFValue: String;
begin
  result := DataTable.Fields[idx_FacturasClienteNIFCIF].AsString;
end;

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

function TFacturasClienteDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_FacturasClienteNOMBRE].AsString;
end;

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

function TFacturasClienteDataTableRules.GetCALLEValue: String;
begin
  result := DataTable.Fields[idx_FacturasClienteCALLE].AsString;
end;

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

function TFacturasClienteDataTableRules.GetPROVINCIAValue: String;
begin
  result := DataTable.Fields[idx_FacturasClientePROVINCIA].AsString;
end;

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

function TFacturasClienteDataTableRules.GetCODIGOPOSTALValue: String;
begin
  result := DataTable.Fields[idx_FacturasClienteCODIGOPOSTAL].AsString;
end;

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

function TFacturasClienteDataTableRules.GetPOBLACIONValue: String;
begin
  result := DataTable.Fields[idx_FacturasClientePOBLACION].AsString;
end;

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

function TFacturasClienteDataTableRules.GetCODIGOALBARANValue: Integer;
begin
  result := DataTable.Fields[idx_FacturasClienteCODIGOALBARAN].AsInteger;
end;

procedure TFacturasClienteDataTableRules.SetCODIGOALBARANValue(const aValue: Integer);
begin
  DataTable.Fields[idx_FacturasClienteCODIGOALBARAN].AsInteger := aValue;
end;


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

destructor TDetallesFacturasClienteDataTableRules.Destroy;
begin
  inherited;
end;

function TDetallesFacturasClienteDataTableRules.GetCODIGOFACTURAValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesFacturasClienteCODIGOFACTURA].AsInteger;
end;

procedure TDetallesFacturasClienteDataTableRules.SetCODIGOFACTURAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DetallesFacturasClienteCODIGOFACTURA].AsInteger := aValue;
end;

function TDetallesFacturasClienteDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesFacturasClienteNUMCONCEPTO].AsInteger;
end;

procedure TDetallesFacturasClienteDataTableRules.SetNUMCONCEPTOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DetallesFacturasClienteNUMCONCEPTO].AsInteger := aValue;
end;

function TDetallesFacturasClienteDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesFacturasClientePOSICION].AsInteger;
end;

procedure TDetallesFacturasClienteDataTableRules.SetPOSICIONValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DetallesFacturasClientePOSICION].AsInteger := aValue;
end;

function TDetallesFacturasClienteDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_DetallesFacturasClienteTIPO].AsString;
end;

procedure TDetallesFacturasClienteDataTableRules.SetTIPOValue(const aValue: String);
begin
  DataTable.Fields[idx_DetallesFacturasClienteTIPO].AsString := aValue;
end;

function TDetallesFacturasClienteDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_DetallesFacturasClienteDESCRIPCION].AsString;
end;

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

function TDetallesFacturasClienteDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesFacturasClienteCANTIDAD].AsInteger;
end;

procedure TDetallesFacturasClienteDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DetallesFacturasClienteCANTIDAD].AsInteger := aValue;
end;

function TDetallesFacturasClienteDataTableRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesFacturasClienteIMPORTEUNIDAD].AsCurrency;
end;

procedure TDetallesFacturasClienteDataTableRules.SetIMPORTEUNIDADValue(const aValue: Currency);
begin
  DataTable.Fields[idx_DetallesFacturasClienteIMPORTEUNIDAD].AsCurrency := aValue;
end;

function TDetallesFacturasClienteDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesFacturasClienteIMPORTETOTAL].AsCurrency;
end;

procedure TDetallesFacturasClienteDataTableRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  DataTable.Fields[idx_DetallesFacturasClienteIMPORTETOTAL].AsCurrency := aValue;
end;

function TDetallesFacturasClienteDataTableRules.GetVISIBLEValue: String;
begin
  result := DataTable.Fields[idx_DetallesFacturasClienteVISIBLE].AsString;
end;

procedure TDetallesFacturasClienteDataTableRules.SetVISIBLEValue(const aValue: String);
begin
  DataTable.Fields[idx_DetallesFacturasClienteVISIBLE].AsString := aValue;
end;


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

destructor TInformeCabeceraFacturaClienteDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraFacturaClienteDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOEMPRESA].AsInteger;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGO].AsInteger;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteFECHAALTA].AsDateTime;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteUSUARIO].AsString;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetFECHAFACTURAValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteFECHAFACTURA].AsDateTime;
end;

procedure TInformeCabeceraFacturaClienteDataTableRules.SetFECHAFACTURAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraFacturaClienteFECHAFACTURA].AsDateTime := aValue;
end;

function TInformeCabeceraFacturaClienteDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteREFERENCIA].AsString;
end;

procedure TInformeCabeceraFacturaClienteDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraFacturaClienteREFERENCIA].AsString := aValue;
end;

function TInformeCabeceraFacturaClienteDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOCONTACTO].AsInteger;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetBASEIMPONIBLEValue: Currency;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteBASEIMPONIBLE].AsCurrency;
end;

procedure TInformeCabeceraFacturaClienteDataTableRules.SetBASEIMPONIBLEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_InformeCabeceraFacturaClienteBASEIMPONIBLE].AsCurrency := aValue;
end;

function TInformeCabeceraFacturaClienteDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteDESCUENTO].AsFloat;
end;

procedure TInformeCabeceraFacturaClienteDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeCabeceraFacturaClienteDESCUENTO].AsFloat := aValue;
end;

function TInformeCabeceraFacturaClienteDataTableRules.GetIMPORTEDESCUENTOValue: Currency;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTEDESCUENTO].AsCurrency;
end;

procedure TInformeCabeceraFacturaClienteDataTableRules.SetIMPORTEDESCUENTOValue(const aValue: Currency);
begin
  DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTEDESCUENTO].AsCurrency := aValue;
end;

function TInformeCabeceraFacturaClienteDataTableRules.GetIVAValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteIVA].AsFloat;
end;

procedure TInformeCabeceraFacturaClienteDataTableRules.SetIVAValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeCabeceraFacturaClienteIVA].AsFloat := aValue;
end;

function TInformeCabeceraFacturaClienteDataTableRules.GetIMPORTEIVAValue: Currency;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTEIVA].AsCurrency;
end;

procedure TInformeCabeceraFacturaClienteDataTableRules.SetIMPORTEIVAValue(const aValue: Currency);
begin
  DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTEIVA].AsCurrency := aValue;
end;

function TInformeCabeceraFacturaClienteDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTETOTAL].AsCurrency;
end;

procedure TInformeCabeceraFacturaClienteDataTableRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  DataTable.Fields[idx_InformeCabeceraFacturaClienteIMPORTETOTAL].AsCurrency := aValue;
end;

function TInformeCabeceraFacturaClienteDataTableRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_InformeCabeceraFacturaClienteOBSERVACIONES].AsString;
end;

procedure TInformeCabeceraFacturaClienteDataTableRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_InformeCabeceraFacturaClienteOBSERVACIONES].AsString := aValue.Text;
end;

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

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

function TInformeCabeceraFacturaClienteDataTableRules.GetNIFCIFValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteNIFCIF].AsString;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteNOMBRE].AsString;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetCALLEValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCALLE].AsString;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetPROVINCIAValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClientePROVINCIA].AsString;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetCODIGOPOSTALValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClienteCODIGOPOSTAL].AsString;
end;

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

function TInformeCabeceraFacturaClienteDataTableRules.GetPOBLACIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFacturaClientePOBLACION].AsString;
end;

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


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

destructor TInformeDetallesFacturaClienteDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeDetallesFacturaClienteDataTableRules.GetCODIGOFACTURAValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesFacturaClienteCODIGOFACTURA].AsInteger;
end;

procedure TInformeDetallesFacturaClienteDataTableRules.SetCODIGOFACTURAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_InformeDetallesFacturaClienteCODIGOFACTURA].AsInteger := aValue;
end;

function TInformeDetallesFacturaClienteDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesFacturaClienteNUMCONCEPTO].AsInteger;
end;

procedure TInformeDetallesFacturaClienteDataTableRules.SetNUMCONCEPTOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_InformeDetallesFacturaClienteNUMCONCEPTO].AsInteger := aValue;
end;

function TInformeDetallesFacturaClienteDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesFacturaClienteDESCRIPCION].AsString;
end;

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

function TInformeDetallesFacturaClienteDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesFacturaClienteCANTIDAD].AsInteger;
end;

procedure TInformeDetallesFacturaClienteDataTableRules.SetCANTIDADValue(const aValue: Integer);
begin
  DataTable.Fields[idx_InformeDetallesFacturaClienteCANTIDAD].AsInteger := aValue;
end;

function TInformeDetallesFacturaClienteDataTableRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := DataTable.Fields[idx_InformeDetallesFacturaClienteIMPORTEUNIDAD].AsCurrency;
end;

procedure TInformeDetallesFacturaClienteDataTableRules.SetIMPORTEUNIDADValue(const aValue: Currency);
begin
  DataTable.Fields[idx_InformeDetallesFacturaClienteIMPORTEUNIDAD].AsCurrency := aValue;
end;

function TInformeDetallesFacturaClienteDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_InformeDetallesFacturaClienteIMPORTETOTAL].AsCurrency;
end;

procedure TInformeDetallesFacturaClienteDataTableRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  DataTable.Fields[idx_InformeDetallesFacturaClienteIMPORTETOTAL].AsCurrency := aValue;
end;

function TInformeDetallesFacturaClienteDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesFacturaClienteTIPO].AsString;
end;

procedure TInformeDetallesFacturaClienteDataTableRules.SetTIPOValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeDetallesFacturaClienteTIPO].AsString := aValue;
end;

function TInformeDetallesFacturaClienteDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesFacturaClientePOSICION].AsInteger;
end;

procedure TInformeDetallesFacturaClienteDataTableRules.SetPOSICIONValue(const aValue: Integer);
begin
  DataTable.Fields[idx_InformeDetallesFacturaClientePOSICION].AsInteger := aValue;
end;


initialization
  RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules);
  RegisterDataTableRules(RID_DarReferenciaFactura, TDarReferenciaFacturaDataTableRules);
  RegisterDataTableRules(RID_FacturasCliente, TFacturasClienteDataTableRules);
  RegisterDataTableRules(RID_DetallesFacturasCliente, TDetallesFacturasClienteDataTableRules);
  RegisterDataTableRules(RID_InformeCabeceraFacturaCliente, TInformeCabeceraFacturaClienteDataTableRules);
  RegisterDataTableRules(RID_InformeDetallesFacturaCliente, TInformeDetallesFacturaClienteDataTableRules);

end.