2007-06-11 15:29:06 +00:00
|
|
|
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 }
|
2008-05-28 17:19:09 +00:00
|
|
|
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}';
|
2007-06-11 15:29:06 +00:00
|
|
|
|
|
|
|
|
type
|
|
|
|
|
{ IINVENTARIODelta }
|
|
|
|
|
IINVENTARIODelta = interface(IINVENTARIO)
|
2008-05-28 17:19:09 +00:00
|
|
|
['{97FA1504-6963-4774-997E-9EE5D41EE625}']
|
2007-06-11 15:29:06 +00:00
|
|
|
{ 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;
|
|
|
|
|
|
2007-07-17 15:28:26 +00:00
|
|
|
{ IDETALLE_RESERVAS_INVDelta }
|
|
|
|
|
IDETALLE_RESERVAS_INVDelta = interface(IDETALLE_RESERVAS_INV)
|
2008-05-28 17:19:09 +00:00
|
|
|
['{3B8E4F9D-3FD5-4E97-AAC3-1F06084FD65B}']
|
2007-07-17 15:28:26 +00:00
|
|
|
{ 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;
|
|
|
|
|
|
2008-03-28 15:10:28 +00:00
|
|
|
{ IDETALLE_SIN_ALBARANARDelta }
|
|
|
|
|
IDETALLE_SIN_ALBARANARDelta = interface(IDETALLE_SIN_ALBARANAR)
|
2008-05-28 17:19:09 +00:00
|
|
|
['{0A0EAAC2-6C4C-4EFB-8A5E-4F2F6CBA910C}']
|
2008-03-28 15:10:28 +00:00
|
|
|
{ Property getters and setters }
|
|
|
|
|
function GetOldID_PEDIDOValue : Integer;
|
|
|
|
|
function GetOldID_EMPRESAValue : Integer;
|
2008-04-21 07:35:55 +00:00
|
|
|
function GetOldREFERENCIA_CLI_PEDIDOValue : String;
|
2008-03-28 15:10:28 +00:00
|
|
|
function GetOldREFERENCIA_PEDIDOValue : String;
|
|
|
|
|
function GetOldFECHA_PEDIDOValue : DateTime;
|
|
|
|
|
function GetOldFECHA_PREVISTA_PEDIDOValue : DateTime;
|
|
|
|
|
function GetOldID_CLIENTEValue : Integer;
|
|
|
|
|
function GetOldCLIENTEValue : String;
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
2008-03-28 15:10:28 +00:00
|
|
|
function GetOldIDValue : Integer;
|
2008-04-21 07:35:55 +00:00
|
|
|
function GetOldID_ARTICULOValue : Integer;
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
2008-04-21 07:35:55 +00:00
|
|
|
function GetOldPRECIO_COSTEValue : Currency;
|
|
|
|
|
function GetOldDESCUENTOValue : Float;
|
|
|
|
|
function GetOldPRECION_NETOValue : Currency;
|
2008-03-28 15:10:28 +00:00
|
|
|
|
|
|
|
|
{ Properties }
|
|
|
|
|
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
|
|
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
2008-04-21 07:35:55 +00:00
|
|
|
property OldREFERENCIA_CLI_PEDIDO : String read GetOldREFERENCIA_CLI_PEDIDOValue;
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
2008-03-28 15:10:28 +00:00
|
|
|
property OldID : Integer read GetOldIDValue;
|
2008-04-21 07:35:55 +00:00
|
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
2008-04-21 07:35:55 +00:00
|
|
|
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
|
|
|
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
|
|
|
property OldPRECION_NETO : Currency read GetOldPRECION_NETOValue;
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
2008-04-21 07:35:55 +00:00
|
|
|
function GetREFERENCIA_CLI_PEDIDOValue: String; virtual;
|
|
|
|
|
function GetOldREFERENCIA_CLI_PEDIDOValue: String; virtual;
|
|
|
|
|
procedure SetREFERENCIA_CLI_PEDIDOValue(const aValue: String); virtual;
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
2008-03-28 15:10:28 +00:00
|
|
|
function GetIDValue: Integer; virtual;
|
|
|
|
|
function GetOldIDValue: Integer; virtual;
|
|
|
|
|
procedure SetIDValue(const aValue: Integer); virtual;
|
2008-04-21 07:35:55 +00:00
|
|
|
function GetID_ARTICULOValue: Integer; virtual;
|
|
|
|
|
function GetOldID_ARTICULOValue: Integer; virtual;
|
|
|
|
|
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
2008-03-28 15:10:28 +00:00
|
|
|
|
|
|
|
|
{ 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;
|
2008-04-21 07:35:55 +00:00
|
|
|
property REFERENCIA_CLI_PEDIDO : String read GetREFERENCIA_CLI_PEDIDOValue write SetREFERENCIA_CLI_PEDIDOValue;
|
|
|
|
|
property OldREFERENCIA_CLI_PEDIDO : String read GetOldREFERENCIA_CLI_PEDIDOValue;
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
2008-03-28 15:10:28 +00:00
|
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
|
|
|
property OldID : Integer read GetOldIDValue;
|
2008-04-21 07:35:55 +00:00
|
|
|
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
|
|
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
2008-03-28 15:10:28 +00:00
|
|
|
|
|
|
|
|
public
|
|
|
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
|
|
|
destructor Destroy; override;
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
2008-05-28 17:19:09 +00:00
|
|
|
{ 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;
|
|
|
|
|
|
2007-06-11 15:29:06 +00:00
|
|
|
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;
|
|
|
|
|
|
|
|
|
|
|
2007-07-17 15:28:26 +00:00
|
|
|
{ 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;
|
|
|
|
|
|
|
|
|
|
|
2008-03-28 15:10:28 +00:00
|
|
|
{ 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;
|
|
|
|
|
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
|
|
|
|
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
|
|
|
|
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
|
|
|
|
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
|
|
|
|
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
|
|
|
|
|
2008-03-28 15:10:28 +00:00
|
|
|
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;
|
|
|
|
|
|
2008-04-21 07:35:55 +00:00
|
|
|
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;
|
|
|
|
|
|
2008-03-28 15:10:28 +00:00
|
|
|
|
2008-05-28 17:19:09 +00:00
|
|
|
{ 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;
|
|
|
|
|
|
|
|
|
|
|
2007-06-11 15:29:06 +00:00
|
|
|
initialization
|
|
|
|
|
RegisterBusinessProcessorRules(RID_INVENTARIODelta, TINVENTARIOBusinessProcessorRules);
|
2007-07-17 15:28:26 +00:00
|
|
|
RegisterBusinessProcessorRules(RID_DETALLE_RESERVAS_INVDelta, TDETALLE_RESERVAS_INVBusinessProcessorRules);
|
2008-03-28 15:10:28 +00:00
|
|
|
RegisterBusinessProcessorRules(RID_DETALLE_SIN_ALBARANARDelta, TDETALLE_SIN_ALBARANARBusinessProcessorRules);
|
2008-05-28 17:19:09 +00:00
|
|
|
RegisterBusinessProcessorRules(RID_DETALLE_SIN_RECIBIRDelta, TDETALLE_SIN_RECIBIRBusinessProcessorRules);
|
2007-06-11 15:29:06 +00:00
|
|
|
|
|
|
|
|
end.
|