AlonsoYSal_FactuGES/Modulos/Presupuestos/Reglas/schPresupuestosClient_Intf.pas

unit schPresupuestosClient_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_ListaAnosPresupuestos = '{77EF6F0F-E599-4667-8576-DBAC1CCC2EAA}';
  RID_DetallesPresupuestos = '{03C708D2-DE71-478C-B6AB-462A59A1E7DF}';
  RID_Presupuestos = '{EE36E6AC-A1D6-426D-9D43-CA97BD1CFD68}';
  RID_Presupuestos_RefreshDataset = '{7C463D58-2A40-4376-B6D0-1D5BCC229F42}';
  RID_InformeCabeceraPresupuesto = '{9CDFC642-05DA-42C6-9815-F4F4024708F0}';
  RID_InformeDetallesPresupuesto = '{87F1DF38-4060-49DF-87EA-97ED384371B1}';

  { Data table names }
  nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
  nme_DetallesPresupuestos = 'DetallesPresupuestos';
  nme_Presupuestos = 'Presupuestos';
  nme_Presupuestos_RefreshDataset = 'Presupuestos_RefreshDataset';
  nme_InformeCabeceraPresupuesto = 'InformeCabeceraPresupuesto';
  nme_InformeDetallesPresupuesto = 'InformeDetallesPresupuesto';

  { ListaAnosPresupuestos fields }
  fld_ListaAnosPresupuestosANO = 'ANO';

  { ListaAnosPresupuestos field indexes }
  idx_ListaAnosPresupuestosANO = 0;

  { DetallesPresupuestos fields }
  fld_DetallesPresupuestosCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO';
  fld_DetallesPresupuestosNUMCONCEPTO = 'NUMCONCEPTO';
  fld_DetallesPresupuestosDESCRIPCION = 'DESCRIPCION';
  fld_DetallesPresupuestosCANTIDAD = 'CANTIDAD';
  fld_DetallesPresupuestosIMPORTEUNIDAD = 'IMPORTEUNIDAD';
  fld_DetallesPresupuestosIMPORTETOTAL = 'IMPORTETOTAL';
  fld_DetallesPresupuestosTIPO = 'TIPO';
  fld_DetallesPresupuestosPOSICION = 'POSICION';
  fld_DetallesPresupuestosVISIBLE = 'VISIBLE';
  fld_DetallesPresupuestosPUNTOS = 'PUNTOS';
  fld_DetallesPresupuestosIMPORTEPUNTOS = 'IMPORTEPUNTOS';
  fld_DetallesPresupuestosVALORADO = 'VALORADO';

  { DetallesPresupuestos field indexes }
  idx_DetallesPresupuestosCODIGOPRESUPUESTO = 0;
  idx_DetallesPresupuestosNUMCONCEPTO = 1;
  idx_DetallesPresupuestosDESCRIPCION = 2;
  idx_DetallesPresupuestosCANTIDAD = 3;
  idx_DetallesPresupuestosIMPORTEUNIDAD = 4;
  idx_DetallesPresupuestosIMPORTETOTAL = 5;
  idx_DetallesPresupuestosTIPO = 6;
  idx_DetallesPresupuestosPOSICION = 7;
  idx_DetallesPresupuestosVISIBLE = 8;
  idx_DetallesPresupuestosPUNTOS = 9;
  idx_DetallesPresupuestosIMPORTEPUNTOS = 10;
  idx_DetallesPresupuestosVALORADO = 11;

  { Presupuestos fields }
  fld_PresupuestosCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_PresupuestosCODIGO = 'CODIGO';
  fld_PresupuestosFECHAALTA = 'FECHAALTA';
  fld_PresupuestosUSUARIO = 'USUARIO';
  fld_PresupuestosCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_PresupuestosNOMBRE = 'NOMBRE';
  fld_PresupuestosNIF_CIF = 'NIF_CIF';
  fld_PresupuestosREFERENCIA = 'REFERENCIA';
  fld_PresupuestosTIPO = 'TIPO';
  fld_PresupuestosFECHAPRESUPUESTO = 'FECHAPRESUPUESTO';
  fld_PresupuestosVIGENCIAPRESUPUESTO = 'VIGENCIAPRESUPUESTO';
  fld_PresupuestosSITUACION = 'SITUACION';
  fld_PresupuestosFECHADECISION = 'FECHADECISION';
  fld_PresupuestosBASEIMPONIBLE = 'BASEIMPONIBLE';
  fld_PresupuestosDESCUENTO = 'DESCUENTO';
  fld_PresupuestosIMPORTEDESCUENTO = 'IMPORTEDESCUENTO';
  fld_PresupuestosIVA = 'IVA';
  fld_PresupuestosIMPORTEIVA = 'IMPORTEIVA';
  fld_PresupuestosIMPORTETOTAL = 'IMPORTETOTAL';
  fld_PresupuestosOBSERVACIONES = 'OBSERVACIONES';
  fld_PresupuestosPLAZOENTREGA = 'PLAZOENTREGA';
  fld_PresupuestosFORMAPAGO = 'FORMAPAGO';
  fld_PresupuestosCODIGOALBARAN = 'CODIGOALBARAN';
  fld_PresupuestosALBARAN = 'ALBARAN';
  fld_PresupuestosOPCION = 'OPCION';

  { Presupuestos field indexes }
  idx_PresupuestosCODIGOEMPRESA = 0;
  idx_PresupuestosCODIGO = 1;
  idx_PresupuestosFECHAALTA = 2;
  idx_PresupuestosUSUARIO = 3;
  idx_PresupuestosCODIGOCONTACTO = 4;
  idx_PresupuestosNOMBRE = 5;
  idx_PresupuestosNIF_CIF = 6;
  idx_PresupuestosREFERENCIA = 7;
  idx_PresupuestosTIPO = 8;
  idx_PresupuestosFECHAPRESUPUESTO = 9;
  idx_PresupuestosVIGENCIAPRESUPUESTO = 10;
  idx_PresupuestosSITUACION = 11;
  idx_PresupuestosFECHADECISION = 12;
  idx_PresupuestosBASEIMPONIBLE = 13;
  idx_PresupuestosDESCUENTO = 14;
  idx_PresupuestosIMPORTEDESCUENTO = 15;
  idx_PresupuestosIVA = 16;
  idx_PresupuestosIMPORTEIVA = 17;
  idx_PresupuestosIMPORTETOTAL = 18;
  idx_PresupuestosOBSERVACIONES = 19;
  idx_PresupuestosPLAZOENTREGA = 20;
  idx_PresupuestosFORMAPAGO = 21;
  idx_PresupuestosCODIGOALBARAN = 22;
  idx_PresupuestosALBARAN = 23;
  idx_PresupuestosOPCION = 24;

  { Presupuestos_RefreshDataset fields }
  fld_Presupuestos_RefreshDatasetCODIGO = 'CODIGO';
  fld_Presupuestos_RefreshDatasetNOMBRE = 'NOMBRE';
  fld_Presupuestos_RefreshDatasetREFERENCIA = 'REFERENCIA';
  fld_Presupuestos_RefreshDatasetCODIGOALBARAN = 'CODIGOALBARAN';
  fld_Presupuestos_RefreshDatasetALBARAN = 'ALBARAN';

  { Presupuestos_RefreshDataset field indexes }
  idx_Presupuestos_RefreshDatasetCODIGO = 0;
  idx_Presupuestos_RefreshDatasetNOMBRE = 1;
  idx_Presupuestos_RefreshDatasetREFERENCIA = 2;
  idx_Presupuestos_RefreshDatasetCODIGOALBARAN = 3;
  idx_Presupuestos_RefreshDatasetALBARAN = 4;

  { InformeCabeceraPresupuesto fields }
  fld_InformeCabeceraPresupuestoCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_InformeCabeceraPresupuestoCODIGO = 'CODIGO';
  fld_InformeCabeceraPresupuestoFECHAALTA = 'FECHAALTA';
  fld_InformeCabeceraPresupuestoUSUARIO = 'USUARIO';
  fld_InformeCabeceraPresupuestoCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_InformeCabeceraPresupuestoREFERENCIA = 'REFERENCIA';
  fld_InformeCabeceraPresupuestoTIPO = 'TIPO';
  fld_InformeCabeceraPresupuestoFECHAPRESUPUESTO = 'FECHAPRESUPUESTO';
  fld_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO = 'VIGENCIAPRESUPUESTO';
  fld_InformeCabeceraPresupuestoSITUACION = 'SITUACION';
  fld_InformeCabeceraPresupuestoFECHADECISION = 'FECHADECISION';
  fld_InformeCabeceraPresupuestoBASEIMPONIBLE = 'BASEIMPONIBLE';
  fld_InformeCabeceraPresupuestoDESCUENTO = 'DESCUENTO';
  fld_InformeCabeceraPresupuestoIMPORTEDESCUENTO = 'IMPORTEDESCUENTO';
  fld_InformeCabeceraPresupuestoIVA = 'IVA';
  fld_InformeCabeceraPresupuestoIMPORTEIVA = 'IMPORTEIVA';
  fld_InformeCabeceraPresupuestoIMPORTETOTAL = 'IMPORTETOTAL';
  fld_InformeCabeceraPresupuestoOBSERVACIONES = 'OBSERVACIONES';
  fld_InformeCabeceraPresupuestoPLAZOENTREGA = 'PLAZOENTREGA';
  fld_InformeCabeceraPresupuestoFORMAPAGO = 'FORMAPAGO';
  fld_InformeCabeceraPresupuestoNOMBRE = 'NOMBRE';
  fld_InformeCabeceraPresupuestoNIF_CIF = 'NIF_CIF';
  fld_InformeCabeceraPresupuestoNOMBRE1 = 'NOMBRE1';
  fld_InformeCabeceraPresupuestoCALLE = 'CALLE';
  fld_InformeCabeceraPresupuestoCODIGOPOSTAL = 'CODIGOPOSTAL';
  fld_InformeCabeceraPresupuestoPOBLACION = 'POBLACION';
  fld_InformeCabeceraPresupuestoTELEFONO1 = 'TELEFONO1';
  fld_InformeCabeceraPresupuestoTELEFONO2 = 'TELEFONO2';
  fld_InformeCabeceraPresupuestoMOVIL = 'MOVIL';
  fld_InformeCabeceraPresupuestoOPCION = 'OPCION';
  fld_InformeCabeceraPresupuestoCODIGOALBARAN = 'CODIGOALBARAN';
  fld_InformeCabeceraPresupuestoALBARAN = 'ALBARAN';

  { InformeCabeceraPresupuesto field indexes }
  idx_InformeCabeceraPresupuestoCODIGOEMPRESA = 0;
  idx_InformeCabeceraPresupuestoCODIGO = 1;
  idx_InformeCabeceraPresupuestoFECHAALTA = 2;
  idx_InformeCabeceraPresupuestoUSUARIO = 3;
  idx_InformeCabeceraPresupuestoCODIGOCONTACTO = 4;
  idx_InformeCabeceraPresupuestoREFERENCIA = 5;
  idx_InformeCabeceraPresupuestoTIPO = 6;
  idx_InformeCabeceraPresupuestoFECHAPRESUPUESTO = 7;
  idx_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO = 8;
  idx_InformeCabeceraPresupuestoSITUACION = 9;
  idx_InformeCabeceraPresupuestoFECHADECISION = 10;
  idx_InformeCabeceraPresupuestoBASEIMPONIBLE = 11;
  idx_InformeCabeceraPresupuestoDESCUENTO = 12;
  idx_InformeCabeceraPresupuestoIMPORTEDESCUENTO = 13;
  idx_InformeCabeceraPresupuestoIVA = 14;
  idx_InformeCabeceraPresupuestoIMPORTEIVA = 15;
  idx_InformeCabeceraPresupuestoIMPORTETOTAL = 16;
  idx_InformeCabeceraPresupuestoOBSERVACIONES = 17;
  idx_InformeCabeceraPresupuestoPLAZOENTREGA = 18;
  idx_InformeCabeceraPresupuestoFORMAPAGO = 19;
  idx_InformeCabeceraPresupuestoNOMBRE = 20;
  idx_InformeCabeceraPresupuestoNIF_CIF = 21;
  idx_InformeCabeceraPresupuestoNOMBRE1 = 22;
  idx_InformeCabeceraPresupuestoCALLE = 23;
  idx_InformeCabeceraPresupuestoCODIGOPOSTAL = 24;
  idx_InformeCabeceraPresupuestoPOBLACION = 25;
  idx_InformeCabeceraPresupuestoTELEFONO1 = 26;
  idx_InformeCabeceraPresupuestoTELEFONO2 = 27;
  idx_InformeCabeceraPresupuestoMOVIL = 28;
  idx_InformeCabeceraPresupuestoOPCION = 29;
  idx_InformeCabeceraPresupuestoCODIGOALBARAN = 30;
  idx_InformeCabeceraPresupuestoALBARAN = 31;

  { InformeDetallesPresupuesto fields }
  fld_InformeDetallesPresupuestoCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO';
  fld_InformeDetallesPresupuestoNUMCONCEPTO = 'NUMCONCEPTO';
  fld_InformeDetallesPresupuestoDESCRIPCION = 'DESCRIPCION';
  fld_InformeDetallesPresupuestoCANTIDAD = 'CANTIDAD';
  fld_InformeDetallesPresupuestoIMPORTEUNIDAD = 'IMPORTEUNIDAD';
  fld_InformeDetallesPresupuestoIMPORTETOTAL = 'IMPORTETOTAL';
  fld_InformeDetallesPresupuestoTIPO = 'TIPO';
  fld_InformeDetallesPresupuestoPOSICION = 'POSICION';
  fld_InformeDetallesPresupuestoVALORADO = 'VALORADO';

  { InformeDetallesPresupuesto field indexes }
  idx_InformeDetallesPresupuestoCODIGOPRESUPUESTO = 0;
  idx_InformeDetallesPresupuestoNUMCONCEPTO = 1;
  idx_InformeDetallesPresupuestoDESCRIPCION = 2;
  idx_InformeDetallesPresupuestoCANTIDAD = 3;
  idx_InformeDetallesPresupuestoIMPORTEUNIDAD = 4;
  idx_InformeDetallesPresupuestoIMPORTETOTAL = 5;
  idx_InformeDetallesPresupuestoTIPO = 6;
  idx_InformeDetallesPresupuestoPOSICION = 7;
  idx_InformeDetallesPresupuestoVALORADO = 8;

type
  { IListaAnosPresupuestos }
  IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
  ['{80153E52-A0AC-48F4-B686-597D3D322919}']
    { Property getters and setters }
    function GetANOValue: String;
    procedure SetANOValue(const aValue: String);


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

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

  { IDetallesPresupuestos }
  IDetallesPresupuestos = interface(IDAStronglyTypedDataTable)
  ['{1B25EB4A-91B6-4F99-9865-830E66EDD201}']
    { Property getters and setters }
    function GetCODIGOPRESUPUESTOValue: Integer;
    procedure SetCODIGOPRESUPUESTOValue(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 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 CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    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 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;

  { TDetallesPresupuestosDataTableRules }
  TDetallesPresupuestosDataTableRules = class(TDADataTableRules, IDetallesPresupuestos)
  private
  protected
    { Property getters and setters }
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(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 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 CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    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 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;

  { IPresupuestos }
  IPresupuestos = interface(IDAStronglyTypedDataTable)
  ['{152FAE82-E4BD-47CF-82E5-88ABA9825BB1}']
    { 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 GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetNIF_CIFValue: String;
    procedure SetNIF_CIFValue(const aValue: String);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetTIPOValue: String;
    procedure SetTIPOValue(const aValue: String);
    function GetFECHAPRESUPUESTOValue: DateTime;
    procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime);
    function GetVIGENCIAPRESUPUESTOValue: DateTime;
    procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetFECHADECISIONValue: DateTime;
    procedure SetFECHADECISIONValue(const aValue: DateTime);
    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 GetPLAZOENTREGAValue: IROStrings;
    procedure SetPLAZOENTREGAValue(const aValue: IROStrings);
    function GetFORMAPAGOValue: IROStrings;
    procedure SetFORMAPAGOValue(const aValue: IROStrings);
    function GetCODIGOALBARANValue: Integer;
    procedure SetCODIGOALBARANValue(const aValue: Integer);
    function GetALBARANValue: String;
    procedure SetALBARANValue(const aValue: String);
    function GetOPCIONValue: String;
    procedure SetOPCIONValue(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 CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property FECHAPRESUPUESTO: DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue;
    property VIGENCIAPRESUPUESTO: DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHADECISION: DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue;
    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 PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property ALBARAN: String read GetALBARANValue write SetALBARANValue;
    property OPCION: String read GetOPCIONValue write SetOPCIONValue;
  end;

  { TPresupuestosDataTableRules }
  TPresupuestosDataTableRules = class(TDADataTableRules, IPresupuestos)
  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 GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetNIF_CIFValue: String; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;
    function GetFECHAPRESUPUESTOValue: DateTime; virtual;
    procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime); virtual;
    function GetVIGENCIAPRESUPUESTOValue: DateTime; virtual;
    procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHADECISIONValue: DateTime; virtual;
    procedure SetFECHADECISIONValue(const aValue: DateTime); 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 GetPLAZOENTREGAValue: IROStrings; virtual;
    procedure SetPLAZOENTREGAValue(const aValue: IROStrings); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
    function GetALBARANValue: String; virtual;
    procedure SetALBARANValue(const aValue: String); virtual;
    function GetOPCIONValue: String; virtual;
    procedure SetOPCIONValue(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 CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property FECHAPRESUPUESTO: DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue;
    property VIGENCIAPRESUPUESTO: DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHADECISION: DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue;
    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 PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property ALBARAN: String read GetALBARANValue write SetALBARANValue;
    property OPCION: String read GetOPCIONValue write SetOPCIONValue;

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

  end;

  { IPresupuestos_RefreshDataset }
  IPresupuestos_RefreshDataset = interface(IDAStronglyTypedDataTable)
  ['{8A7F6D01-B4D4-436B-8BF5-C62F316AE407}']
    { Property getters and setters }
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetCODIGOALBARANValue: Integer;
    procedure SetCODIGOALBARANValue(const aValue: Integer);
    function GetALBARANValue: String;
    procedure SetALBARANValue(const aValue: String);


    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property ALBARAN: String read GetALBARANValue write SetALBARANValue;
  end;

  { TPresupuestos_RefreshDatasetDataTableRules }
  TPresupuestos_RefreshDatasetDataTableRules = class(TDADataTableRules, IPresupuestos_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 GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
    function GetALBARANValue: String; virtual;
    procedure SetALBARANValue(const aValue: String); virtual;

    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property ALBARAN: String read GetALBARANValue write SetALBARANValue;

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

  end;

  { IInformeCabeceraPresupuesto }
  IInformeCabeceraPresupuesto = interface(IDAStronglyTypedDataTable)
  ['{386D3790-2EE5-443E-8C0D-D71B5BB54BC6}']
    { 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 GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetTIPOValue: String;
    procedure SetTIPOValue(const aValue: String);
    function GetFECHAPRESUPUESTOValue: DateTime;
    procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime);
    function GetVIGENCIAPRESUPUESTOValue: DateTime;
    procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetFECHADECISIONValue: DateTime;
    procedure SetFECHADECISIONValue(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 GetPLAZOENTREGAValue: IROStrings;
    procedure SetPLAZOENTREGAValue(const aValue: IROStrings);
    function GetFORMAPAGOValue: IROStrings;
    procedure SetFORMAPAGOValue(const aValue: IROStrings);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetNIF_CIFValue: String;
    procedure SetNIF_CIFValue(const aValue: String);
    function GetNOMBRE1Value: String;
    procedure SetNOMBRE1Value(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);
    function GetOPCIONValue: String;
    procedure SetOPCIONValue(const aValue: String);
    function GetCODIGOALBARANValue: Integer;
    procedure SetCODIGOALBARANValue(const aValue: Integer);
    function GetALBARANValue: String;
    procedure SetALBARANValue(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 CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property FECHAPRESUPUESTO: DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue;
    property VIGENCIAPRESUPUESTO: DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHADECISION: DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue;
    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 PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NOMBRE1: String read GetNOMBRE1Value write SetNOMBRE1Value;
    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;
    property OPCION: String read GetOPCIONValue write SetOPCIONValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property ALBARAN: String read GetALBARANValue write SetALBARANValue;
  end;

  { TInformeCabeceraPresupuestoDataTableRules }
  TInformeCabeceraPresupuestoDataTableRules = class(TDADataTableRules, IInformeCabeceraPresupuesto)
  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 GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;
    function GetFECHAPRESUPUESTOValue: DateTime; virtual;
    procedure SetFECHAPRESUPUESTOValue(const aValue: DateTime); virtual;
    function GetVIGENCIAPRESUPUESTOValue: DateTime; virtual;
    procedure SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHADECISIONValue: DateTime; virtual;
    procedure SetFECHADECISIONValue(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 GetPLAZOENTREGAValue: IROStrings; virtual;
    procedure SetPLAZOENTREGAValue(const aValue: IROStrings); virtual;
    function GetFORMAPAGOValue: IROStrings; virtual;
    procedure SetFORMAPAGOValue(const aValue: IROStrings); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetNIF_CIFValue: String; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    function GetNOMBRE1Value: String; virtual;
    procedure SetNOMBRE1Value(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;
    function GetOPCIONValue: String; virtual;
    procedure SetOPCIONValue(const aValue: String); virtual;
    function GetCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;
    function GetALBARANValue: String; virtual;
    procedure SetALBARANValue(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 CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
    property FECHAPRESUPUESTO: DateTime read GetFECHAPRESUPUESTOValue write SetFECHAPRESUPUESTOValue;
    property VIGENCIAPRESUPUESTO: DateTime read GetVIGENCIAPRESUPUESTOValue write SetVIGENCIAPRESUPUESTOValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHADECISION: DateTime read GetFECHADECISIONValue write SetFECHADECISIONValue;
    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 PLAZOENTREGA: IROStrings read GetPLAZOENTREGAValue write SetPLAZOENTREGAValue;
    property FORMAPAGO: IROStrings read GetFORMAPAGOValue write SetFORMAPAGOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NOMBRE1: String read GetNOMBRE1Value write SetNOMBRE1Value;
    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;
    property OPCION: String read GetOPCIONValue write SetOPCIONValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
    property ALBARAN: String read GetALBARANValue write SetALBARANValue;

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

  end;

  { IInformeDetallesPresupuesto }
  IInformeDetallesPresupuesto = interface(IDAStronglyTypedDataTable)
  ['{4E63D170-8D9D-43B2-ADD5-90B7CD993A81}']
    { Property getters and setters }
    function GetCODIGOPRESUPUESTOValue: Integer;
    procedure SetCODIGOPRESUPUESTOValue(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 CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    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;

  { TInformeDetallesPresupuestoDataTableRules }
  TInformeDetallesPresupuestoDataTableRules = class(TDADataTableRules, IInformeDetallesPresupuesto)
  private
  protected
    { Property getters and setters }
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(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 CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    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;

implementation

uses Variants;

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

destructor TListaAnosPresupuestosDataTableRules.Destroy;
begin
  inherited;
end;

function TListaAnosPresupuestosDataTableRules.GetANOValue: String;
begin
  result := DataTable.Fields[idx_ListaAnosPresupuestosANO].AsString;
end;

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


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

destructor TDetallesPresupuestosDataTableRules.Destroy;
begin
  inherited;
end;

function TDetallesPresupuestosDataTableRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosCODIGOPRESUPUESTO].AsInteger;
end;

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

function TDetallesPresupuestosDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosNUMCONCEPTO].AsInteger;
end;

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

function TDetallesPresupuestosDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosDESCRIPCION].AsString;
end;

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

function TDetallesPresupuestosDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosCANTIDAD].AsInteger;
end;

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

function TDetallesPresupuestosDataTableRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosIMPORTEUNIDAD].AsCurrency;
end;

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

function TDetallesPresupuestosDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosIMPORTETOTAL].AsCurrency;
end;

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

function TDetallesPresupuestosDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosTIPO].AsString;
end;

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

function TDetallesPresupuestosDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosPOSICION].AsInteger;
end;

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

function TDetallesPresupuestosDataTableRules.GetVISIBLEValue: String;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosVISIBLE].AsString;
end;

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

function TDetallesPresupuestosDataTableRules.GetPUNTOSValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosPUNTOS].AsInteger;
end;

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

function TDetallesPresupuestosDataTableRules.GetIMPORTEPUNTOSValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosIMPORTEPUNTOS].AsCurrency;
end;

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

function TDetallesPresupuestosDataTableRules.GetVALORADOValue: String;
begin
  result := DataTable.Fields[idx_DetallesPresupuestosVALORADO].AsString;
end;

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


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

destructor TPresupuestosDataTableRules.Destroy;
begin
  inherited;
end;

function TPresupuestosDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_PresupuestosCODIGOEMPRESA].AsInteger;
end;

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

function TPresupuestosDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_PresupuestosCODIGO].AsInteger;
end;

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

function TPresupuestosDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_PresupuestosFECHAALTA].AsDateTime;
end;

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

function TPresupuestosDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_PresupuestosUSUARIO].AsString;
end;

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

function TPresupuestosDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_PresupuestosCODIGOCONTACTO].AsInteger;
end;

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

function TPresupuestosDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_PresupuestosNOMBRE].AsString;
end;

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

function TPresupuestosDataTableRules.GetNIF_CIFValue: String;
begin
  result := DataTable.Fields[idx_PresupuestosNIF_CIF].AsString;
end;

procedure TPresupuestosDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
  DataTable.Fields[idx_PresupuestosNIF_CIF].AsString := aValue;
end;

function TPresupuestosDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_PresupuestosREFERENCIA].AsString;
end;

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

function TPresupuestosDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_PresupuestosTIPO].AsString;
end;

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

function TPresupuestosDataTableRules.GetFECHAPRESUPUESTOValue: DateTime;
begin
  result := DataTable.Fields[idx_PresupuestosFECHAPRESUPUESTO].AsDateTime;
end;

procedure TPresupuestosDataTableRules.SetFECHAPRESUPUESTOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_PresupuestosFECHAPRESUPUESTO].AsDateTime := aValue;
end;

function TPresupuestosDataTableRules.GetVIGENCIAPRESUPUESTOValue: DateTime;
begin
  result := DataTable.Fields[idx_PresupuestosVIGENCIAPRESUPUESTO].AsDateTime;
end;

procedure TPresupuestosDataTableRules.SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_PresupuestosVIGENCIAPRESUPUESTO].AsDateTime := aValue;
end;

function TPresupuestosDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_PresupuestosSITUACION].AsString;
end;

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

function TPresupuestosDataTableRules.GetFECHADECISIONValue: DateTime;
begin
  result := DataTable.Fields[idx_PresupuestosFECHADECISION].AsDateTime;
end;

procedure TPresupuestosDataTableRules.SetFECHADECISIONValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_PresupuestosFECHADECISION].AsDateTime := aValue;
end;

function TPresupuestosDataTableRules.GetBASEIMPONIBLEValue: Currency;
begin
  result := DataTable.Fields[idx_PresupuestosBASEIMPONIBLE].AsCurrency;
end;

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

function TPresupuestosDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_PresupuestosDESCUENTO].AsFloat;
end;

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

function TPresupuestosDataTableRules.GetIMPORTEDESCUENTOValue: Currency;
begin
  result := DataTable.Fields[idx_PresupuestosIMPORTEDESCUENTO].AsCurrency;
end;

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

function TPresupuestosDataTableRules.GetIVAValue: Float;
begin
  result := DataTable.Fields[idx_PresupuestosIVA].AsFloat;
end;

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

function TPresupuestosDataTableRules.GetIMPORTEIVAValue: Currency;
begin
  result := DataTable.Fields[idx_PresupuestosIMPORTEIVA].AsCurrency;
end;

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

function TPresupuestosDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_PresupuestosIMPORTETOTAL].AsCurrency;
end;

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

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

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

function TPresupuestosDataTableRules.GetPLAZOENTREGAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_PresupuestosPLAZOENTREGA].AsString;
end;

procedure TPresupuestosDataTableRules.SetPLAZOENTREGAValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_PresupuestosPLAZOENTREGA].AsString := aValue.Text;
end;

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

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

function TPresupuestosDataTableRules.GetCODIGOALBARANValue: Integer;
begin
  result := DataTable.Fields[idx_PresupuestosCODIGOALBARAN].AsInteger;
end;

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

function TPresupuestosDataTableRules.GetALBARANValue: String;
begin
  result := DataTable.Fields[idx_PresupuestosALBARAN].AsString;
end;

procedure TPresupuestosDataTableRules.SetALBARANValue(const aValue: String);
begin
  DataTable.Fields[idx_PresupuestosALBARAN].AsString := aValue;
end;

function TPresupuestosDataTableRules.GetOPCIONValue: String;
begin
  result := DataTable.Fields[idx_PresupuestosOPCION].AsString;
end;

procedure TPresupuestosDataTableRules.SetOPCIONValue(const aValue: String);
begin
  DataTable.Fields[idx_PresupuestosOPCION].AsString := aValue;
end;


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

destructor TPresupuestos_RefreshDatasetDataTableRules.Destroy;
begin
  inherited;
end;

function TPresupuestos_RefreshDatasetDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_Presupuestos_RefreshDatasetCODIGO].AsInteger;
end;

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

function TPresupuestos_RefreshDatasetDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_Presupuestos_RefreshDatasetNOMBRE].AsString;
end;

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

function TPresupuestos_RefreshDatasetDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_Presupuestos_RefreshDatasetREFERENCIA].AsString;
end;

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

function TPresupuestos_RefreshDatasetDataTableRules.GetCODIGOALBARANValue: Integer;
begin
  result := DataTable.Fields[idx_Presupuestos_RefreshDatasetCODIGOALBARAN].AsInteger;
end;

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

function TPresupuestos_RefreshDatasetDataTableRules.GetALBARANValue: String;
begin
  result := DataTable.Fields[idx_Presupuestos_RefreshDatasetALBARAN].AsString;
end;

procedure TPresupuestos_RefreshDatasetDataTableRules.SetALBARANValue(const aValue: String);
begin
  DataTable.Fields[idx_Presupuestos_RefreshDatasetALBARAN].AsString := aValue;
end;


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

destructor TInformeCabeceraPresupuestoDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOEMPRESA].AsInteger;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGO].AsInteger;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoFECHAALTA].AsDateTime;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoUSUARIO].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOCONTACTO].AsInteger;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoREFERENCIA].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoTIPO].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetFECHAPRESUPUESTOValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoFECHAPRESUPUESTO].AsDateTime;
end;

procedure TInformeCabeceraPresupuestoDataTableRules.SetFECHAPRESUPUESTOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraPresupuestoFECHAPRESUPUESTO].AsDateTime := aValue;
end;

function TInformeCabeceraPresupuestoDataTableRules.GetVIGENCIAPRESUPUESTOValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO].AsDateTime;
end;

procedure TInformeCabeceraPresupuestoDataTableRules.SetVIGENCIAPRESUPUESTOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraPresupuestoVIGENCIAPRESUPUESTO].AsDateTime := aValue;
end;

function TInformeCabeceraPresupuestoDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoSITUACION].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetFECHADECISIONValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoFECHADECISION].AsDateTime;
end;

procedure TInformeCabeceraPresupuestoDataTableRules.SetFECHADECISIONValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraPresupuestoFECHADECISION].AsDateTime := aValue;
end;

function TInformeCabeceraPresupuestoDataTableRules.GetBASEIMPONIBLEValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoBASEIMPONIBLE].AsFloat;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoDESCUENTO].AsFloat;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetIMPORTEDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoIMPORTEDESCUENTO].AsFloat;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetIVAValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoIVA].AsFloat;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetIMPORTEIVAValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoIMPORTEIVA].AsFloat;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetIMPORTETOTALValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoIMPORTETOTAL].AsFloat;
end;

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

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

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

function TInformeCabeceraPresupuestoDataTableRules.GetPLAZOENTREGAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_InformeCabeceraPresupuestoPLAZOENTREGA].AsString;
end;

procedure TInformeCabeceraPresupuestoDataTableRules.SetPLAZOENTREGAValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_InformeCabeceraPresupuestoPLAZOENTREGA].AsString := aValue.Text;
end;

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

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

function TInformeCabeceraPresupuestoDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoNOMBRE].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetNIF_CIFValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoNIF_CIF].AsString;
end;

procedure TInformeCabeceraPresupuestoDataTableRules.SetNIF_CIFValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPresupuestoNIF_CIF].AsString := aValue;
end;

function TInformeCabeceraPresupuestoDataTableRules.GetNOMBRE1Value: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoNOMBRE1].AsString;
end;

procedure TInformeCabeceraPresupuestoDataTableRules.SetNOMBRE1Value(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPresupuestoNOMBRE1].AsString := aValue;
end;

function TInformeCabeceraPresupuestoDataTableRules.GetCALLEValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoCALLE].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOPOSTALValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOPOSTAL].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetPOBLACIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoPOBLACION].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetTELEFONO1Value: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoTELEFONO1].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetTELEFONO2Value: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoTELEFONO2].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetMOVILValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoMOVIL].AsString;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetOPCIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoOPCION].AsString;
end;

procedure TInformeCabeceraPresupuestoDataTableRules.SetOPCIONValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPresupuestoOPCION].AsString := aValue;
end;

function TInformeCabeceraPresupuestoDataTableRules.GetCODIGOALBARANValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoCODIGOALBARAN].AsInteger;
end;

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

function TInformeCabeceraPresupuestoDataTableRules.GetALBARANValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoALBARAN].AsString;
end;

procedure TInformeCabeceraPresupuestoDataTableRules.SetALBARANValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPresupuestoALBARAN].AsString := aValue;
end;


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

destructor TInformeDetallesPresupuestoDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeDetallesPresupuestoDataTableRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesPresupuestoCODIGOPRESUPUESTO].AsInteger;
end;

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

function TInformeDetallesPresupuestoDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesPresupuestoNUMCONCEPTO].AsInteger;
end;

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

function TInformeDetallesPresupuestoDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesPresupuestoDESCRIPCION].AsString;
end;

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

function TInformeDetallesPresupuestoDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesPresupuestoCANTIDAD].AsInteger;
end;

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

function TInformeDetallesPresupuestoDataTableRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := DataTable.Fields[idx_InformeDetallesPresupuestoIMPORTEUNIDAD].AsCurrency;
end;

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

function TInformeDetallesPresupuestoDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_InformeDetallesPresupuestoIMPORTETOTAL].AsCurrency;
end;

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

function TInformeDetallesPresupuestoDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesPresupuestoTIPO].AsString;
end;

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

function TInformeDetallesPresupuestoDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesPresupuestoPOSICION].AsInteger;
end;

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

function TInformeDetallesPresupuestoDataTableRules.GetVALORADOValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesPresupuestoVALORADO].AsString;
end;

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


initialization
  RegisterDataTableRules(RID_ListaAnosPresupuestos, TListaAnosPresupuestosDataTableRules);
  RegisterDataTableRules(RID_DetallesPresupuestos, TDetallesPresupuestosDataTableRules);
  RegisterDataTableRules(RID_Presupuestos, TPresupuestosDataTableRules);
  RegisterDataTableRules(RID_Presupuestos_RefreshDataset, TPresupuestos_RefreshDatasetDataTableRules);
  RegisterDataTableRules(RID_InformeCabeceraPresupuesto, TInformeCabeceraPresupuestoDataTableRules);
  RegisterDataTableRules(RID_InformeDetallesPresupuesto, TInformeDetallesPresupuestoDataTableRules);

end.