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 = '{A285B0AB-87D7-4DEF-A9CD-32277B252AD3}';
  RID_DarReferenciaFactura = '{DE499F78-40DF-4FD4-A4AD-9917C3839CF6}';
  RID_FacturasCliente = '{FDE983C2-FAD9-42CA-9EB3-7637BFEE35FC}';
  RID_DetallesFacturasCliente = '{BA587E6A-85FC-4C23-84E0-9E270007DC0E}';
  RID_InformeCabeceraFacturaCliente = '{6020ECFE-20F4-4C4A-90DA-91FC83129BCA}';
  RID_InformeDetallesFacturaCliente = '{CF31DD5B-7701-45B9-858B-4E9188CBB41D}';
  RID_FacturasCliente_RefresDataSet = '{461F16F3-5850-4D61-AE22-F59EE932FE13}';

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

  { 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';
  fld_FacturasClienteCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO';
  fld_FacturasClienteREFERENCIA_MONTAJE_PRE = 'REFERENCIA_MONTAJE_PRE';
  fld_FacturasClienteREFERENCIA_MONTAJE_ALB = 'REFERENCIA_MONTAJE_ALB';

  { 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;
  idx_FacturasClienteCODIGOPRESUPUESTO = 22;
  idx_FacturasClienteREFERENCIA_MONTAJE_PRE = 23;
  idx_FacturasClienteREFERENCIA_MONTAJE_ALB = 24;

  { 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';
  fld_DetallesFacturasClienteVALORADO = 'VALORADO';

  { 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;
  idx_DetallesFacturasClienteVALORADO = 9;

  { 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';
  fld_InformeDetallesFacturaClienteVALORADO = 'VALORADO';

  { 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;
  idx_InformeDetallesFacturaClienteVALORADO = 8;

  { FacturasCliente_RefresDataSet fields }
  fld_FacturasCliente_RefresDataSetCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_FacturasCliente_RefresDataSetCODIGO = 'CODIGO';
  fld_FacturasCliente_RefresDataSetREFERENCIA = 'REFERENCIA';
  fld_FacturasCliente_RefresDataSetCODIGOALBARAN = 'CODIGOALBARAN';
  fld_FacturasCliente_RefresDataSetCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO';
  fld_FacturasCliente_RefresDataSetREFERENCIA_MONTAJE_PRE = 'REFERENCIA_MONTAJE_PRE';
  fld_FacturasCliente_RefresDataSetREFERENCIA_MONTAJE_ALB = 'REFERENCIA_MONTAJE_ALB';

  { FacturasCliente_RefresDataSet field indexes }
  idx_FacturasCliente_RefresDataSetCODIGOEMPRESA = 0;
  idx_FacturasCliente_RefresDataSetCODIGO = 1;
  idx_FacturasCliente_RefresDataSetREFERENCIA = 2;
  idx_FacturasCliente_RefresDataSetCODIGOALBARAN = 3;
  idx_FacturasCliente_RefresDataSetCODIGOPRESUPUESTO = 4;
  idx_FacturasCliente_RefresDataSetREFERENCIA_MONTAJE_PRE = 5;
  idx_FacturasCliente_RefresDataSetREFERENCIA_MONTAJE_ALB = 6;

type
  { IListaAnosFacturas }
  IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
  ['{75EF3F18-F607-4CFF-BC7D-1E87F60C7FA7}']
    { 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)
  ['{820C4AB6-D7BE-48F8-9492-AAAE4B8F2FFB}']
    { 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)
  ['{E09E5BFF-F954-4B93-B72D-27BF51BAFC30}']
    { 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);
    function GetCODIGOPRESUPUESTOValue: Integer;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
    function GetREFERENCIA_MONTAJE_PREValue: String;
    procedure SetREFERENCIA_MONTAJE_PREValue(const aValue: String);
    function GetREFERENCIA_MONTAJE_ALBValue: String;
    procedure SetREFERENCIA_MONTAJE_ALBValue(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 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;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIA_MONTAJE_PRE: String read GetREFERENCIA_MONTAJE_PREValue write SetREFERENCIA_MONTAJE_PREValue;
    property REFERENCIA_MONTAJE_ALB: String read GetREFERENCIA_MONTAJE_ALBValue write SetREFERENCIA_MONTAJE_ALBValue;
  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;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual;
    function GetREFERENCIA_MONTAJE_PREValue: String; virtual;
    procedure SetREFERENCIA_MONTAJE_PREValue(const aValue: String); virtual;
    function GetREFERENCIA_MONTAJE_ALBValue: String; virtual;
    procedure SetREFERENCIA_MONTAJE_ALBValue(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 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;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIA_MONTAJE_PRE: String read GetREFERENCIA_MONTAJE_PREValue write SetREFERENCIA_MONTAJE_PREValue;
    property REFERENCIA_MONTAJE_ALB: String read GetREFERENCIA_MONTAJE_ALBValue write SetREFERENCIA_MONTAJE_ALBValue;

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

  end;

  { IDetallesFacturasCliente }
  IDetallesFacturasCliente = interface(IDAStronglyTypedDataTable)
  ['{445CEEB8-C646-4381-A8C7-752B0333F541}']
    { 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);
    function GetVALORADOValue: String;
    procedure SetVALORADOValue(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;
    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
  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;
    function GetVALORADOValue: String; virtual;
    procedure SetVALORADOValue(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;
    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;

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

  end;

  { IInformeCabeceraFacturaCliente }
  IInformeCabeceraFacturaCliente = interface(IDAStronglyTypedDataTable)
  ['{F4740448-C665-4940-B7FE-8D59267A4009}']
    { 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)
  ['{37DE5A84-B4B0-441D-901F-771AB9E75857}']
    { 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);
    function GetVALORADOValue: String;
    procedure SetVALORADOValue(const aValue: String);


    { 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;
    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
  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;
    function GetVALORADOValue: String; virtual;
    procedure SetVALORADOValue(const aValue: String); 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;
    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;

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

  end;

  { IFacturasCliente_RefresDataSet }
  IFacturasCliente_RefresDataSet = interface(IDAStronglyTypedDataTable)
  ['{744885EC-D892-4FA3-B6FA-B9BF66CDEED2}']
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer);
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetCODIGOALBARANValue: Integer;
    procedure SetCODIGOALBARANValue(const aValue: Integer);
    function GetCODIGOPRESUPUESTOValue: Integer;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
    function GetREFERENCIA_MONTAJE_PREValue: String;
    procedure SetREFERENCIA_MONTAJE_PREValue(const aValue: String);
    function GetREFERENCIA_MONTAJE_ALBValue: String;
    procedure SetREFERENCIA_MONTAJE_ALBValue(const aValue: String);


    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIA_MONTAJE_PRE: String read GetREFERENCIA_MONTAJE_PREValue write SetREFERENCIA_MONTAJE_PREValue;
    property REFERENCIA_MONTAJE_ALB: String read GetREFERENCIA_MONTAJE_ALBValue write SetREFERENCIA_MONTAJE_ALBValue;
  end;

  { TFacturasCliente_RefresDataSetDataTableRules }
  TFacturasCliente_RefresDataSetDataTableRules = class(TDADataTableRules, IFacturasCliente_RefresDataSet)
  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 GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual;
    function GetREFERENCIA_MONTAJE_PREValue: String; virtual;
    procedure SetREFERENCIA_MONTAJE_PREValue(const aValue: String); virtual;
    function GetREFERENCIA_MONTAJE_ALBValue: String; virtual;
    procedure SetREFERENCIA_MONTAJE_ALBValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIA_MONTAJE_PRE: String read GetREFERENCIA_MONTAJE_PREValue write SetREFERENCIA_MONTAJE_PREValue;
    property REFERENCIA_MONTAJE_ALB: String read GetREFERENCIA_MONTAJE_ALBValue write SetREFERENCIA_MONTAJE_ALBValue;

  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;

function TFacturasClienteDataTableRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := DataTable.Fields[idx_FacturasClienteCODIGOPRESUPUESTO].AsInteger;
end;

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

function TFacturasClienteDataTableRules.GetREFERENCIA_MONTAJE_PREValue: String;
begin
  result := DataTable.Fields[idx_FacturasClienteREFERENCIA_MONTAJE_PRE].AsString;
end;

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

function TFacturasClienteDataTableRules.GetREFERENCIA_MONTAJE_ALBValue: String;
begin
  result := DataTable.Fields[idx_FacturasClienteREFERENCIA_MONTAJE_ALB].AsString;
end;

procedure TFacturasClienteDataTableRules.SetREFERENCIA_MONTAJE_ALBValue(const aValue: String);
begin
  DataTable.Fields[idx_FacturasClienteREFERENCIA_MONTAJE_ALB].AsString := 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;

function TDetallesFacturasClienteDataTableRules.GetVALORADOValue: String;
begin
  result := DataTable.Fields[idx_DetallesFacturasClienteVALORADO].AsString;
end;

procedure TDetallesFacturasClienteDataTableRules.SetVALORADOValue(const aValue: String);
begin
  DataTable.Fields[idx_DetallesFacturasClienteVALORADO].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;

function TInformeDetallesFacturaClienteDataTableRules.GetVALORADOValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesFacturaClienteVALORADO].AsString;
end;

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


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

destructor TFacturasCliente_RefresDataSetDataTableRules.Destroy;
begin
  inherited;
end;

function TFacturasCliente_RefresDataSetDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_FacturasCliente_RefresDataSetCODIGOEMPRESA].AsInteger;
end;

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

function TFacturasCliente_RefresDataSetDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_FacturasCliente_RefresDataSetCODIGO].AsInteger;
end;

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

function TFacturasCliente_RefresDataSetDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_FacturasCliente_RefresDataSetREFERENCIA].AsString;
end;

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

function TFacturasCliente_RefresDataSetDataTableRules.GetCODIGOALBARANValue: Integer;
begin
  result := DataTable.Fields[idx_FacturasCliente_RefresDataSetCODIGOALBARAN].AsInteger;
end;

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

function TFacturasCliente_RefresDataSetDataTableRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := DataTable.Fields[idx_FacturasCliente_RefresDataSetCODIGOPRESUPUESTO].AsInteger;
end;

procedure TFacturasCliente_RefresDataSetDataTableRules.SetCODIGOPRESUPUESTOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_FacturasCliente_RefresDataSetCODIGOPRESUPUESTO].AsInteger := aValue;
end;

function TFacturasCliente_RefresDataSetDataTableRules.GetREFERENCIA_MONTAJE_PREValue: String;
begin
  result := DataTable.Fields[idx_FacturasCliente_RefresDataSetREFERENCIA_MONTAJE_PRE].AsString;
end;

procedure TFacturasCliente_RefresDataSetDataTableRules.SetREFERENCIA_MONTAJE_PREValue(const aValue: String);
begin
  DataTable.Fields[idx_FacturasCliente_RefresDataSetREFERENCIA_MONTAJE_PRE].AsString := aValue;
end;

function TFacturasCliente_RefresDataSetDataTableRules.GetREFERENCIA_MONTAJE_ALBValue: String;
begin
  result := DataTable.Fields[idx_FacturasCliente_RefresDataSetREFERENCIA_MONTAJE_ALB].AsString;
end;

procedure TFacturasCliente_RefresDataSetDataTableRules.SetREFERENCIA_MONTAJE_ALBValue(const aValue: String);
begin
  DataTable.Fields[idx_FacturasCliente_RefresDataSetREFERENCIA_MONTAJE_ALB].AsString := 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);
  RegisterDataTableRules(RID_FacturasCliente_RefresDataSet, TFacturasCliente_RefresDataSetDataTableRules);

end.