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.