FactuGES2/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas

unit schContratosClienteClient_Intf;

interface

uses
  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;

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_Valores = '{6425EDD9-EBD4-43FD-8545-FFEF34A8562A}';
  RID_Propiedades = '{0F975252-35A0-4D39-846F-4A63EE7B4E60}';
  RID_ListaAnosContratos = '{24E43FF1-C21B-46BB-B88C-17E3A68E3CA3}';
  RID_ContratosCliente = '{1866BCD5-3262-49D3-804C-401D7D3FCBE0}';
  RID_CapitulosPresupuesto = '{F8960438-1112-4E2B-8C4F-546552C38E66}';
  RID_ContratosCliente_Detalles = '{D7437C8C-E8C5-4877-A3BD-BAC0DB86C2DA}';

  { Data table names }
  nme_Valores = 'Valores';
  nme_Propiedades = 'Propiedades';
  nme_ListaAnosContratos = 'ListaAnosContratos';
  nme_ContratosCliente = 'ContratosCliente';
  nme_CapitulosPresupuesto = 'CapitulosPresupuesto';
  nme_ContratosCliente_Detalles = 'ContratosCliente_Detalles';

  { Valores fields }
  fld_ValoresID = 'ID';
  fld_ValoresID_PROPIEDAD = 'ID_PROPIEDAD';
  fld_ValoresDESCRIPCION = 'DESCRIPCION';

  { Valores field indexes }
  idx_ValoresID = 0;
  idx_ValoresID_PROPIEDAD = 1;
  idx_ValoresDESCRIPCION = 2;

  { Propiedades fields }
  fld_PropiedadesID = 'ID';
  fld_PropiedadesDESCRIPCION = 'DESCRIPCION';
  fld_PropiedadesID_PROPIEDAD_VALORES = 'ID_PROPIEDAD_VALORES';

  { Propiedades field indexes }
  idx_PropiedadesID = 0;
  idx_PropiedadesDESCRIPCION = 1;
  idx_PropiedadesID_PROPIEDAD_VALORES = 2;

  { ListaAnosContratos fields }
  fld_ListaAnosContratosANO = 'ANO';

  { ListaAnosContratos field indexes }
  idx_ListaAnosContratosANO = 0;

  { ContratosCliente fields }
  fld_ContratosClienteID = 'ID';
  fld_ContratosClienteID_EMPRESA = 'ID_EMPRESA';
  fld_ContratosClienteID_CLIENTE = 'ID_CLIENTE';
  fld_ContratosClienteNOMBRE_CLIENTE = 'NOMBRE_CLIENTE';
  fld_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 'NOMBRE_COMERCIAL_CLIENTE';
  fld_ContratosClienteNIF_CIF = 'NIF_CIF';
  fld_ContratosClienteNOMBRE = 'NOMBRE';
  fld_ContratosClienteCALLE = 'CALLE';
  fld_ContratosClientePOBLACION = 'POBLACION';
  fld_ContratosClientePROVINCIA = 'PROVINCIA';
  fld_ContratosClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
  fld_ContratosClienteREFERENCIA = 'REFERENCIA';
  fld_ContratosClienteFECHA_CONTRATO = 'FECHA_CONTRATO';
  fld_ContratosClienteSITUACION = 'SITUACION';
  fld_ContratosClienteFORMA_PAGO = 'FORMA_PAGO';
  fld_ContratosClientePLAZO_ENTREGA = 'PLAZO_ENTREGA';
  fld_ContratosClienteOBSERVACIONES = 'OBSERVACIONES';
  fld_ContratosClienteINCIDENCIAS = 'INCIDENCIAS';
  fld_ContratosClienteINCIDENCIAS_ACTIVAS = 'INCIDENCIAS_ACTIVAS';
  fld_ContratosClienteFECHA_ALTA = 'FECHA_ALTA';
  fld_ContratosClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
  fld_ContratosClienteUSUARIO = 'USUARIO';
  fld_ContratosClienteRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
  fld_ContratosClienteRE = 'RE';
  fld_ContratosClienteIMPORTE_RE = 'IMPORTE_RE';
  fld_ContratosClienteID_TIPO_IVA = 'ID_TIPO_IVA';
  fld_ContratosClienteIVA = 'IVA';
  fld_ContratosClienteIMPORTE_IVA = 'IMPORTE_IVA';
  fld_ContratosClienteIMPORTE_NETO = 'IMPORTE_NETO';
  fld_ContratosClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
  fld_ContratosClienteID_TIENDA = 'ID_TIENDA';
  fld_ContratosClienteTIENDA = 'TIENDA';
  fld_ContratosClienteBASE_IMPONIBLE = 'BASE_IMPONIBLE';
  fld_ContratosClienteDESCUENTO = 'DESCUENTO';
  fld_ContratosClienteIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
  fld_ContratosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
  fld_ContratosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
  fld_ContratosClienteID_VENDEDOR = 'ID_VENDEDOR';
  fld_ContratosClienteVENDEDOR = 'VENDEDOR';
  fld_ContratosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';

  { ContratosCliente field indexes }
  idx_ContratosClienteID = 0;
  idx_ContratosClienteID_EMPRESA = 1;
  idx_ContratosClienteID_CLIENTE = 2;
  idx_ContratosClienteNOMBRE_CLIENTE = 3;
  idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE = 4;
  idx_ContratosClienteNIF_CIF = 5;
  idx_ContratosClienteNOMBRE = 6;
  idx_ContratosClienteCALLE = 7;
  idx_ContratosClientePOBLACION = 8;
  idx_ContratosClientePROVINCIA = 9;
  idx_ContratosClienteCODIGO_POSTAL = 10;
  idx_ContratosClienteREFERENCIA = 11;
  idx_ContratosClienteFECHA_CONTRATO = 12;
  idx_ContratosClienteSITUACION = 13;
  idx_ContratosClienteFORMA_PAGO = 14;
  idx_ContratosClientePLAZO_ENTREGA = 15;
  idx_ContratosClienteOBSERVACIONES = 16;
  idx_ContratosClienteINCIDENCIAS = 17;
  idx_ContratosClienteINCIDENCIAS_ACTIVAS = 18;
  idx_ContratosClienteFECHA_ALTA = 19;
  idx_ContratosClienteFECHA_MODIFICACION = 20;
  idx_ContratosClienteUSUARIO = 21;
  idx_ContratosClienteRECARGO_EQUIVALENCIA = 22;
  idx_ContratosClienteRE = 23;
  idx_ContratosClienteIMPORTE_RE = 24;
  idx_ContratosClienteID_TIPO_IVA = 25;
  idx_ContratosClienteIVA = 26;
  idx_ContratosClienteIMPORTE_IVA = 27;
  idx_ContratosClienteIMPORTE_NETO = 28;
  idx_ContratosClienteIMPORTE_PORTE = 29;
  idx_ContratosClienteID_TIENDA = 30;
  idx_ContratosClienteTIENDA = 31;
  idx_ContratosClienteBASE_IMPONIBLE = 32;
  idx_ContratosClienteDESCUENTO = 33;
  idx_ContratosClienteIMPORTE_DESCUENTO = 34;
  idx_ContratosClienteIMPORTE_TOTAL = 35;
  idx_ContratosClienteID_FORMA_PAGO = 36;
  idx_ContratosClienteID_VENDEDOR = 37;
  idx_ContratosClienteVENDEDOR = 38;
  idx_ContratosClientePERSONA_CONTACTO = 39;

  { CapitulosPresupuesto fields }
  fld_CapitulosPresupuestoID = 'ID';
  fld_CapitulosPresupuestoPOSICION = 'POSICION';
  fld_CapitulosPresupuestoTIPO_DETALLE = 'TIPO_DETALLE';
  fld_CapitulosPresupuestoTIPO_ARTICULO = 'TIPO_ARTICULO';
  fld_CapitulosPresupuestoID_ARTICULO = 'ID_ARTICULO';
  fld_CapitulosPresupuestoCONCEPTO = 'CONCEPTO';

  { CapitulosPresupuesto field indexes }
  idx_CapitulosPresupuestoID = 0;
  idx_CapitulosPresupuestoPOSICION = 1;
  idx_CapitulosPresupuestoTIPO_DETALLE = 2;
  idx_CapitulosPresupuestoTIPO_ARTICULO = 3;
  idx_CapitulosPresupuestoID_ARTICULO = 4;
  idx_CapitulosPresupuestoCONCEPTO = 5;

  { ContratosCliente_Detalles fields }
  fld_ContratosCliente_DetallesID = 'ID';
  fld_ContratosCliente_DetallesID_CONTRATO = 'ID_CONTRATO';
  fld_ContratosCliente_DetallesPOSICION = 'POSICION';
  fld_ContratosCliente_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
  fld_ContratosCliente_DetallesCONCEPTO = 'CONCEPTO';
  fld_ContratosCliente_DetallesCANTIDAD = 'CANTIDAD';
  fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
  fld_ContratosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
  fld_ContratosCliente_DetallesVISIBLE = 'VISIBLE';
  fld_ContratosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
  fld_ContratosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO';
  fld_ContratosCliente_DetallesDESCUENTO = 'DESCUENTO';
  fld_ContratosCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
  fld_ContratosCliente_DetallesREFERENCIA = 'REFERENCIA';
  fld_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';

  { ContratosCliente_Detalles field indexes }
  idx_ContratosCliente_DetallesID = 0;
  idx_ContratosCliente_DetallesID_CONTRATO = 1;
  idx_ContratosCliente_DetallesPOSICION = 2;
  idx_ContratosCliente_DetallesTIPO_DETALLE = 3;
  idx_ContratosCliente_DetallesCONCEPTO = 4;
  idx_ContratosCliente_DetallesCANTIDAD = 5;
  idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 6;
  idx_ContratosCliente_DetallesIMPORTE_TOTAL = 7;
  idx_ContratosCliente_DetallesVISIBLE = 8;
  idx_ContratosCliente_DetallesID_ARTICULO = 9;
  idx_ContratosCliente_DetallesTIPO_ARTICULO = 10;
  idx_ContratosCliente_DetallesDESCUENTO = 11;
  idx_ContratosCliente_DetallesIMPORTE_PORTE = 12;
  idx_ContratosCliente_DetallesREFERENCIA = 13;
  idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 14;

type
  { IValores }
  IValores = interface(IDAStronglyTypedDataTable)
  ['{654B9338-5C3E-46DC-9D3B-FEE5C1362851}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetID_PROPIEDADValue: Integer;
    procedure SetID_PROPIEDADValue(const aValue: Integer);
    function GetID_PROPIEDADIsNull: Boolean;
    procedure SetID_PROPIEDADIsNull(const aValue: Boolean);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetDESCRIPCIONIsNull: Boolean;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
    property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
  end;

  { TValoresDataTableRules }
  TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_PROPIEDADValue: Integer; virtual;
    procedure SetID_PROPIEDADValue(const aValue: Integer); virtual;
    function GetID_PROPIEDADIsNull: Boolean; virtual;
    procedure SetID_PROPIEDADIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_PROPIEDAD: Integer read GetID_PROPIEDADValue write SetID_PROPIEDADValue;
    property ID_PROPIEDADIsNull: Boolean read GetID_PROPIEDADIsNull write SetID_PROPIEDADIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;

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

  end;

  { IPropiedades }
  IPropiedades = interface(IDAStronglyTypedDataTable)
  ['{EE7E48A1-556F-4CCD-A5C0-310C33E76C05}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetDESCRIPCIONIsNull: Boolean;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
    function GetID_PROPIEDAD_VALORESValue: Integer;
    procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
    function GetID_PROPIEDAD_VALORESIsNull: Boolean;
    procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
    property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;
  end;

  { TPropiedadesDataTableRules }
  TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetDESCRIPCIONIsNull: Boolean; virtual;
    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
    function GetID_PROPIEDAD_VALORESValue: Integer; virtual;
    procedure SetID_PROPIEDAD_VALORESValue(const aValue: Integer); virtual;
    function GetID_PROPIEDAD_VALORESIsNull: Boolean; virtual;
    procedure SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
    property ID_PROPIEDAD_VALORES: Integer read GetID_PROPIEDAD_VALORESValue write SetID_PROPIEDAD_VALORESValue;
    property ID_PROPIEDAD_VALORESIsNull: Boolean read GetID_PROPIEDAD_VALORESIsNull write SetID_PROPIEDAD_VALORESIsNull;

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

  end;

  { IListaAnosContratos }
  IListaAnosContratos = interface(IDAStronglyTypedDataTable)
  ['{BDEFFDA8-85EB-4B16-9E08-C3CD397B2F70}']
    { Property getters and setters }
    function GetANOValue: String;
    procedure SetANOValue(const aValue: String);
    function GetANOIsNull: Boolean;
    procedure SetANOIsNull(const aValue: Boolean);


    { Properties }
    property ANO: String read GetANOValue write SetANOValue;
    property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
  end;

  { TListaAnosContratosDataTableRules }
  TListaAnosContratosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosContratos)
  private
  protected
    { Property getters and setters }
    function GetANOValue: String; virtual;
    procedure SetANOValue(const aValue: String); virtual;
    function GetANOIsNull: Boolean; virtual;
    procedure SetANOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ANO: String read GetANOValue write SetANOValue;
    property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;

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

  end;

  { IContratosCliente }
  IContratosCliente = interface(IDAStronglyTypedDataTable)
  ['{71B11240-6256-418D-82D7-5586D8A10591}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetID_EMPRESAValue: Integer;
    procedure SetID_EMPRESAValue(const aValue: Integer);
    function GetID_EMPRESAIsNull: Boolean;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean);
    function GetID_CLIENTEValue: Integer;
    procedure SetID_CLIENTEValue(const aValue: Integer);
    function GetID_CLIENTEIsNull: Boolean;
    procedure SetID_CLIENTEIsNull(const aValue: Boolean);
    function GetNOMBRE_CLIENTEValue: String;
    procedure SetNOMBRE_CLIENTEValue(const aValue: String);
    function GetNOMBRE_CLIENTEIsNull: Boolean;
    procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
    function GetNOMBRE_COMERCIAL_CLIENTEValue: String;
    procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
    function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean;
    procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
    function GetNIF_CIFValue: String;
    procedure SetNIF_CIFValue(const aValue: String);
    function GetNIF_CIFIsNull: Boolean;
    procedure SetNIF_CIFIsNull(const aValue: Boolean);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetNOMBREIsNull: Boolean;
    procedure SetNOMBREIsNull(const aValue: Boolean);
    function GetCALLEValue: String;
    procedure SetCALLEValue(const aValue: String);
    function GetCALLEIsNull: Boolean;
    procedure SetCALLEIsNull(const aValue: Boolean);
    function GetPOBLACIONValue: String;
    procedure SetPOBLACIONValue(const aValue: String);
    function GetPOBLACIONIsNull: Boolean;
    procedure SetPOBLACIONIsNull(const aValue: Boolean);
    function GetPROVINCIAValue: String;
    procedure SetPROVINCIAValue(const aValue: String);
    function GetPROVINCIAIsNull: Boolean;
    procedure SetPROVINCIAIsNull(const aValue: Boolean);
    function GetCODIGO_POSTALValue: String;
    procedure SetCODIGO_POSTALValue(const aValue: String);
    function GetCODIGO_POSTALIsNull: Boolean;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetREFERENCIAIsNull: Boolean;
    procedure SetREFERENCIAIsNull(const aValue: Boolean);
    function GetFECHA_CONTRATOValue: DateTime;
    procedure SetFECHA_CONTRATOValue(const aValue: DateTime);
    function GetFECHA_CONTRATOIsNull: Boolean;
    procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetSITUACIONIsNull: Boolean;
    procedure SetSITUACIONIsNull(const aValue: Boolean);
    function GetFORMA_PAGOValue: IROStrings;
    function GetFORMA_PAGOIsNull: Boolean;
    procedure SetFORMA_PAGOIsNull(const aValue: Boolean);
    function GetPLAZO_ENTREGAValue: IROStrings;
    function GetPLAZO_ENTREGAIsNull: Boolean;
    procedure SetPLAZO_ENTREGAIsNull(const aValue: Boolean);
    function GetOBSERVACIONESValue: IROStrings;
    function GetOBSERVACIONESIsNull: Boolean;
    procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
    function GetINCIDENCIASValue: IROStrings;
    function GetINCIDENCIASIsNull: Boolean;
    procedure SetINCIDENCIASIsNull(const aValue: Boolean);
    function GetINCIDENCIAS_ACTIVASValue: Integer;
    procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
    function GetINCIDENCIAS_ACTIVASIsNull: Boolean;
    procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean);
    function GetFECHA_ALTAValue: DateTime;
    procedure SetFECHA_ALTAValue(const aValue: DateTime);
    function GetFECHA_ALTAIsNull: Boolean;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
    function GetFECHA_MODIFICACIONValue: DateTime;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
    function GetFECHA_MODIFICACIONIsNull: Boolean;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetUSUARIOIsNull: Boolean;
    procedure SetUSUARIOIsNull(const aValue: Boolean);
    function GetRECARGO_EQUIVALENCIAValue: SmallInt;
    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
    function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
    procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
    function GetREValue: Float;
    procedure SetREValue(const aValue: Float);
    function GetREIsNull: Boolean;
    procedure SetREIsNull(const aValue: Boolean);
    function GetIMPORTE_REValue: Currency;
    procedure SetIMPORTE_REValue(const aValue: Currency);
    function GetIMPORTE_REIsNull: Boolean;
    procedure SetIMPORTE_REIsNull(const aValue: Boolean);
    function GetID_TIPO_IVAValue: Integer;
    procedure SetID_TIPO_IVAValue(const aValue: Integer);
    function GetID_TIPO_IVAIsNull: Boolean;
    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean);
    function GetIVAValue: Float;
    procedure SetIVAValue(const aValue: Float);
    function GetIVAIsNull: Boolean;
    procedure SetIVAIsNull(const aValue: Boolean);
    function GetIMPORTE_IVAValue: Currency;
    procedure SetIMPORTE_IVAValue(const aValue: Currency);
    function GetIMPORTE_IVAIsNull: Boolean;
    procedure SetIMPORTE_IVAIsNull(const aValue: Boolean);
    function GetIMPORTE_NETOValue: Currency;
    procedure SetIMPORTE_NETOValue(const aValue: Currency);
    function GetIMPORTE_NETOIsNull: Boolean;
    procedure SetIMPORTE_NETOIsNull(const aValue: Boolean);
    function GetIMPORTE_PORTEValue: Currency;
    procedure SetIMPORTE_PORTEValue(const aValue: Currency);
    function GetIMPORTE_PORTEIsNull: Boolean;
    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
    function GetID_TIENDAValue: Integer;
    procedure SetID_TIENDAValue(const aValue: Integer);
    function GetID_TIENDAIsNull: Boolean;
    procedure SetID_TIENDAIsNull(const aValue: Boolean);
    function GetTIENDAValue: String;
    procedure SetTIENDAValue(const aValue: String);
    function GetTIENDAIsNull: Boolean;
    procedure SetTIENDAIsNull(const aValue: Boolean);
    function GetBASE_IMPONIBLEValue: Currency;
    procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
    function GetBASE_IMPONIBLEIsNull: Boolean;
    procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetDESCUENTOIsNull: Boolean;
    procedure SetDESCUENTOIsNull(const aValue: Boolean);
    function GetIMPORTE_DESCUENTOValue: Currency;
    procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
    function GetIMPORTE_DESCUENTOIsNull: Boolean;
    procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
    function GetIMPORTE_TOTALValue: Currency;
    procedure SetIMPORTE_TOTALValue(const aValue: Currency);
    function GetIMPORTE_TOTALIsNull: Boolean;
    procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
    function GetID_FORMA_PAGOValue: Integer;
    procedure SetID_FORMA_PAGOValue(const aValue: Integer);
    function GetID_FORMA_PAGOIsNull: Boolean;
    procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
    function GetID_VENDEDORValue: Integer;
    procedure SetID_VENDEDORValue(const aValue: Integer);
    function GetID_VENDEDORIsNull: Boolean;
    procedure SetID_VENDEDORIsNull(const aValue: Boolean);
    function GetVENDEDORValue: String;
    procedure SetVENDEDORValue(const aValue: String);
    function GetVENDEDORIsNull: Boolean;
    procedure SetVENDEDORIsNull(const aValue: Boolean);
    function GetPERSONA_CONTACTOValue: String;
    procedure SetPERSONA_CONTACTOValue(const aValue: String);
    function GetPERSONA_CONTACTOIsNull: Boolean;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
    property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
    property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
    property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
    property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
    property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
    property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
    property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
    property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue;
    property FORMA_PAGOIsNull: Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
    property PLAZO_ENTREGA: IROStrings read GetPLAZO_ENTREGAValue;
    property PLAZO_ENTREGAIsNull: Boolean read GetPLAZO_ENTREGAIsNull write SetPLAZO_ENTREGAIsNull;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
    property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
    property INCIDENCIAS: IROStrings read GetINCIDENCIASValue;
    property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
    property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
    property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
    property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
    property RE: Float read GetREValue write SetREValue;
    property REIsNull: Boolean read GetREIsNull write SetREIsNull;
    property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
    property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
    property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
    property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
    property IVA: Float read GetIVAValue write SetIVAValue;
    property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
    property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
    property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
    property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
    property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
    property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
    property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
    property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
    property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
    property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
    property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
    property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
    property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
    property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
    property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
    property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
    property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
    property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
    property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
    property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
    property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
    property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
    property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
  end;

  { TContratosClienteDataTableRules }
  TContratosClienteDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente)
  private
    f_FORMA_PAGO: IROStrings;
    f_PLAZO_ENTREGA: IROStrings;
    f_OBSERVACIONES: IROStrings;
    f_INCIDENCIAS: IROStrings;
    procedure FORMA_PAGO_OnChange(Sender: TObject);
    procedure PLAZO_ENTREGA_OnChange(Sender: TObject);
    procedure OBSERVACIONES_OnChange(Sender: TObject);
    procedure INCIDENCIAS_OnChange(Sender: TObject);
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_EMPRESAValue: Integer; virtual;
    procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
    function GetID_EMPRESAIsNull: Boolean; virtual;
    procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
    function GetID_CLIENTEValue: Integer; virtual;
    procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
    function GetID_CLIENTEIsNull: Boolean; virtual;
    procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
    function GetNOMBRE_CLIENTEValue: String; virtual;
    procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
    function GetNOMBRE_CLIENTEIsNull: Boolean; virtual;
    procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual;
    function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
    procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
    function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual;
    procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual;
    function GetNIF_CIFValue: String; virtual;
    procedure SetNIF_CIFValue(const aValue: String); virtual;
    function GetNIF_CIFIsNull: Boolean; virtual;
    procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetNOMBREIsNull: Boolean; virtual;
    procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
    function GetCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetCALLEIsNull: Boolean; virtual;
    procedure SetCALLEIsNull(const aValue: Boolean); virtual;
    function GetPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetPOBLACIONIsNull: Boolean; virtual;
    procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
    function GetPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetPROVINCIAIsNull: Boolean; virtual;
    procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
    function GetCODIGO_POSTALValue: String; virtual;
    procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
    function GetCODIGO_POSTALIsNull: Boolean; virtual;
    procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_CONTRATOValue: DateTime; virtual;
    procedure SetFECHA_CONTRATOValue(const aValue: DateTime); virtual;
    function GetFECHA_CONTRATOIsNull: Boolean; virtual;
    procedure SetFECHA_CONTRATOIsNull(const aValue: Boolean); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetSITUACIONIsNull: Boolean; virtual;
    procedure SetSITUACIONIsNull(const aValue: Boolean); virtual;
    function GetFORMA_PAGOValue: IROStrings; virtual;
    function GetFORMA_PAGOIsNull: Boolean; virtual;
    procedure SetFORMA_PAGOIsNull(const aValue: Boolean); virtual;
    function GetPLAZO_ENTREGAValue: IROStrings; virtual;
    function GetPLAZO_ENTREGAIsNull: Boolean; virtual;
    procedure SetPLAZO_ENTREGAIsNull(const aValue: Boolean); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    function GetOBSERVACIONESIsNull: Boolean; virtual;
    procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
    function GetINCIDENCIASValue: IROStrings; virtual;
    function GetINCIDENCIASIsNull: Boolean; virtual;
    procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual;
    function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
    procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
    function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
    procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual;
    function GetFECHA_ALTAValue: DateTime; virtual;
    procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
    function GetFECHA_ALTAIsNull: Boolean; virtual;
    procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
    function GetFECHA_MODIFICACIONValue: DateTime; virtual;
    procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
    function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
    procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetUSUARIOIsNull: Boolean; virtual;
    procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
    function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
    procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
    function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
    procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
    function GetREValue: Float; virtual;
    procedure SetREValue(const aValue: Float); virtual;
    function GetREIsNull: Boolean; virtual;
    procedure SetREIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_REValue: Currency; virtual;
    procedure SetIMPORTE_REValue(const aValue: Currency); virtual;
    function GetIMPORTE_REIsNull: Boolean; virtual;
    procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual;
    function GetID_TIPO_IVAValue: Integer; virtual;
    procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
    function GetID_TIPO_IVAIsNull: Boolean; virtual;
    procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
    function GetIVAValue: Float; virtual;
    procedure SetIVAValue(const aValue: Float); virtual;
    function GetIVAIsNull: Boolean; virtual;
    procedure SetIVAIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_IVAValue: Currency; virtual;
    procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
    function GetIMPORTE_IVAIsNull: Boolean; virtual;
    procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_NETOValue: Currency; virtual;
    procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
    function GetIMPORTE_NETOIsNull: Boolean; virtual;
    procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_PORTEValue: Currency; virtual;
    procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
    function GetIMPORTE_PORTEIsNull: Boolean; virtual;
    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
    function GetID_TIENDAValue: Integer; virtual;
    procedure SetID_TIENDAValue(const aValue: Integer); virtual;
    function GetID_TIENDAIsNull: Boolean; virtual;
    procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
    function GetTIENDAValue: String; virtual;
    procedure SetTIENDAValue(const aValue: String); virtual;
    function GetTIENDAIsNull: Boolean; virtual;
    procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
    function GetBASE_IMPONIBLEValue: Currency; virtual;
    procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
    function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
    procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetDESCUENTOIsNull: Boolean; virtual;
    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_DESCUENTOValue: Currency; virtual;
    procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
    function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
    procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_TOTALValue: Currency; virtual;
    procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
    function GetIMPORTE_TOTALIsNull: Boolean; virtual;
    procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
    function GetID_FORMA_PAGOValue: Integer; virtual;
    procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
    function GetID_FORMA_PAGOIsNull: Boolean; virtual;
    procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
    function GetID_VENDEDORValue: Integer; virtual;
    procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
    function GetID_VENDEDORIsNull: Boolean; virtual;
    procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual;
    function GetVENDEDORValue: String; virtual;
    procedure SetVENDEDORValue(const aValue: String); virtual;
    function GetVENDEDORIsNull: Boolean; virtual;
    procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
    function GetPERSONA_CONTACTOValue: String; virtual;
    procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
    function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
    procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
    property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
    property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
    property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
    property NOMBRE_CLIENTE: String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
    property NOMBRE_CLIENTEIsNull: Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull;
    property NOMBRE_COMERCIAL_CLIENTE: String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
    property NOMBRE_COMERCIAL_CLIENTEIsNull: Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull;
    property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue;
    property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
    property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
    property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property FECHA_CONTRATO: DateTime read GetFECHA_CONTRATOValue write SetFECHA_CONTRATOValue;
    property FECHA_CONTRATOIsNull: Boolean read GetFECHA_CONTRATOIsNull write SetFECHA_CONTRATOIsNull;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull;
    property FORMA_PAGO: IROStrings read GetFORMA_PAGOValue;
    property FORMA_PAGOIsNull: Boolean read GetFORMA_PAGOIsNull write SetFORMA_PAGOIsNull;
    property PLAZO_ENTREGA: IROStrings read GetPLAZO_ENTREGAValue;
    property PLAZO_ENTREGAIsNull: Boolean read GetPLAZO_ENTREGAIsNull write SetPLAZO_ENTREGAIsNull;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
    property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
    property INCIDENCIAS: IROStrings read GetINCIDENCIASValue;
    property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
    property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
    property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
    property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
    property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
    property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
    property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
    property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
    property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
    property RE: Float read GetREValue write SetREValue;
    property REIsNull: Boolean read GetREIsNull write SetREIsNull;
    property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
    property IMPORTE_REIsNull: Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull;
    property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
    property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
    property IVA: Float read GetIVAValue write SetIVAValue;
    property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
    property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
    property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
    property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
    property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
    property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
    property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
    property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
    property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
    property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
    property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
    property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
    property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
    property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
    property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
    property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
    property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
    property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
    property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
    property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
    property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
    property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
    property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
    property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;

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

  end;

  {
  No tocar es la lista de distintos capitulos existentes
  }
  { ICapitulosPresupuesto }
  ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
  ['{2187AEED-477B-45C3-BBBF-270822AF8DF1}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetPOSICIONValue: Integer;
    procedure SetPOSICIONValue(const aValue: Integer);
    function GetPOSICIONIsNull: Boolean;
    procedure SetPOSICIONIsNull(const aValue: Boolean);
    function GetTIPO_DETALLEValue: String;
    procedure SetTIPO_DETALLEValue(const aValue: String);
    function GetTIPO_DETALLEIsNull: Boolean;
    procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
    function GetTIPO_ARTICULOValue: String;
    procedure SetTIPO_ARTICULOValue(const aValue: String);
    function GetTIPO_ARTICULOIsNull: Boolean;
    procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean);
    function GetID_ARTICULOValue: Integer;
    procedure SetID_ARTICULOValue(const aValue: Integer);
    function GetID_ARTICULOIsNull: Boolean;
    procedure SetID_ARTICULOIsNull(const aValue: Boolean);
    function GetCONCEPTOValue: String;
    procedure SetCONCEPTOValue(const aValue: String);
    function GetCONCEPTOIsNull: Boolean;
    procedure SetCONCEPTOIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
    property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
    property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
    property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
    property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
    property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
    property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
  end;

  { TCapitulosPresupuestoDataTableRules }
  TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetPOSICIONIsNull: Boolean; virtual;
    procedure SetPOSICIONIsNull(const aValue: Boolean); virtual;
    function GetTIPO_DETALLEValue: String; virtual;
    procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
    function GetTIPO_DETALLEIsNull: Boolean; virtual;
    procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
    function GetTIPO_ARTICULOValue: String; virtual;
    procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
    function GetTIPO_ARTICULOIsNull: Boolean; virtual;
    procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetID_ARTICULOIsNull: Boolean; virtual;
    procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
    function GetCONCEPTOValue: String; virtual;
    procedure SetCONCEPTOValue(const aValue: String); virtual;
    function GetCONCEPTOIsNull: Boolean; virtual;
    procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
    property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
    property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
    property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
    property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
    property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
    property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;

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

  end;

  { IContratosCliente_Detalles }
  IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
  ['{AE19F002-20B5-4F2A-9EDE-C17C3DA772EA}']
    { Property getters and setters }
    function GetIDValue: Integer;
    procedure SetIDValue(const aValue: Integer);
    function GetIDIsNull: Boolean;
    procedure SetIDIsNull(const aValue: Boolean);
    function GetID_CONTRATOValue: Integer;
    procedure SetID_CONTRATOValue(const aValue: Integer);
    function GetID_CONTRATOIsNull: Boolean;
    procedure SetID_CONTRATOIsNull(const aValue: Boolean);
    function GetPOSICIONValue: Integer;
    procedure SetPOSICIONValue(const aValue: Integer);
    function GetPOSICIONIsNull: Boolean;
    procedure SetPOSICIONIsNull(const aValue: Boolean);
    function GetTIPO_DETALLEValue: String;
    procedure SetTIPO_DETALLEValue(const aValue: String);
    function GetTIPO_DETALLEIsNull: Boolean;
    procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
    function GetCONCEPTOValue: String;
    procedure SetCONCEPTOValue(const aValue: String);
    function GetCONCEPTOIsNull: Boolean;
    procedure SetCONCEPTOIsNull(const aValue: Boolean);
    function GetCANTIDADValue: Integer;
    procedure SetCANTIDADValue(const aValue: Integer);
    function GetCANTIDADIsNull: Boolean;
    procedure SetCANTIDADIsNull(const aValue: Boolean);
    function GetIMPORTE_UNIDADValue: Currency;
    procedure SetIMPORTE_UNIDADValue(const aValue: Currency);
    function GetIMPORTE_UNIDADIsNull: Boolean;
    procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
    function GetIMPORTE_TOTALValue: Currency;
    procedure SetIMPORTE_TOTALValue(const aValue: Currency);
    function GetIMPORTE_TOTALIsNull: Boolean;
    procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
    function GetVISIBLEValue: SmallInt;
    procedure SetVISIBLEValue(const aValue: SmallInt);
    function GetVISIBLEIsNull: Boolean;
    procedure SetVISIBLEIsNull(const aValue: Boolean);
    function GetID_ARTICULOValue: Integer;
    procedure SetID_ARTICULOValue(const aValue: Integer);
    function GetID_ARTICULOIsNull: Boolean;
    procedure SetID_ARTICULOIsNull(const aValue: Boolean);
    function GetTIPO_ARTICULOValue: String;
    procedure SetTIPO_ARTICULOValue(const aValue: String);
    function GetTIPO_ARTICULOIsNull: Boolean;
    procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean);
    function GetDESCUENTOValue: Float;
    procedure SetDESCUENTOValue(const aValue: Float);
    function GetDESCUENTOIsNull: Boolean;
    procedure SetDESCUENTOIsNull(const aValue: Boolean);
    function GetIMPORTE_PORTEValue: Currency;
    procedure SetIMPORTE_PORTEValue(const aValue: Currency);
    function GetIMPORTE_PORTEIsNull: Boolean;
    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetREFERENCIAIsNull: Boolean;
    procedure SetREFERENCIAIsNull(const aValue: Boolean);
    function GetREFERENCIA_PROVEEDORValue: String;
    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
    function GetREFERENCIA_PROVEEDORIsNull: Boolean;
    procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);


    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
    property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
    property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
    property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
    property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
    property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
    property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
    property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
    property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
    property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
    property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
    property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
    property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
    property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
    property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
    property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
  end;

  { TContratosCliente_DetallesDataTableRules }
  TContratosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IContratosCliente_Detalles)
  private
  protected
    { Property getters and setters }
    function GetIDValue: Integer; virtual;
    procedure SetIDValue(const aValue: Integer); virtual;
    function GetIDIsNull: Boolean; virtual;
    procedure SetIDIsNull(const aValue: Boolean); virtual;
    function GetID_CONTRATOValue: Integer; virtual;
    procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
    function GetID_CONTRATOIsNull: Boolean; virtual;
    procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
    function GetPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetPOSICIONIsNull: Boolean; virtual;
    procedure SetPOSICIONIsNull(const aValue: Boolean); virtual;
    function GetTIPO_DETALLEValue: String; virtual;
    procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
    function GetTIPO_DETALLEIsNull: Boolean; virtual;
    procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
    function GetCONCEPTOValue: String; virtual;
    procedure SetCONCEPTOValue(const aValue: String); virtual;
    function GetCONCEPTOIsNull: Boolean; virtual;
    procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
    function GetCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetCANTIDADIsNull: Boolean; virtual;
    procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_UNIDADValue: Currency; virtual;
    procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
    function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
    procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_TOTALValue: Currency; virtual;
    procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
    function GetIMPORTE_TOTALIsNull: Boolean; virtual;
    procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
    function GetVISIBLEValue: SmallInt; virtual;
    procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
    function GetVISIBLEIsNull: Boolean; virtual;
    procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
    function GetID_ARTICULOValue: Integer; virtual;
    procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
    function GetID_ARTICULOIsNull: Boolean; virtual;
    procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
    function GetTIPO_ARTICULOValue: String; virtual;
    procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
    function GetTIPO_ARTICULOIsNull: Boolean; virtual;
    procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
    function GetDESCUENTOValue: Float; virtual;
    procedure SetDESCUENTOValue(const aValue: Float); virtual;
    function GetDESCUENTOIsNull: Boolean; virtual;
    procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
    function GetIMPORTE_PORTEValue: Currency; virtual;
    procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
    function GetIMPORTE_PORTEIsNull: Boolean; virtual;
    procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetREFERENCIAIsNull: Boolean; virtual;
    procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
    function GetREFERENCIA_PROVEEDORValue: String; virtual;
    procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
    function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
    procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;

    { Properties }
    property ID: Integer read GetIDValue write SetIDValue;
    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
    property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
    property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
    property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
    property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
    property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
    property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
    property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
    property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
    property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
    property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
    property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
    property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
    property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
    property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
    property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
    property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
    property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
    property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
    property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
    property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
    property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
    property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;

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

  end;

implementation

uses Variants, uROBinaryHelpers;

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

destructor TValoresDataTableRules.Destroy;
begin
  inherited;
end;

function TValoresDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_ValoresID].AsInteger;
end;

procedure TValoresDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ValoresID].AsInteger := aValue;
end;

function TValoresDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_ValoresID].IsNull;
end;

procedure TValoresDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ValoresID].AsVariant := Null;
end;

function TValoresDataTableRules.GetID_PROPIEDADValue: Integer;
begin
  result := DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger;
end;

procedure TValoresDataTableRules.SetID_PROPIEDADValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ValoresID_PROPIEDAD].AsInteger := aValue;
end;

function TValoresDataTableRules.GetID_PROPIEDADIsNull: boolean;
begin
  result := DataTable.Fields[idx_ValoresID_PROPIEDAD].IsNull;
end;

procedure TValoresDataTableRules.SetID_PROPIEDADIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ValoresID_PROPIEDAD].AsVariant := Null;
end;

function TValoresDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_ValoresDESCRIPCION].AsString;
end;

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

function TValoresDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_ValoresDESCRIPCION].IsNull;
end;

procedure TValoresDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ValoresDESCRIPCION].AsVariant := Null;
end;


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

destructor TPropiedadesDataTableRules.Destroy;
begin
  inherited;
end;

function TPropiedadesDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_PropiedadesID].AsInteger;
end;

procedure TPropiedadesDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_PropiedadesID].AsInteger := aValue;
end;

function TPropiedadesDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_PropiedadesID].IsNull;
end;

procedure TPropiedadesDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_PropiedadesID].AsVariant := Null;
end;

function TPropiedadesDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_PropiedadesDESCRIPCION].AsString;
end;

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

function TPropiedadesDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_PropiedadesDESCRIPCION].IsNull;
end;

procedure TPropiedadesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_PropiedadesDESCRIPCION].AsVariant := Null;
end;

function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESValue: Integer;
begin
  result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger;
end;

procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESValue(const aValue: Integer);
begin
  DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsInteger := aValue;
end;

function TPropiedadesDataTableRules.GetID_PROPIEDAD_VALORESIsNull: boolean;
begin
  result := DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].IsNull;
end;

procedure TPropiedadesDataTableRules.SetID_PROPIEDAD_VALORESIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_PropiedadesID_PROPIEDAD_VALORES].AsVariant := Null;
end;


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

destructor TListaAnosContratosDataTableRules.Destroy;
begin
  inherited;
end;

function TListaAnosContratosDataTableRules.GetANOValue: String;
begin
  result := DataTable.Fields[idx_ListaAnosContratosANO].AsString;
end;

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

function TListaAnosContratosDataTableRules.GetANOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ListaAnosContratosANO].IsNull;
end;

procedure TListaAnosContratosDataTableRules.SetANOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ListaAnosContratosANO].AsVariant := Null;
end;


{ TContratosClienteDataTableRules }
constructor TContratosClienteDataTableRules.Create(aDataTable: TDADataTable);
var
  StrList: TStringList;
begin
  inherited;

  StrList := TStringList.Create;
  StrList.OnChange := FORMA_PAGO_OnChange;
  f_FORMA_PAGO := NewROStrings(StrList,True);

  StrList := TStringList.Create;
  StrList.OnChange := PLAZO_ENTREGA_OnChange;
  f_PLAZO_ENTREGA := NewROStrings(StrList,True);

  StrList := TStringList.Create;
  StrList.OnChange := OBSERVACIONES_OnChange;
  f_OBSERVACIONES := NewROStrings(StrList,True);

  StrList := TStringList.Create;
  StrList.OnChange := INCIDENCIAS_OnChange;
  f_INCIDENCIAS := NewROStrings(StrList,True);
end;

destructor TContratosClienteDataTableRules.Destroy;
begin
  inherited;
end;

procedure TContratosClienteDataTableRules.FORMA_PAGO_OnChange(Sender: TObject);
begin
  if DataTable.Editing then DataTable.Fields[idx_ContratosClienteFORMA_PAGO].AsVariant := TStringList(Sender).Text;
end;

procedure TContratosClienteDataTableRules.PLAZO_ENTREGA_OnChange(Sender: TObject);
begin
  if DataTable.Editing then DataTable.Fields[idx_ContratosClientePLAZO_ENTREGA].AsVariant := TStringList(Sender).Text;
end;

procedure TContratosClienteDataTableRules.OBSERVACIONES_OnChange(Sender: TObject);
begin
  if DataTable.Editing then DataTable.Fields[idx_ContratosClienteOBSERVACIONES].AsVariant := TStringList(Sender).Text;
end;

procedure TContratosClienteDataTableRules.INCIDENCIAS_OnChange(Sender: TObject);
begin
  if DataTable.Editing then DataTable.Fields[idx_ContratosClienteINCIDENCIAS].AsVariant := TStringList(Sender).Text;
end;

function TContratosClienteDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosClienteID].AsInteger;
end;

procedure TContratosClienteDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosClienteID].AsInteger := aValue;
end;

function TContratosClienteDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteID].IsNull;
end;

procedure TContratosClienteDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteID].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetID_EMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosClienteID_EMPRESA].AsInteger;
end;

procedure TContratosClienteDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosClienteID_EMPRESA].AsInteger := aValue;
end;

function TContratosClienteDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteID_EMPRESA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteID_EMPRESA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetID_CLIENTEValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosClienteID_CLIENTE].AsInteger;
end;

procedure TContratosClienteDataTableRules.SetID_CLIENTEValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosClienteID_CLIENTE].AsInteger := aValue;
end;

function TContratosClienteDataTableRules.GetID_CLIENTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteID_CLIENTE].IsNull;
end;

procedure TContratosClienteDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteID_CLIENTE].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetNOMBRE_CLIENTEValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].AsString;
end;

procedure TContratosClienteDataTableRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].AsString := aValue;
end;

function TContratosClienteDataTableRules.GetNOMBRE_CLIENTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].IsNull;
end;

procedure TContratosClienteDataTableRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteNOMBRE_CLIENTE].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsString;
end;

procedure TContratosClienteDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsString := aValue;
end;

function TContratosClienteDataTableRules.GetNOMBRE_COMERCIAL_CLIENTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].IsNull;
end;

procedure TContratosClienteDataTableRules.SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteNOMBRE_COMERCIAL_CLIENTE].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetNIF_CIFValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteNIF_CIF].AsString;
end;

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

function TContratosClienteDataTableRules.GetNIF_CIFIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteNIF_CIF].IsNull;
end;

procedure TContratosClienteDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteNIF_CIF].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteNOMBRE].AsString;
end;

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

function TContratosClienteDataTableRules.GetNOMBREIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteNOMBRE].IsNull;
end;

procedure TContratosClienteDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteNOMBRE].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetCALLEValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteCALLE].AsString;
end;

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

function TContratosClienteDataTableRules.GetCALLEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteCALLE].IsNull;
end;

procedure TContratosClienteDataTableRules.SetCALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteCALLE].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetPOBLACIONValue: String;
begin
  result := DataTable.Fields[idx_ContratosClientePOBLACION].AsString;
end;

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

function TContratosClienteDataTableRules.GetPOBLACIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClientePOBLACION].IsNull;
end;

procedure TContratosClienteDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClientePOBLACION].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetPROVINCIAValue: String;
begin
  result := DataTable.Fields[idx_ContratosClientePROVINCIA].AsString;
end;

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

function TContratosClienteDataTableRules.GetPROVINCIAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClientePROVINCIA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClientePROVINCIA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetCODIGO_POSTALValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL].AsString;
end;

procedure TContratosClienteDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL].AsString := aValue;
end;

function TContratosClienteDataTableRules.GetCODIGO_POSTALIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL].IsNull;
end;

procedure TContratosClienteDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteCODIGO_POSTAL].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteREFERENCIA].AsString;
end;

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

function TContratosClienteDataTableRules.GetREFERENCIAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteREFERENCIA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteREFERENCIA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetFECHA_CONTRATOValue: DateTime;
begin
  result := DataTable.Fields[idx_ContratosClienteFECHA_CONTRATO].AsDateTime;
end;

procedure TContratosClienteDataTableRules.SetFECHA_CONTRATOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_ContratosClienteFECHA_CONTRATO].AsDateTime := aValue;
end;

function TContratosClienteDataTableRules.GetFECHA_CONTRATOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteFECHA_CONTRATO].IsNull;
end;

procedure TContratosClienteDataTableRules.SetFECHA_CONTRATOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteFECHA_CONTRATO].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteSITUACION].AsString;
end;

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

function TContratosClienteDataTableRules.GetSITUACIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteSITUACION].IsNull;
end;

procedure TContratosClienteDataTableRules.SetSITUACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteSITUACION].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetFORMA_PAGOValue: IROStrings;
begin
  result := f_FORMA_PAGO;
  result.Text := DataTable.Fields[idx_ContratosClienteFORMA_PAGO].AsString;
end;

function TContratosClienteDataTableRules.GetFORMA_PAGOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteFORMA_PAGO].IsNull;
end;

procedure TContratosClienteDataTableRules.SetFORMA_PAGOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteFORMA_PAGO].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetPLAZO_ENTREGAValue: IROStrings;
begin
  result := f_PLAZO_ENTREGA;
  result.Text := DataTable.Fields[idx_ContratosClientePLAZO_ENTREGA].AsString;
end;

function TContratosClienteDataTableRules.GetPLAZO_ENTREGAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClientePLAZO_ENTREGA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetPLAZO_ENTREGAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClientePLAZO_ENTREGA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := f_OBSERVACIONES;
  result.Text := DataTable.Fields[idx_ContratosClienteOBSERVACIONES].AsString;
end;

function TContratosClienteDataTableRules.GetOBSERVACIONESIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteOBSERVACIONES].IsNull;
end;

procedure TContratosClienteDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteOBSERVACIONES].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetINCIDENCIASValue: IROStrings;
begin
  result := f_INCIDENCIAS;
  result.Text := DataTable.Fields[idx_ContratosClienteINCIDENCIAS].AsString;
end;

function TContratosClienteDataTableRules.GetINCIDENCIASIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteINCIDENCIAS].IsNull;
end;

procedure TContratosClienteDataTableRules.SetINCIDENCIASIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteINCIDENCIAS].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosClienteINCIDENCIAS_ACTIVAS].AsInteger;
end;

procedure TContratosClienteDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosClienteINCIDENCIAS_ACTIVAS].AsInteger := aValue;
end;

function TContratosClienteDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteINCIDENCIAS_ACTIVAS].IsNull;
end;

procedure TContratosClienteDataTableRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteINCIDENCIAS_ACTIVAS].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_ContratosClienteFECHA_ALTA].AsDateTime;
end;

procedure TContratosClienteDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_ContratosClienteFECHA_ALTA].AsDateTime := aValue;
end;

function TContratosClienteDataTableRules.GetFECHA_ALTAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteFECHA_ALTA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteFECHA_ALTA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
  result := DataTable.Fields[idx_ContratosClienteFECHA_MODIFICACION].AsDateTime;
end;

procedure TContratosClienteDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_ContratosClienteFECHA_MODIFICACION].AsDateTime := aValue;
end;

function TContratosClienteDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteFECHA_MODIFICACION].IsNull;
end;

procedure TContratosClienteDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteFECHA_MODIFICACION].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteUSUARIO].AsString;
end;

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

function TContratosClienteDataTableRules.GetUSUARIOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteUSUARIO].IsNull;
end;

procedure TContratosClienteDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteUSUARIO].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin
  result := DataTable.Fields[idx_ContratosClienteRECARGO_EQUIVALENCIA].AsSmallInt;
end;

procedure TContratosClienteDataTableRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
begin
  DataTable.Fields[idx_ContratosClienteRECARGO_EQUIVALENCIA].AsSmallInt := aValue;
end;

function TContratosClienteDataTableRules.GetRECARGO_EQUIVALENCIAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteRECARGO_EQUIVALENCIA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteRECARGO_EQUIVALENCIA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetREValue: Float;
begin
  result := DataTable.Fields[idx_ContratosClienteRE].AsFloat;
end;

procedure TContratosClienteDataTableRules.SetREValue(const aValue: Float);
begin
  DataTable.Fields[idx_ContratosClienteRE].AsFloat := aValue;
end;

function TContratosClienteDataTableRules.GetREIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteRE].IsNull;
end;

procedure TContratosClienteDataTableRules.SetREIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteRE].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetIMPORTE_REValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_RE].AsCurrency;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_REValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosClienteIMPORTE_RE].AsCurrency := aValue;
end;

function TContratosClienteDataTableRules.GetIMPORTE_REIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_RE].IsNull;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_REIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteIMPORTE_RE].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetID_TIPO_IVAValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosClienteID_TIPO_IVA].AsInteger;
end;

procedure TContratosClienteDataTableRules.SetID_TIPO_IVAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosClienteID_TIPO_IVA].AsInteger := aValue;
end;

function TContratosClienteDataTableRules.GetID_TIPO_IVAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteID_TIPO_IVA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteID_TIPO_IVA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetIVAValue: Float;
begin
  result := DataTable.Fields[idx_ContratosClienteIVA].AsFloat;
end;

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

function TContratosClienteDataTableRules.GetIVAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteIVA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetIVAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteIVA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetIMPORTE_IVAValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_IVA].AsCurrency;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosClienteIMPORTE_IVA].AsCurrency := aValue;
end;

function TContratosClienteDataTableRules.GetIMPORTE_IVAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_IVA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteIMPORTE_IVA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetIMPORTE_NETOValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_NETO].AsCurrency;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosClienteIMPORTE_NETO].AsCurrency := aValue;
end;

function TContratosClienteDataTableRules.GetIMPORTE_NETOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_NETO].IsNull;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteIMPORTE_NETO].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetIMPORTE_PORTEValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_PORTE].AsCurrency;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosClienteIMPORTE_PORTE].AsCurrency := aValue;
end;

function TContratosClienteDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_PORTE].IsNull;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteIMPORTE_PORTE].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetID_TIENDAValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosClienteID_TIENDA].AsInteger;
end;

procedure TContratosClienteDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosClienteID_TIENDA].AsInteger := aValue;
end;

function TContratosClienteDataTableRules.GetID_TIENDAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteID_TIENDA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteID_TIENDA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetTIENDAValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteTIENDA].AsString;
end;

procedure TContratosClienteDataTableRules.SetTIENDAValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosClienteTIENDA].AsString := aValue;
end;

function TContratosClienteDataTableRules.GetTIENDAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteTIENDA].IsNull;
end;

procedure TContratosClienteDataTableRules.SetTIENDAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteTIENDA].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetBASE_IMPONIBLEValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosClienteBASE_IMPONIBLE].AsCurrency;
end;

procedure TContratosClienteDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosClienteBASE_IMPONIBLE].AsCurrency := aValue;
end;

function TContratosClienteDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteBASE_IMPONIBLE].IsNull;
end;

procedure TContratosClienteDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteBASE_IMPONIBLE].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_ContratosClienteDESCUENTO].AsFloat;
end;

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

function TContratosClienteDataTableRules.GetDESCUENTOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteDESCUENTO].IsNull;
end;

procedure TContratosClienteDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteDESCUENTO].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetIMPORTE_DESCUENTOValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_DESCUENTO].AsCurrency;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosClienteIMPORTE_DESCUENTO].AsCurrency := aValue;
end;

function TContratosClienteDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_DESCUENTO].IsNull;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteIMPORTE_DESCUENTO].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetIMPORTE_TOTALValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_TOTAL].AsCurrency;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosClienteIMPORTE_TOTAL].AsCurrency := aValue;
end;

function TContratosClienteDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteIMPORTE_TOTAL].IsNull;
end;

procedure TContratosClienteDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteIMPORTE_TOTAL].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetID_FORMA_PAGOValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosClienteID_FORMA_PAGO].AsInteger;
end;

procedure TContratosClienteDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosClienteID_FORMA_PAGO].AsInteger := aValue;
end;

function TContratosClienteDataTableRules.GetID_FORMA_PAGOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteID_FORMA_PAGO].IsNull;
end;

procedure TContratosClienteDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteID_FORMA_PAGO].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetID_VENDEDORValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosClienteID_VENDEDOR].AsInteger;
end;

procedure TContratosClienteDataTableRules.SetID_VENDEDORValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosClienteID_VENDEDOR].AsInteger := aValue;
end;

function TContratosClienteDataTableRules.GetID_VENDEDORIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteID_VENDEDOR].IsNull;
end;

procedure TContratosClienteDataTableRules.SetID_VENDEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteID_VENDEDOR].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetVENDEDORValue: String;
begin
  result := DataTable.Fields[idx_ContratosClienteVENDEDOR].AsString;
end;

procedure TContratosClienteDataTableRules.SetVENDEDORValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosClienteVENDEDOR].AsString := aValue;
end;

function TContratosClienteDataTableRules.GetVENDEDORIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClienteVENDEDOR].IsNull;
end;

procedure TContratosClienteDataTableRules.SetVENDEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClienteVENDEDOR].AsVariant := Null;
end;

function TContratosClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
  result := DataTable.Fields[idx_ContratosClientePERSONA_CONTACTO].AsString;
end;

procedure TContratosClienteDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosClientePERSONA_CONTACTO].AsString := aValue;
end;

function TContratosClienteDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosClientePERSONA_CONTACTO].IsNull;
end;

procedure TContratosClienteDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosClientePERSONA_CONTACTO].AsVariant := Null;
end;


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

destructor TCapitulosPresupuestoDataTableRules.Destroy;
begin
  inherited;
end;

function TCapitulosPresupuestoDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoID].AsInteger;
end;

procedure TCapitulosPresupuestoDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_CapitulosPresupuestoID].AsInteger := aValue;
end;

function TCapitulosPresupuestoDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoID].IsNull;
end;

procedure TCapitulosPresupuestoDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_CapitulosPresupuestoID].AsVariant := Null;
end;

function TCapitulosPresupuestoDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsInteger;
end;

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

function TCapitulosPresupuestoDataTableRules.GetPOSICIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoPOSICION].IsNull;
end;

procedure TCapitulosPresupuestoDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_CapitulosPresupuestoPOSICION].AsVariant := Null;
end;

function TCapitulosPresupuestoDataTableRules.GetTIPO_DETALLEValue: String;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsString;
end;

procedure TCapitulosPresupuestoDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
begin
  DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsString := aValue;
end;

function TCapitulosPresupuestoDataTableRules.GetTIPO_DETALLEIsNull: boolean;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].IsNull;
end;

procedure TCapitulosPresupuestoDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_CapitulosPresupuestoTIPO_DETALLE].AsVariant := Null;
end;

function TCapitulosPresupuestoDataTableRules.GetTIPO_ARTICULOValue: String;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsString;
end;

procedure TCapitulosPresupuestoDataTableRules.SetTIPO_ARTICULOValue(const aValue: String);
begin
  DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsString := aValue;
end;

function TCapitulosPresupuestoDataTableRules.GetTIPO_ARTICULOIsNull: boolean;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].IsNull;
end;

procedure TCapitulosPresupuestoDataTableRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_CapitulosPresupuestoTIPO_ARTICULO].AsVariant := Null;
end;

function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOValue: Integer;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger;
end;

procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsInteger := aValue;
end;

function TCapitulosPresupuestoDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].IsNull;
end;

procedure TCapitulosPresupuestoDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_CapitulosPresupuestoID_ARTICULO].AsVariant := Null;
end;

function TCapitulosPresupuestoDataTableRules.GetCONCEPTOValue: String;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString;
end;

procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOValue(const aValue: String);
begin
  DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsString := aValue;
end;

function TCapitulosPresupuestoDataTableRules.GetCONCEPTOIsNull: boolean;
begin
  result := DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].IsNull;
end;

procedure TCapitulosPresupuestoDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_CapitulosPresupuestoCONCEPTO].AsVariant := Null;
end;


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

destructor TContratosCliente_DetallesDataTableRules.Destroy;
begin
  inherited;
end;

function TContratosCliente_DetallesDataTableRules.GetIDValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesID].AsInteger;
end;

procedure TContratosCliente_DetallesDataTableRules.SetIDValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesID].AsInteger := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetIDIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesID].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesID].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetID_CONTRATOValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesID_CONTRATO].AsInteger;
end;

procedure TContratosCliente_DetallesDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesID_CONTRATO].AsInteger := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetID_CONTRATOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesID_CONTRATO].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesID_CONTRATO].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesPOSICION].AsInteger;
end;

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

function TContratosCliente_DetallesDataTableRules.GetPOSICIONIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesPOSICION].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesPOSICION].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetTIPO_DETALLEValue: String;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesTIPO_DETALLE].AsString;
end;

procedure TContratosCliente_DetallesDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesTIPO_DETALLE].AsString := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetTIPO_DETALLEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesTIPO_DETALLE].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesTIPO_DETALLE].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsString;
end;

procedure TContratosCliente_DetallesDataTableRules.SetCONCEPTOValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsString := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetCONCEPTOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesCONCEPTO].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsInteger;
end;

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

function TContratosCliente_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesCANTIDAD].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetIMPORTE_UNIDADValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_UNIDAD].AsCurrency;
end;

procedure TContratosCliente_DetallesDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_UNIDAD].AsCurrency := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetIMPORTE_UNIDADIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_UNIDAD].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_UNIDAD].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetIMPORTE_TOTALValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_TOTAL].AsCurrency;
end;

procedure TContratosCliente_DetallesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_TOTAL].AsCurrency := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_TOTAL].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsSmallInt;
end;

procedure TContratosCliente_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsSmallInt := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetVISIBLEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetVISIBLEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesID_ARTICULO].AsInteger;
end;

procedure TContratosCliente_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesID_ARTICULO].AsInteger := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesID_ARTICULO].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesID_ARTICULO].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetTIPO_ARTICULOValue: String;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesTIPO_ARTICULO].AsString;
end;

procedure TContratosCliente_DetallesDataTableRules.SetTIPO_ARTICULOValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesTIPO_ARTICULO].AsString := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetTIPO_ARTICULOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesTIPO_ARTICULO].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetTIPO_ARTICULOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesTIPO_ARTICULO].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetDESCUENTOValue: Float;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesDESCUENTO].AsFloat;
end;

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

function TContratosCliente_DetallesDataTableRules.GetDESCUENTOIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesDESCUENTO].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesDESCUENTO].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetIMPORTE_PORTEValue: Currency;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_PORTE].AsCurrency;
end;

procedure TContratosCliente_DetallesDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_PORTE].AsCurrency := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_PORTE].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_PORTE].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesREFERENCIA].AsString;
end;

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

function TContratosCliente_DetallesDataTableRules.GetREFERENCIAIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesREFERENCIA].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesREFERENCIA].AsVariant := Null;
end;

function TContratosCliente_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR].AsString;
end;

procedure TContratosCliente_DetallesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
  DataTable.Fields[idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR].AsString := aValue;
end;

function TContratosCliente_DetallesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean;
begin
  result := DataTable.Fields[idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR].IsNull;
end;

procedure TContratosCliente_DetallesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
begin
  if aValue then
    DataTable.Fields[idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null;
end;


initialization
  RegisterDataTableRules(RID_Valores, TValoresDataTableRules);
  RegisterDataTableRules(RID_Propiedades, TPropiedadesDataTableRules);
  RegisterDataTableRules(RID_ListaAnosContratos, TListaAnosContratosDataTableRules);
  RegisterDataTableRules(RID_ContratosCliente, TContratosClienteDataTableRules);
  RegisterDataTableRules(RID_CapitulosPresupuesto, TCapitulosPresupuestoDataTableRules);
  RegisterDataTableRules(RID_ContratosCliente_Detalles, TContratosCliente_DetallesDataTableRules);

end.