unit schInventarioServer_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schInventarioClient_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_INVENTARIODelta = '{97FA1504-6963-4774-997E-9EE5D41EE625}'; RID_DETALLE_RESERVAS_INVDelta = '{3B8E4F9D-3FD5-4E97-AAC3-1F06084FD65B}'; RID_DETALLE_SIN_ALBARANARDelta = '{0A0EAAC2-6C4C-4EFB-8A5E-4F2F6CBA910C}'; RID_DETALLE_SIN_RECIBIRDelta = '{BDDDC4FE-7BB0-4809-B2DF-2C780571351F}'; type { IINVENTARIODelta } IINVENTARIODelta = interface(IINVENTARIO) ['{97FA1504-6963-4774-997E-9EE5D41EE625}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ALMACENValue : Integer; function GetOldID_ARTICULOValue : Integer; function GetOldALMACENValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldFAMILIAValue : String; function GetOldDESCRIPCIONValue : String; function GetOldPRECIO_NETOValue : Currency; function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldUNIDADES_ALMACENValue : Integer; function GetOldCOSTE_UNIDADESValue : Currency; function GetOldSTOCKValue : Integer; function GetOldRESERVAValue : Integer; function GetOldPENDIENTE_RECEPCIONValue : Integer; function GetOldCANTIDADValue : Integer; function GetOldFECHA_MOVIMIENTOValue : DateTime; function GetOldCAUSAValue : String; function GetOldTIPOValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldALMACEN : String read GetOldALMACENValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldUNIDADES_ALMACEN : Integer read GetOldUNIDADES_ALMACENValue; property OldCOSTE_UNIDADES : Currency read GetOldCOSTE_UNIDADESValue; property OldSTOCK : Integer read GetOldSTOCKValue; property OldRESERVA : Integer read GetOldRESERVAValue; property OldPENDIENTE_RECEPCION : Integer read GetOldPENDIENTE_RECEPCIONValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldFECHA_MOVIMIENTO : DateTime read GetOldFECHA_MOVIMIENTOValue; property OldCAUSA : String read GetOldCAUSAValue; property OldTIPO : String read GetOldTIPOValue; end; { TINVENTARIOBusinessProcessorRules } TINVENTARIOBusinessProcessorRules = class(TDABusinessProcessorRules, IINVENTARIO, IINVENTARIODelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_ALMACENValue: Integer; virtual; function GetOldID_ALMACENValue: Integer; virtual; procedure SetID_ALMACENValue(const aValue: Integer); virtual; function GetID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetALMACENValue: String; virtual; function GetOldALMACENValue: String; virtual; procedure SetALMACENValue(const aValue: String); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetFAMILIAValue: String; virtual; function GetOldFAMILIAValue: String; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetPRECIO_NETOValue: Currency; virtual; function GetOldPRECIO_NETOValue: Currency; virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; function GetOldREFERENCIA_PROVEEDORValue: String; virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetUNIDADES_ALMACENValue: Integer; virtual; function GetOldUNIDADES_ALMACENValue: Integer; virtual; procedure SetUNIDADES_ALMACENValue(const aValue: Integer); virtual; function GetCOSTE_UNIDADESValue: Currency; virtual; function GetOldCOSTE_UNIDADESValue: Currency; virtual; procedure SetCOSTE_UNIDADESValue(const aValue: Currency); virtual; function GetSTOCKValue: Integer; virtual; function GetOldSTOCKValue: Integer; virtual; procedure SetSTOCKValue(const aValue: Integer); virtual; function GetRESERVAValue: Integer; virtual; function GetOldRESERVAValue: Integer; virtual; procedure SetRESERVAValue(const aValue: Integer); virtual; function GetPENDIENTE_RECEPCIONValue: Integer; virtual; function GetOldPENDIENTE_RECEPCIONValue: Integer; virtual; procedure SetPENDIENTE_RECEPCIONValue(const aValue: Integer); virtual; function GetCANTIDADValue: Integer; virtual; function GetOldCANTIDADValue: Integer; virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetFECHA_MOVIMIENTOValue: DateTime; virtual; function GetOldFECHA_MOVIMIENTOValue: DateTime; virtual; procedure SetFECHA_MOVIMIENTOValue(const aValue: DateTime); virtual; function GetCAUSAValue: String; virtual; function GetOldCAUSAValue: String; virtual; procedure SetCAUSAValue(const aValue: String); virtual; function GetTIPOValue: String; virtual; function GetOldTIPOValue: String; virtual; procedure SetTIPOValue(const aValue: String); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue; property OldID_ALMACEN : Integer read GetOldID_ALMACENValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property ALMACEN : String read GetALMACENValue write SetALMACENValue; property OldALMACEN : String read GetOldALMACENValue; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; property OldFAMILIA : String read GetOldFAMILIAValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property UNIDADES_ALMACEN : Integer read GetUNIDADES_ALMACENValue write SetUNIDADES_ALMACENValue; property OldUNIDADES_ALMACEN : Integer read GetOldUNIDADES_ALMACENValue; property COSTE_UNIDADES : Currency read GetCOSTE_UNIDADESValue write SetCOSTE_UNIDADESValue; property OldCOSTE_UNIDADES : Currency read GetOldCOSTE_UNIDADESValue; property STOCK : Integer read GetSTOCKValue write SetSTOCKValue; property OldSTOCK : Integer read GetOldSTOCKValue; property RESERVA : Integer read GetRESERVAValue write SetRESERVAValue; property OldRESERVA : Integer read GetOldRESERVAValue; property PENDIENTE_RECEPCION : Integer read GetPENDIENTE_RECEPCIONValue write SetPENDIENTE_RECEPCIONValue; property OldPENDIENTE_RECEPCION : Integer read GetOldPENDIENTE_RECEPCIONValue; property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property FECHA_MOVIMIENTO : DateTime read GetFECHA_MOVIMIENTOValue write SetFECHA_MOVIMIENTOValue; property OldFECHA_MOVIMIENTO : DateTime read GetOldFECHA_MOVIMIENTOValue; property CAUSA : String read GetCAUSAValue write SetCAUSAValue; property OldCAUSA : String read GetOldCAUSAValue; property TIPO : String read GetTIPOValue write SetTIPOValue; property OldTIPO : String read GetOldTIPOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDETALLE_RESERVAS_INVDelta } IDETALLE_RESERVAS_INVDelta = interface(IDETALLE_RESERVAS_INV) ['{3B8E4F9D-3FD5-4E97-AAC3-1F06084FD65B}'] { Property getters and setters } function GetOldID_ALBValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIA_ALBValue : String; function GetOldSITUACION_ALBValue : String; function GetOldFECHA_PREVISTA_ENVIO_ALBValue : DateTime; function GetOldID_ALMACEN_ALBValue : Integer; function GetOldALMACEN_ALBValue : String; function GetOldID_CLIENTE_ALBValue : Integer; function GetOldCLIENTE_ALBValue : String; function GetOldID_ARTValue : Integer; function GetOldFAMILIA_ARTValue : String; function GetOldREFERENCIA_ARTValue : String; function GetOldREFERENCIA_PROV_ARTValue : String; function GetOldDESCRIPCION_ARTValue : String; function GetOldCANTIDAD_ARTValue : Integer; { Properties } property OldID_ALB : Integer read GetOldID_ALBValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA_ALB : String read GetOldREFERENCIA_ALBValue; property OldSITUACION_ALB : String read GetOldSITUACION_ALBValue; property OldFECHA_PREVISTA_ENVIO_ALB : DateTime read GetOldFECHA_PREVISTA_ENVIO_ALBValue; property OldID_ALMACEN_ALB : Integer read GetOldID_ALMACEN_ALBValue; property OldALMACEN_ALB : String read GetOldALMACEN_ALBValue; property OldID_CLIENTE_ALB : Integer read GetOldID_CLIENTE_ALBValue; property OldCLIENTE_ALB : String read GetOldCLIENTE_ALBValue; property OldID_ART : Integer read GetOldID_ARTValue; property OldFAMILIA_ART : String read GetOldFAMILIA_ARTValue; property OldREFERENCIA_ART : String read GetOldREFERENCIA_ARTValue; property OldREFERENCIA_PROV_ART : String read GetOldREFERENCIA_PROV_ARTValue; property OldDESCRIPCION_ART : String read GetOldDESCRIPCION_ARTValue; property OldCANTIDAD_ART : Integer read GetOldCANTIDAD_ARTValue; end; { TDETALLE_RESERVAS_INVBusinessProcessorRules } TDETALLE_RESERVAS_INVBusinessProcessorRules = class(TDABusinessProcessorRules, IDETALLE_RESERVAS_INV, IDETALLE_RESERVAS_INVDelta) private protected { Property getters and setters } function GetID_ALBValue: Integer; virtual; function GetOldID_ALBValue: Integer; virtual; procedure SetID_ALBValue(const aValue: Integer); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIA_ALBValue: String; virtual; function GetOldREFERENCIA_ALBValue: String; virtual; procedure SetREFERENCIA_ALBValue(const aValue: String); virtual; function GetSITUACION_ALBValue: String; virtual; function GetOldSITUACION_ALBValue: String; virtual; procedure SetSITUACION_ALBValue(const aValue: String); virtual; function GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual; function GetOldFECHA_PREVISTA_ENVIO_ALBValue: DateTime; virtual; procedure SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); virtual; function GetID_ALMACEN_ALBValue: Integer; virtual; function GetOldID_ALMACEN_ALBValue: Integer; virtual; procedure SetID_ALMACEN_ALBValue(const aValue: Integer); virtual; function GetALMACEN_ALBValue: String; virtual; function GetOldALMACEN_ALBValue: String; virtual; procedure SetALMACEN_ALBValue(const aValue: String); virtual; function GetID_CLIENTE_ALBValue: Integer; virtual; function GetOldID_CLIENTE_ALBValue: Integer; virtual; procedure SetID_CLIENTE_ALBValue(const aValue: Integer); virtual; function GetCLIENTE_ALBValue: String; virtual; function GetOldCLIENTE_ALBValue: String; virtual; procedure SetCLIENTE_ALBValue(const aValue: String); virtual; function GetID_ARTValue: Integer; virtual; function GetOldID_ARTValue: Integer; virtual; procedure SetID_ARTValue(const aValue: Integer); virtual; function GetFAMILIA_ARTValue: String; virtual; function GetOldFAMILIA_ARTValue: String; virtual; procedure SetFAMILIA_ARTValue(const aValue: String); virtual; function GetREFERENCIA_ARTValue: String; virtual; function GetOldREFERENCIA_ARTValue: String; virtual; procedure SetREFERENCIA_ARTValue(const aValue: String); virtual; function GetREFERENCIA_PROV_ARTValue: String; virtual; function GetOldREFERENCIA_PROV_ARTValue: String; virtual; procedure SetREFERENCIA_PROV_ARTValue(const aValue: String); virtual; function GetDESCRIPCION_ARTValue: String; virtual; function GetOldDESCRIPCION_ARTValue: String; virtual; procedure SetDESCRIPCION_ARTValue(const aValue: String); virtual; function GetCANTIDAD_ARTValue: Integer; virtual; function GetOldCANTIDAD_ARTValue: Integer; virtual; procedure SetCANTIDAD_ARTValue(const aValue: Integer); virtual; { Properties } property ID_ALB : Integer read GetID_ALBValue write SetID_ALBValue; property OldID_ALB : Integer read GetOldID_ALBValue; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property REFERENCIA_ALB : String read GetREFERENCIA_ALBValue write SetREFERENCIA_ALBValue; property OldREFERENCIA_ALB : String read GetOldREFERENCIA_ALBValue; property SITUACION_ALB : String read GetSITUACION_ALBValue write SetSITUACION_ALBValue; property OldSITUACION_ALB : String read GetOldSITUACION_ALBValue; property FECHA_PREVISTA_ENVIO_ALB : DateTime read GetFECHA_PREVISTA_ENVIO_ALBValue write SetFECHA_PREVISTA_ENVIO_ALBValue; property OldFECHA_PREVISTA_ENVIO_ALB : DateTime read GetOldFECHA_PREVISTA_ENVIO_ALBValue; property ID_ALMACEN_ALB : Integer read GetID_ALMACEN_ALBValue write SetID_ALMACEN_ALBValue; property OldID_ALMACEN_ALB : Integer read GetOldID_ALMACEN_ALBValue; property ALMACEN_ALB : String read GetALMACEN_ALBValue write SetALMACEN_ALBValue; property OldALMACEN_ALB : String read GetOldALMACEN_ALBValue; property ID_CLIENTE_ALB : Integer read GetID_CLIENTE_ALBValue write SetID_CLIENTE_ALBValue; property OldID_CLIENTE_ALB : Integer read GetOldID_CLIENTE_ALBValue; property CLIENTE_ALB : String read GetCLIENTE_ALBValue write SetCLIENTE_ALBValue; property OldCLIENTE_ALB : String read GetOldCLIENTE_ALBValue; property ID_ART : Integer read GetID_ARTValue write SetID_ARTValue; property OldID_ART : Integer read GetOldID_ARTValue; property FAMILIA_ART : String read GetFAMILIA_ARTValue write SetFAMILIA_ARTValue; property OldFAMILIA_ART : String read GetOldFAMILIA_ARTValue; property REFERENCIA_ART : String read GetREFERENCIA_ARTValue write SetREFERENCIA_ARTValue; property OldREFERENCIA_ART : String read GetOldREFERENCIA_ARTValue; property REFERENCIA_PROV_ART : String read GetREFERENCIA_PROV_ARTValue write SetREFERENCIA_PROV_ARTValue; property OldREFERENCIA_PROV_ART : String read GetOldREFERENCIA_PROV_ARTValue; property DESCRIPCION_ART : String read GetDESCRIPCION_ARTValue write SetDESCRIPCION_ARTValue; property OldDESCRIPCION_ART : String read GetOldDESCRIPCION_ARTValue; property CANTIDAD_ART : Integer read GetCANTIDAD_ARTValue write SetCANTIDAD_ARTValue; property OldCANTIDAD_ART : Integer read GetOldCANTIDAD_ARTValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDETALLE_SIN_ALBARANARDelta } IDETALLE_SIN_ALBARANARDelta = interface(IDETALLE_SIN_ALBARANAR) ['{0A0EAAC2-6C4C-4EFB-8A5E-4F2F6CBA910C}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIA_CLI_PEDIDOValue : String; function GetOldREFERENCIA_PEDIDOValue : String; function GetOldFECHA_PEDIDOValue : DateTime; function GetOldFECHA_PREVISTA_PEDIDOValue : DateTime; function GetOldID_CLIENTEValue : Integer; function GetOldCLIENTEValue : String; function GetOldCALLEValue : String; function GetOldCODIGO_POSTALValue : String; function GetOldPOBLACIONValue : String; function GetOldPROVINCIAValue : String; function GetOldPERSONA_CONTACTOValue : String; function GetOldTELEFONOValue : String; function GetOldIVAValue : Float; function GetOldID_FORMA_PAGOValue : Integer; function GetOldIDValue : Integer; function GetOldID_ARTICULOValue : Integer; function GetOldFAMILIAValue : String; function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldDESCRIPCIONValue : String; function GetOldCANTIDAD_PEDIDAValue : Integer; function GetOldCANTIDAD_RESERVADAValue : Integer; function GetOldCANTIDAD_ENVIADAValue : Integer; function GetOldCANTIDAD_SERVIDAValue : Integer; function GetOldCANTIDAD_PENDIENTEValue : Integer; function GetOldPRECIO_COSTEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldPRECION_NETOValue : Currency; { Properties } property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA_CLI_PEDIDO : String read GetOldREFERENCIA_CLI_PEDIDOValue; property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue; property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; property OldFECHA_PREVISTA_PEDIDO : DateTime read GetOldFECHA_PREVISTA_PEDIDOValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldCLIENTE : String read GetOldCLIENTEValue; property OldCALLE : String read GetOldCALLEValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldTELEFONO : String read GetOldTELEFONOValue; property OldIVA : Float read GetOldIVAValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID : Integer read GetOldIDValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldCANTIDAD_PEDIDA : Integer read GetOldCANTIDAD_PEDIDAValue; property OldCANTIDAD_RESERVADA : Integer read GetOldCANTIDAD_RESERVADAValue; property OldCANTIDAD_ENVIADA : Integer read GetOldCANTIDAD_ENVIADAValue; property OldCANTIDAD_SERVIDA : Integer read GetOldCANTIDAD_SERVIDAValue; property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldPRECION_NETO : Currency read GetOldPRECION_NETOValue; end; { TDETALLE_SIN_ALBARANARBusinessProcessorRules } TDETALLE_SIN_ALBARANARBusinessProcessorRules = class(TDABusinessProcessorRules, IDETALLE_SIN_ALBARANAR, IDETALLE_SIN_ALBARANARDelta) private protected { Property getters and setters } function GetID_PEDIDOValue: Integer; virtual; function GetOldID_PEDIDOValue: Integer; virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIA_CLI_PEDIDOValue: String; virtual; function GetOldREFERENCIA_CLI_PEDIDOValue: String; virtual; procedure SetREFERENCIA_CLI_PEDIDOValue(const aValue: String); virtual; function GetREFERENCIA_PEDIDOValue: String; virtual; function GetOldREFERENCIA_PEDIDOValue: String; virtual; procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual; function GetFECHA_PEDIDOValue: DateTime; virtual; function GetOldFECHA_PEDIDOValue: DateTime; virtual; procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual; function GetFECHA_PREVISTA_PEDIDOValue: DateTime; virtual; function GetOldFECHA_PREVISTA_PEDIDOValue: DateTime; virtual; procedure SetFECHA_PREVISTA_PEDIDOValue(const aValue: DateTime); virtual; function GetID_CLIENTEValue: Integer; virtual; function GetOldID_CLIENTEValue: Integer; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; function GetCLIENTEValue: String; virtual; function GetOldCLIENTEValue: String; virtual; procedure SetCLIENTEValue(const aValue: String); virtual; function GetCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetPOBLACIONValue: String; virtual; function GetOldPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPROVINCIAValue: String; virtual; function GetOldPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetTELEFONOValue: String; virtual; function GetOldTELEFONOValue: String; virtual; procedure SetTELEFONOValue(const aValue: String); virtual; function GetIVAValue: Float; virtual; function GetOldIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetFAMILIAValue: String; virtual; function GetOldFAMILIAValue: String; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; function GetOldREFERENCIA_PROVEEDORValue: String; virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetCANTIDAD_PEDIDAValue: Integer; virtual; function GetOldCANTIDAD_PEDIDAValue: Integer; virtual; procedure SetCANTIDAD_PEDIDAValue(const aValue: Integer); virtual; function GetCANTIDAD_RESERVADAValue: Integer; virtual; function GetOldCANTIDAD_RESERVADAValue: Integer; virtual; procedure SetCANTIDAD_RESERVADAValue(const aValue: Integer); virtual; function GetCANTIDAD_ENVIADAValue: Integer; virtual; function GetOldCANTIDAD_ENVIADAValue: Integer; virtual; procedure SetCANTIDAD_ENVIADAValue(const aValue: Integer); virtual; function GetCANTIDAD_SERVIDAValue: Integer; virtual; function GetOldCANTIDAD_SERVIDAValue: Integer; virtual; procedure SetCANTIDAD_SERVIDAValue(const aValue: Integer); virtual; function GetCANTIDAD_PENDIENTEValue: Integer; virtual; function GetOldCANTIDAD_PENDIENTEValue: Integer; virtual; procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual; function GetPRECIO_COSTEValue: Currency; virtual; function GetOldPRECIO_COSTEValue: Currency; virtual; procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; function GetDESCUENTOValue: Float; virtual; function GetOldDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetPRECION_NETOValue: Currency; virtual; function GetOldPRECION_NETOValue: Currency; virtual; procedure SetPRECION_NETOValue(const aValue: Currency); virtual; { Properties } property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property REFERENCIA_CLI_PEDIDO : String read GetREFERENCIA_CLI_PEDIDOValue write SetREFERENCIA_CLI_PEDIDOValue; property OldREFERENCIA_CLI_PEDIDO : String read GetOldREFERENCIA_CLI_PEDIDOValue; property REFERENCIA_PEDIDO : String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue; property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue; property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; property FECHA_PREVISTA_PEDIDO : DateTime read GetFECHA_PREVISTA_PEDIDOValue write SetFECHA_PREVISTA_PEDIDOValue; property OldFECHA_PREVISTA_PEDIDO : DateTime read GetOldFECHA_PREVISTA_PEDIDOValue; property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property CLIENTE : String read GetCLIENTEValue write SetCLIENTEValue; property OldCLIENTE : String read GetOldCLIENTEValue; property CALLE : String read GetCALLEValue write SetCALLEValue; property OldCALLE : String read GetOldCALLEValue; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property OldPROVINCIA : String read GetOldPROVINCIAValue; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; property OldTELEFONO : String read GetOldTELEFONOValue; property IVA : Float read GetIVAValue write SetIVAValue; property OldIVA : Float read GetOldIVAValue; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; property OldFAMILIA : String read GetOldFAMILIAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property CANTIDAD_PEDIDA : Integer read GetCANTIDAD_PEDIDAValue write SetCANTIDAD_PEDIDAValue; property OldCANTIDAD_PEDIDA : Integer read GetOldCANTIDAD_PEDIDAValue; property CANTIDAD_RESERVADA : Integer read GetCANTIDAD_RESERVADAValue write SetCANTIDAD_RESERVADAValue; property OldCANTIDAD_RESERVADA : Integer read GetOldCANTIDAD_RESERVADAValue; property CANTIDAD_ENVIADA : Integer read GetCANTIDAD_ENVIADAValue write SetCANTIDAD_ENVIADAValue; property OldCANTIDAD_ENVIADA : Integer read GetOldCANTIDAD_ENVIADAValue; property CANTIDAD_SERVIDA : Integer read GetCANTIDAD_SERVIDAValue write SetCANTIDAD_SERVIDAValue; property OldCANTIDAD_SERVIDA : Integer read GetOldCANTIDAD_SERVIDAValue; property CANTIDAD_PENDIENTE : Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue; property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue; property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property PRECION_NETO : Currency read GetPRECION_NETOValue write SetPRECION_NETOValue; property OldPRECION_NETO : Currency read GetOldPRECION_NETOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IDETALLE_SIN_RECIBIRDelta } IDETALLE_SIN_RECIBIRDelta = interface(IDETALLE_SIN_RECIBIR) ['{BDDDC4FE-7BB0-4809-B2DF-2C780571351F}'] { Property getters and setters } function GetOldID_PEDIDOValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIA_PEDIDOValue : String; function GetOldFECHA_PEDIDOValue : DateTime; function GetOldCALLEValue : String; function GetOldFECHA_CONFIRMACIONValue : DateTime; function GetOldID_PROVEEDORValue : Integer; function GetOldCODIGO_POSTALValue : String; function GetOldPOBLACIONValue : String; function GetOldPROVINCIAValue : String; function GetOldPERSONA_CONTACTOValue : String; function GetOldTELEFONOValue : String; function GetOldIVAValue : Float; function GetOldID_FORMA_PAGOValue : Integer; function GetOldIDValue : Integer; function GetOldPROVEEDORValue : String; function GetOldID_ARTICULOValue : Integer; function GetOldFAMILIAValue : String; function GetOldREFERENCIAValue : String; function GetOldREFERENCIA_PROVEEDORValue : String; function GetOldDESCRIPCIONValue : String; function GetOldCANTIDAD_PEDIDAValue : Integer; function GetOldCANTIDAD_RECIBIDAValue : Integer; function GetOldCANTIDAD_PENDIENTEValue : Integer; function GetOldPRECIO_COSTEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldPRECIO_NETOValue : Float; function GetOldPRECIO_PORTEValue : Float; { Properties } property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue; property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; property OldCALLE : String read GetOldCALLEValue; property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldTELEFONO : String read GetOldTELEFONOValue; property OldIVA : Float read GetOldIVAValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID : Integer read GetOldIDValue; property OldPROVEEDOR : String read GetOldPROVEEDORValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldCANTIDAD_PEDIDA : Integer read GetOldCANTIDAD_PEDIDAValue; property OldCANTIDAD_RECIBIDA : Integer read GetOldCANTIDAD_RECIBIDAValue; property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue; property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue; end; { TDETALLE_SIN_RECIBIRBusinessProcessorRules } TDETALLE_SIN_RECIBIRBusinessProcessorRules = class(TDABusinessProcessorRules, IDETALLE_SIN_RECIBIR, IDETALLE_SIN_RECIBIRDelta) private protected { Property getters and setters } function GetID_PEDIDOValue: Integer; virtual; function GetOldID_PEDIDOValue: Integer; virtual; procedure SetID_PEDIDOValue(const aValue: Integer); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIA_PEDIDOValue: String; virtual; function GetOldREFERENCIA_PEDIDOValue: String; virtual; procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual; function GetFECHA_PEDIDOValue: DateTime; virtual; function GetOldFECHA_PEDIDOValue: DateTime; virtual; procedure SetFECHA_PEDIDOValue(const aValue: DateTime); virtual; function GetCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual; procedure SetCALLEValue(const aValue: String); virtual; function GetFECHA_CONFIRMACIONValue: DateTime; virtual; function GetOldFECHA_CONFIRMACIONValue: DateTime; virtual; procedure SetFECHA_CONFIRMACIONValue(const aValue: DateTime); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALValue: String; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; function GetPOBLACIONValue: String; virtual; function GetOldPOBLACIONValue: String; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; function GetPROVINCIAValue: String; virtual; function GetOldPROVINCIAValue: String; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; function GetPERSONA_CONTACTOValue: String; virtual; function GetOldPERSONA_CONTACTOValue: String; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetTELEFONOValue: String; virtual; function GetOldTELEFONOValue: String; virtual; procedure SetTELEFONOValue(const aValue: String); virtual; function GetIVAValue: Float; virtual; function GetOldIVAValue: Float; virtual; procedure SetIVAValue(const aValue: Float); virtual; function GetID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; function GetIDValue: Integer; virtual; function GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetPROVEEDORValue: String; virtual; function GetOldPROVEEDORValue: String; virtual; procedure SetPROVEEDORValue(const aValue: String); virtual; function GetID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOValue: Integer; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; function GetFAMILIAValue: String; virtual; function GetOldFAMILIAValue: String; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIA_PROVEEDORValue: String; virtual; function GetOldREFERENCIA_PROVEEDORValue: String; virtual; procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual; function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; function GetCANTIDAD_PEDIDAValue: Integer; virtual; function GetOldCANTIDAD_PEDIDAValue: Integer; virtual; procedure SetCANTIDAD_PEDIDAValue(const aValue: Integer); virtual; function GetCANTIDAD_RECIBIDAValue: Integer; virtual; function GetOldCANTIDAD_RECIBIDAValue: Integer; virtual; procedure SetCANTIDAD_RECIBIDAValue(const aValue: Integer); virtual; function GetCANTIDAD_PENDIENTEValue: Integer; virtual; function GetOldCANTIDAD_PENDIENTEValue: Integer; virtual; procedure SetCANTIDAD_PENDIENTEValue(const aValue: Integer); virtual; function GetPRECIO_COSTEValue: Currency; virtual; function GetOldPRECIO_COSTEValue: Currency; virtual; procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; function GetDESCUENTOValue: Float; virtual; function GetOldDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetPRECIO_NETOValue: Float; virtual; function GetOldPRECIO_NETOValue: Float; virtual; procedure SetPRECIO_NETOValue(const aValue: Float); virtual; function GetPRECIO_PORTEValue: Float; virtual; function GetOldPRECIO_PORTEValue: Float; virtual; procedure SetPRECIO_PORTEValue(const aValue: Float); virtual; { Properties } property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property REFERENCIA_PEDIDO : String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue; property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue; property FECHA_PEDIDO : DateTime read GetFECHA_PEDIDOValue write SetFECHA_PEDIDOValue; property OldFECHA_PEDIDO : DateTime read GetOldFECHA_PEDIDOValue; property CALLE : String read GetCALLEValue write SetCALLEValue; property OldCALLE : String read GetOldCALLEValue; property FECHA_CONFIRMACION : DateTime read GetFECHA_CONFIRMACIONValue write SetFECHA_CONFIRMACIONValue; property OldFECHA_CONFIRMACION : DateTime read GetOldFECHA_CONFIRMACIONValue; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property OldPROVINCIA : String read GetOldPROVINCIAValue; property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue; property OldTELEFONO : String read GetOldTELEFONOValue; property IVA : Float read GetIVAValue write SetIVAValue; property OldIVA : Float read GetOldIVAValue; property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue; property OldPROVEEDOR : String read GetOldPROVEEDORValue; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; property OldFAMILIA : String read GetOldFAMILIAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue; property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property CANTIDAD_PEDIDA : Integer read GetCANTIDAD_PEDIDAValue write SetCANTIDAD_PEDIDAValue; property OldCANTIDAD_PEDIDA : Integer read GetOldCANTIDAD_PEDIDAValue; property CANTIDAD_RECIBIDA : Integer read GetCANTIDAD_RECIBIDAValue write SetCANTIDAD_RECIBIDAValue; property OldCANTIDAD_RECIBIDA : Integer read GetOldCANTIDAD_RECIBIDAValue; property CANTIDAD_PENDIENTE : Integer read GetCANTIDAD_PENDIENTEValue write SetCANTIDAD_PENDIENTEValue; property OldCANTIDAD_PENDIENTE : Integer read GetOldCANTIDAD_PENDIENTEValue; property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property PRECIO_NETO : Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue; property PRECIO_PORTE : Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers; { TINVENTARIOBusinessProcessorRules } constructor TINVENTARIOBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TINVENTARIOBusinessProcessorRules.Destroy; begin inherited; end; function TINVENTARIOBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID]; end; function TINVENTARIOBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID]; end; procedure TINVENTARIOBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetID_ALMACENValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ALMACEN]; end; function TINVENTARIOBusinessProcessorRules.GetOldID_ALMACENValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_ALMACEN]; end; procedure TINVENTARIOBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ALMACEN] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ARTICULO]; end; function TINVENTARIOBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_ARTICULO]; end; procedure TINVENTARIOBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_ARTICULO] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetALMACENValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOALMACEN]; end; function TINVENTARIOBusinessProcessorRules.GetOldALMACENValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOALMACEN]; end; procedure TINVENTARIOBusinessProcessorRules.SetALMACENValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOALMACEN] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_EMPRESA]; end; function TINVENTARIOBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOID_EMPRESA]; end; procedure TINVENTARIOBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOID_EMPRESA] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA]; end; function TINVENTARIOBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOREFERENCIA]; end; procedure TINVENTARIOBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFAMILIA]; end; function TINVENTARIOBusinessProcessorRules.GetOldFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOFAMILIA]; end; procedure TINVENTARIOBusinessProcessorRules.SetFAMILIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFAMILIA] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIODESCRIPCION]; end; function TINVENTARIOBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIODESCRIPCION]; end; procedure TINVENTARIOBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIODESCRIPCION] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOPRECIO_NETO]; end; function TINVENTARIOBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOPRECIO_NETO]; end; procedure TINVENTARIOBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOPRECIO_NETO] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_PROVEEDOR]; end; function TINVENTARIOBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOREFERENCIA_PROVEEDOR]; end; procedure TINVENTARIOBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOREFERENCIA_PROVEEDOR] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetUNIDADES_ALMACENValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOUNIDADES_ALMACEN]; end; function TINVENTARIOBusinessProcessorRules.GetOldUNIDADES_ALMACENValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOUNIDADES_ALMACEN]; end; procedure TINVENTARIOBusinessProcessorRules.SetUNIDADES_ALMACENValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOUNIDADES_ALMACEN] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetCOSTE_UNIDADESValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCOSTE_UNIDADES]; end; function TINVENTARIOBusinessProcessorRules.GetOldCOSTE_UNIDADESValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOCOSTE_UNIDADES]; end; procedure TINVENTARIOBusinessProcessorRules.SetCOSTE_UNIDADESValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCOSTE_UNIDADES] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetSTOCKValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOSTOCK]; end; function TINVENTARIOBusinessProcessorRules.GetOldSTOCKValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOSTOCK]; end; procedure TINVENTARIOBusinessProcessorRules.SetSTOCKValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOSTOCK] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetRESERVAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIORESERVA]; end; function TINVENTARIOBusinessProcessorRules.GetOldRESERVAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIORESERVA]; end; procedure TINVENTARIOBusinessProcessorRules.SetRESERVAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIORESERVA] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetPENDIENTE_RECEPCIONValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOPENDIENTE_RECEPCION]; end; function TINVENTARIOBusinessProcessorRules.GetOldPENDIENTE_RECEPCIONValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOPENDIENTE_RECEPCION]; end; procedure TINVENTARIOBusinessProcessorRules.SetPENDIENTE_RECEPCIONValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOPENDIENTE_RECEPCION] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCANTIDAD]; end; function TINVENTARIOBusinessProcessorRules.GetOldCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOCANTIDAD]; end; procedure TINVENTARIOBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCANTIDAD] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetFECHA_MOVIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFECHA_MOVIMIENTO]; end; function TINVENTARIOBusinessProcessorRules.GetOldFECHA_MOVIMIENTOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOFECHA_MOVIMIENTO]; end; procedure TINVENTARIOBusinessProcessorRules.SetFECHA_MOVIMIENTOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOFECHA_MOVIMIENTO] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetCAUSAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCAUSA]; end; function TINVENTARIOBusinessProcessorRules.GetOldCAUSAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOCAUSA]; end; procedure TINVENTARIOBusinessProcessorRules.SetCAUSAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOCAUSA] := aValue; end; function TINVENTARIOBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOTIPO]; end; function TINVENTARIOBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_INVENTARIOTIPO]; end; procedure TINVENTARIOBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_INVENTARIOTIPO] := aValue; end; { TDETALLE_RESERVAS_INVBusinessProcessorRules } constructor TDETALLE_RESERVAS_INVBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDETALLE_RESERVAS_INVBusinessProcessorRules.Destroy; begin inherited; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_ALBValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ALB]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_ALBValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_ALB]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_ALBValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ALB] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_EMPRESA]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_EMPRESA]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_EMPRESA] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetREFERENCIA_ALBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ALB]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldREFERENCIA_ALBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ALB]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetREFERENCIA_ALBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ALB] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetSITUACION_ALBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVSITUACION_ALB]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldSITUACION_ALBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVSITUACION_ALB]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetSITUACION_ALBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVSITUACION_ALB] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetFECHA_PREVISTA_ENVIO_ALBValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIO_ALBValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetFECHA_PREVISTA_ENVIO_ALBValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVFECHA_PREVISTA_ENVIO_ALB] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_ALMACEN_ALBValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ALMACEN_ALB]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_ALMACEN_ALBValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_ALMACEN_ALB]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_ALMACEN_ALBValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ALMACEN_ALB] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetALMACEN_ALBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVALMACEN_ALB]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldALMACEN_ALBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVALMACEN_ALB]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetALMACEN_ALBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVALMACEN_ALB] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_CLIENTE_ALBValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_CLIENTE_ALB]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_CLIENTE_ALBValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_CLIENTE_ALB]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_CLIENTE_ALBValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_CLIENTE_ALB] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetCLIENTE_ALBValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVCLIENTE_ALB]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldCLIENTE_ALBValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVCLIENTE_ALB]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetCLIENTE_ALBValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVCLIENTE_ALB] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetID_ARTValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ART]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldID_ARTValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVID_ART]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetID_ARTValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVID_ART] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetFAMILIA_ARTValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVFAMILIA_ART]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldFAMILIA_ARTValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVFAMILIA_ART]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetFAMILIA_ARTValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVFAMILIA_ART] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetREFERENCIA_ARTValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ART]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldREFERENCIA_ARTValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ART]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetREFERENCIA_ARTValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_ART] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetREFERENCIA_PROV_ARTValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldREFERENCIA_PROV_ARTValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetREFERENCIA_PROV_ARTValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVREFERENCIA_PROV_ART] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetDESCRIPCION_ARTValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVDESCRIPCION_ART]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldDESCRIPCION_ARTValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVDESCRIPCION_ART]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetDESCRIPCION_ARTValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVDESCRIPCION_ART] := aValue; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetCANTIDAD_ARTValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVCANTIDAD_ART]; end; function TDETALLE_RESERVAS_INVBusinessProcessorRules.GetOldCANTIDAD_ARTValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_RESERVAS_INVCANTIDAD_ART]; end; procedure TDETALLE_RESERVAS_INVBusinessProcessorRules.SetCANTIDAD_ARTValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_RESERVAS_INVCANTIDAD_ART] := aValue; end; { TDETALLE_SIN_ALBARANARBusinessProcessorRules } constructor TDETALLE_SIN_ALBARANARBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDETALLE_SIN_ALBARANARBusinessProcessorRules.Destroy; begin inherited; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetID_PEDIDOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_PEDIDO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID_PEDIDO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_PEDIDO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_EMPRESA]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID_EMPRESA]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_EMPRESA] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetREFERENCIA_CLI_PEDIDOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_CLI_PEDIDO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldREFERENCIA_CLI_PEDIDOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_CLI_PEDIDO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetREFERENCIA_CLI_PEDIDOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_CLI_PEDIDO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetREFERENCIA_PEDIDOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldREFERENCIA_PEDIDOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetREFERENCIA_PEDIDOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PEDIDO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetFECHA_PEDIDOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PEDIDO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldFECHA_PEDIDOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PEDIDO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetFECHA_PEDIDOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PEDIDO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetFECHA_PREVISTA_PEDIDOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldFECHA_PREVISTA_PEDIDOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetFECHA_PREVISTA_PEDIDOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFECHA_PREVISTA_PEDIDO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_CLIENTE]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID_CLIENTE]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_CLIENTE] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCLIENTE]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCLIENTE]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCLIENTE] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCALLE]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCALLE]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCALLE] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCODIGO_POSTAL]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCODIGO_POSTAL]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCODIGO_POSTAL] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPOBLACION]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARPOBLACION]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPOBLACION] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPROVINCIA]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARPROVINCIA]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPROVINCIA] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPERSONA_CONTACTO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARPERSONA_CONTACTO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPERSONA_CONTACTO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARTELEFONO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARTELEFONO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetTELEFONOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARTELEFONO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetIVAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARIVA]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldIVAValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARIVA]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetIVAValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARIVA] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_FORMA_PAGO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID_FORMA_PAGO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_FORMA_PAGO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_ARTICULO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARID_ARTICULO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARID_ARTICULO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFAMILIA]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARFAMILIA]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetFAMILIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARFAMILIA] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARREFERENCIA_PROVEEDOR] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARDESCRIPCION]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARDESCRIPCION]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARDESCRIPCION] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_PEDIDAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_PEDIDAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_PEDIDAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PEDIDA] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_RESERVADAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_RESERVADAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_RESERVADAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_RESERVADA] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_ENVIADAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_ENVIADAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_ENVIADAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_ENVIADA] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_SERVIDAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_SERVIDAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_SERVIDAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_SERVIDA] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetCANTIDAD_PENDIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldCANTIDAD_PENDIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARCANTIDAD_PENDIENTE] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPRECIO_COSTE]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARPRECIO_COSTE]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPRECIO_COSTE] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARDESCUENTO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARDESCUENTO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARDESCUENTO] := aValue; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetPRECION_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPRECION_NETO]; end; function TDETALLE_SIN_ALBARANARBusinessProcessorRules.GetOldPRECION_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_ALBARANARPRECION_NETO]; end; procedure TDETALLE_SIN_ALBARANARBusinessProcessorRules.SetPRECION_NETOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_ALBARANARPRECION_NETO] := aValue; end; { TDETALLE_SIN_RECIBIRBusinessProcessorRules } constructor TDETALLE_SIN_RECIBIRBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TDETALLE_SIN_RECIBIRBusinessProcessorRules.Destroy; begin inherited; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetID_PEDIDOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_PEDIDO]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldID_PEDIDOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRID_PEDIDO]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_PEDIDO] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_EMPRESA]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRID_EMPRESA]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_EMPRESA] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetREFERENCIA_PEDIDOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRREFERENCIA_PEDIDO]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldREFERENCIA_PEDIDOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRREFERENCIA_PEDIDO]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetREFERENCIA_PEDIDOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRREFERENCIA_PEDIDO] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetFECHA_PEDIDOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRFECHA_PEDIDO]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldFECHA_PEDIDOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRFECHA_PEDIDO]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetFECHA_PEDIDOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRFECHA_PEDIDO] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCALLE]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRCALLE]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCALLE] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetFECHA_CONFIRMACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRFECHA_CONFIRMACION]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldFECHA_CONFIRMACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRFECHA_CONFIRMACION]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetFECHA_CONFIRMACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRFECHA_CONFIRMACION] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_PROVEEDOR]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRID_PROVEEDOR]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_PROVEEDOR] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCODIGO_POSTAL]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRCODIGO_POSTAL]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCODIGO_POSTAL] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPOBLACION]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRPOBLACION]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPOBLACION] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPROVINCIA]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRPROVINCIA]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPROVINCIA] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPERSONA_CONTACTO]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRPERSONA_CONTACTO]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPERSONA_CONTACTO] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRTELEFONO]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldTELEFONOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRTELEFONO]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetTELEFONOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRTELEFONO] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetIVAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRIVA]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldIVAValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRIVA]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetIVAValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRIVA] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_FORMA_PAGO]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRID_FORMA_PAGO]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_FORMA_PAGO] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRID]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetPROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPROVEEDOR]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldPROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRPROVEEDOR]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetPROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPROVEEDOR] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_ARTICULO]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRID_ARTICULO]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRID_ARTICULO] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRFAMILIA]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRFAMILIA]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetFAMILIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRFAMILIA] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRREFERENCIA]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRREFERENCIA]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRREFERENCIA] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRREFERENCIA_PROVEEDOR]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRREFERENCIA_PROVEEDOR]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRREFERENCIA_PROVEEDOR] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRDESCRIPCION]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRDESCRIPCION]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRDESCRIPCION] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetCANTIDAD_PEDIDAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCANTIDAD_PEDIDA]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldCANTIDAD_PEDIDAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRCANTIDAD_PEDIDA]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetCANTIDAD_PEDIDAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCANTIDAD_PEDIDA] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetCANTIDAD_RECIBIDAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCANTIDAD_RECIBIDA]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldCANTIDAD_RECIBIDAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRCANTIDAD_RECIBIDA]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetCANTIDAD_RECIBIDAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCANTIDAD_RECIBIDA] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetCANTIDAD_PENDIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCANTIDAD_PENDIENTE]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldCANTIDAD_PENDIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRCANTIDAD_PENDIENTE]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetCANTIDAD_PENDIENTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRCANTIDAD_PENDIENTE] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPRECIO_COSTE]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRPRECIO_COSTE]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPRECIO_COSTE] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRDESCUENTO]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRDESCUENTO]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRDESCUENTO] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetPRECIO_NETOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPRECIO_NETO]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldPRECIO_NETOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRPRECIO_NETO]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPRECIO_NETO] := aValue; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetPRECIO_PORTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPRECIO_PORTE]; end; function TDETALLE_SIN_RECIBIRBusinessProcessorRules.GetOldPRECIO_PORTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_DETALLE_SIN_RECIBIRPRECIO_PORTE]; end; procedure TDETALLE_SIN_RECIBIRBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_DETALLE_SIN_RECIBIRPRECIO_PORTE] := aValue; end; initialization RegisterBusinessProcessorRules(RID_INVENTARIODelta, TINVENTARIOBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DETALLE_RESERVAS_INVDelta, TDETALLE_RESERVAS_INVBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DETALLE_SIN_ALBARANARDelta, TDETALLE_SIN_ALBARANARBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DETALLE_SIN_RECIBIRDelta, TDETALLE_SIN_RECIBIRBusinessProcessorRules); end.