This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
LuisLeon_FactuGES/Source/Modulos/Inventario/Model/schInventarioServer_Intf.pas

2190 lines
99 KiB
ObjectPascal
Raw Normal View History

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.