AlonsoYSal_FactuGES/Modulos/Montajes/Reglas/schMontajesClient_Intf.pas

unit schMontajesClient_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable;

const
  { Data table rules ids
       Feel free to change them to something more human readable
       but make sure they are unique in the context of your application }
  RID_ListaAnosMontajes = '{10881790-553A-425B-9F2E-0CC35DFE857E}';
  RID_darNuevaReferencia = '{60945159-4D44-4B8E-BC3E-1C95824A8AC2}';
  RID_InformeCabeceraFicha = '{E3EB8788-472C-486F-BCFC-E98118F19998}';
  RID_Montajes = '{A14C4188-93BF-4D1D-BE0A-9654CC28F4FD}';
  RID_Refresh_Montajes = '{82271F6F-81CF-4FF7-B441-119ECDA6237D}';
  RID_FichaBeneficios = '{B6BF0EDB-B4F1-4168-8DC7-1292216AA53C}';
  RID_InformeDetallesFicha = '{807EBD75-BB62-492F-A95D-D8FBE5A02B7E}';
  RID_FichaBeneficios_Aux = '{EB05CA72-57ED-46B0-AEAD-E782D88B0E28}';

  { Data table names }
  nme_ListaAnosMontajes = 'ListaAnosMontajes';
  nme_darNuevaReferencia = 'darNuevaReferencia';
  nme_InformeCabeceraFicha = 'InformeCabeceraFicha';
  nme_Montajes = 'Montajes';
  nme_Refresh_Montajes = 'Refresh_Montajes';
  nme_FichaBeneficios = 'FichaBeneficios';
  nme_InformeDetallesFicha = 'InformeDetallesFicha';
  nme_FichaBeneficios_Aux = 'FichaBeneficios_Aux';

  { ListaAnosMontajes fields }
  fld_ListaAnosMontajesANO = 'ANO';

  { ListaAnosMontajes field indexes }
  idx_ListaAnosMontajesANO = 0;

  { darNuevaReferencia fields }
  fld_darNuevaReferenciaREFERENCIA = 'REFERENCIA';

  { darNuevaReferencia field indexes }
  idx_darNuevaReferenciaREFERENCIA = 0;

  { InformeCabeceraFicha fields }
  fld_InformeCabeceraFichaREFERENCIA = 'REFERENCIA';
  fld_InformeCabeceraFichaFECHAINICIO = 'FECHAINICIO';
  fld_InformeCabeceraFichaFECHAFIN = 'FECHAFIN';
  fld_InformeCabeceraFichaSITUACION = 'SITUACION';
  fld_InformeCabeceraFichaOBSERVACIONES = 'OBSERVACIONES';
  fld_InformeCabeceraFichaCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_InformeCabeceraFichaNOMBRE = 'NOMBRE';
  fld_InformeCabeceraFichaNIFCIF = 'NIFCIF';
  fld_InformeCabeceraFichaCALLE = 'CALLE';
  fld_InformeCabeceraFichaCODIGOPOSTAL = 'CODIGOPOSTAL';
  fld_InformeCabeceraFichaPOBLACION = 'POBLACION';
  fld_InformeCabeceraFichaPROVINCIA = 'PROVINCIA';
  fld_InformeCabeceraFichaTELEFONO1 = 'TELEFONO1';
  fld_InformeCabeceraFichaTELEFONO2 = 'TELEFONO2';
  fld_InformeCabeceraFichaMOVIL = 'MOVIL';

  { InformeCabeceraFicha field indexes }
  idx_InformeCabeceraFichaREFERENCIA = 0;
  idx_InformeCabeceraFichaFECHAINICIO = 1;
  idx_InformeCabeceraFichaFECHAFIN = 2;
  idx_InformeCabeceraFichaSITUACION = 3;
  idx_InformeCabeceraFichaOBSERVACIONES = 4;
  idx_InformeCabeceraFichaCODIGOCONTACTO = 5;
  idx_InformeCabeceraFichaNOMBRE = 6;
  idx_InformeCabeceraFichaNIFCIF = 7;
  idx_InformeCabeceraFichaCALLE = 8;
  idx_InformeCabeceraFichaCODIGOPOSTAL = 9;
  idx_InformeCabeceraFichaPOBLACION = 10;
  idx_InformeCabeceraFichaPROVINCIA = 11;
  idx_InformeCabeceraFichaTELEFONO1 = 12;
  idx_InformeCabeceraFichaTELEFONO2 = 13;
  idx_InformeCabeceraFichaMOVIL = 14;

  { Montajes fields }
  fld_MontajesCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_MontajesCODIGO = 'CODIGO';
  fld_MontajesFECHAALTA = 'FECHAALTA';
  fld_MontajesUSUARIO = 'USUARIO';
  fld_MontajesFECHAINICIO = 'FECHAINICIO';
  fld_MontajesFECHAFIN = 'FECHAFIN';
  fld_MontajesSITUACION = 'SITUACION';
  fld_MontajesOBSERVACIONES = 'OBSERVACIONES';
  fld_MontajesCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO';
  fld_MontajesREFERENCIA = 'REFERENCIA';
  fld_MontajesCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_MontajesNOMBRE = 'NOMBRE';
  fld_MontajesOPCION = 'OPCION';

  { Montajes field indexes }
  idx_MontajesCODIGOEMPRESA = 0;
  idx_MontajesCODIGO = 1;
  idx_MontajesFECHAALTA = 2;
  idx_MontajesUSUARIO = 3;
  idx_MontajesFECHAINICIO = 4;
  idx_MontajesFECHAFIN = 5;
  idx_MontajesSITUACION = 6;
  idx_MontajesOBSERVACIONES = 7;
  idx_MontajesCODIGOPRESUPUESTO = 8;
  idx_MontajesREFERENCIA = 9;
  idx_MontajesCODIGOCONTACTO = 10;
  idx_MontajesNOMBRE = 11;
  idx_MontajesOPCION = 12;

  { Refresh_Montajes fields }
  fld_Refresh_MontajesCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_Refresh_MontajesCODIGO = 'CODIGO';
  fld_Refresh_MontajesFECHAALTA = 'FECHAALTA';
  fld_Refresh_MontajesUSUARIO = 'USUARIO';
  fld_Refresh_MontajesFECHAINICIO = 'FECHAINICIO';
  fld_Refresh_MontajesFECHAFIN = 'FECHAFIN';
  fld_Refresh_MontajesSITUACION = 'SITUACION';
  fld_Refresh_MontajesOBSERVACIONES = 'OBSERVACIONES';
  fld_Refresh_MontajesCODIGOPRESUPUESTO = 'CODIGOPRESUPUESTO';
  fld_Refresh_MontajesREFERENCIA = 'REFERENCIA';
  fld_Refresh_MontajesCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_Refresh_MontajesNOMBRE = 'NOMBRE';
  fld_Refresh_MontajesOPCION = 'OPCION';

  { Refresh_Montajes field indexes }
  idx_Refresh_MontajesCODIGOEMPRESA = 0;
  idx_Refresh_MontajesCODIGO = 1;
  idx_Refresh_MontajesFECHAALTA = 2;
  idx_Refresh_MontajesUSUARIO = 3;
  idx_Refresh_MontajesFECHAINICIO = 4;
  idx_Refresh_MontajesFECHAFIN = 5;
  idx_Refresh_MontajesSITUACION = 6;
  idx_Refresh_MontajesOBSERVACIONES = 7;
  idx_Refresh_MontajesCODIGOPRESUPUESTO = 8;
  idx_Refresh_MontajesREFERENCIA = 9;
  idx_Refresh_MontajesCODIGOCONTACTO = 10;
  idx_Refresh_MontajesNOMBRE = 11;
  idx_Refresh_MontajesOPCION = 12;

  { FichaBeneficios fields }
  fld_FichaBeneficiosCODIGOMONTAJE = 'CODIGOMONTAJE';
  fld_FichaBeneficiosNUMCONCEPTO = 'NUMCONCEPTO';
  fld_FichaBeneficiosDESCRIPCION = 'DESCRIPCION';
  fld_FichaBeneficiosMODELO = 'MODELO';
  fld_FichaBeneficiosPROVEEDOR = 'PROVEEDOR';
  fld_FichaBeneficiosCOMPRA = 'COMPRA';
  fld_FichaBeneficiosVENTA = 'VENTA';

  { FichaBeneficios field indexes }
  idx_FichaBeneficiosCODIGOMONTAJE = 0;
  idx_FichaBeneficiosNUMCONCEPTO = 1;
  idx_FichaBeneficiosDESCRIPCION = 2;
  idx_FichaBeneficiosMODELO = 3;
  idx_FichaBeneficiosPROVEEDOR = 4;
  idx_FichaBeneficiosCOMPRA = 5;
  idx_FichaBeneficiosVENTA = 6;

  { InformeDetallesFicha fields }
  fld_InformeDetallesFichaDESCRIPCION = 'DESCRIPCION';
  fld_InformeDetallesFichaMODELO = 'MODELO';
  fld_InformeDetallesFichaPROVEEDOR = 'PROVEEDOR';
  fld_InformeDetallesFichaCOMPRA = 'COMPRA';
  fld_InformeDetallesFichaVENTA = 'VENTA';

  { InformeDetallesFicha field indexes }
  idx_InformeDetallesFichaDESCRIPCION = 0;
  idx_InformeDetallesFichaMODELO = 1;
  idx_InformeDetallesFichaPROVEEDOR = 2;
  idx_InformeDetallesFichaCOMPRA = 3;
  idx_InformeDetallesFichaVENTA = 4;

  { FichaBeneficios_Aux fields }
  fld_FichaBeneficios_AuxNUMCONCEPTO = 'NUMCONCEPTO';
  fld_FichaBeneficios_AuxDESCRIPCION = 'DESCRIPCION';

  { FichaBeneficios_Aux field indexes }
  idx_FichaBeneficios_AuxNUMCONCEPTO = 0;
  idx_FichaBeneficios_AuxDESCRIPCION = 1;

type
  { IListaAnosMontajes }
  IListaAnosMontajes = interface(IDAStronglyTypedDataTable)
  ['{C41C6AA9-6F44-4CBF-9DA5-0BD9378E0EB1}']
    { Property getters and setters }
    function GetANOValue: String;
    procedure SetANOValue(const aValue: String);


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

  { TListaAnosMontajesDataTableRules }
  TListaAnosMontajesDataTableRules = class(TDADataTableRules, IListaAnosMontajes)
  private
  protected
    { Property getters and setters }
    function GetANOValue: String; virtual;
    procedure SetANOValue(const aValue: String); virtual;

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

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

  end;

  { IdarNuevaReferencia }
  IdarNuevaReferencia = interface(IDAStronglyTypedDataTable)
  ['{0EBF89CD-1B5F-4D69-BC2A-FF9944E763CA}']
    { Property getters and setters }
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);


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

  { TdarNuevaReferenciaDataTableRules }
  TdarNuevaReferenciaDataTableRules = class(TDADataTableRules, IdarNuevaReferencia)
  private
  protected
    { Property getters and setters }
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;

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

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

  end;

  { IInformeCabeceraFicha }
  IInformeCabeceraFicha = interface(IDAStronglyTypedDataTable)
  ['{D4FB53A7-C48C-4E41-A377-566F6B62C634}']
    { Property getters and setters }
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetFECHAINICIOValue: DateTime;
    procedure SetFECHAINICIOValue(const aValue: DateTime);
    function GetFECHAFINValue: DateTime;
    procedure SetFECHAFINValue(const aValue: DateTime);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetOBSERVACIONESValue: IROStrings;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetNIFCIFValue: String;
    procedure SetNIFCIFValue(const aValue: String);
    function GetCALLEValue: String;
    procedure SetCALLEValue(const aValue: String);
    function GetCODIGOPOSTALValue: String;
    procedure SetCODIGOPOSTALValue(const aValue: String);
    function GetPOBLACIONValue: String;
    procedure SetPOBLACIONValue(const aValue: String);
    function GetPROVINCIAValue: String;
    procedure SetPROVINCIAValue(const aValue: String);
    function GetTELEFONO1Value: String;
    procedure SetTELEFONO1Value(const aValue: String);
    function GetTELEFONO2Value: String;
    procedure SetTELEFONO2Value(const aValue: String);
    function GetMOVILValue: String;
    procedure SetMOVILValue(const aValue: String);


    { Properties }
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHAINICIO: DateTime read GetFECHAINICIOValue write SetFECHAINICIOValue;
    property FECHAFIN: DateTime read GetFECHAFINValue write SetFECHAFINValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property TELEFONO1: String read GetTELEFONO1Value write SetTELEFONO1Value;
    property TELEFONO2: String read GetTELEFONO2Value write SetTELEFONO2Value;
    property MOVIL: String read GetMOVILValue write SetMOVILValue;
  end;

  { TInformeCabeceraFichaDataTableRules }
  TInformeCabeceraFichaDataTableRules = class(TDADataTableRules, IInformeCabeceraFicha)
  private
  protected
    { Property getters and setters }
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHAINICIOValue: DateTime; virtual;
    procedure SetFECHAINICIOValue(const aValue: DateTime); virtual;
    function GetFECHAFINValue: DateTime; virtual;
    procedure SetFECHAFINValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetNIFCIFValue: String; virtual;
    procedure SetNIFCIFValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetCODIGOPOSTALValue: String; virtual;
    procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetTELEFONO1Value: String; virtual;
    procedure SetTELEFONO1Value(const aValue: String); virtual;
    function GetTELEFONO2Value: String; virtual;
    procedure SetTELEFONO2Value(const aValue: String); virtual;
    function GetMOVILValue: String; virtual;
    procedure SetMOVILValue(const aValue: String); virtual;

    { Properties }
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHAINICIO: DateTime read GetFECHAINICIOValue write SetFECHAINICIOValue;
    property FECHAFIN: DateTime read GetFECHAFINValue write SetFECHAFINValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property TELEFONO1: String read GetTELEFONO1Value write SetTELEFONO1Value;
    property TELEFONO2: String read GetTELEFONO2Value write SetTELEFONO2Value;
    property MOVIL: String read GetMOVILValue write SetMOVILValue;

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

  end;

  { IMontajes }
  IMontajes = interface(IDAStronglyTypedDataTable)
  ['{46E79BA3-95C8-4752-8D16-6C04CD5B50F3}']
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer);
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetFECHAALTAValue: DateTime;
    procedure SetFECHAALTAValue(const aValue: DateTime);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetFECHAINICIOValue: DateTime;
    procedure SetFECHAINICIOValue(const aValue: DateTime);
    function GetFECHAFINValue: DateTime;
    procedure SetFECHAFINValue(const aValue: DateTime);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetOBSERVACIONESValue: IROStrings;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings);
    function GetCODIGOPRESUPUESTOValue: Integer;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetOPCIONValue: String;
    procedure SetOPCIONValue(const aValue: String);


    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property FECHAINICIO: DateTime read GetFECHAINICIOValue write SetFECHAINICIOValue;
    property FECHAFIN: DateTime read GetFECHAFINValue write SetFECHAFINValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property OPCION: String read GetOPCIONValue write SetOPCIONValue;
  end;

  { TMontajesDataTableRules }
  TMontajesDataTableRules = class(TDADataTableRules, IMontajes)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetFECHAINICIOValue: DateTime; virtual;
    procedure SetFECHAINICIOValue(const aValue: DateTime); virtual;
    function GetFECHAFINValue: DateTime; virtual;
    procedure SetFECHAFINValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetOPCIONValue: String; virtual;
    procedure SetOPCIONValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property FECHAINICIO: DateTime read GetFECHAINICIOValue write SetFECHAINICIOValue;
    property FECHAFIN: DateTime read GetFECHAFINValue write SetFECHAFINValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property OPCION: String read GetOPCIONValue write SetOPCIONValue;

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

  end;

  { IRefresh_Montajes }
  IRefresh_Montajes = interface(IDAStronglyTypedDataTable)
  ['{C2E98C33-4903-4F19-B7A3-1E9AD4B2C68D}']
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer);
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetFECHAALTAValue: DateTime;
    procedure SetFECHAALTAValue(const aValue: DateTime);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetFECHAINICIOValue: DateTime;
    procedure SetFECHAINICIOValue(const aValue: DateTime);
    function GetFECHAFINValue: DateTime;
    procedure SetFECHAFINValue(const aValue: DateTime);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetOBSERVACIONESValue: IROStrings;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings);
    function GetCODIGOPRESUPUESTOValue: Integer;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetOPCIONValue: String;
    procedure SetOPCIONValue(const aValue: String);


    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property FECHAINICIO: DateTime read GetFECHAINICIOValue write SetFECHAINICIOValue;
    property FECHAFIN: DateTime read GetFECHAFINValue write SetFECHAFINValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property OPCION: String read GetOPCIONValue write SetOPCIONValue;
  end;

  { TRefresh_MontajesDataTableRules }
  TRefresh_MontajesDataTableRules = class(TDADataTableRules, IRefresh_Montajes)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetFECHAINICIOValue: DateTime; virtual;
    procedure SetFECHAINICIOValue(const aValue: DateTime); virtual;
    function GetFECHAFINValue: DateTime; virtual;
    procedure SetFECHAFINValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetCODIGOPRESUPUESTOValue: Integer; virtual;
    procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetOPCIONValue: String; virtual;
    procedure SetOPCIONValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property FECHAINICIO: DateTime read GetFECHAINICIOValue write SetFECHAINICIOValue;
    property FECHAFIN: DateTime read GetFECHAFINValue write SetFECHAFINValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property OPCION: String read GetOPCIONValue write SetOPCIONValue;

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

  end;

  { IFichaBeneficios }
  IFichaBeneficios = interface(IDAStronglyTypedDataTable)
  ['{F149E069-825A-4961-8C4E-68BE037A4715}']
    { Property getters and setters }
    function GetCODIGOMONTAJEValue: Integer;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer);
    function GetNUMCONCEPTOValue: Integer;
    procedure SetNUMCONCEPTOValue(const aValue: Integer);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetMODELOValue: String;
    procedure SetMODELOValue(const aValue: String);
    function GetPROVEEDORValue: String;
    procedure SetPROVEEDORValue(const aValue: String);
    function GetCOMPRAValue: Float;
    procedure SetCOMPRAValue(const aValue: Float);
    function GetVENTAValue: Float;
    procedure SetVENTAValue(const aValue: Float);


    { Properties }
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property MODELO: String read GetMODELOValue write SetMODELOValue;
    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
    property COMPRA: Float read GetCOMPRAValue write SetCOMPRAValue;
    property VENTA: Float read GetVENTAValue write SetVENTAValue;
  end;

  { TFichaBeneficiosDataTableRules }
  TFichaBeneficiosDataTableRules = class(TDADataTableRules, IFichaBeneficios)
  private
  protected
    { Property getters and setters }
    function GetCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetMODELOValue: String; virtual;
    procedure SetMODELOValue(const aValue: String); virtual;
    function GetPROVEEDORValue: String; virtual;
    procedure SetPROVEEDORValue(const aValue: String); virtual;
    function GetCOMPRAValue: Float; virtual;
    procedure SetCOMPRAValue(const aValue: Float); virtual;
    function GetVENTAValue: Float; virtual;
    procedure SetVENTAValue(const aValue: Float); virtual;

    { Properties }
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property MODELO: String read GetMODELOValue write SetMODELOValue;
    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
    property COMPRA: Float read GetCOMPRAValue write SetCOMPRAValue;
    property VENTA: Float read GetVENTAValue write SetVENTAValue;

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

  end;

  { IInformeDetallesFicha }
  IInformeDetallesFicha = interface(IDAStronglyTypedDataTable)
  ['{CF37FBE7-A946-4E20-8A4F-2753773DD9D4}']
    { Property getters and setters }
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetMODELOValue: String;
    procedure SetMODELOValue(const aValue: String);
    function GetPROVEEDORValue: String;
    procedure SetPROVEEDORValue(const aValue: String);
    function GetCOMPRAValue: Float;
    procedure SetCOMPRAValue(const aValue: Float);
    function GetVENTAValue: Float;
    procedure SetVENTAValue(const aValue: Float);


    { Properties }
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property MODELO: String read GetMODELOValue write SetMODELOValue;
    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
    property COMPRA: Float read GetCOMPRAValue write SetCOMPRAValue;
    property VENTA: Float read GetVENTAValue write SetVENTAValue;
  end;

  { TInformeDetallesFichaDataTableRules }
  TInformeDetallesFichaDataTableRules = class(TDADataTableRules, IInformeDetallesFicha)
  private
  protected
    { Property getters and setters }
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetMODELOValue: String; virtual;
    procedure SetMODELOValue(const aValue: String); virtual;
    function GetPROVEEDORValue: String; virtual;
    procedure SetPROVEEDORValue(const aValue: String); virtual;
    function GetCOMPRAValue: Float; virtual;
    procedure SetCOMPRAValue(const aValue: Float); virtual;
    function GetVENTAValue: Float; virtual;
    procedure SetVENTAValue(const aValue: Float); virtual;

    { Properties }
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property MODELO: String read GetMODELOValue write SetMODELOValue;
    property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
    property COMPRA: Float read GetCOMPRAValue write SetCOMPRAValue;
    property VENTA: Float read GetVENTAValue write SetVENTAValue;

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

  end;

  { IFichaBeneficios_Aux }
  IFichaBeneficios_Aux = interface(IDAStronglyTypedDataTable)
  ['{15BA870E-19D0-43B0-9878-9031439519B1}']
    { Property getters and setters }
    function GetNUMCONCEPTOValue: Integer;
    procedure SetNUMCONCEPTOValue(const aValue: Integer);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);


    { Properties }
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
  end;

  { TFichaBeneficios_AuxDataTableRules }
  TFichaBeneficios_AuxDataTableRules = class(TDADataTableRules, IFichaBeneficios_Aux)
  private
  protected
    { Property getters and setters }
    function GetNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;

    { Properties }
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;

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

  end;

implementation

uses Variants;

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

destructor TListaAnosMontajesDataTableRules.Destroy;
begin
  inherited;
end;

function TListaAnosMontajesDataTableRules.GetANOValue: String;
begin
  result := DataTable.Fields[idx_ListaAnosMontajesANO].AsString;
end;

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


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

destructor TdarNuevaReferenciaDataTableRules.Destroy;
begin
  inherited;
end;

function TdarNuevaReferenciaDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_darNuevaReferenciaREFERENCIA].AsString;
end;

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


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

destructor TInformeCabeceraFichaDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraFichaDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaREFERENCIA].AsString;
end;

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

function TInformeCabeceraFichaDataTableRules.GetFECHAINICIOValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaFECHAINICIO].AsDateTime;
end;

procedure TInformeCabeceraFichaDataTableRules.SetFECHAINICIOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraFichaFECHAINICIO].AsDateTime := aValue;
end;

function TInformeCabeceraFichaDataTableRules.GetFECHAFINValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaFECHAFIN].AsDateTime;
end;

procedure TInformeCabeceraFichaDataTableRules.SetFECHAFINValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraFichaFECHAFIN].AsDateTime := aValue;
end;

function TInformeCabeceraFichaDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaSITUACION].AsString;
end;

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

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

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

function TInformeCabeceraFichaDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaCODIGOCONTACTO].AsInteger;
end;

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

function TInformeCabeceraFichaDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaNOMBRE].AsString;
end;

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

function TInformeCabeceraFichaDataTableRules.GetNIFCIFValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaNIFCIF].AsString;
end;

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

function TInformeCabeceraFichaDataTableRules.GetCALLEValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaCALLE].AsString;
end;

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

function TInformeCabeceraFichaDataTableRules.GetCODIGOPOSTALValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaCODIGOPOSTAL].AsString;
end;

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

function TInformeCabeceraFichaDataTableRules.GetPOBLACIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaPOBLACION].AsString;
end;

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

function TInformeCabeceraFichaDataTableRules.GetPROVINCIAValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaPROVINCIA].AsString;
end;

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

function TInformeCabeceraFichaDataTableRules.GetTELEFONO1Value: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaTELEFONO1].AsString;
end;

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

function TInformeCabeceraFichaDataTableRules.GetTELEFONO2Value: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaTELEFONO2].AsString;
end;

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

function TInformeCabeceraFichaDataTableRules.GetMOVILValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraFichaMOVIL].AsString;
end;

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


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

destructor TMontajesDataTableRules.Destroy;
begin
  inherited;
end;

function TMontajesDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_MontajesCODIGOEMPRESA].AsInteger;
end;

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

function TMontajesDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_MontajesCODIGO].AsInteger;
end;

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

function TMontajesDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_MontajesFECHAALTA].AsDateTime;
end;

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

function TMontajesDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_MontajesUSUARIO].AsString;
end;

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

function TMontajesDataTableRules.GetFECHAINICIOValue: DateTime;
begin
  result := DataTable.Fields[idx_MontajesFECHAINICIO].AsDateTime;
end;

procedure TMontajesDataTableRules.SetFECHAINICIOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_MontajesFECHAINICIO].AsDateTime := aValue;
end;

function TMontajesDataTableRules.GetFECHAFINValue: DateTime;
begin
  result := DataTable.Fields[idx_MontajesFECHAFIN].AsDateTime;
end;

procedure TMontajesDataTableRules.SetFECHAFINValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_MontajesFECHAFIN].AsDateTime := aValue;
end;

function TMontajesDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_MontajesSITUACION].AsString;
end;

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

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

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

function TMontajesDataTableRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := DataTable.Fields[idx_MontajesCODIGOPRESUPUESTO].AsInteger;
end;

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

function TMontajesDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_MontajesREFERENCIA].AsString;
end;

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

function TMontajesDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_MontajesCODIGOCONTACTO].AsInteger;
end;

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

function TMontajesDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_MontajesNOMBRE].AsString;
end;

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

function TMontajesDataTableRules.GetOPCIONValue: String;
begin
  result := DataTable.Fields[idx_MontajesOPCION].AsString;
end;

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


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

destructor TRefresh_MontajesDataTableRules.Destroy;
begin
  inherited;
end;

function TRefresh_MontajesDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_MontajesCODIGOEMPRESA].AsInteger;
end;

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

function TRefresh_MontajesDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_MontajesCODIGO].AsInteger;
end;

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

function TRefresh_MontajesDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_MontajesFECHAALTA].AsDateTime;
end;

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

function TRefresh_MontajesDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_Refresh_MontajesUSUARIO].AsString;
end;

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

function TRefresh_MontajesDataTableRules.GetFECHAINICIOValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_MontajesFECHAINICIO].AsDateTime;
end;

procedure TRefresh_MontajesDataTableRules.SetFECHAINICIOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Refresh_MontajesFECHAINICIO].AsDateTime := aValue;
end;

function TRefresh_MontajesDataTableRules.GetFECHAFINValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_MontajesFECHAFIN].AsDateTime;
end;

procedure TRefresh_MontajesDataTableRules.SetFECHAFINValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Refresh_MontajesFECHAFIN].AsDateTime := aValue;
end;

function TRefresh_MontajesDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_Refresh_MontajesSITUACION].AsString;
end;

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

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

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

function TRefresh_MontajesDataTableRules.GetCODIGOPRESUPUESTOValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_MontajesCODIGOPRESUPUESTO].AsInteger;
end;

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

function TRefresh_MontajesDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_Refresh_MontajesREFERENCIA].AsString;
end;

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

function TRefresh_MontajesDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_MontajesCODIGOCONTACTO].AsInteger;
end;

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

function TRefresh_MontajesDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_Refresh_MontajesNOMBRE].AsString;
end;

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

function TRefresh_MontajesDataTableRules.GetOPCIONValue: String;
begin
  result := DataTable.Fields[idx_Refresh_MontajesOPCION].AsString;
end;

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


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

destructor TFichaBeneficiosDataTableRules.Destroy;
begin
  inherited;
end;

function TFichaBeneficiosDataTableRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := DataTable.Fields[idx_FichaBeneficiosCODIGOMONTAJE].AsInteger;
end;

procedure TFichaBeneficiosDataTableRules.SetCODIGOMONTAJEValue(const aValue: Integer);
begin
  DataTable.Fields[idx_FichaBeneficiosCODIGOMONTAJE].AsInteger := aValue;
end;

function TFichaBeneficiosDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_FichaBeneficiosNUMCONCEPTO].AsInteger;
end;

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

function TFichaBeneficiosDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_FichaBeneficiosDESCRIPCION].AsString;
end;

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

function TFichaBeneficiosDataTableRules.GetMODELOValue: String;
begin
  result := DataTable.Fields[idx_FichaBeneficiosMODELO].AsString;
end;

procedure TFichaBeneficiosDataTableRules.SetMODELOValue(const aValue: String);
begin
  DataTable.Fields[idx_FichaBeneficiosMODELO].AsString := aValue;
end;

function TFichaBeneficiosDataTableRules.GetPROVEEDORValue: String;
begin
  result := DataTable.Fields[idx_FichaBeneficiosPROVEEDOR].AsString;
end;

procedure TFichaBeneficiosDataTableRules.SetPROVEEDORValue(const aValue: String);
begin
  DataTable.Fields[idx_FichaBeneficiosPROVEEDOR].AsString := aValue;
end;

function TFichaBeneficiosDataTableRules.GetCOMPRAValue: Float;
begin
  result := DataTable.Fields[idx_FichaBeneficiosCOMPRA].AsFloat;
end;

procedure TFichaBeneficiosDataTableRules.SetCOMPRAValue(const aValue: Float);
begin
  DataTable.Fields[idx_FichaBeneficiosCOMPRA].AsFloat := aValue;
end;

function TFichaBeneficiosDataTableRules.GetVENTAValue: Float;
begin
  result := DataTable.Fields[idx_FichaBeneficiosVENTA].AsFloat;
end;

procedure TFichaBeneficiosDataTableRules.SetVENTAValue(const aValue: Float);
begin
  DataTable.Fields[idx_FichaBeneficiosVENTA].AsFloat := aValue;
end;


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

destructor TInformeDetallesFichaDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeDetallesFichaDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesFichaDESCRIPCION].AsString;
end;

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

function TInformeDetallesFichaDataTableRules.GetMODELOValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesFichaMODELO].AsString;
end;

procedure TInformeDetallesFichaDataTableRules.SetMODELOValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeDetallesFichaMODELO].AsString := aValue;
end;

function TInformeDetallesFichaDataTableRules.GetPROVEEDORValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesFichaPROVEEDOR].AsString;
end;

procedure TInformeDetallesFichaDataTableRules.SetPROVEEDORValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeDetallesFichaPROVEEDOR].AsString := aValue;
end;

function TInformeDetallesFichaDataTableRules.GetCOMPRAValue: Float;
begin
  result := DataTable.Fields[idx_InformeDetallesFichaCOMPRA].AsFloat;
end;

procedure TInformeDetallesFichaDataTableRules.SetCOMPRAValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeDetallesFichaCOMPRA].AsFloat := aValue;
end;

function TInformeDetallesFichaDataTableRules.GetVENTAValue: Float;
begin
  result := DataTable.Fields[idx_InformeDetallesFichaVENTA].AsFloat;
end;

procedure TInformeDetallesFichaDataTableRules.SetVENTAValue(const aValue: Float);
begin
  DataTable.Fields[idx_InformeDetallesFichaVENTA].AsFloat := aValue;
end;


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

destructor TFichaBeneficios_AuxDataTableRules.Destroy;
begin
  inherited;
end;

function TFichaBeneficios_AuxDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_FichaBeneficios_AuxNUMCONCEPTO].AsInteger;
end;

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

function TFichaBeneficios_AuxDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_FichaBeneficios_AuxDESCRIPCION].AsString;
end;

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


initialization
  RegisterDataTableRules(RID_ListaAnosMontajes, TListaAnosMontajesDataTableRules);
  RegisterDataTableRules(RID_darNuevaReferencia, TdarNuevaReferenciaDataTableRules);
  RegisterDataTableRules(RID_InformeCabeceraFicha, TInformeCabeceraFichaDataTableRules);
  RegisterDataTableRules(RID_Montajes, TMontajesDataTableRules);
  RegisterDataTableRules(RID_Refresh_Montajes, TRefresh_MontajesDataTableRules);
  RegisterDataTableRules(RID_FichaBeneficios, TFichaBeneficiosDataTableRules);
  RegisterDataTableRules(RID_InformeDetallesFicha, TInformeDetallesFichaDataTableRules);
  RegisterDataTableRules(RID_FichaBeneficios_Aux, TFichaBeneficios_AuxDataTableRules);

end.