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_DarReferenciaPresupuesto = '{8993F014-1865-4D64-98E5-353E9BB18CDE}';
  RID_DetallesPresupuestos = '{B42EC01D-5299-42CC-8D90-F058DADBC838}';
  RID_Presupuestos = '{C54617B2-9D65-4DB7-8C6C-993034E9DAAF}';
  RID_Presupuestos_RefreshDataset = '{36882352-6222-4562-95B2-A2E7D3847887}';
  RID_InformeCabeceraPresupuesto = '{1CCF0A82-B3F2-4C9A-97C8-5532C8AFE2FE}';
  RID_InformeDetallesPresupuesto = '{E5783AA8-1B27-48B7-89C8-512EEF2AABD9}';

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

  { DarReferenciaPresupuesto fields }
  fld_DarReferenciaPresupuestoREFERENCIA = 'REFERENCIA';

  { DarReferenciaPresupuesto field indexes }
  idx_DarReferenciaPresupuestoREFERENCIA = 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';

  { 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;

  { Presupuestos fields }
  fld_PresupuestosCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_PresupuestosCODIGO = 'CODIGO';
  fld_PresupuestosFECHAALTA = 'FECHAALTA';
  fld_PresupuestosUSUARIO = 'USUARIO';
  fld_PresupuestosCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_PresupuestosNOMBRE = 'NOMBRE';
  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';

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

  { Presupuestos_RefreshDataset fields }
  fld_Presupuestos_RefreshDatasetCODIGO = 'CODIGO';
  fld_Presupuestos_RefreshDatasetNOMBRE = 'NOMBRE';
  fld_Presupuestos_RefreshDatasetCODIGOALBARAN = 'CODIGOALBARAN';

  { Presupuestos_RefreshDataset field indexes }
  idx_Presupuestos_RefreshDatasetCODIGO = 0;
  idx_Presupuestos_RefreshDatasetNOMBRE = 1;
  idx_Presupuestos_RefreshDatasetCODIGOALBARAN = 2;

  { 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_InformeCabeceraPresupuestoNIFCIF = 'NIFCIF';
  fld_InformeCabeceraPresupuestoNOMBRE = 'NOMBRE';
  fld_InformeCabeceraPresupuestoCALLE = 'CALLE';
  fld_InformeCabeceraPresupuestoCODIGOPOSTAL = 'CODIGOPOSTAL';
  fld_InformeCabeceraPresupuestoPOBLACION = 'POBLACION';
  fld_InformeCabeceraPresupuestoTELEFONO1 = 'TELEFONO1';
  fld_InformeCabeceraPresupuestoTELEFONO2 = 'TELEFONO2';
  fld_InformeCabeceraPresupuestoMOVIL = 'MOVIL';

  { 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_InformeCabeceraPresupuestoNIFCIF = 20;
  idx_InformeCabeceraPresupuestoNOMBRE = 21;
  idx_InformeCabeceraPresupuestoCALLE = 22;
  idx_InformeCabeceraPresupuestoCODIGOPOSTAL = 23;
  idx_InformeCabeceraPresupuestoPOBLACION = 24;
  idx_InformeCabeceraPresupuestoTELEFONO1 = 25;
  idx_InformeCabeceraPresupuestoTELEFONO2 = 26;
  idx_InformeCabeceraPresupuestoMOVIL = 27;

  { 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';

  { 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;

type
  { IDarReferenciaPresupuesto }
  IDarReferenciaPresupuesto = interface(IDAStronglyTypedDataTable)
  ['{6CD77B4B-D69F-48E4-9BC2-D49CDBB89798}']
    { Property getters and setters }
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);


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

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

  { IDetallesPresupuestos }
  IDetallesPresupuestos = interface(IDAStronglyTypedDataTable)
  ['{30E52FE3-133B-4AB5-85F0-F01A84D6162D}']
    { 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);


    { 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;
  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;

    { 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;

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

  end;

  { IPresupuestos }
  IPresupuestos = interface(IDAStronglyTypedDataTable)
  ['{C6AAEE5B-6CC8-4519-9416-1E17CDEA4A8A}']
    { 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 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);


    { 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 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;
  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 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;

    { 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 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;

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

  end;

  { IPresupuestos_RefreshDataset }
  IPresupuestos_RefreshDataset = interface(IDAStronglyTypedDataTable)
  ['{2F046E60-C8D2-49C2-AC38-3F6719F67190}']
    { Property getters and setters }
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetCODIGOALBARANValue: Integer;
    procedure SetCODIGOALBARANValue(const aValue: Integer);


    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;
  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 GetCODIGOALBARANValue: Integer; virtual;
    procedure SetCODIGOALBARANValue(const aValue: Integer); virtual;

    { Properties }
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue;

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

  end;

  { IInformeCabeceraPresupuesto }
  IInformeCabeceraPresupuesto = interface(IDAStronglyTypedDataTable)
  ['{0DBF6148-74D7-4B5F-87D8-F7A9B7C52824}']
    { 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 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 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 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;

  { 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 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 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 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;

  { IInformeDetallesPresupuesto }
  IInformeDetallesPresupuesto = interface(IDAStronglyTypedDataTable)
  ['{6BECDEAC-58B6-4E27-B009-BBAECA446FD8}']
    { 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);


    { 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;
  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;

    { 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;

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

  end;

implementation

uses Variants;

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

destructor TDarReferenciaPresupuestoDataTableRules.Destroy;
begin
  inherited;
end;

function TDarReferenciaPresupuestoDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_DarReferenciaPresupuestoREFERENCIA].AsString;
end;

procedure TDarReferenciaPresupuestoDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
  DataTable.Fields[idx_DarReferenciaPresupuestoREFERENCIA].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;


{ 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.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;


{ 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.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;


{ 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.GetNIFCIFValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPresupuestoNIFCIF].AsString;
end;

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


{ 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;


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

end.