unit schAlbaranesClienteClient_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_ListaAnosAlbaranes = '{917C4039-2B93-4CA7-A441-D0352569F345}';
  RID_DarReferenciaAlbaran = '{C11AC197-E7EE-45B7-9496-D6F569F9A723}';
  RID_AlbaranCliente = '{7677D1DA-BBBF-4FE6-99C5-785BFC601814}';
  RID_AlbaranDePresupuesto = '{11FBB81A-08F0-454F-9F82-2D38B9283A2C}';
  RID_DetallesAlbaranCliente = '{0E82DB60-0D2C-4BD7-B746-A3FA7B226C9C}';
  RID_AlbaranCliente_RefreshDataset = '{1CF237D2-D61D-42F7-9977-29C60F03C4A7}';
  RID_InformeCabeceraAlbaranPago = '{7C164B21-4993-4739-8B3F-1B5CC997D24A}';
  RID_InformeDetallesAlbaranPago = '{A9FA5BBE-85CE-4652-9E5C-5F9BF97A3A55}';
  RID_DarSumaImportes = '{1246AA6F-FFBC-422B-90E4-DE85DA400D86}';

  { Data table names }
  nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
  nme_DarReferenciaAlbaran = 'DarReferenciaAlbaran';
  nme_AlbaranCliente = 'AlbaranCliente';
  nme_AlbaranDePresupuesto = 'AlbaranDePresupuesto';
  nme_DetallesAlbaranCliente = 'DetallesAlbaranCliente';
  nme_AlbaranCliente_RefreshDataset = 'AlbaranCliente_RefreshDataset';
  nme_InformeCabeceraAlbaranPago = 'InformeCabeceraAlbaranPago';
  nme_InformeDetallesAlbaranPago = 'InformeDetallesAlbaranPago';
  nme_DarSumaImportes = 'DarSumaImportes';

  { ListaAnosAlbaranes fields }
  fld_ListaAnosAlbaranesANO = 'ANO';

  { ListaAnosAlbaranes field indexes }
  idx_ListaAnosAlbaranesANO = 0;

  { DarReferenciaAlbaran fields }
  fld_DarReferenciaAlbaranREFERENCIA = 'REFERENCIA';

  { DarReferenciaAlbaran field indexes }
  idx_DarReferenciaAlbaranREFERENCIA = 0;

  { AlbaranCliente fields }
  fld_AlbaranClienteCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_AlbaranClienteCODIGO = 'CODIGO';
  fld_AlbaranClienteFECHAALTA = 'FECHAALTA';
  fld_AlbaranClienteUSUARIO = 'USUARIO';
  fld_AlbaranClienteREFERENCIA = 'REFERENCIA';
  fld_AlbaranClienteCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_AlbaranClienteNOMBRE = 'NOMBRE';
  fld_AlbaranClienteFECHAALBARAN = 'FECHAALBARAN';
  fld_AlbaranClienteSITUACION = 'SITUACION';
  fld_AlbaranClienteFECHAPAGO = 'FECHAPAGO';
  fld_AlbaranClienteCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO';
  fld_AlbaranClienteBASEIMPONIBLE = 'BASEIMPONIBLE';
  fld_AlbaranClienteDESCUENTO = 'DESCUENTO';
  fld_AlbaranClienteIMPORTEDESCUENTO = 'IMPORTEDESCUENTO';
  fld_AlbaranClienteIVA = 'IVA';
  fld_AlbaranClienteIMPORTEIVA = 'IMPORTEIVA';
  fld_AlbaranClienteIMPORTETOTAL = 'IMPORTETOTAL';
  fld_AlbaranClienteOBSERVACIONES = 'OBSERVACIONES';
  fld_AlbaranClienteFORMAPAGO = 'FORMAPAGO';
  fld_AlbaranClienteREFERENCIAPRESUPUESTO = 'REFERENCIAPRESUPUESTO';

  { AlbaranCliente field indexes }
  idx_AlbaranClienteCODIGOEMPRESA = 0;
  idx_AlbaranClienteCODIGO = 1;
  idx_AlbaranClienteFECHAALTA = 2;
  idx_AlbaranClienteUSUARIO = 3;
  idx_AlbaranClienteREFERENCIA = 4;
  idx_AlbaranClienteCODIGOCONTACTO = 5;
  idx_AlbaranClienteNOMBRE = 6;
  idx_AlbaranClienteFECHAALBARAN = 7;
  idx_AlbaranClienteSITUACION = 8;
  idx_AlbaranClienteFECHAPAGO = 9;
  idx_AlbaranClienteCODIGOPRESUPUESTO = 10;
  idx_AlbaranClienteBASEIMPONIBLE = 11;
  idx_AlbaranClienteDESCUENTO = 12;
  idx_AlbaranClienteIMPORTEDESCUENTO = 13;
  idx_AlbaranClienteIVA = 14;
  idx_AlbaranClienteIMPORTEIVA = 15;
  idx_AlbaranClienteIMPORTETOTAL = 16;
  idx_AlbaranClienteOBSERVACIONES = 17;
  idx_AlbaranClienteFORMAPAGO = 18;
  idx_AlbaranClienteREFERENCIAPRESUPUESTO = 19;

  { AlbaranDePresupuesto fields }
  fld_AlbaranDePresupuestoCODIGO = 'CODIGO';

  { AlbaranDePresupuesto field indexes }
  idx_AlbaranDePresupuestoCODIGO = 0;

  { DetallesAlbaranCliente fields }
  fld_DetallesAlbaranClienteCODIGOALBARAN = 'CODIGOALBARAN';
  fld_DetallesAlbaranClienteNUMCONCEPTO = 'NUMCONCEPTO';
  fld_DetallesAlbaranClientePOSICION = 'POSICION';
  fld_DetallesAlbaranClienteTIPO = 'TIPO';
  fld_DetallesAlbaranClienteDESCRIPCION = 'DESCRIPCION';
  fld_DetallesAlbaranClienteCANTIDAD = 'CANTIDAD';
  fld_DetallesAlbaranClienteIMPORTEUNIDAD = 'IMPORTEUNIDAD';
  fld_DetallesAlbaranClienteIMPORTETOTAL = 'IMPORTETOTAL';
  fld_DetallesAlbaranClienteVISIBLE = 'VISIBLE';
  fld_DetallesAlbaranClientePUNTOS = 'PUNTOS';
  fld_DetallesAlbaranClienteIMPORTEPUNTOS = 'IMPORTEPUNTOS';
  fld_DetallesAlbaranClienteVALORADO = 'VALORADO';

  { DetallesAlbaranCliente field indexes }
  idx_DetallesAlbaranClienteCODIGOALBARAN = 0;
  idx_DetallesAlbaranClienteNUMCONCEPTO = 1;
  idx_DetallesAlbaranClientePOSICION = 2;
  idx_DetallesAlbaranClienteTIPO = 3;
  idx_DetallesAlbaranClienteDESCRIPCION = 4;
  idx_DetallesAlbaranClienteCANTIDAD = 5;
  idx_DetallesAlbaranClienteIMPORTEUNIDAD = 6;
  idx_DetallesAlbaranClienteIMPORTETOTAL = 7;
  idx_DetallesAlbaranClienteVISIBLE = 8;
  idx_DetallesAlbaranClientePUNTOS = 9;
  idx_DetallesAlbaranClienteIMPORTEPUNTOS = 10;
  idx_DetallesAlbaranClienteVALORADO = 11;

  { AlbaranCliente_RefreshDataset fields }
  fld_AlbaranCliente_RefreshDatasetCODIGO = 'CODIGO';
  fld_AlbaranCliente_RefreshDatasetNOMBRE = 'NOMBRE';
  fld_AlbaranCliente_RefreshDatasetSITUACION = 'SITUACION';
  fld_AlbaranCliente_RefreshDatasetREFERENCIAPRESUPUESTO = 'REFERENCIAPRESUPUESTO';

  { AlbaranCliente_RefreshDataset field indexes }
  idx_AlbaranCliente_RefreshDatasetCODIGO = 0;
  idx_AlbaranCliente_RefreshDatasetNOMBRE = 1;
  idx_AlbaranCliente_RefreshDatasetSITUACION = 2;
  idx_AlbaranCliente_RefreshDatasetREFERENCIAPRESUPUESTO = 3;

  { InformeCabeceraAlbaranPago fields }
  fld_InformeCabeceraAlbaranPagoCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_InformeCabeceraAlbaranPagoCODIGO = 'CODIGO';
  fld_InformeCabeceraAlbaranPagoFECHAALTA = 'FECHAALTA';
  fld_InformeCabeceraAlbaranPagoUSUARIO = 'USUARIO';
  fld_InformeCabeceraAlbaranPagoREFERENCIA = 'REFERENCIA';
  fld_InformeCabeceraAlbaranPagoCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_InformeCabeceraAlbaranPagoFECHAALBARAN = 'FECHAALBARAN';
  fld_InformeCabeceraAlbaranPagoSITUACION = 'SITUACION';
  fld_InformeCabeceraAlbaranPagoFECHAPAGO = 'FECHAPAGO';
  fld_InformeCabeceraAlbaranPagoBASEIMPONIBLE = 'BASEIMPONIBLE';
  fld_InformeCabeceraAlbaranPagoDESCUENTO = 'DESCUENTO';
  fld_InformeCabeceraAlbaranPagoIMPORTEDESCUENTO = 'IMPORTEDESCUENTO';
  fld_InformeCabeceraAlbaranPagoIVA = 'IVA';
  fld_InformeCabeceraAlbaranPagoIMPORTEIVA = 'IMPORTEIVA';
  fld_InformeCabeceraAlbaranPagoIMPORTETOTAL = 'IMPORTETOTAL';
  fld_InformeCabeceraAlbaranPagoOBSERVACIONES = 'OBSERVACIONES';
  fld_InformeCabeceraAlbaranPagoFORMAPAGO = 'FORMAPAGO';
  fld_InformeCabeceraAlbaranPagoCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO';
  fld_InformeCabeceraAlbaranPagoREFERENCIAPRE = 'REFERENCIAPRE';
  fld_InformeCabeceraAlbaranPagoNIFCIF = 'NIFCIF';
  fld_InformeCabeceraAlbaranPagoNOMBRE = 'NOMBRE';
  fld_InformeCabeceraAlbaranPagoCALLE = 'CALLE';
  fld_InformeCabeceraAlbaranPagoCODIGOPOSTAL = 'CODIGOPOSTAL';
  fld_InformeCabeceraAlbaranPagoPOBLACION = 'POBLACION';
  fld_InformeCabeceraAlbaranPagoTELEFONO1 = 'TELEFONO1';
  fld_InformeCabeceraAlbaranPagoTELEFONO2 = 'TELEFONO2';
  fld_InformeCabeceraAlbaranPagoMOVIL = 'MOVIL';

  { InformeCabeceraAlbaranPago field indexes }
  idx_InformeCabeceraAlbaranPagoCODIGOEMPRESA = 0;
  idx_InformeCabeceraAlbaranPagoCODIGO = 1;
  idx_InformeCabeceraAlbaranPagoFECHAALTA = 2;
  idx_InformeCabeceraAlbaranPagoUSUARIO = 3;
  idx_InformeCabeceraAlbaranPagoREFERENCIA = 4;
  idx_InformeCabeceraAlbaranPagoCODIGOCONTACTO = 5;
  idx_InformeCabeceraAlbaranPagoFECHAALBARAN = 6;
  idx_InformeCabeceraAlbaranPagoSITUACION = 7;
  idx_InformeCabeceraAlbaranPagoFECHAPAGO = 8;
  idx_InformeCabeceraAlbaranPagoBASEIMPONIBLE = 9;
  idx_InformeCabeceraAlbaranPagoDESCUENTO = 10;
  idx_InformeCabeceraAlbaranPagoIMPORTEDESCUENTO = 11;
  idx_InformeCabeceraAlbaranPagoIVA = 12;
  idx_InformeCabeceraAlbaranPagoIMPORTEIVA = 13;
  idx_InformeCabeceraAlbaranPagoIMPORTETOTAL = 14;
  idx_InformeCabeceraAlbaranPagoOBSERVACIONES = 15;
  idx_InformeCabeceraAlbaranPagoFORMAPAGO = 16;
  idx_InformeCabeceraAlbaranPagoCODIGOPRESUPUESTO = 17;
  idx_InformeCabeceraAlbaranPagoREFERENCIAPRE = 18;
  idx_InformeCabeceraAlbaranPagoNIFCIF = 19;
  idx_InformeCabeceraAlbaranPagoNOMBRE = 20;
  idx_InformeCabeceraAlbaranPagoCALLE = 21;
  idx_InformeCabeceraAlbaranPagoCODIGOPOSTAL = 22;
  idx_InformeCabeceraAlbaranPagoPOBLACION = 23;
  idx_InformeCabeceraAlbaranPagoTELEFONO1 = 24;
  idx_InformeCabeceraAlbaranPagoTELEFONO2 = 25;
  idx_InformeCabeceraAlbaranPagoMOVIL = 26;

  { InformeDetallesAlbaranPago fields }
  fld_InformeDetallesAlbaranPagoCODIGOALBARAN = 'CODIGOALBARAN';
  fld_InformeDetallesAlbaranPagoNUMCONCEPTO = 'NUMCONCEPTO';
  fld_InformeDetallesAlbaranPagoDESCRIPCION = 'DESCRIPCION';
  fld_InformeDetallesAlbaranPagoCANTIDAD = 'CANTIDAD';
  fld_InformeDetallesAlbaranPagoIMPORTEUNIDAD = 'IMPORTEUNIDAD';
  fld_InformeDetallesAlbaranPagoIMPORTETOTAL = 'IMPORTETOTAL';
  fld_InformeDetallesAlbaranPagoTIPO = 'TIPO';
  fld_InformeDetallesAlbaranPagoPOSICION = 'POSICION';
  fld_InformeDetallesAlbaranPagoVALORADO = 'VALORADO';

  { InformeDetallesAlbaranPago field indexes }
  idx_InformeDetallesAlbaranPagoCODIGOALBARAN = 0;
  idx_InformeDetallesAlbaranPagoNUMCONCEPTO = 1;
  idx_InformeDetallesAlbaranPagoDESCRIPCION = 2;
  idx_InformeDetallesAlbaranPagoCANTIDAD = 3;
  idx_InformeDetallesAlbaranPagoIMPORTEUNIDAD = 4;
  idx_InformeDetallesAlbaranPagoIMPORTETOTAL = 5;
  idx_InformeDetallesAlbaranPagoTIPO = 6;
  idx_InformeDetallesAlbaranPagoPOSICION = 7;
  idx_InformeDetallesAlbaranPagoVALORADO = 8;

  { DarSumaImportes fields }
  fld_DarSumaImportesBASEIMPONIBLE = 'BASEIMPONIBLE';
  fld_DarSumaImportesIMPORTEIVA = 'IMPORTEIVA';
  fld_DarSumaImportesIMPORTETOTAL = 'IMPORTETOTAL';

  { DarSumaImportes field indexes }
  idx_DarSumaImportesBASEIMPONIBLE = 0;
  idx_DarSumaImportesIMPORTEIVA = 1;
  idx_DarSumaImportesIMPORTETOTAL = 2;

type
  { IListaAnosAlbaranes }
  IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
  ['{D0E73EE9-26F5-4A80-97A1-D26923F15F21}']
    { Property getters and setters }
    function GetANOValue: String;
    procedure SetANOValue(const aValue: String);


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

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

  { IDarReferenciaAlbaran }
  IDarReferenciaAlbaran = interface(IDAStronglyTypedDataTable)
  ['{B552B707-0E8A-4134-94E4-1608D2F8AE7E}']
    { Property getters and setters }
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);


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

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

  { IAlbaranCliente }
  IAlbaranCliente = interface(IDAStronglyTypedDataTable)
  ['{93E66932-9E6D-463A-B890-D22380A55B15}']
    { 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 GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetFECHAALBARANValue: DateTime;
    procedure SetFECHAALBARANValue(const aValue: DateTime);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetFECHAPAGOValue: DateTime;
    procedure SetFECHAPAGOValue(const aValue: DateTime);
    function GetCODIGOPRESUPUESTOValue: Integer;
    procedure SetCODIGOPRESUPUESTOValue(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 GetREFERENCIAPRESUPUESTOValue: String;
    procedure SetREFERENCIAPRESUPUESTOValue(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 REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property FECHAALBARAN: DateTime read GetFECHAALBARANValue write SetFECHAALBARANValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    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 REFERENCIAPRESUPUESTO: String read GetREFERENCIAPRESUPUESTOValue write SetREFERENCIAPRESUPUESTOValue;
  end;

  { TAlbaranClienteDataTableRules }
  TAlbaranClienteDataTableRules = class(TDADataTableRules, IAlbaranCliente)
  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 GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetFECHAALBARANValue: DateTime; virtual;
    procedure SetFECHAALBARANValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(const aValue: DateTime); virtual;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(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 GetREFERENCIAPRESUPUESTOValue: String; virtual;
    procedure SetREFERENCIAPRESUPUESTOValue(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 REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property FECHAALBARAN: DateTime read GetFECHAALBARANValue write SetFECHAALBARANValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    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 REFERENCIAPRESUPUESTO: String read GetREFERENCIAPRESUPUESTOValue write SetREFERENCIAPRESUPUESTOValue;

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

  end;

  { IAlbaranDePresupuesto }
  IAlbaranDePresupuesto = interface(IDAStronglyTypedDataTable)
  ['{EC189EA9-7AED-4BA8-8453-8BA1C887FA89}']
    { Property getters and setters }
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);


    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
  end;

  { TAlbaranDePresupuestoDataTableRules }
  TAlbaranDePresupuestoDataTableRules = class(TDADataTableRules, IAlbaranDePresupuesto)
  private
  protected
    { Property getters and setters }
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;

    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;

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

  end;

  { IDetallesAlbaranCliente }
  IDetallesAlbaranCliente = interface(IDAStronglyTypedDataTable)
  ['{A3DBA442-E018-4366-BEA9-CBDCC2638642}']
    { Property getters and setters }
    function GetCODIGOALBARANValue: Integer;
    procedure SetCODIGOALBARANValue(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 GetPUNTOSValue: Integer;
    procedure SetPUNTOSValue(const aValue: Integer);
    function GetIMPORTEPUNTOSValue: Currency;
    procedure SetIMPORTEPUNTOSValue(const aValue: Currency);
    function GetVALORADOValue: String;
    procedure SetVALORADOValue(const aValue: String);


    { Properties }
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    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 PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
    property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;
  end;

  { TDetallesAlbaranClienteDataTableRules }
  TDetallesAlbaranClienteDataTableRules = class(TDADataTableRules, IDetallesAlbaranCliente)
  private
  protected
    { Property getters and setters }
    function GetCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(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 GetPUNTOSValue: Integer; virtual;
    procedure SetPUNTOSValue(const aValue: Integer); virtual;
    function GetIMPORTEPUNTOSValue: Currency; virtual;
    procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual;
    function GetVALORADOValue: String; virtual;
    procedure SetVALORADOValue(const aValue: String); virtual;

    { Properties }
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    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 PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue;
    property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue;
    property VALORADO: String read GetVALORADOValue write SetVALORADOValue;

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

  end;

  { IAlbaranCliente_RefreshDataset }
  IAlbaranCliente_RefreshDataset = interface(IDAStronglyTypedDataTable)
  ['{9264A499-6FFC-4612-8A7C-4A718EED39B8}']
    { Property getters and setters }
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetREFERENCIAPRESUPUESTOValue: String;
    procedure SetREFERENCIAPRESUPUESTOValue(const aValue: String);


    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property REFERENCIAPRESUPUESTO: String read GetREFERENCIAPRESUPUESTOValue write SetREFERENCIAPRESUPUESTOValue;
  end;

  { TAlbaranCliente_RefreshDatasetDataTableRules }
  TAlbaranCliente_RefreshDatasetDataTableRules = class(TDADataTableRules, IAlbaranCliente_RefreshDataset)
  private
  protected
    { Property getters and setters }
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetREFERENCIAPRESUPUESTOValue: String; virtual;
    procedure SetREFERENCIAPRESUPUESTOValue(const aValue: String); virtual;

    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property REFERENCIAPRESUPUESTO: String read GetREFERENCIAPRESUPUESTOValue write SetREFERENCIAPRESUPUESTOValue;

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

  end;

  { IInformeCabeceraAlbaranPago }
  IInformeCabeceraAlbaranPago = interface(IDAStronglyTypedDataTable)
  ['{D89475DD-59B9-4905-A028-189252D573D6}']
    { 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 GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetFECHAALBARANValue: DateTime;
    procedure SetFECHAALBARANValue(const aValue: DateTime);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetFECHAPAGOValue: DateTime;
    procedure SetFECHAPAGOValue(const aValue: DateTime);
    function GetBASEIMPONIBLEValue: Float;
    procedure SetBASEIMPONIBLEValue(const aValue: Float);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetIMPORTEDESCUENTOValue: Float;
    procedure SetIMPORTEDESCUENTOValue(const aValue: Float);
    function GetIVAValue: Float;
    procedure SetIVAValue(const aValue: Float);
    function GetIMPORTEIVAValue: Float;
    procedure SetIMPORTEIVAValue(const aValue: Float);
    function GetIMPORTETOTALValue: Float;
    procedure SetIMPORTETOTALValue(const aValue: Float);
    function GetOBSERVACIONESValue: IROStrings;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings);
    function GetFORMAPAGOValue: IROStrings;
    procedure SetFORMAPAGOValue(const aValue: IROStrings);
    function GetCODIGOPRESUPUESTOValue: Integer;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
    function GetREFERENCIAPREValue: String;
    procedure SetREFERENCIAPREValue(const aValue: String);
    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 GetCODIGOPOSTALValue: String;
    procedure SetCODIGOPOSTALValue(const aValue: String);
    function GetPOBLACIONValue: String;
    procedure SetPOBLACIONValue(const aValue: String);
    function GetTELEFONO1Value: String;
    procedure SetTELEFONO1Value(const aValue: String);
    function GetTELEFONO2Value: String;
    procedure SetTELEFONO2Value(const aValue: String);
    function GetMOVILValue: String;
    procedure SetMOVILValue(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 REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property FECHAALBARAN: DateTime read GetFECHAALBARANValue write SetFECHAALBARANValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property BASEIMPONIBLE: Float read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property IMPORTEDESCUENTO: Float read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue;
    property IVA: Float read GetIVAValue write SetIVAValue;
    property IMPORTEIVA: Float read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIAPRE: String read GetREFERENCIAPREValue write SetREFERENCIAPREValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property TELEFONO1: String read GetTELEFONO1Value write SetTELEFONO1Value;
    property TELEFONO2: String read GetTELEFONO2Value write SetTELEFONO2Value;
    property MOVIL: String read GetMOVILValue write SetMOVILValue;
  end;

  { TInformeCabeceraAlbaranPagoDataTableRules }
  TInformeCabeceraAlbaranPagoDataTableRules = class(TDADataTableRules, IInformeCabeceraAlbaranPago)
  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 GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetFECHAALBARANValue: DateTime; virtual;
    procedure SetFECHAALBARANValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHAPAGOValue: DateTime; virtual;
    procedure SetFECHAPAGOValue(const aValue: DateTime); virtual;
    function GetBASEIMPONIBLEValue: Float; virtual;
    procedure SetBASEIMPONIBLEValue(const aValue: Float); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetIMPORTEDESCUENTOValue: Float; virtual;
    procedure SetIMPORTEDESCUENTOValue(const aValue: Float); virtual;
    function GetIVAValue: Float; virtual;
    procedure SetIVAValue(const aValue: Float); virtual;
    function GetIMPORTEIVAValue: Float; virtual;
    procedure SetIMPORTEIVAValue(const aValue: Float); virtual;
    function GetIMPORTETOTALValue: Float; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Float); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual;
    function GetREFERENCIAPREValue: String; virtual;
    procedure SetREFERENCIAPREValue(const aValue: String); 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 GetCODIGOPOSTALValue: String; virtual;
    procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetTELEFONO1Value: String; virtual;
    procedure SetTELEFONO1Value(const aValue: String); virtual;
    function GetTELEFONO2Value: String; virtual;
    procedure SetTELEFONO2Value(const aValue: String); virtual;
    function GetMOVILValue: String; virtual;
    procedure SetMOVILValue(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 REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property FECHAALBARAN: DateTime read GetFECHAALBARANValue write SetFECHAALBARANValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHAPAGO: DateTime read GetFECHAPAGOValue write SetFECHAPAGOValue;
    property BASEIMPONIBLE: Float read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property IMPORTEDESCUENTO: Float read GetIMPORTEDESCUENTOValue write SetIMPORTEDESCUENTOValue;
    property IVA: Float read GetIVAValue write SetIVAValue;
    property IMPORTEIVA: Float read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIAPRE: String read GetREFERENCIAPREValue write SetREFERENCIAPREValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property TELEFONO1: String read GetTELEFONO1Value write SetTELEFONO1Value;
    property TELEFONO2: String read GetTELEFONO2Value write SetTELEFONO2Value;
    property MOVIL: String read GetMOVILValue write SetMOVILValue;

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

  end;

  { IInformeDetallesAlbaranPago }
  IInformeDetallesAlbaranPago = interface(IDAStronglyTypedDataTable)
  ['{5DDBF241-3C71-4B5A-848C-31D3C1984727}']
    { Property getters and setters }
    function GetCODIGOALBARANValue: Integer;
    procedure SetCODIGOALBARANValue(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: Float;
    procedure SetIMPORTEUNIDADValue(const aValue: Float);
    function GetIMPORTETOTALValue: Float;
    procedure SetIMPORTETOTALValue(const aValue: Float);
    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 CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Float 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;

  { TInformeDetallesAlbaranPagoDataTableRules }
  TInformeDetallesAlbaranPagoDataTableRules = class(TDADataTableRules, IInformeDetallesAlbaranPago)
  private
  protected
    { Property getters and setters }
    function GetCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(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: Float; virtual;
    procedure SetIMPORTEUNIDADValue(const aValue: Float); virtual;
    function GetIMPORTETOTALValue: Float; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Float); 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 CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Float 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;

  {
  Suma de todos los importes entre un intervalo de fechas
  }
  { IDarSumaImportes }
  IDarSumaImportes = interface(IDAStronglyTypedDataTable)
  ['{5DF4D82E-2806-4F9F-BC96-46922630BD69}']
    { Property getters and setters }
    function GetBASEIMPONIBLEValue: Float;
    procedure SetBASEIMPONIBLEValue(const aValue: Float);
    function GetIMPORTEIVAValue: Float;
    procedure SetIMPORTEIVAValue(const aValue: Float);
    function GetIMPORTETOTALValue: Float;
    procedure SetIMPORTETOTALValue(const aValue: Float);


    { Properties }
    property BASEIMPONIBLE: Float read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property IMPORTEIVA: Float read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
  end;

  { TDarSumaImportesDataTableRules }
  TDarSumaImportesDataTableRules = class(TDADataTableRules, IDarSumaImportes)
  private
  protected
    { Property getters and setters }
    function GetBASEIMPONIBLEValue: Float; virtual;
    procedure SetBASEIMPONIBLEValue(const aValue: Float); virtual;
    function GetIMPORTEIVAValue: Float; virtual;
    procedure SetIMPORTEIVAValue(const aValue: Float); virtual;
    function GetIMPORTETOTALValue: Float; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Float); virtual;

    { Properties }
    property BASEIMPONIBLE: Float read GetBASEIMPONIBLEValue write SetBASEIMPONIBLEValue;
    property IMPORTEIVA: Float read GetIMPORTEIVAValue write SetIMPORTEIVAValue;
    property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;

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

  end;

implementation

uses Variants;

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

destructor TListaAnosAlbaranesDataTableRules.Destroy;
begin
  inherited;
end;

function TListaAnosAlbaranesDataTableRules.GetANOValue: String;
begin
  result := DataTable.Fields[idx_ListaAnosAlbaranesANO].AsString;
end;

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


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

destructor TDarReferenciaAlbaranDataTableRules.Destroy;
begin
  inherited;
end;

function TDarReferenciaAlbaranDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_DarReferenciaAlbaranREFERENCIA].AsString;
end;

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


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

destructor TAlbaranClienteDataTableRules.Destroy;
begin
  inherited;
end;

function TAlbaranClienteDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_AlbaranClienteCODIGOEMPRESA].AsInteger;
end;

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

function TAlbaranClienteDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_AlbaranClienteCODIGO].AsInteger;
end;

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

function TAlbaranClienteDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_AlbaranClienteFECHAALTA].AsDateTime;
end;

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

function TAlbaranClienteDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_AlbaranClienteUSUARIO].AsString;
end;

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

function TAlbaranClienteDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_AlbaranClienteREFERENCIA].AsString;
end;

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

function TAlbaranClienteDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_AlbaranClienteCODIGOCONTACTO].AsInteger;
end;

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

function TAlbaranClienteDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_AlbaranClienteNOMBRE].AsString;
end;

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

function TAlbaranClienteDataTableRules.GetFECHAALBARANValue: DateTime;
begin
  result := DataTable.Fields[idx_AlbaranClienteFECHAALBARAN].AsDateTime;
end;

procedure TAlbaranClienteDataTableRules.SetFECHAALBARANValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_AlbaranClienteFECHAALBARAN].AsDateTime := aValue;
end;

function TAlbaranClienteDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_AlbaranClienteSITUACION].AsString;
end;

procedure TAlbaranClienteDataTableRules.SetSITUACIONValue(const aValue: String);
begin
  DataTable.Fields[idx_AlbaranClienteSITUACION].AsString := aValue;
end;

function TAlbaranClienteDataTableRules.GetFECHAPAGOValue: DateTime;
begin
  result := DataTable.Fields[idx_AlbaranClienteFECHAPAGO].AsDateTime;
end;

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

function TAlbaranClienteDataTableRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := DataTable.Fields[idx_AlbaranClienteCODIGOPRESUPUESTO].AsInteger;
end;

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

function TAlbaranClienteDataTableRules.GetBASEIMPONIBLEValue: Currency;
begin
  result := DataTable.Fields[idx_AlbaranClienteBASEIMPONIBLE].AsCurrency;
end;

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

function TAlbaranClienteDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_AlbaranClienteDESCUENTO].AsFloat;
end;

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

function TAlbaranClienteDataTableRules.GetIMPORTEDESCUENTOValue: Currency;
begin
  result := DataTable.Fields[idx_AlbaranClienteIMPORTEDESCUENTO].AsCurrency;
end;

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

function TAlbaranClienteDataTableRules.GetIVAValue: Float;
begin
  result := DataTable.Fields[idx_AlbaranClienteIVA].AsFloat;
end;

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

function TAlbaranClienteDataTableRules.GetIMPORTEIVAValue: Currency;
begin
  result := DataTable.Fields[idx_AlbaranClienteIMPORTEIVA].AsCurrency;
end;

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

function TAlbaranClienteDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_AlbaranClienteIMPORTETOTAL].AsCurrency;
end;

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

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

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

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

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

function TAlbaranClienteDataTableRules.GetREFERENCIAPRESUPUESTOValue: String;
begin
  result := DataTable.Fields[idx_AlbaranClienteREFERENCIAPRESUPUESTO].AsString;
end;

procedure TAlbaranClienteDataTableRules.SetREFERENCIAPRESUPUESTOValue(const aValue: String);
begin
  DataTable.Fields[idx_AlbaranClienteREFERENCIAPRESUPUESTO].AsString := aValue;
end;


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

destructor TAlbaranDePresupuestoDataTableRules.Destroy;
begin
  inherited;
end;

function TAlbaranDePresupuestoDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_AlbaranDePresupuestoCODIGO].AsInteger;
end;

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


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

destructor TDetallesAlbaranClienteDataTableRules.Destroy;
begin
  inherited;
end;

function TDetallesAlbaranClienteDataTableRules.GetCODIGOALBARANValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteCODIGOALBARAN].AsInteger;
end;

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

function TDetallesAlbaranClienteDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteNUMCONCEPTO].AsInteger;
end;

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

function TDetallesAlbaranClienteDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClientePOSICION].AsInteger;
end;

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

function TDetallesAlbaranClienteDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteTIPO].AsString;
end;

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

function TDetallesAlbaranClienteDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteDESCRIPCION].AsString;
end;

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

function TDetallesAlbaranClienteDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteCANTIDAD].AsInteger;
end;

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

function TDetallesAlbaranClienteDataTableRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteIMPORTEUNIDAD].AsCurrency;
end;

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

function TDetallesAlbaranClienteDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteIMPORTETOTAL].AsCurrency;
end;

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

function TDetallesAlbaranClienteDataTableRules.GetVISIBLEValue: String;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteVISIBLE].AsString;
end;

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

function TDetallesAlbaranClienteDataTableRules.GetPUNTOSValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClientePUNTOS].AsInteger;
end;

procedure TDetallesAlbaranClienteDataTableRules.SetPUNTOSValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DetallesAlbaranClientePUNTOS].AsInteger := aValue;
end;

function TDetallesAlbaranClienteDataTableRules.GetIMPORTEPUNTOSValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteIMPORTEPUNTOS].AsCurrency;
end;

procedure TDetallesAlbaranClienteDataTableRules.SetIMPORTEPUNTOSValue(const aValue: Currency);
begin
  DataTable.Fields[idx_DetallesAlbaranClienteIMPORTEPUNTOS].AsCurrency := aValue;
end;

function TDetallesAlbaranClienteDataTableRules.GetVALORADOValue: String;
begin
  result := DataTable.Fields[idx_DetallesAlbaranClienteVALORADO].AsString;
end;

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


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

destructor TAlbaranCliente_RefreshDatasetDataTableRules.Destroy;
begin
  inherited;
end;

function TAlbaranCliente_RefreshDatasetDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_AlbaranCliente_RefreshDatasetCODIGO].AsInteger;
end;

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

function TAlbaranCliente_RefreshDatasetDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_AlbaranCliente_RefreshDatasetNOMBRE].AsString;
end;

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

function TAlbaranCliente_RefreshDatasetDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_AlbaranCliente_RefreshDatasetSITUACION].AsString;
end;

procedure TAlbaranCliente_RefreshDatasetDataTableRules.SetSITUACIONValue(const aValue: String);
begin
  DataTable.Fields[idx_AlbaranCliente_RefreshDatasetSITUACION].AsString := aValue;
end;

function TAlbaranCliente_RefreshDatasetDataTableRules.GetREFERENCIAPRESUPUESTOValue: String;
begin
  result := DataTable.Fields[idx_AlbaranCliente_RefreshDatasetREFERENCIAPRESUPUESTO].AsString;
end;

procedure TAlbaranCliente_RefreshDatasetDataTableRules.SetREFERENCIAPRESUPUESTOValue(const aValue: String);
begin
  DataTable.Fields[idx_AlbaranCliente_RefreshDatasetREFERENCIAPRESUPUESTO].AsString := aValue;
end;


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

destructor TInformeCabeceraAlbaranPagoDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraAlbaranPagoDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoCODIGOEMPRESA].AsInteger;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoCODIGO].AsInteger;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoFECHAALTA].AsDateTime;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoUSUARIO].AsString;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoREFERENCIA].AsString;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoCODIGOCONTACTO].AsInteger;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetFECHAALBARANValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoFECHAALBARAN].AsDateTime;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetFECHAALBARANValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoFECHAALBARAN].AsDateTime := aValue;
end;

function TInformeCabeceraAlbaranPagoDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoSITUACION].AsString;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetSITUACIONValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoSITUACION].AsString := aValue;
end;

function TInformeCabeceraAlbaranPagoDataTableRules.GetFECHAPAGOValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoFECHAPAGO].AsDateTime;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetBASEIMPONIBLEValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoBASEIMPONIBLE].AsFloat;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetBASEIMPONIBLEValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoBASEIMPONIBLE].AsFloat := aValue;
end;

function TInformeCabeceraAlbaranPagoDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoDESCUENTO].AsFloat;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetIMPORTEDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoIMPORTEDESCUENTO].AsFloat;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetIMPORTEDESCUENTOValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoIMPORTEDESCUENTO].AsFloat := aValue;
end;

function TInformeCabeceraAlbaranPagoDataTableRules.GetIVAValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoIVA].AsFloat;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetIMPORTEIVAValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoIMPORTEIVA].AsFloat;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetIMPORTEIVAValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoIMPORTEIVA].AsFloat := aValue;
end;

function TInformeCabeceraAlbaranPagoDataTableRules.GetIMPORTETOTALValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoIMPORTETOTAL].AsFloat;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetIMPORTETOTALValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoIMPORTETOTAL].AsFloat := aValue;
end;

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

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

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

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoCODIGOPRESUPUESTO].AsInteger;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetREFERENCIAPREValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoREFERENCIAPRE].AsString;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetREFERENCIAPREValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoREFERENCIAPRE].AsString := aValue;
end;

function TInformeCabeceraAlbaranPagoDataTableRules.GetNIFCIFValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoNIFCIF].AsString;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoNOMBRE].AsString;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetCALLEValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoCALLE].AsString;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetCODIGOPOSTALValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoCODIGOPOSTAL].AsString;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetPOBLACIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoPOBLACION].AsString;
end;

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

function TInformeCabeceraAlbaranPagoDataTableRules.GetTELEFONO1Value: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoTELEFONO1].AsString;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetTELEFONO1Value(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoTELEFONO1].AsString := aValue;
end;

function TInformeCabeceraAlbaranPagoDataTableRules.GetTELEFONO2Value: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoTELEFONO2].AsString;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetTELEFONO2Value(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoTELEFONO2].AsString := aValue;
end;

function TInformeCabeceraAlbaranPagoDataTableRules.GetMOVILValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraAlbaranPagoMOVIL].AsString;
end;

procedure TInformeCabeceraAlbaranPagoDataTableRules.SetMOVILValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraAlbaranPagoMOVIL].AsString := aValue;
end;


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

destructor TInformeDetallesAlbaranPagoDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeDetallesAlbaranPagoDataTableRules.GetCODIGOALBARANValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoCODIGOALBARAN].AsInteger;
end;

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

function TInformeDetallesAlbaranPagoDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoNUMCONCEPTO].AsInteger;
end;

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

function TInformeDetallesAlbaranPagoDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoDESCRIPCION].AsString;
end;

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

function TInformeDetallesAlbaranPagoDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsInteger;
end;

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

function TInformeDetallesAlbaranPagoDataTableRules.GetIMPORTEUNIDADValue: Float;
begin
  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoIMPORTEUNIDAD].AsFloat;
end;

procedure TInformeDetallesAlbaranPagoDataTableRules.SetIMPORTEUNIDADValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeDetallesAlbaranPagoIMPORTEUNIDAD].AsFloat := aValue;
end;

function TInformeDetallesAlbaranPagoDataTableRules.GetIMPORTETOTALValue: Float;
begin
  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoIMPORTETOTAL].AsFloat;
end;

procedure TInformeDetallesAlbaranPagoDataTableRules.SetIMPORTETOTALValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeDetallesAlbaranPagoIMPORTETOTAL].AsFloat := aValue;
end;

function TInformeDetallesAlbaranPagoDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoTIPO].AsString;
end;

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

function TInformeDetallesAlbaranPagoDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoPOSICION].AsInteger;
end;

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

function TInformeDetallesAlbaranPagoDataTableRules.GetVALORADOValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesAlbaranPagoVALORADO].AsString;
end;

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


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

destructor TDarSumaImportesDataTableRules.Destroy;
begin
  inherited;
end;

function TDarSumaImportesDataTableRules.GetBASEIMPONIBLEValue: Float;
begin
  result := DataTable.Fields[idx_DarSumaImportesBASEIMPONIBLE].AsFloat;
end;

procedure TDarSumaImportesDataTableRules.SetBASEIMPONIBLEValue(const aValue: Float);
begin
  DataTable.Fields[idx_DarSumaImportesBASEIMPONIBLE].AsFloat := aValue;
end;

function TDarSumaImportesDataTableRules.GetIMPORTEIVAValue: Float;
begin
  result := DataTable.Fields[idx_DarSumaImportesIMPORTEIVA].AsFloat;
end;

procedure TDarSumaImportesDataTableRules.SetIMPORTEIVAValue(const aValue: Float);
begin
  DataTable.Fields[idx_DarSumaImportesIMPORTEIVA].AsFloat := aValue;
end;

function TDarSumaImportesDataTableRules.GetIMPORTETOTALValue: Float;
begin
  result := DataTable.Fields[idx_DarSumaImportesIMPORTETOTAL].AsFloat;
end;

procedure TDarSumaImportesDataTableRules.SetIMPORTETOTALValue(const aValue: Float);
begin
  DataTable.Fields[idx_DarSumaImportesIMPORTETOTAL].AsFloat := aValue;
end;


initialization
  RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);
  RegisterDataTableRules(RID_DarReferenciaAlbaran, TDarReferenciaAlbaranDataTableRules);
  RegisterDataTableRules(RID_AlbaranCliente, TAlbaranClienteDataTableRules);
  RegisterDataTableRules(RID_AlbaranDePresupuesto, TAlbaranDePresupuestoDataTableRules);
  RegisterDataTableRules(RID_DetallesAlbaranCliente, TDetallesAlbaranClienteDataTableRules);
  RegisterDataTableRules(RID_AlbaranCliente_RefreshDataset, TAlbaranCliente_RefreshDatasetDataTableRules);
  RegisterDataTableRules(RID_InformeCabeceraAlbaranPago, TInformeCabeceraAlbaranPagoDataTableRules);
  RegisterDataTableRules(RID_InformeDetallesAlbaranPago, TInformeDetallesAlbaranPagoDataTableRules);
  RegisterDataTableRules(RID_DarSumaImportes, TDarSumaImportesDataTableRules);

end.