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

unit schPedidosProveedorServer_Intf;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schPedidosProveedorClient_Intf;

const
  { Delta 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_darReferenciaPedidoDelta = '{6B5B16E9-5B36-4082-A757-7B0429D1B110}';
  RID_DetallesPedidosProveedorDelta = '{43C91112-A2EE-4A9E-83B2-BEF9CB6A2DE3}';
  RID_ListaAnosPedidosDelta = '{081EB504-A5DD-4B18-B47C-13DBF134B88D}';
  RID_PedidosProveedorDelta = '{1DDF0247-6AED-4F12-AB3D-187CD8742029}';
  RID_Refresh_PedidosProveedorDelta = '{1FA69710-D78F-4702-BB9C-FED9D0EF34FF}';
  RID_InformeCabeceraPedidoDelta = '{AAA39823-20B1-40CA-B150-B1DD9366F5F9}';
  RID_InformeDetallesPedidoDelta = '{48CFF8AA-9EEB-4068-AB9E-362E5700810A}';

type
  { IdarReferenciaPedidoDelta }
  IdarReferenciaPedidoDelta = interface(IdarReferenciaPedido)
  ['{6B5B16E9-5B36-4082-A757-7B0429D1B110}']
    { Property getters and setters }

    { Properties }
  end;

  { TdarReferenciaPedidoBusinessProcessorRules }
  TdarReferenciaPedidoBusinessProcessorRules = class(TDABusinessProcessorRules, IdarReferenciaPedido, IdarReferenciaPedidoDelta)
  private
  protected
    { Property getters and setters }

    { Properties }

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IDetallesPedidosProveedorDelta }
  IDetallesPedidosProveedorDelta = interface(IDetallesPedidosProveedor)
  ['{43C91112-A2EE-4A9E-83B2-BEF9CB6A2DE3}']
    { Property getters and setters }
    function GetOldCODIGOPEDIDOValue : Integer;
    function GetOldNUMCONCEPTOValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldCANTIDADValue : Integer;
    function GetOldIMPORTEUNIDADValue : Currency;
    function GetOldIMPORTETOTALValue : Currency;
    function GetOldPOSICIONValue : Integer;
    function GetOldTIPOValue : String;

    { Properties }
    property OldCODIGOPEDIDO : Integer read GetOldCODIGOPEDIDOValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property OldPOSICION : Integer read GetOldPOSICIONValue;
    property OldTIPO : String read GetOldTIPOValue;
  end;

  { TDetallesPedidosProveedorBusinessProcessorRules }
  TDetallesPedidosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IDetallesPedidosProveedor, IDetallesPedidosProveedorDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOPEDIDOValue: Integer; virtual;
    function GetOldCODIGOPEDIDOValue: Integer; virtual;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer); virtual;
    function GetNUMCONCEPTOValue: Integer; virtual;
    function GetOldNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCANTIDADValue: Integer; virtual;
    function GetOldCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetIMPORTEUNIDADValue: Currency; virtual;
    function GetOldIMPORTEUNIDADValue: Currency; virtual;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    function GetOldIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetPOSICIONValue: Integer; virtual;
    function GetOldPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetTIPOValue: String; virtual;
    function GetOldTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;

    { Properties }
    property CODIGOPEDIDO : Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property OldCODIGOPEDIDO : Integer read GetOldCODIGOPEDIDOValue;
    property NUMCONCEPTO : Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property IMPORTEUNIDAD : Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue;
    property IMPORTETOTAL : Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
    property OldPOSICION : Integer read GetOldPOSICIONValue;
    property TIPO : String read GetTIPOValue write SetTIPOValue;
    property OldTIPO : String read GetOldTIPOValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IListaAnosPedidosDelta }
  IListaAnosPedidosDelta = interface(IListaAnosPedidos)
  ['{081EB504-A5DD-4B18-B47C-13DBF134B88D}']
    { Property getters and setters }
    function GetOldANOValue : String;

    { Properties }
    property OldANO : String read GetOldANOValue;
  end;

  { TListaAnosPedidosBusinessProcessorRules }
  TListaAnosPedidosBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosPedidos, IListaAnosPedidosDelta)
  private
  protected
    { Property getters and setters }
    function GetANOValue: String; virtual;
    function GetOldANOValue: String; virtual;
    procedure SetANOValue(const aValue: String); virtual;

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

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IPedidosProveedorDelta }
  IPedidosProveedorDelta = interface(IPedidosProveedor)
  ['{1DDF0247-6AED-4F12-AB3D-187CD8742029}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldREFERENCIAValue : String;
    function GetOldFECHAPEDIDOValue : DateTime;
    function GetOldFECHACONFIRMACIONValue : DateTime;
    function GetOldSITUACIONValue : String;
    function GetOldFECHAENTREGAValue : DateTime;
    function GetOldOBSERVACIONESValue : IROStrings;
    function GetOldIMPORTETOTALValue : Currency;
    function GetOldDIRECCIONCOMPLETAValue : IROStrings;
    function GetOldINCIDENCIASValue : IROStrings;
    function GetOldINCIDENCIASACTIVASValue : Integer;
    function GetOldCODIGOALMACENValue : Integer;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldCODIGOMONTAJEValue : Integer;
    function GetOldNOMBREALMACENValue : String;
    function GetOldCODIGOCONTACTO1Value : Integer;
    function GetOldNOMBRECLIENTEValue : String;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldFECHAPEDIDO : DateTime read GetOldFECHAPEDIDOValue;
    property OldFECHACONFIRMACION : DateTime read GetOldFECHACONFIRMACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldFECHAENTREGA : DateTime read GetOldFECHAENTREGAValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property OldDIRECCIONCOMPLETA : IROStrings read GetOldDIRECCIONCOMPLETAValue;
    property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
    property OldINCIDENCIASACTIVAS : Integer read GetOldINCIDENCIASACTIVASValue;
    property OldCODIGOALMACEN : Integer read GetOldCODIGOALMACENValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property OldNOMBREALMACEN : String read GetOldNOMBREALMACENValue;
    property OldCODIGOCONTACTO1 : Integer read GetOldCODIGOCONTACTO1Value;
    property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;
  end;

  { TPedidosProveedorBusinessProcessorRules }
  TPedidosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor, IPedidosProveedorDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    function GetOldCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    function GetOldFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHAPEDIDOValue: DateTime; virtual;
    function GetOldFECHAPEDIDOValue: DateTime; virtual;
    procedure SetFECHAPEDIDOValue(const aValue: DateTime); virtual;
    function GetFECHACONFIRMACIONValue: DateTime; virtual;
    function GetOldFECHACONFIRMACIONValue: DateTime; virtual;
    procedure SetFECHACONFIRMACIONValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHAENTREGAValue: DateTime; virtual;
    function GetOldFECHAENTREGAValue: DateTime; virtual;
    procedure SetFECHAENTREGAValue(const aValue: DateTime); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    function GetOldOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    function GetOldIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetDIRECCIONCOMPLETAValue: IROStrings; virtual;
    function GetOldDIRECCIONCOMPLETAValue: IROStrings; virtual;
    procedure SetDIRECCIONCOMPLETAValue(const aValue: IROStrings); virtual;
    function GetINCIDENCIASValue: IROStrings; virtual;
    function GetOldINCIDENCIASValue: IROStrings; virtual;
    procedure SetINCIDENCIASValue(const aValue: IROStrings); virtual;
    function GetINCIDENCIASACTIVASValue: Integer; virtual;
    function GetOldINCIDENCIASACTIVASValue: Integer; virtual;
    procedure SetINCIDENCIASACTIVASValue(const aValue: Integer); virtual;
    function GetCODIGOALMACENValue: Integer; virtual;
    function GetOldCODIGOALMACENValue: Integer; virtual;
    procedure SetCODIGOALMACENValue(const aValue: Integer); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    function GetOldCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    function GetOldCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetNOMBREALMACENValue: String; virtual;
    function GetOldNOMBREALMACENValue: String; virtual;
    procedure SetNOMBREALMACENValue(const aValue: String); virtual;
    function GetCODIGOCONTACTO1Value: Integer; virtual;
    function GetOldCODIGOCONTACTO1Value: Integer; virtual;
    procedure SetCODIGOCONTACTO1Value(const aValue: Integer); virtual;
    function GetNOMBRECLIENTEValue: String; virtual;
    function GetOldNOMBRECLIENTEValue: String; virtual;
    procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property FECHAALTA : DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property FECHAPEDIDO : DateTime read GetFECHAPEDIDOValue write SetFECHAPEDIDOValue;
    property OldFECHAPEDIDO : DateTime read GetOldFECHAPEDIDOValue;
    property FECHACONFIRMACION : DateTime read GetFECHACONFIRMACIONValue write SetFECHACONFIRMACIONValue;
    property OldFECHACONFIRMACION : DateTime read GetOldFECHACONFIRMACIONValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property FECHAENTREGA : DateTime read GetFECHAENTREGAValue write SetFECHAENTREGAValue;
    property OldFECHAENTREGA : DateTime read GetOldFECHAENTREGAValue;
    property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property IMPORTETOTAL : Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property DIRECCIONCOMPLETA : IROStrings read GetDIRECCIONCOMPLETAValue write SetDIRECCIONCOMPLETAValue;
    property OldDIRECCIONCOMPLETA : IROStrings read GetOldDIRECCIONCOMPLETAValue;
    property INCIDENCIAS : IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
    property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
    property INCIDENCIASACTIVAS : Integer read GetINCIDENCIASACTIVASValue write SetINCIDENCIASACTIVASValue;
    property OldINCIDENCIASACTIVAS : Integer read GetOldINCIDENCIASACTIVASValue;
    property CODIGOALMACEN : Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property OldCODIGOALMACEN : Integer read GetOldCODIGOALMACENValue;
    property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CODIGOMONTAJE : Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property NOMBREALMACEN : String read GetNOMBREALMACENValue write SetNOMBREALMACENValue;
    property OldNOMBREALMACEN : String read GetOldNOMBREALMACENValue;
    property CODIGOCONTACTO1 : Integer read GetCODIGOCONTACTO1Value write SetCODIGOCONTACTO1Value;
    property OldCODIGOCONTACTO1 : Integer read GetOldCODIGOCONTACTO1Value;
    property NOMBRECLIENTE : String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
    property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IRefresh_PedidosProveedorDelta }
  IRefresh_PedidosProveedorDelta = interface(IRefresh_PedidosProveedor)
  ['{1FA69710-D78F-4702-BB9C-FED9D0EF34FF}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldFECHAALTAValue : DateTime;
    function GetOldUSUARIOValue : String;
    function GetOldREFERENCIAValue : String;
    function GetOldFECHAPEDIDOValue : DateTime;
    function GetOldFECHACONFIRMACIONValue : DateTime;
    function GetOldSITUACIONValue : String;
    function GetOldFECHAENTREGAValue : DateTime;
    function GetOldOBSERVACIONESValue : IROStrings;
    function GetOldIMPORTETOTALValue : Currency;
    function GetOldDIRECCIONCOMPLETAValue : IROStrings;
    function GetOldINCIDENCIASValue : IROStrings;
    function GetOldINCIDENCIASACTIVASValue : Integer;
    function GetOldCODIGOALMACENValue : Integer;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBREValue : String;
    function GetOldCODIGOMONTAJEValue : Integer;
    function GetOldNOMBREALMACENValue : String;
    function GetOldCODIGOCONTACTO1Value : Integer;
    function GetOldNOMBRECLIENTEValue : String;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldFECHAPEDIDO : DateTime read GetOldFECHAPEDIDOValue;
    property OldFECHACONFIRMACION : DateTime read GetOldFECHACONFIRMACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property OldFECHAENTREGA : DateTime read GetOldFECHAENTREGAValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property OldDIRECCIONCOMPLETA : IROStrings read GetOldDIRECCIONCOMPLETAValue;
    property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
    property OldINCIDENCIASACTIVAS : Integer read GetOldINCIDENCIASACTIVASValue;
    property OldCODIGOALMACEN : Integer read GetOldCODIGOALMACENValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property OldNOMBREALMACEN : String read GetOldNOMBREALMACENValue;
    property OldCODIGOCONTACTO1 : Integer read GetOldCODIGOCONTACTO1Value;
    property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;
  end;

  { TRefresh_PedidosProveedorBusinessProcessorRules }
  TRefresh_PedidosProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IRefresh_PedidosProveedor, IRefresh_PedidosProveedorDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    function GetOldCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetFECHAALTAValue: DateTime; virtual;
    function GetOldFECHAALTAValue: DateTime; virtual;
    procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
    function GetUSUARIOValue: String; virtual;
    function GetOldUSUARIOValue: String; virtual;
    procedure SetUSUARIOValue(const aValue: String); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHAPEDIDOValue: DateTime; virtual;
    function GetOldFECHAPEDIDOValue: DateTime; virtual;
    procedure SetFECHAPEDIDOValue(const aValue: DateTime); virtual;
    function GetFECHACONFIRMACIONValue: DateTime; virtual;
    function GetOldFECHACONFIRMACIONValue: DateTime; virtual;
    procedure SetFECHACONFIRMACIONValue(const aValue: DateTime); virtual;
    function GetSITUACIONValue: String; virtual;
    function GetOldSITUACIONValue: String; virtual;
    procedure SetSITUACIONValue(const aValue: String); virtual;
    function GetFECHAENTREGAValue: DateTime; virtual;
    function GetOldFECHAENTREGAValue: DateTime; virtual;
    procedure SetFECHAENTREGAValue(const aValue: DateTime); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    function GetOldOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    function GetOldIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetDIRECCIONCOMPLETAValue: IROStrings; virtual;
    function GetOldDIRECCIONCOMPLETAValue: IROStrings; virtual;
    procedure SetDIRECCIONCOMPLETAValue(const aValue: IROStrings); virtual;
    function GetINCIDENCIASValue: IROStrings; virtual;
    function GetOldINCIDENCIASValue: IROStrings; virtual;
    procedure SetINCIDENCIASValue(const aValue: IROStrings); virtual;
    function GetINCIDENCIASACTIVASValue: Integer; virtual;
    function GetOldINCIDENCIASACTIVASValue: Integer; virtual;
    procedure SetINCIDENCIASACTIVASValue(const aValue: Integer); virtual;
    function GetCODIGOALMACENValue: Integer; virtual;
    function GetOldCODIGOALMACENValue: Integer; virtual;
    procedure SetCODIGOALMACENValue(const aValue: Integer); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    function GetOldCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    function GetOldCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetNOMBREALMACENValue: String; virtual;
    function GetOldNOMBREALMACENValue: String; virtual;
    procedure SetNOMBREALMACENValue(const aValue: String); virtual;
    function GetCODIGOCONTACTO1Value: Integer; virtual;
    function GetOldCODIGOCONTACTO1Value: Integer; virtual;
    procedure SetCODIGOCONTACTO1Value(const aValue: Integer); virtual;
    function GetNOMBRECLIENTEValue: String; virtual;
    function GetOldNOMBRECLIENTEValue: String; virtual;
    procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property FECHAALTA : DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
    property OldFECHAALTA : DateTime read GetOldFECHAALTAValue;
    property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
    property OldUSUARIO : String read GetOldUSUARIOValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property FECHAPEDIDO : DateTime read GetFECHAPEDIDOValue write SetFECHAPEDIDOValue;
    property OldFECHAPEDIDO : DateTime read GetOldFECHAPEDIDOValue;
    property FECHACONFIRMACION : DateTime read GetFECHACONFIRMACIONValue write SetFECHACONFIRMACIONValue;
    property OldFECHACONFIRMACION : DateTime read GetOldFECHACONFIRMACIONValue;
    property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
    property OldSITUACION : String read GetOldSITUACIONValue;
    property FECHAENTREGA : DateTime read GetFECHAENTREGAValue write SetFECHAENTREGAValue;
    property OldFECHAENTREGA : DateTime read GetOldFECHAENTREGAValue;
    property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property IMPORTETOTAL : Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property DIRECCIONCOMPLETA : IROStrings read GetDIRECCIONCOMPLETAValue write SetDIRECCIONCOMPLETAValue;
    property OldDIRECCIONCOMPLETA : IROStrings read GetOldDIRECCIONCOMPLETAValue;
    property INCIDENCIAS : IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
    property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
    property INCIDENCIASACTIVAS : Integer read GetINCIDENCIASACTIVASValue write SetINCIDENCIASACTIVASValue;
    property OldINCIDENCIASACTIVAS : Integer read GetOldINCIDENCIASACTIVASValue;
    property CODIGOALMACEN : Integer read GetCODIGOALMACENValue write SetCODIGOALMACENValue;
    property OldCODIGOALMACEN : Integer read GetOldCODIGOALMACENValue;
    property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CODIGOMONTAJE : Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property NOMBREALMACEN : String read GetNOMBREALMACENValue write SetNOMBREALMACENValue;
    property OldNOMBREALMACEN : String read GetOldNOMBREALMACENValue;
    property CODIGOCONTACTO1 : Integer read GetCODIGOCONTACTO1Value write SetCODIGOCONTACTO1Value;
    property OldCODIGOCONTACTO1 : Integer read GetOldCODIGOCONTACTO1Value;
    property NOMBRECLIENTE : String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
    property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IInformeCabeceraPedidoDelta }
  IInformeCabeceraPedidoDelta = interface(IInformeCabeceraPedido)
  ['{AAA39823-20B1-40CA-B150-B1DD9366F5F9}']
    { Property getters and setters }
    function GetOldCODIGOEMPRESAValue : Integer;
    function GetOldCODIGOValue : Integer;
    function GetOldREFERENCIAValue : String;
    function GetOldFECHAPEDIDOValue : DateTime;
    function GetOldFECHAENTREGAValue : DateTime;
    function GetOldOBSERVACIONESValue : IROStrings;
    function GetOldIMPORTETOTALValue : Float;
    function GetOldDIRECCIONCOMPLETAValue : IROStrings;
    function GetOldNOMBREValue : String;
    function GetOldCALLEValue : String;
    function GetOldCODIGOPOSTALValue : String;
    function GetOldPROVINCIAValue : String;
    function GetOldPOBLACIONValue : String;
    function GetOldCODIGOMONTAJEValue : Integer;
    function GetOldCODIGOCONTACTOValue : Integer;
    function GetOldNOMBRECLIENTEValue : String;

    { Properties }
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property OldFECHAPEDIDO : DateTime read GetOldFECHAPEDIDOValue;
    property OldFECHAENTREGA : DateTime read GetOldFECHAENTREGAValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue;
    property OldDIRECCIONCOMPLETA : IROStrings read GetOldDIRECCIONCOMPLETAValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property OldCALLE : String read GetOldCALLEValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;
  end;

  { TInformeCabeceraPedidoBusinessProcessorRules }
  TInformeCabeceraPedidoBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeCabeceraPedido, IInformeCabeceraPedidoDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOEMPRESAValue: Integer; virtual;
    function GetOldCODIGOEMPRESAValue: Integer; virtual;
    procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
    function GetCODIGOValue: Integer; virtual;
    function GetOldCODIGOValue: Integer; virtual;
    procedure SetCODIGOValue(const aValue: Integer); virtual;
    function GetREFERENCIAValue: String; virtual;
    function GetOldREFERENCIAValue: String; virtual;
    procedure SetREFERENCIAValue(const aValue: String); virtual;
    function GetFECHAPEDIDOValue: DateTime; virtual;
    function GetOldFECHAPEDIDOValue: DateTime; virtual;
    procedure SetFECHAPEDIDOValue(const aValue: DateTime); virtual;
    function GetFECHAENTREGAValue: DateTime; virtual;
    function GetOldFECHAENTREGAValue: DateTime; virtual;
    procedure SetFECHAENTREGAValue(const aValue: DateTime); virtual;
    function GetOBSERVACIONESValue: IROStrings; virtual;
    function GetOldOBSERVACIONESValue: IROStrings; virtual;
    procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
    function GetIMPORTETOTALValue: Float; virtual;
    function GetOldIMPORTETOTALValue: Float; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Float); virtual;
    function GetDIRECCIONCOMPLETAValue: IROStrings; virtual;
    function GetOldDIRECCIONCOMPLETAValue: IROStrings; virtual;
    procedure SetDIRECCIONCOMPLETAValue(const aValue: IROStrings); virtual;
    function GetNOMBREValue: String; virtual;
    function GetOldNOMBREValue: String; virtual;
    procedure SetNOMBREValue(const aValue: String); virtual;
    function GetCALLEValue: String; virtual;
    function GetOldCALLEValue: String; virtual;
    procedure SetCALLEValue(const aValue: String); virtual;
    function GetCODIGOPOSTALValue: String; virtual;
    function GetOldCODIGOPOSTALValue: String; virtual;
    procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
    function GetPROVINCIAValue: String; virtual;
    function GetOldPROVINCIAValue: String; virtual;
    procedure SetPROVINCIAValue(const aValue: String); virtual;
    function GetPOBLACIONValue: String; virtual;
    function GetOldPOBLACIONValue: String; virtual;
    procedure SetPOBLACIONValue(const aValue: String); virtual;
    function GetCODIGOMONTAJEValue: Integer; virtual;
    function GetOldCODIGOMONTAJEValue: Integer; virtual;
    procedure SetCODIGOMONTAJEValue(const aValue: Integer); virtual;
    function GetCODIGOCONTACTOValue: Integer; virtual;
    function GetOldCODIGOCONTACTOValue: Integer; virtual;
    procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
    function GetNOMBRECLIENTEValue: String; virtual;
    function GetOldNOMBRECLIENTEValue: String; virtual;
    procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;

    { Properties }
    property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
    property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
    property CODIGO : Integer read GetCODIGOValue write SetCODIGOValue;
    property OldCODIGO : Integer read GetOldCODIGOValue;
    property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
    property OldREFERENCIA : String read GetOldREFERENCIAValue;
    property FECHAPEDIDO : DateTime read GetFECHAPEDIDOValue write SetFECHAPEDIDOValue;
    property OldFECHAPEDIDO : DateTime read GetOldFECHAPEDIDOValue;
    property FECHAENTREGA : DateTime read GetFECHAENTREGAValue write SetFECHAENTREGAValue;
    property OldFECHAENTREGA : DateTime read GetOldFECHAENTREGAValue;
    property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
    property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
    property IMPORTETOTAL : Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue;
    property DIRECCIONCOMPLETA : IROStrings read GetDIRECCIONCOMPLETAValue write SetDIRECCIONCOMPLETAValue;
    property OldDIRECCIONCOMPLETA : IROStrings read GetOldDIRECCIONCOMPLETAValue;
    property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
    property OldNOMBRE : String read GetOldNOMBREValue;
    property CALLE : String read GetCALLEValue write SetCALLEValue;
    property OldCALLE : String read GetOldCALLEValue;
    property CODIGOPOSTAL : String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
    property OldCODIGOPOSTAL : String read GetOldCODIGOPOSTALValue;
    property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
    property OldPROVINCIA : String read GetOldPROVINCIAValue;
    property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
    property OldPOBLACION : String read GetOldPOBLACIONValue;
    property CODIGOMONTAJE : Integer read GetCODIGOMONTAJEValue write SetCODIGOMONTAJEValue;
    property OldCODIGOMONTAJE : Integer read GetOldCODIGOMONTAJEValue;
    property CODIGOCONTACTO : Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
    property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
    property NOMBRECLIENTE : String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
    property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

  { IInformeDetallesPedidoDelta }
  IInformeDetallesPedidoDelta = interface(IInformeDetallesPedido)
  ['{48CFF8AA-9EEB-4068-AB9E-362E5700810A}']
    { Property getters and setters }
    function GetOldCODIGOPEDIDOValue : Integer;
    function GetOldNUMCONCEPTOValue : Integer;
    function GetOldDESCRIPCIONValue : String;
    function GetOldCANTIDADValue : Integer;
    function GetOldIMPORTEUNIDADValue : Currency;
    function GetOldIMPORTETOTALValue : Currency;
    function GetOldPOSICIONValue : Integer;
    function GetOldTIPOValue : String;

    { Properties }
    property OldCODIGOPEDIDO : Integer read GetOldCODIGOPEDIDOValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property OldPOSICION : Integer read GetOldPOSICIONValue;
    property OldTIPO : String read GetOldTIPOValue;
  end;

  { TInformeDetallesPedidoBusinessProcessorRules }
  TInformeDetallesPedidoBusinessProcessorRules = class(TDABusinessProcessorRules, IInformeDetallesPedido, IInformeDetallesPedidoDelta)
  private
  protected
    { Property getters and setters }
    function GetCODIGOPEDIDOValue: Integer; virtual;
    function GetOldCODIGOPEDIDOValue: Integer; virtual;
    procedure SetCODIGOPEDIDOValue(const aValue: Integer); virtual;
    function GetNUMCONCEPTOValue: Integer; virtual;
    function GetOldNUMCONCEPTOValue: Integer; virtual;
    procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual;
    function GetDESCRIPCIONValue: String; virtual;
    function GetOldDESCRIPCIONValue: String; virtual;
    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
    function GetCANTIDADValue: Integer; virtual;
    function GetOldCANTIDADValue: Integer; virtual;
    procedure SetCANTIDADValue(const aValue: Integer); virtual;
    function GetIMPORTEUNIDADValue: Currency; virtual;
    function GetOldIMPORTEUNIDADValue: Currency; virtual;
    procedure SetIMPORTEUNIDADValue(const aValue: Currency); virtual;
    function GetIMPORTETOTALValue: Currency; virtual;
    function GetOldIMPORTETOTALValue: Currency; virtual;
    procedure SetIMPORTETOTALValue(const aValue: Currency); virtual;
    function GetPOSICIONValue: Integer; virtual;
    function GetOldPOSICIONValue: Integer; virtual;
    procedure SetPOSICIONValue(const aValue: Integer); virtual;
    function GetTIPOValue: String; virtual;
    function GetOldTIPOValue: String; virtual;
    procedure SetTIPOValue(const aValue: String); virtual;

    { Properties }
    property CODIGOPEDIDO : Integer read GetCODIGOPEDIDOValue write SetCODIGOPEDIDOValue;
    property OldCODIGOPEDIDO : Integer read GetOldCODIGOPEDIDOValue;
    property NUMCONCEPTO : Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue;
    property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue;
    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
    property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
    property OldCANTIDAD : Integer read GetOldCANTIDADValue;
    property IMPORTEUNIDAD : Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue;
    property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue;
    property IMPORTETOTAL : Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue;
    property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue;
    property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
    property OldPOSICION : Integer read GetOldPOSICIONValue;
    property TIPO : String read GetTIPOValue write SetTIPOValue;
    property OldTIPO : String read GetOldTIPOValue;

  public
    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
    destructor Destroy; override;

  end;

implementation

uses
  Variants, uROBinaryHelpers;

{ TdarReferenciaPedidoBusinessProcessorRules }
constructor TdarReferenciaPedidoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TdarReferenciaPedidoBusinessProcessorRules.Destroy;
begin
  inherited;
end;


{ TDetallesPedidosProveedorBusinessProcessorRules }
constructor TDetallesPedidosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TDetallesPedidosProveedorBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetCODIGOPEDIDOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorCODIGOPEDIDO];
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetOldCODIGOPEDIDOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPedidosProveedorCODIGOPEDIDO];
end;

procedure TDetallesPedidosProveedorBusinessProcessorRules.SetCODIGOPEDIDOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorCODIGOPEDIDO] := aValue;
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorNUMCONCEPTO];
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPedidosProveedorNUMCONCEPTO];
end;

procedure TDetallesPedidosProveedorBusinessProcessorRules.SetNUMCONCEPTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorNUMCONCEPTO] := aValue;
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorDESCRIPCION];
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPedidosProveedorDESCRIPCION];
end;

procedure TDetallesPedidosProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorDESCRIPCION] := aValue;
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorCANTIDAD];
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPedidosProveedorCANTIDAD];
end;

procedure TDetallesPedidosProveedorBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorCANTIDAD] := aValue;
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorIMPORTEUNIDAD];
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetOldIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPedidosProveedorIMPORTEUNIDAD];
end;

procedure TDetallesPedidosProveedorBusinessProcessorRules.SetIMPORTEUNIDADValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorIMPORTEUNIDAD] := aValue;
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorIMPORTETOTAL];
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPedidosProveedorIMPORTETOTAL];
end;

procedure TDetallesPedidosProveedorBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorIMPORTETOTAL] := aValue;
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorPOSICION];
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPedidosProveedorPOSICION];
end;

procedure TDetallesPedidosProveedorBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorPOSICION] := aValue;
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorTIPO];
end;

function TDetallesPedidosProveedorBusinessProcessorRules.GetOldTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPedidosProveedorTIPO];
end;

procedure TDetallesPedidosProveedorBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPedidosProveedorTIPO] := aValue;
end;


{ TListaAnosPedidosBusinessProcessorRules }
constructor TListaAnosPedidosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TListaAnosPedidosBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TListaAnosPedidosBusinessProcessorRules.GetANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPedidosANO];
end;

function TListaAnosPedidosBusinessProcessorRules.GetOldANOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosPedidosANO];
end;

procedure TListaAnosPedidosBusinessProcessorRules.SetANOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosPedidosANO] := aValue;
end;


{ TPedidosProveedorBusinessProcessorRules }
constructor TPedidosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TPedidosProveedorBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TPedidosProveedorBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOEMPRESA];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGOEMPRESA];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOEMPRESA] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGO];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetCODIGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGO] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHAALTA];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHAALTA];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetFECHAALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHAALTA] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorUSUARIO];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorUSUARIO] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREFERENCIA];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREFERENCIA] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetFECHAPEDIDOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHAPEDIDO];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldFECHAPEDIDOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHAPEDIDO];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetFECHAPEDIDOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHAPEDIDO] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetFECHACONFIRMACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHACONFIRMACION];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldFECHACONFIRMACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHACONFIRMACION];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetFECHACONFIRMACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHACONFIRMACION] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorSITUACION];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorSITUACION] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetFECHAENTREGAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHAENTREGA];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldFECHAENTREGAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorFECHAENTREGA];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetFECHAENTREGAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorFECHAENTREGA] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorOBSERVACIONES];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorOBSERVACIONES] := aValue.Text;
end;

function TPedidosProveedorBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTETOTAL];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorIMPORTETOTAL];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorIMPORTETOTAL] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetDIRECCIONCOMPLETAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDIRECCIONCOMPLETA];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldDIRECCIONCOMPLETAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorDIRECCIONCOMPLETA];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetDIRECCIONCOMPLETAValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDIRECCIONCOMPLETA] := aValue.Text;
end;

function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIASValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS] := aValue.Text;
end;

function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIASACTIVASValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIASACTIVAS];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIASACTIVASValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIASACTIVAS];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIASACTIVASValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIASACTIVAS] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetCODIGOALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOALMACEN];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldCODIGOALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGOALMACEN];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetCODIGOALMACENValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOALMACEN] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOCONTACTO];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGOCONTACTO];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOCONTACTO] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRE];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRE] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOMONTAJE];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGOMONTAJE];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetCODIGOMONTAJEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOMONTAJE] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetNOMBREALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBREALMACEN];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldNOMBREALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBREALMACEN];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetNOMBREALMACENValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBREALMACEN] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetCODIGOCONTACTO1Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOCONTACTO1];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldCODIGOCONTACTO1Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorCODIGOCONTACTO1];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetCODIGOCONTACTO1Value(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorCODIGOCONTACTO1] := aValue;
end;

function TPedidosProveedorBusinessProcessorRules.GetNOMBRECLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRECLIENTE];
end;

function TPedidosProveedorBusinessProcessorRules.GetOldNOMBRECLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNOMBRECLIENTE];
end;

procedure TPedidosProveedorBusinessProcessorRules.SetNOMBRECLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNOMBRECLIENTE] := aValue;
end;


{ TRefresh_PedidosProveedorBusinessProcessorRules }
constructor TRefresh_PedidosProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TRefresh_PedidosProveedorBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOEMPRESA];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorCODIGOEMPRESA];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOEMPRESA] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGO];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorCODIGO];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetCODIGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGO] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorFECHAALTA];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldFECHAALTAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorFECHAALTA];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetFECHAALTAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorFECHAALTA] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorUSUARIO];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorUSUARIO];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorUSUARIO] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorREFERENCIA];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorREFERENCIA];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorREFERENCIA] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetFECHAPEDIDOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorFECHAPEDIDO];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldFECHAPEDIDOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorFECHAPEDIDO];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetFECHAPEDIDOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorFECHAPEDIDO] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetFECHACONFIRMACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorFECHACONFIRMACION];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldFECHACONFIRMACIONValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorFECHACONFIRMACION];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetFECHACONFIRMACIONValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorFECHACONFIRMACION] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorSITUACION];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorSITUACION];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorSITUACION] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetFECHAENTREGAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorFECHAENTREGA];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldFECHAENTREGAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorFECHAENTREGA];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetFECHAENTREGAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorFECHAENTREGA] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorOBSERVACIONES];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorOBSERVACIONES];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorOBSERVACIONES] := aValue.Text;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorIMPORTETOTAL];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorIMPORTETOTAL];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorIMPORTETOTAL] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetDIRECCIONCOMPLETAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorDIRECCIONCOMPLETA];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldDIRECCIONCOMPLETAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorDIRECCIONCOMPLETA];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetDIRECCIONCOMPLETAValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorDIRECCIONCOMPLETA] := aValue.Text;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetINCIDENCIASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorINCIDENCIAS];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorINCIDENCIAS];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetINCIDENCIASValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorINCIDENCIAS] := aValue.Text;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetINCIDENCIASACTIVASValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorINCIDENCIASACTIVAS];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldINCIDENCIASACTIVASValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorINCIDENCIASACTIVAS];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetINCIDENCIASACTIVASValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorINCIDENCIASACTIVAS] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetCODIGOALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOALMACEN];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldCODIGOALMACENValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorCODIGOALMACEN];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetCODIGOALMACENValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOALMACEN] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOCONTACTO];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorCODIGOCONTACTO];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOCONTACTO] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorNOMBRE];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorNOMBRE];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorNOMBRE] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOMONTAJE];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorCODIGOMONTAJE];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetCODIGOMONTAJEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOMONTAJE] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetNOMBREALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorNOMBREALMACEN];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldNOMBREALMACENValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorNOMBREALMACEN];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetNOMBREALMACENValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorNOMBREALMACEN] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetCODIGOCONTACTO1Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOCONTACTO1];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldCODIGOCONTACTO1Value: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorCODIGOCONTACTO1];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetCODIGOCONTACTO1Value(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorCODIGOCONTACTO1] := aValue;
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetNOMBRECLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorNOMBRECLIENTE];
end;

function TRefresh_PedidosProveedorBusinessProcessorRules.GetOldNOMBRECLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_Refresh_PedidosProveedorNOMBRECLIENTE];
end;

procedure TRefresh_PedidosProveedorBusinessProcessorRules.SetNOMBRECLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_Refresh_PedidosProveedorNOMBRECLIENTE] := aValue;
end;


{ TInformeCabeceraPedidoBusinessProcessorRules }
constructor TInformeCabeceraPedidoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TInformeCabeceraPedidoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGOEMPRESA];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldCODIGOEMPRESAValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoCODIGOEMPRESA];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetCODIGOEMPRESAValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGOEMPRESA] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGO];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldCODIGOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoCODIGO];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetCODIGOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGO] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoREFERENCIA];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoREFERENCIA];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoREFERENCIA] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetFECHAPEDIDOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoFECHAPEDIDO];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldFECHAPEDIDOValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoFECHAPEDIDO];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetFECHAPEDIDOValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoFECHAPEDIDO] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetFECHAENTREGAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoFECHAENTREGA];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldFECHAENTREGAValue: DateTime;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoFECHAENTREGA];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetFECHAENTREGAValue(const aValue: DateTime);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoFECHAENTREGA] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoOBSERVACIONES];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoOBSERVACIONES];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoOBSERVACIONES] := aValue.Text;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetIMPORTETOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoIMPORTETOTAL];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldIMPORTETOTALValue: Float;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoIMPORTETOTAL];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Float);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoIMPORTETOTAL] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetDIRECCIONCOMPLETAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoDIRECCIONCOMPLETA];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldDIRECCIONCOMPLETAValue: IROStrings;
begin
  result := NewROStrings();
  result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoDIRECCIONCOMPLETA];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetDIRECCIONCOMPLETAValue(const aValue: IROStrings);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoDIRECCIONCOMPLETA] := aValue.Text;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoNOMBRE];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldNOMBREValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoNOMBRE];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoNOMBRE] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCALLE];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldCALLEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoCALLE];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCALLE] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGOPOSTAL];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldCODIGOPOSTALValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoCODIGOPOSTAL];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetCODIGOPOSTALValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGOPOSTAL] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoPROVINCIA];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoPROVINCIA];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoPROVINCIA] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoPOBLACION];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoPOBLACION];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoPOBLACION] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGOMONTAJE];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldCODIGOMONTAJEValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoCODIGOMONTAJE];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetCODIGOMONTAJEValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGOMONTAJE] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGOCONTACTO];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldCODIGOCONTACTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoCODIGOCONTACTO];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetCODIGOCONTACTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoCODIGOCONTACTO] := aValue;
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetNOMBRECLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoNOMBRECLIENTE];
end;

function TInformeCabeceraPedidoBusinessProcessorRules.GetOldNOMBRECLIENTEValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeCabeceraPedidoNOMBRECLIENTE];
end;

procedure TInformeCabeceraPedidoBusinessProcessorRules.SetNOMBRECLIENTEValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeCabeceraPedidoNOMBRECLIENTE] := aValue;
end;


{ TInformeDetallesPedidoBusinessProcessorRules }
constructor TInformeDetallesPedidoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
  inherited;
end;

destructor TInformeDetallesPedidoBusinessProcessorRules.Destroy;
begin
  inherited;
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetCODIGOPEDIDOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoCODIGOPEDIDO];
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetOldCODIGOPEDIDOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPedidoCODIGOPEDIDO];
end;

procedure TInformeDetallesPedidoBusinessProcessorRules.SetCODIGOPEDIDOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoCODIGOPEDIDO] := aValue;
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoNUMCONCEPTO];
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetOldNUMCONCEPTOValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPedidoNUMCONCEPTO];
end;

procedure TInformeDetallesPedidoBusinessProcessorRules.SetNUMCONCEPTOValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoNUMCONCEPTO] := aValue;
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoDESCRIPCION];
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPedidoDESCRIPCION];
end;

procedure TInformeDetallesPedidoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoDESCRIPCION] := aValue;
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoCANTIDAD];
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPedidoCANTIDAD];
end;

procedure TInformeDetallesPedidoBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoCANTIDAD] := aValue;
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoIMPORTEUNIDAD];
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetOldIMPORTEUNIDADValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPedidoIMPORTEUNIDAD];
end;

procedure TInformeDetallesPedidoBusinessProcessorRules.SetIMPORTEUNIDADValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoIMPORTEUNIDAD] := aValue;
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoIMPORTETOTAL];
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetOldIMPORTETOTALValue: Currency;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPedidoIMPORTETOTAL];
end;

procedure TInformeDetallesPedidoBusinessProcessorRules.SetIMPORTETOTALValue(const aValue: Currency);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoIMPORTETOTAL] := aValue;
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoPOSICION];
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPedidoPOSICION];
end;

procedure TInformeDetallesPedidoBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoPOSICION] := aValue;
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoTIPO];
end;

function TInformeDetallesPedidoBusinessProcessorRules.GetOldTIPOValue: String;
begin
  result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPedidoTIPO];
end;

procedure TInformeDetallesPedidoBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
  BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPedidoTIPO] := aValue;
end;


initialization
  RegisterBusinessProcessorRules(RID_darReferenciaPedidoDelta, TdarReferenciaPedidoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_DetallesPedidosProveedorDelta, TDetallesPedidosProveedorBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_ListaAnosPedidosDelta, TListaAnosPedidosBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_PedidosProveedorDelta, TPedidosProveedorBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_Refresh_PedidosProveedorDelta, TRefresh_PedidosProveedorBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeCabeceraPedidoDelta, TInformeCabeceraPedidoBusinessProcessorRules);
  RegisterBusinessProcessorRules(RID_InformeDetallesPedidoDelta, TInformeDetallesPedidoBusinessProcessorRules);

end.