AlonsoYSal_FactuGES/Modulos/Pedidos a proveedor/Reglas/schPedidosProveedorClient_Intf.pas

unit schPedidosProveedorClient_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_darReferenciaPedido = '{3B002028-795E-4D3E-AFC5-A1D21AC442E3}';
  RID_DetallesPedidosProveedor = '{3052F8C1-9E64-4C97-AC67-3CBDCD3B7E2E}';
  RID_ListaAnosPedidos = '{954E9284-FE16-4847-8094-359A86E7F733}';
  RID_PedidosProveedor = '{40ACE341-D7B5-4619-9D19-D3A0BEAD3A3E}';
  RID_Refresh_PedidosProveedor = '{808987D2-D222-43AB-B8B5-4180683C7955}';
  RID_InformeCabeceraPedido = '{2C8C37B1-EE18-4CA7-8078-D8BA9B4355C6}';
  RID_InformeDetallesPedido = '{3C6B060F-68EB-4A3C-8DC4-5EF3C99BFD5B}';

  { Data table names }
  nme_darReferenciaPedido = 'darReferenciaPedido';
  nme_DetallesPedidosProveedor = 'DetallesPedidosProveedor';
  nme_ListaAnosPedidos = 'ListaAnosPedidos';
  nme_PedidosProveedor = 'PedidosProveedor';
  nme_Refresh_PedidosProveedor = 'Refresh_PedidosProveedor';
  nme_InformeCabeceraPedido = 'InformeCabeceraPedido';
  nme_InformeDetallesPedido = 'InformeDetallesPedido';

  { darReferenciaPedido fields }

  { darReferenciaPedido field indexes }

  { DetallesPedidosProveedor fields }
  fld_DetallesPedidosProveedorCODIGOPEDIDO = 'CODIGOPEDIDO';
  fld_DetallesPedidosProveedorNUMCONCEPTO = 'NUMCONCEPTO';
  fld_DetallesPedidosProveedorDESCRIPCION = 'DESCRIPCION';
  fld_DetallesPedidosProveedorCANTIDAD = 'CANTIDAD';
  fld_DetallesPedidosProveedorIMPORTEUNIDAD = 'IMPORTEUNIDAD';
  fld_DetallesPedidosProveedorIMPORTETOTAL = 'IMPORTETOTAL';
  fld_DetallesPedidosProveedorPOSICION = 'POSICION';
  fld_DetallesPedidosProveedorTIPO = 'TIPO';

  { DetallesPedidosProveedor field indexes }
  idx_DetallesPedidosProveedorCODIGOPEDIDO = 0;
  idx_DetallesPedidosProveedorNUMCONCEPTO = 1;
  idx_DetallesPedidosProveedorDESCRIPCION = 2;
  idx_DetallesPedidosProveedorCANTIDAD = 3;
  idx_DetallesPedidosProveedorIMPORTEUNIDAD = 4;
  idx_DetallesPedidosProveedorIMPORTETOTAL = 5;
  idx_DetallesPedidosProveedorPOSICION = 6;
  idx_DetallesPedidosProveedorTIPO = 7;

  { ListaAnosPedidos fields }
  fld_ListaAnosPedidosANO = 'ANO';

  { ListaAnosPedidos field indexes }
  idx_ListaAnosPedidosANO = 0;

  { PedidosProveedor fields }
  fld_PedidosProveedorCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_PedidosProveedorCODIGO = 'CODIGO';
  fld_PedidosProveedorFECHAALTA = 'FECHAALTA';
  fld_PedidosProveedorUSUARIO = 'USUARIO';
  fld_PedidosProveedorREFERENCIA = 'REFERENCIA';
  fld_PedidosProveedorFECHAPEDIDO = 'FECHAPEDIDO';
  fld_PedidosProveedorFECHACONFIRMACION = 'FECHACONFIRMACION';
  fld_PedidosProveedorSITUACION = 'SITUACION';
  fld_PedidosProveedorFECHAENTREGA = 'FECHAENTREGA';
  fld_PedidosProveedorOBSERVACIONES = 'OBSERVACIONES';
  fld_PedidosProveedorIMPORTETOTAL = 'IMPORTETOTAL';
  fld_PedidosProveedorDIRECCIONCOMPLETA = 'DIRECCIONCOMPLETA';
  fld_PedidosProveedorINCIDENCIAS = 'INCIDENCIAS';
  fld_PedidosProveedorINCIDENCIASACTIVAS = 'INCIDENCIASACTIVAS';
  fld_PedidosProveedorCODIGOALMACEN = 'CODIGOALMACEN';
  fld_PedidosProveedorCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_PedidosProveedorNOMBRE = 'NOMBRE';
  fld_PedidosProveedorCODIGOMONTAJE = 'CODIGOMONTAJE';
  fld_PedidosProveedorNOMBREALMACEN = 'NOMBREALMACEN';
  fld_PedidosProveedorCODIGOCONTACTO1 = 'CODIGOCONTACTO1';
  fld_PedidosProveedorNOMBRECLIENTE = 'NOMBRECLIENTE';

  { PedidosProveedor field indexes }
  idx_PedidosProveedorCODIGOEMPRESA = 0;
  idx_PedidosProveedorCODIGO = 1;
  idx_PedidosProveedorFECHAALTA = 2;
  idx_PedidosProveedorUSUARIO = 3;
  idx_PedidosProveedorREFERENCIA = 4;
  idx_PedidosProveedorFECHAPEDIDO = 5;
  idx_PedidosProveedorFECHACONFIRMACION = 6;
  idx_PedidosProveedorSITUACION = 7;
  idx_PedidosProveedorFECHAENTREGA = 8;
  idx_PedidosProveedorOBSERVACIONES = 9;
  idx_PedidosProveedorIMPORTETOTAL = 10;
  idx_PedidosProveedorDIRECCIONCOMPLETA = 11;
  idx_PedidosProveedorINCIDENCIAS = 12;
  idx_PedidosProveedorINCIDENCIASACTIVAS = 13;
  idx_PedidosProveedorCODIGOALMACEN = 14;
  idx_PedidosProveedorCODIGOCONTACTO = 15;
  idx_PedidosProveedorNOMBRE = 16;
  idx_PedidosProveedorCODIGOMONTAJE = 17;
  idx_PedidosProveedorNOMBREALMACEN = 18;
  idx_PedidosProveedorCODIGOCONTACTO1 = 19;
  idx_PedidosProveedorNOMBRECLIENTE = 20;

  { Refresh_PedidosProveedor fields }
  fld_Refresh_PedidosProveedorCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_Refresh_PedidosProveedorCODIGO = 'CODIGO';
  fld_Refresh_PedidosProveedorFECHAALTA = 'FECHAALTA';
  fld_Refresh_PedidosProveedorUSUARIO = 'USUARIO';
  fld_Refresh_PedidosProveedorREFERENCIA = 'REFERENCIA';
  fld_Refresh_PedidosProveedorFECHAPEDIDO = 'FECHAPEDIDO';
  fld_Refresh_PedidosProveedorFECHACONFIRMACION = 'FECHACONFIRMACION';
  fld_Refresh_PedidosProveedorSITUACION = 'SITUACION';
  fld_Refresh_PedidosProveedorFECHAENTREGA = 'FECHAENTREGA';
  fld_Refresh_PedidosProveedorOBSERVACIONES = 'OBSERVACIONES';
  fld_Refresh_PedidosProveedorIMPORTETOTAL = 'IMPORTETOTAL';
  fld_Refresh_PedidosProveedorDIRECCIONCOMPLETA = 'DIRECCIONCOMPLETA';
  fld_Refresh_PedidosProveedorINCIDENCIAS = 'INCIDENCIAS';
  fld_Refresh_PedidosProveedorINCIDENCIASACTIVAS = 'INCIDENCIASACTIVAS';
  fld_Refresh_PedidosProveedorCODIGOALMACEN = 'CODIGOALMACEN';
  fld_Refresh_PedidosProveedorCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_Refresh_PedidosProveedorNOMBRE = 'NOMBRE';
  fld_Refresh_PedidosProveedorCODIGOMONTAJE = 'CODIGOMONTAJE';
  fld_Refresh_PedidosProveedorNOMBREALMACEN = 'NOMBREALMACEN';
  fld_Refresh_PedidosProveedorCODIGOCONTACTO1 = 'CODIGOCONTACTO1';
  fld_Refresh_PedidosProveedorNOMBRECLIENTE = 'NOMBRECLIENTE';

  { Refresh_PedidosProveedor field indexes }
  idx_Refresh_PedidosProveedorCODIGOEMPRESA = 0;
  idx_Refresh_PedidosProveedorCODIGO = 1;
  idx_Refresh_PedidosProveedorFECHAALTA = 2;
  idx_Refresh_PedidosProveedorUSUARIO = 3;
  idx_Refresh_PedidosProveedorREFERENCIA = 4;
  idx_Refresh_PedidosProveedorFECHAPEDIDO = 5;
  idx_Refresh_PedidosProveedorFECHACONFIRMACION = 6;
  idx_Refresh_PedidosProveedorSITUACION = 7;
  idx_Refresh_PedidosProveedorFECHAENTREGA = 8;
  idx_Refresh_PedidosProveedorOBSERVACIONES = 9;
  idx_Refresh_PedidosProveedorIMPORTETOTAL = 10;
  idx_Refresh_PedidosProveedorDIRECCIONCOMPLETA = 11;
  idx_Refresh_PedidosProveedorINCIDENCIAS = 12;
  idx_Refresh_PedidosProveedorINCIDENCIASACTIVAS = 13;
  idx_Refresh_PedidosProveedorCODIGOALMACEN = 14;
  idx_Refresh_PedidosProveedorCODIGOCONTACTO = 15;
  idx_Refresh_PedidosProveedorNOMBRE = 16;
  idx_Refresh_PedidosProveedorCODIGOMONTAJE = 17;
  idx_Refresh_PedidosProveedorNOMBREALMACEN = 18;
  idx_Refresh_PedidosProveedorCODIGOCONTACTO1 = 19;
  idx_Refresh_PedidosProveedorNOMBRECLIENTE = 20;

  { InformeCabeceraPedido fields }
  fld_InformeCabeceraPedidoCODIGOEMPRESA = 'CODIGOEMPRESA';
  fld_InformeCabeceraPedidoCODIGO = 'CODIGO';
  fld_InformeCabeceraPedidoREFERENCIA = 'REFERENCIA';
  fld_InformeCabeceraPedidoFECHAPEDIDO = 'FECHAPEDIDO';
  fld_InformeCabeceraPedidoFECHAENTREGA = 'FECHAENTREGA';
  fld_InformeCabeceraPedidoOBSERVACIONES = 'OBSERVACIONES';
  fld_InformeCabeceraPedidoIMPORTETOTAL = 'IMPORTETOTAL';
  fld_InformeCabeceraPedidoDIRECCIONCOMPLETA = 'DIRECCIONCOMPLETA';
  fld_InformeCabeceraPedidoNOMBRE = 'NOMBRE';
  fld_InformeCabeceraPedidoCALLE = 'CALLE';
  fld_InformeCabeceraPedidoCODIGOPOSTAL = 'CODIGOPOSTAL';
  fld_InformeCabeceraPedidoPROVINCIA = 'PROVINCIA';
  fld_InformeCabeceraPedidoPOBLACION = 'POBLACION';
  fld_InformeCabeceraPedidoCODIGOMONTAJE = 'CODIGOMONTAJE';
  fld_InformeCabeceraPedidoCODIGOCONTACTO = 'CODIGOCONTACTO';
  fld_InformeCabeceraPedidoNOMBRECLIENTE = 'NOMBRECLIENTE';

  { InformeCabeceraPedido field indexes }
  idx_InformeCabeceraPedidoCODIGOEMPRESA = 0;
  idx_InformeCabeceraPedidoCODIGO = 1;
  idx_InformeCabeceraPedidoREFERENCIA = 2;
  idx_InformeCabeceraPedidoFECHAPEDIDO = 3;
  idx_InformeCabeceraPedidoFECHAENTREGA = 4;
  idx_InformeCabeceraPedidoOBSERVACIONES = 5;
  idx_InformeCabeceraPedidoIMPORTETOTAL = 6;
  idx_InformeCabeceraPedidoDIRECCIONCOMPLETA = 7;
  idx_InformeCabeceraPedidoNOMBRE = 8;
  idx_InformeCabeceraPedidoCALLE = 9;
  idx_InformeCabeceraPedidoCODIGOPOSTAL = 10;
  idx_InformeCabeceraPedidoPROVINCIA = 11;
  idx_InformeCabeceraPedidoPOBLACION = 12;
  idx_InformeCabeceraPedidoCODIGOMONTAJE = 13;
  idx_InformeCabeceraPedidoCODIGOCONTACTO = 14;
  idx_InformeCabeceraPedidoNOMBRECLIENTE = 15;

  { InformeDetallesPedido fields }
  fld_InformeDetallesPedidoCODIGOPEDIDO = 'CODIGOPEDIDO';
  fld_InformeDetallesPedidoNUMCONCEPTO = 'NUMCONCEPTO';
  fld_InformeDetallesPedidoDESCRIPCION = 'DESCRIPCION';
  fld_InformeDetallesPedidoCANTIDAD = 'CANTIDAD';
  fld_InformeDetallesPedidoIMPORTEUNIDAD = 'IMPORTEUNIDAD';
  fld_InformeDetallesPedidoIMPORTETOTAL = 'IMPORTETOTAL';
  fld_InformeDetallesPedidoPOSICION = 'POSICION';
  fld_InformeDetallesPedidoTIPO = 'TIPO';

  { InformeDetallesPedido field indexes }
  idx_InformeDetallesPedidoCODIGOPEDIDO = 0;
  idx_InformeDetallesPedidoNUMCONCEPTO = 1;
  idx_InformeDetallesPedidoDESCRIPCION = 2;
  idx_InformeDetallesPedidoCANTIDAD = 3;
  idx_InformeDetallesPedidoIMPORTEUNIDAD = 4;
  idx_InformeDetallesPedidoIMPORTETOTAL = 5;
  idx_InformeDetallesPedidoPOSICION = 6;
  idx_InformeDetallesPedidoTIPO = 7;

type
  { IdarReferenciaPedido }
  IdarReferenciaPedido = interface(IDAStronglyTypedDataTable)
  ['{18C748BC-1317-4E78-B489-08E7B08EE6DC}']
    { Property getters and setters }


    { Properties }
  end;

  { TdarReferenciaPedidoDataTableRules }
  TdarReferenciaPedidoDataTableRules = class(TDADataTableRules, IdarReferenciaPedido)
  private
  protected
    { Property getters and setters }

    { Properties }

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

  end;

  { IDetallesPedidosProveedor }
  IDetallesPedidosProveedor = interface(IDAStronglyTypedDataTable)
  ['{7F82D076-A16A-4224-8E51-C0B633DE871A}']
    { Property getters and setters }
    function GetCODIGOPEDIDOValue: Integer;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer);
    function GetNUMCONCEPTOValue: Integer;
    procedure SetNUMCONCEPTOValue(const aValue: Integer);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetCANTIDADValue: Integer;
    procedure SetCANTIDADValue(const aValue: Integer);
    function GetIMPORTEUNIDADValue: Currency;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency);
    function GetIMPORTETOTALValue: Currency;
    procedure SetIMPORTETOTALValue(const aValue: Currency);
    function GetPOSICIONValue: Integer;
    procedure SetPOSICIONValue(const aValue: Integer);
    function GetTIPOValue: String;
    procedure SetTIPOValue(const aValue: String);


    { Properties }
    property CODIGOPEDIDO: Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
  end;

  { TDetallesPedidosProveedorDataTableRules }
  TDetallesPedidosProveedorDataTableRules = class(TDADataTableRules, IDetallesPedidosProveedor)
  private
  protected
    { Property getters and setters }
    function GetCODIGOPEDIDOValue: Integer; virtual;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer); virtual;
    function GetNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetIMPORTEUNIDADValue: Currency; virtual;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;

    { Properties }
    property CODIGOPEDIDO: Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;

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

  end;

  { IListaAnosPedidos }
  IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
  ['{F60E3C70-E432-46AC-A1A9-179DED53654C}']
    { Property getters and setters }
    function GetANOValue: String;
    procedure SetANOValue(const aValue: String);


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

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

  { IPedidosProveedor }
  IPedidosProveedor = interface(IDAStronglyTypedDataTable)
  ['{F3788442-CDBC-42DC-A0E7-9694796FC10B}']
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer);
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetFECHAALTAValue: DateTime;
    procedure SetFECHAALTAValue(const aValue: DateTime);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetFECHAPEDIDOValue: DateTime;
    procedure SetFECHAPEDIDOValue(const aValue: DateTime);
    function GetFECHACONFIRMACIONValue: DateTime;
    procedure SetFECHACONFIRMACIONValue(const aValue: DateTime);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetFECHAENTREGAValue: DateTime;
    procedure SetFECHAENTREGAValue(const aValue: DateTime);
    function GetOBSERVACIONESValue: IROStrings;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings);
    function GetIMPORTETOTALValue: Currency;
    procedure SetIMPORTETOTALValue(const aValue: Currency);
    function GetDIRECCIONCOMPLETAValue: IROStrings;
    procedure SetDIRECCIONCOMPLETAValue(const aValue: IROStrings);
    function GetINCIDENCIASValue: IROStrings;
    procedure SetINCIDENCIASValue(const aValue: IROStrings);
    function GetINCIDENCIASACTIVASValue: Integer;
    procedure SetINCIDENCIASACTIVASValue(const aValue: Integer);
    function GetCODIGOALMACENValue: Integer;
    procedure SetCODIGOALMACENValue(const aValue: Integer);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetCODIGOMONTAJEValue: Integer;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer);
    function GetNOMBREALMACENValue: String;
    procedure SetNOMBREALMACENValue(const aValue: String);
    function GetCODIGOCONTACTO1Value: Integer;
    procedure SetCODIGOCONTACTO1Value(const aValue: Integer);
    function GetNOMBRECLIENTEValue: String;
    procedure SetNOMBRECLIENTEValue(const aValue: String);


    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHAPEDIDO: DateTime read GetFECHAPEDIDOValue write SetFECHAPEDIDOValue;
    property FECHACONFIRMACION: DateTime read GetFECHACONFIRMACIONValue write SetFECHACONFIRMACIONValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHAENTREGA: DateTime read GetFECHAENTREGAValue write SetFECHAENTREGAValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property DIRECCIONCOMPLETA: IROStrings read GetDIRECCIONCOMPLETAValue write SetDIRECCIONCOMPLETAValue;
    property INCIDENCIAS: IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
    property INCIDENCIASACTIVAS: Integer read GetINCIDENCIASACTIVASValue write SetINCIDENCIASACTIVASValue;
    property CODIGOALMACEN: Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property NOMBREALMACEN: String read GetNOMBREALMACENValue write SetNOMBREALMACENValue;
    property CODIGOCONTACTO1: Integer read GetCODIGOCONTACTO1Value write SetCODIGOCONTACTO1Value;
    property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
  end;

  { TPedidosProveedorDataTableRules }
  TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHAPEDIDOValue: DateTime; virtual;
    procedure SetFECHAPEDIDOValue(const aValue: DateTime); virtual;
    function GetFECHACONFIRMACIONValue: DateTime; virtual;
    procedure SetFECHACONFIRMACIONValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHAENTREGAValue: DateTime; virtual;
    procedure SetFECHAENTREGAValue(const aValue: DateTime); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetDIRECCIONCOMPLETAValue: IROStrings; virtual;
    procedure SetDIRECCIONCOMPLETAValue(const aValue: IROStrings); virtual;
    function GetINCIDENCIASValue: IROStrings; virtual;
    procedure SetINCIDENCIASValue(const aValue: IROStrings); virtual;
    function GetINCIDENCIASACTIVASValue: Integer; virtual;
    procedure SetINCIDENCIASACTIVASValue(const aValue: Integer); virtual;
    function GetCODIGOALMACENValue: Integer; virtual;
    procedure SetCODIGOALMACENValue(const aValue: Integer); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetNOMBREALMACENValue: String; virtual;
    procedure SetNOMBREALMACENValue(const aValue: String); virtual;
    function GetCODIGOCONTACTO1Value: Integer; virtual;
    procedure SetCODIGOCONTACTO1Value(const aValue: Integer); virtual;
    function GetNOMBRECLIENTEValue: String; virtual;
    procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHAPEDIDO: DateTime read GetFECHAPEDIDOValue write SetFECHAPEDIDOValue;
    property FECHACONFIRMACION: DateTime read GetFECHACONFIRMACIONValue write SetFECHACONFIRMACIONValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHAENTREGA: DateTime read GetFECHAENTREGAValue write SetFECHAENTREGAValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property DIRECCIONCOMPLETA: IROStrings read GetDIRECCIONCOMPLETAValue write SetDIRECCIONCOMPLETAValue;
    property INCIDENCIAS: IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
    property INCIDENCIASACTIVAS: Integer read GetINCIDENCIASACTIVASValue write SetINCIDENCIASACTIVASValue;
    property CODIGOALMACEN: Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property NOMBREALMACEN: String read GetNOMBREALMACENValue write SetNOMBREALMACENValue;
    property CODIGOCONTACTO1: Integer read GetCODIGOCONTACTO1Value write SetCODIGOCONTACTO1Value;
    property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;

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

  end;

  { IRefresh_PedidosProveedor }
  IRefresh_PedidosProveedor = interface(IDAStronglyTypedDataTable)
  ['{BDBAF845-6E60-4488-9165-A5D2BDB6355D}']
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer);
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetFECHAALTAValue: DateTime;
    procedure SetFECHAALTAValue(const aValue: DateTime);
    function GetUSUARIOValue: String;
    procedure SetUSUARIOValue(const aValue: String);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetFECHAPEDIDOValue: DateTime;
    procedure SetFECHAPEDIDOValue(const aValue: DateTime);
    function GetFECHACONFIRMACIONValue: DateTime;
    procedure SetFECHACONFIRMACIONValue(const aValue: DateTime);
    function GetSITUACIONValue: String;
    procedure SetSITUACIONValue(const aValue: String);
    function GetFECHAENTREGAValue: DateTime;
    procedure SetFECHAENTREGAValue(const aValue: DateTime);
    function GetOBSERVACIONESValue: IROStrings;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings);
    function GetIMPORTETOTALValue: Currency;
    procedure SetIMPORTETOTALValue(const aValue: Currency);
    function GetDIRECCIONCOMPLETAValue: IROStrings;
    procedure SetDIRECCIONCOMPLETAValue(const aValue: IROStrings);
    function GetINCIDENCIASValue: IROStrings;
    procedure SetINCIDENCIASValue(const aValue: IROStrings);
    function GetINCIDENCIASACTIVASValue: Integer;
    procedure SetINCIDENCIASACTIVASValue(const aValue: Integer);
    function GetCODIGOALMACENValue: Integer;
    procedure SetCODIGOALMACENValue(const aValue: Integer);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetCODIGOMONTAJEValue: Integer;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer);
    function GetNOMBREALMACENValue: String;
    procedure SetNOMBREALMACENValue(const aValue: String);
    function GetCODIGOCONTACTO1Value: Integer;
    procedure SetCODIGOCONTACTO1Value(const aValue: Integer);
    function GetNOMBRECLIENTEValue: String;
    procedure SetNOMBRECLIENTEValue(const aValue: String);


    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHAPEDIDO: DateTime read GetFECHAPEDIDOValue write SetFECHAPEDIDOValue;
    property FECHACONFIRMACION: DateTime read GetFECHACONFIRMACIONValue write SetFECHACONFIRMACIONValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHAENTREGA: DateTime read GetFECHAENTREGAValue write SetFECHAENTREGAValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property DIRECCIONCOMPLETA: IROStrings read GetDIRECCIONCOMPLETAValue write SetDIRECCIONCOMPLETAValue;
    property INCIDENCIAS: IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
    property INCIDENCIASACTIVAS: Integer read GetINCIDENCIASACTIVASValue write SetINCIDENCIASACTIVASValue;
    property CODIGOALMACEN: Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property NOMBREALMACEN: String read GetNOMBREALMACENValue write SetNOMBREALMACENValue;
    property CODIGOCONTACTO1: Integer read GetCODIGOCONTACTO1Value write SetCODIGOCONTACTO1Value;
    property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
  end;

  { TRefresh_PedidosProveedorDataTableRules }
  TRefresh_PedidosProveedorDataTableRules = class(TDADataTableRules, IRefresh_PedidosProveedor)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHAPEDIDOValue: DateTime; virtual;
    procedure SetFECHAPEDIDOValue(const aValue: DateTime); virtual;
    function GetFECHACONFIRMACIONValue: DateTime; virtual;
    procedure SetFECHACONFIRMACIONValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHAENTREGAValue: DateTime; virtual;
    procedure SetFECHAENTREGAValue(const aValue: DateTime); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetDIRECCIONCOMPLETAValue: IROStrings; virtual;
    procedure SetDIRECCIONCOMPLETAValue(const aValue: IROStrings); virtual;
    function GetINCIDENCIASValue: IROStrings; virtual;
    procedure SetINCIDENCIASValue(const aValue: IROStrings); virtual;
    function GetINCIDENCIASACTIVASValue: Integer; virtual;
    procedure SetINCIDENCIASACTIVASValue(const aValue: Integer); virtual;
    function GetCODIGOALMACENValue: Integer; virtual;
    procedure SetCODIGOALMACENValue(const aValue: Integer); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetNOMBREALMACENValue: String; virtual;
    procedure SetNOMBREALMACENValue(const aValue: String); virtual;
    function GetCODIGOCONTACTO1Value: Integer; virtual;
    procedure SetCODIGOCONTACTO1Value(const aValue: Integer); virtual;
    function GetNOMBRECLIENTEValue: String; virtual;
    procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHAPEDIDO: DateTime read GetFECHAPEDIDOValue write SetFECHAPEDIDOValue;
    property FECHACONFIRMACION: DateTime read GetFECHACONFIRMACIONValue write SetFECHACONFIRMACIONValue;
    property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue;
    property FECHAENTREGA: DateTime read GetFECHAENTREGAValue write SetFECHAENTREGAValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property DIRECCIONCOMPLETA: IROStrings read GetDIRECCIONCOMPLETAValue write SetDIRECCIONCOMPLETAValue;
    property INCIDENCIAS: IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
    property INCIDENCIASACTIVAS: Integer read GetINCIDENCIASACTIVASValue write SetINCIDENCIASACTIVASValue;
    property CODIGOALMACEN: Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property NOMBREALMACEN: String read GetNOMBREALMACENValue write SetNOMBREALMACENValue;
    property CODIGOCONTACTO1: Integer read GetCODIGOCONTACTO1Value write SetCODIGOCONTACTO1Value;
    property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;

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

  end;

  { IInformeCabeceraPedido }
  IInformeCabeceraPedido = interface(IDAStronglyTypedDataTable)
  ['{6F1EB595-8513-4BCA-BC28-6D939D39E2A2}']
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer);
    function GetCODIGOValue: Integer;
    procedure SetCODIGOValue(const aValue: Integer);
    function GetREFERENCIAValue: String;
    procedure SetREFERENCIAValue(const aValue: String);
    function GetFECHAPEDIDOValue: DateTime;
    procedure SetFECHAPEDIDOValue(const aValue: DateTime);
    function GetFECHAENTREGAValue: DateTime;
    procedure SetFECHAENTREGAValue(const aValue: DateTime);
    function GetOBSERVACIONESValue: IROStrings;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings);
    function GetIMPORTETOTALValue: Float;
    procedure SetIMPORTETOTALValue(const aValue: Float);
    function GetDIRECCIONCOMPLETAValue: IROStrings;
    procedure SetDIRECCIONCOMPLETAValue(const aValue: IROStrings);
    function GetNOMBREValue: String;
    procedure SetNOMBREValue(const aValue: String);
    function GetCALLEValue: String;
    procedure SetCALLEValue(const aValue: String);
    function GetCODIGOPOSTALValue: String;
    procedure SetCODIGOPOSTALValue(const aValue: String);
    function GetPROVINCIAValue: String;
    procedure SetPROVINCIAValue(const aValue: String);
    function GetPOBLACIONValue: String;
    procedure SetPOBLACIONValue(const aValue: String);
    function GetCODIGOMONTAJEValue: Integer;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer);
    function GetCODIGOCONTACTOValue: Integer;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer);
    function GetNOMBRECLIENTEValue: String;
    procedure SetNOMBRECLIENTEValue(const aValue: String);


    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHAPEDIDO: DateTime read GetFECHAPEDIDOValue write SetFECHAPEDIDOValue;
    property FECHAENTREGA: DateTime read GetFECHAENTREGAValue write SetFECHAENTREGAValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property DIRECCIONCOMPLETA: IROStrings read GetDIRECCIONCOMPLETAValue write SetDIRECCIONCOMPLETAValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
  end;

  { TInformeCabeceraPedidoDataTableRules }
  TInformeCabeceraPedidoDataTableRules = class(TDADataTableRules, IInformeCabeceraPedido)
  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 GetREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHAPEDIDOValue: DateTime; virtual;
    procedure SetFECHAPEDIDOValue(const aValue: DateTime); virtual;
    function GetFECHAENTREGAValue: DateTime; virtual;
    procedure SetFECHAENTREGAValue(const aValue: DateTime); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetIMPORTETOTALValue: Float; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Float); virtual;
    function GetDIRECCIONCOMPLETAValue: IROStrings; virtual;
    procedure SetDIRECCIONCOMPLETAValue(const aValue: IROStrings); virtual;
    function GetNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetCODIGOPOSTALValue: String; virtual;
    procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBRECLIENTEValue: String; virtual;
    procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
    property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
    property FECHAPEDIDO: DateTime read GetFECHAPEDIDOValue write SetFECHAPEDIDOValue;
    property FECHAENTREGA: DateTime read GetFECHAENTREGAValue write SetFECHAENTREGAValue;
    property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property DIRECCIONCOMPLETA: IROStrings read GetDIRECCIONCOMPLETAValue write SetDIRECCIONCOMPLETAValue;
    property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
    property CALLE: String read GetCALLEValue write SetCALLEValue;
    property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
    property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
    property CODIGOMONTAJE: Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;

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

  end;

  { IInformeDetallesPedido }
  IInformeDetallesPedido = interface(IDAStronglyTypedDataTable)
  ['{4461E273-1874-4E87-84F3-C8A69C2F5F81}']
    { Property getters and setters }
    function GetCODIGOPEDIDOValue: Integer;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer);
    function GetNUMCONCEPTOValue: Integer;
    procedure SetNUMCONCEPTOValue(const aValue: Integer);
    function GetDESCRIPCIONValue: String;
    procedure SetDESCRIPCIONValue(const aValue: String);
    function GetCANTIDADValue: Integer;
    procedure SetCANTIDADValue(const aValue: Integer);
    function GetIMPORTEUNIDADValue: Currency;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency);
    function GetIMPORTETOTALValue: Currency;
    procedure SetIMPORTETOTALValue(const aValue: Currency);
    function GetPOSICIONValue: Integer;
    procedure SetPOSICIONValue(const aValue: Integer);
    function GetTIPOValue: String;
    procedure SetTIPOValue(const aValue: String);


    { Properties }
    property CODIGOPEDIDO: Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;
  end;

  { TInformeDetallesPedidoDataTableRules }
  TInformeDetallesPedidoDataTableRules = class(TDADataTableRules, IInformeDetallesPedido)
  private
  protected
    { Property getters and setters }
    function GetCODIGOPEDIDOValue: Integer; virtual;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer); virtual;
    function GetNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetIMPORTEUNIDADValue: Currency; virtual;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;

    { Properties }
    property CODIGOPEDIDO: Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
    property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
    property TIPO: String read GetTIPOValue write SetTIPOValue;

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

  end;

implementation

uses Variants;

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

destructor TdarReferenciaPedidoDataTableRules.Destroy;
begin
  inherited;
end;


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

destructor TDetallesPedidosProveedorDataTableRules.Destroy;
begin
  inherited;
end;

function TDetallesPedidosProveedorDataTableRules.GetCODIGOPEDIDOValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesPedidosProveedorCODIGOPEDIDO].AsInteger;
end;

procedure TDetallesPedidosProveedorDataTableRules.SetCODIGOPEDIDOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_DetallesPedidosProveedorCODIGOPEDIDO].AsInteger := aValue;
end;

function TDetallesPedidosProveedorDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesPedidosProveedorNUMCONCEPTO].AsInteger;
end;

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

function TDetallesPedidosProveedorDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_DetallesPedidosProveedorDESCRIPCION].AsString;
end;

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

function TDetallesPedidosProveedorDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesPedidosProveedorCANTIDAD].AsInteger;
end;

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

function TDetallesPedidosProveedorDataTableRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesPedidosProveedorIMPORTEUNIDAD].AsCurrency;
end;

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

function TDetallesPedidosProveedorDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_DetallesPedidosProveedorIMPORTETOTAL].AsCurrency;
end;

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

function TDetallesPedidosProveedorDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_DetallesPedidosProveedorPOSICION].AsInteger;
end;

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

function TDetallesPedidosProveedorDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_DetallesPedidosProveedorTIPO].AsString;
end;

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


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

destructor TListaAnosPedidosDataTableRules.Destroy;
begin
  inherited;
end;

function TListaAnosPedidosDataTableRules.GetANOValue: String;
begin
  result := DataTable.Fields[idx_ListaAnosPedidosANO].AsString;
end;

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


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

destructor TPedidosProveedorDataTableRules.Destroy;
begin
  inherited;
end;

function TPedidosProveedorDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_PedidosProveedorCODIGOEMPRESA].AsInteger;
end;

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

function TPedidosProveedorDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_PedidosProveedorCODIGO].AsInteger;
end;

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

function TPedidosProveedorDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_PedidosProveedorFECHAALTA].AsDateTime;
end;

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

function TPedidosProveedorDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_PedidosProveedorUSUARIO].AsString;
end;

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

function TPedidosProveedorDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_PedidosProveedorREFERENCIA].AsString;
end;

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

function TPedidosProveedorDataTableRules.GetFECHAPEDIDOValue: DateTime;
begin
  result := DataTable.Fields[idx_PedidosProveedorFECHAPEDIDO].AsDateTime;
end;

procedure TPedidosProveedorDataTableRules.SetFECHAPEDIDOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_PedidosProveedorFECHAPEDIDO].AsDateTime := aValue;
end;

function TPedidosProveedorDataTableRules.GetFECHACONFIRMACIONValue: DateTime;
begin
  result := DataTable.Fields[idx_PedidosProveedorFECHACONFIRMACION].AsDateTime;
end;

procedure TPedidosProveedorDataTableRules.SetFECHACONFIRMACIONValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_PedidosProveedorFECHACONFIRMACION].AsDateTime := aValue;
end;

function TPedidosProveedorDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_PedidosProveedorSITUACION].AsString;
end;

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

function TPedidosProveedorDataTableRules.GetFECHAENTREGAValue: DateTime;
begin
  result := DataTable.Fields[idx_PedidosProveedorFECHAENTREGA].AsDateTime;
end;

procedure TPedidosProveedorDataTableRules.SetFECHAENTREGAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_PedidosProveedorFECHAENTREGA].AsDateTime := aValue;
end;

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

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

function TPedidosProveedorDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_PedidosProveedorIMPORTETOTAL].AsCurrency;
end;

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

function TPedidosProveedorDataTableRules.GetDIRECCIONCOMPLETAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_PedidosProveedorDIRECCIONCOMPLETA].AsString;
end;

procedure TPedidosProveedorDataTableRules.SetDIRECCIONCOMPLETAValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_PedidosProveedorDIRECCIONCOMPLETA].AsString := aValue.Text;
end;

function TPedidosProveedorDataTableRules.GetINCIDENCIASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_PedidosProveedorINCIDENCIAS].AsString;
end;

procedure TPedidosProveedorDataTableRules.SetINCIDENCIASValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_PedidosProveedorINCIDENCIAS].AsString := aValue.Text;
end;

function TPedidosProveedorDataTableRules.GetINCIDENCIASACTIVASValue: Integer;
begin
  result := DataTable.Fields[idx_PedidosProveedorINCIDENCIASACTIVAS].AsInteger;
end;

procedure TPedidosProveedorDataTableRules.SetINCIDENCIASACTIVASValue(const aValue: Integer);
begin
  DataTable.Fields[idx_PedidosProveedorINCIDENCIASACTIVAS].AsInteger := aValue;
end;

function TPedidosProveedorDataTableRules.GetCODIGOALMACENValue: Integer;
begin
  result := DataTable.Fields[idx_PedidosProveedorCODIGOALMACEN].AsInteger;
end;

procedure TPedidosProveedorDataTableRules.SetCODIGOALMACENValue(const aValue: Integer);
begin
  DataTable.Fields[idx_PedidosProveedorCODIGOALMACEN].AsInteger := aValue;
end;

function TPedidosProveedorDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_PedidosProveedorCODIGOCONTACTO].AsInteger;
end;

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

function TPedidosProveedorDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_PedidosProveedorNOMBRE].AsString;
end;

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

function TPedidosProveedorDataTableRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := DataTable.Fields[idx_PedidosProveedorCODIGOMONTAJE].AsInteger;
end;

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

function TPedidosProveedorDataTableRules.GetNOMBREALMACENValue: String;
begin
  result := DataTable.Fields[idx_PedidosProveedorNOMBREALMACEN].AsString;
end;

procedure TPedidosProveedorDataTableRules.SetNOMBREALMACENValue(const aValue: String);
begin
  DataTable.Fields[idx_PedidosProveedorNOMBREALMACEN].AsString := aValue;
end;

function TPedidosProveedorDataTableRules.GetCODIGOCONTACTO1Value: Integer;
begin
  result := DataTable.Fields[idx_PedidosProveedorCODIGOCONTACTO1].AsInteger;
end;

procedure TPedidosProveedorDataTableRules.SetCODIGOCONTACTO1Value(const aValue: Integer);
begin
  DataTable.Fields[idx_PedidosProveedorCODIGOCONTACTO1].AsInteger := aValue;
end;

function TPedidosProveedorDataTableRules.GetNOMBRECLIENTEValue: String;
begin
  result := DataTable.Fields[idx_PedidosProveedorNOMBRECLIENTE].AsString;
end;

procedure TPedidosProveedorDataTableRules.SetNOMBRECLIENTEValue(const aValue: String);
begin
  DataTable.Fields[idx_PedidosProveedorNOMBRECLIENTE].AsString := aValue;
end;


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

destructor TRefresh_PedidosProveedorDataTableRules.Destroy;
begin
  inherited;
end;

function TRefresh_PedidosProveedorDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorCODIGOEMPRESA].AsInteger;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorCODIGO].AsInteger;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetFECHAALTAValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorFECHAALTA].AsDateTime;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetUSUARIOValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorUSUARIO].AsString;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorREFERENCIA].AsString;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetFECHAPEDIDOValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorFECHAPEDIDO].AsDateTime;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetFECHAPEDIDOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorFECHAPEDIDO].AsDateTime := aValue;
end;

function TRefresh_PedidosProveedorDataTableRules.GetFECHACONFIRMACIONValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorFECHACONFIRMACION].AsDateTime;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetFECHACONFIRMACIONValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorFECHACONFIRMACION].AsDateTime := aValue;
end;

function TRefresh_PedidosProveedorDataTableRules.GetSITUACIONValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorSITUACION].AsString;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetFECHAENTREGAValue: DateTime;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorFECHAENTREGA].AsDateTime;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetFECHAENTREGAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorFECHAENTREGA].AsDateTime := aValue;
end;

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

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

function TRefresh_PedidosProveedorDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorIMPORTETOTAL].AsCurrency;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetDIRECCIONCOMPLETAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_Refresh_PedidosProveedorDIRECCIONCOMPLETA].AsString;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetDIRECCIONCOMPLETAValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorDIRECCIONCOMPLETA].AsString := aValue.Text;
end;

function TRefresh_PedidosProveedorDataTableRules.GetINCIDENCIASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_Refresh_PedidosProveedorINCIDENCIAS].AsString;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetINCIDENCIASValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorINCIDENCIAS].AsString := aValue.Text;
end;

function TRefresh_PedidosProveedorDataTableRules.GetINCIDENCIASACTIVASValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorINCIDENCIASACTIVAS].AsInteger;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetINCIDENCIASACTIVASValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorINCIDENCIASACTIVAS].AsInteger := aValue;
end;

function TRefresh_PedidosProveedorDataTableRules.GetCODIGOALMACENValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorCODIGOALMACEN].AsInteger;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetCODIGOALMACENValue(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorCODIGOALMACEN].AsInteger := aValue;
end;

function TRefresh_PedidosProveedorDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorCODIGOCONTACTO].AsInteger;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorNOMBRE].AsString;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorCODIGOMONTAJE].AsInteger;
end;

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

function TRefresh_PedidosProveedorDataTableRules.GetNOMBREALMACENValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorNOMBREALMACEN].AsString;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetNOMBREALMACENValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorNOMBREALMACEN].AsString := aValue;
end;

function TRefresh_PedidosProveedorDataTableRules.GetCODIGOCONTACTO1Value: Integer;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorCODIGOCONTACTO1].AsInteger;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetCODIGOCONTACTO1Value(const aValue: Integer);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorCODIGOCONTACTO1].AsInteger := aValue;
end;

function TRefresh_PedidosProveedorDataTableRules.GetNOMBRECLIENTEValue: String;
begin
  result := DataTable.Fields[idx_Refresh_PedidosProveedorNOMBRECLIENTE].AsString;
end;

procedure TRefresh_PedidosProveedorDataTableRules.SetNOMBRECLIENTEValue(const aValue: String);
begin
  DataTable.Fields[idx_Refresh_PedidosProveedorNOMBRECLIENTE].AsString := aValue;
end;


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

destructor TInformeCabeceraPedidoDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraPedidoDataTableRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoCODIGOEMPRESA].AsInteger;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetCODIGOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoCODIGO].AsInteger;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetREFERENCIAValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoREFERENCIA].AsString;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetFECHAPEDIDOValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoFECHAPEDIDO].AsDateTime;
end;

procedure TInformeCabeceraPedidoDataTableRules.SetFECHAPEDIDOValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraPedidoFECHAPEDIDO].AsDateTime := aValue;
end;

function TInformeCabeceraPedidoDataTableRules.GetFECHAENTREGAValue: DateTime;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoFECHAENTREGA].AsDateTime;
end;

procedure TInformeCabeceraPedidoDataTableRules.SetFECHAENTREGAValue(const aValue: DateTime);
begin
  DataTable.Fields[idx_InformeCabeceraPedidoFECHAENTREGA].AsDateTime := aValue;
end;

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

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

function TInformeCabeceraPedidoDataTableRules.GetIMPORTETOTALValue: Float;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoIMPORTETOTAL].AsFloat;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetDIRECCIONCOMPLETAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := DataTable.Fields[idx_InformeCabeceraPedidoDIRECCIONCOMPLETA].AsString;
end;

procedure TInformeCabeceraPedidoDataTableRules.SetDIRECCIONCOMPLETAValue(const aValue: IROStrings);
begin
  DataTable.Fields[idx_InformeCabeceraPedidoDIRECCIONCOMPLETA].AsString := aValue.Text;
end;

function TInformeCabeceraPedidoDataTableRules.GetNOMBREValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoNOMBRE].AsString;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetCALLEValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoCALLE].AsString;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetCODIGOPOSTALValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoCODIGOPOSTAL].AsString;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetPROVINCIAValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoPROVINCIA].AsString;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetPOBLACIONValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoPOBLACION].AsString;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoCODIGOMONTAJE].AsInteger;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoCODIGOCONTACTO].AsInteger;
end;

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

function TInformeCabeceraPedidoDataTableRules.GetNOMBRECLIENTEValue: String;
begin
  result := DataTable.Fields[idx_InformeCabeceraPedidoNOMBRECLIENTE].AsString;
end;

procedure TInformeCabeceraPedidoDataTableRules.SetNOMBRECLIENTEValue(const aValue: String);
begin
  DataTable.Fields[idx_InformeCabeceraPedidoNOMBRECLIENTE].AsString := aValue;
end;


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

destructor TInformeDetallesPedidoDataTableRules.Destroy;
begin
  inherited;
end;

function TInformeDetallesPedidoDataTableRules.GetCODIGOPEDIDOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesPedidoCODIGOPEDIDO].AsInteger;
end;

procedure TInformeDetallesPedidoDataTableRules.SetCODIGOPEDIDOValue(const aValue: Integer);
begin
  DataTable.Fields[idx_InformeDetallesPedidoCODIGOPEDIDO].AsInteger := aValue;
end;

function TInformeDetallesPedidoDataTableRules.GetNUMCONCEPTOValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesPedidoNUMCONCEPTO].AsInteger;
end;

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

function TInformeDetallesPedidoDataTableRules.GetDESCRIPCIONValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesPedidoDESCRIPCION].AsString;
end;

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

function TInformeDetallesPedidoDataTableRules.GetCANTIDADValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesPedidoCANTIDAD].AsInteger;
end;

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

function TInformeDetallesPedidoDataTableRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := DataTable.Fields[idx_InformeDetallesPedidoIMPORTEUNIDAD].AsCurrency;
end;

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

function TInformeDetallesPedidoDataTableRules.GetIMPORTETOTALValue: Currency;
begin
  result := DataTable.Fields[idx_InformeDetallesPedidoIMPORTETOTAL].AsCurrency;
end;

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

function TInformeDetallesPedidoDataTableRules.GetPOSICIONValue: Integer;
begin
  result := DataTable.Fields[idx_InformeDetallesPedidoPOSICION].AsInteger;
end;

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

function TInformeDetallesPedidoDataTableRules.GetTIPOValue: String;
begin
  result := DataTable.Fields[idx_InformeDetallesPedidoTIPO].AsString;
end;

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


initialization
  RegisterDataTableRules(RID_darReferenciaPedido, TdarReferenciaPedidoDataTableRules);
  RegisterDataTableRules(RID_DetallesPedidosProveedor, TDetallesPedidosProveedorDataTableRules);
  RegisterDataTableRules(RID_ListaAnosPedidos, TListaAnosPedidosDataTableRules);
  RegisterDataTableRules(RID_PedidosProveedor, TPedidosProveedorDataTableRules);
  RegisterDataTableRules(RID_Refresh_PedidosProveedor, TRefresh_PedidosProveedorDataTableRules);
  RegisterDataTableRules(RID_InformeCabeceraPedido, TInformeCabeceraPedidoDataTableRules);
  RegisterDataTableRules(RID_InformeDetallesPedido, TInformeDetallesPedidoDataTableRules);

end.