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

3040 lines
140 KiB
ObjectPascal

unit schAlbaranesClienteServer_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schAlbaranesClienteClient_Intf;
const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{90F084BA-9BC4-4890-8E73-EE502ED7EC0F}';
RID_DarReferenciaDelta = '{5C4E2CEA-88DD-4AC6-AAC2-6293B3382633}';
RID_AlbaranesClienteDelta = '{98711469-A105-4C12-A90C-952772B92D20}';
RID_AlbaranesCliente_DetallesDelta = '{A0FDE976-C61E-4FCE-8507-54924F485E4F}';
RID_AlbaranesCliente_Detalles_RefreshDelta = '{48C36801-6C3D-4815-B443-DDDC4BCD25DF}';
RID_AlbaranesCliente_RefreshDelta = '{4153EB2E-48B9-4133-8427-285B91FA9723}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{90F084BA-9BC4-4890-8E73-EE502ED7EC0F}']
{ Property getters and setters }
function GetOldANOValue : String;
{ Properties }
property OldANO : String read GetOldANOValue;
end;
{ TListaAnosAlbaranesBusinessProcessorRules }
TListaAnosAlbaranesBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosAlbaranes, IListaAnosAlbaranesDelta)
private
protected
{ Property getters and setters }
function GetANOValue: String; virtual;
function GetOldANOValue: String; virtual;
procedure SetANOValue(const aValue: String); virtual;
{ Properties }
property ANO : String read GetANOValue write SetANOValue;
property OldANO : String read GetOldANOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
['{5C4E2CEA-88DD-4AC6-AAC2-6293B3382633}']
{ Property getters and setters }
function GetOldVALORValue : String;
{ Properties }
property OldVALOR : String read GetOldVALORValue;
end;
{ TDarReferenciaBusinessProcessorRules }
TDarReferenciaBusinessProcessorRules = class(TDABusinessProcessorRules, IDarReferencia, IDarReferenciaDelta)
private
protected
{ Property getters and setters }
function GetVALORValue: String; virtual;
function GetOldVALORValue: String; virtual;
procedure SetVALORValue(const aValue: String); virtual;
{ Properties }
property VALOR : String read GetVALORValue write SetVALORValue;
property OldVALOR : String read GetOldVALORValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{98711469-A105-4C12-A90C-952772B92D20}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldFECHA_ALBARANValue : DateTime;
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldTIPOValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_ALMACENValue : Integer;
function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_PEDIDOValue : String;
function GetOldCALLEValue : String;
function GetOldREF_FACTURAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldPERSONA_CONTACTOValue : String;
function GetOldTELEFONOValue : String;
function GetOldBASE_IMPONIBLEValue : Currency;
function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_DESCUENTOValue : Currency;
function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldOBSERVACIONESValue : IROStrings;
function GetOldINCIDENCIASValue : IROStrings;
function GetOldINCIDENCIAS_ACTIVASValue : Integer;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldNOMBREValue : String;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
function GetOldFECHA_ENVIOValue : DateTime;
function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldID_AGENTEValue : Integer;
function GetOldAGENTEValue : String;
function GetOldNUM_COPIASValue : Integer;
function GetOldID_ALBARAN_DEVValue : Integer;
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
function GetOldNUM_CORREOSValue : Integer;
function GetOldBLOQUEADOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldTIPO : String read GetOldTIPOValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldCALLE : String read GetOldCALLEValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
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 OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
TAlbaranesClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranesCliente, IAlbaranesClienteDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_CLIENTEValue: Integer; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetFECHA_ALBARANValue: DateTime; virtual;
function GetOldFECHA_ALBARANValue: DateTime; virtual;
procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
function GetOldTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetSITUACIONValue: String; virtual;
function GetOldSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetID_ALMACENValue: Integer; virtual;
function GetOldID_ALMACENValue: Integer; virtual;
procedure SetID_ALMACENValue(const aValue: Integer); virtual;
function GetNOMBRE_ALMACENValue: String; virtual;
function GetOldNOMBRE_ALMACENValue: String; virtual;
procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
function GetID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_PEDIDOValue: String; virtual;
function GetOldREF_PEDIDOValue: String; virtual;
procedure SetREF_PEDIDOValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
function GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetREF_FACTURAValue: String; virtual;
function GetOldREF_FACTURAValue: String; virtual;
procedure SetREF_FACTURAValue(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 GetBASE_IMPONIBLEValue: Currency; virtual;
function GetOldBASE_IMPONIBLEValue: Currency; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
function GetIMPORTE_NETOValue: Currency; virtual;
function GetOldIMPORTE_NETOValue: Currency; virtual;
procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEValue: Currency; virtual;
function GetOldIMPORTE_PORTEValue: Currency; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
function GetIVAValue: Float; virtual;
function GetOldIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
function GetIMPORTE_IVAValue: Currency; virtual;
function GetOldIMPORTE_IVAValue: Currency; virtual;
procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual;
function GetOldIMPORTE_TOTALValue: Currency; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetOBSERVACIONESValue: IROStrings; virtual;
function GetOldOBSERVACIONESValue: IROStrings; virtual;
procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
function GetINCIDENCIASValue: IROStrings; virtual;
function GetOldINCIDENCIASValue: IROStrings; virtual;
procedure SetINCIDENCIASValue(const aValue: IROStrings); virtual;
function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual;
procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetID_FORMA_PAGOValue: Integer; virtual;
function GetOldID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
function GetFECHA_ENVIOValue: DateTime; virtual;
function GetOldFECHA_ENVIOValue: DateTime; virtual;
procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual;
function GetFECHA_RECEPCIONValue: DateTime; virtual;
function GetOldFECHA_RECEPCIONValue: DateTime; virtual;
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
function GetID_AGENTEValue: Integer; virtual;
function GetOldID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetAGENTEValue: String; virtual;
function GetOldAGENTEValue: String; virtual;
procedure SetAGENTEValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
function GetOldNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
function GetBLOQUEADOValue: Integer; virtual;
function GetOldBLOQUEADOValue: Integer; virtual;
procedure SetBLOQUEADOValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property FECHA_ALBARAN : DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property TIPO : String read GetTIPOValue write SetTIPOValue;
property OldTIPO : String read GetOldTIPOValue;
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property REF_PEDIDO : String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property OldCALLE : String read GetOldCALLEValue;
property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
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 BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property IVA : Float read GetIVAValue write SetIVAValue;
property OldIVA : Float read GetOldIVAValue;
property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property INCIDENCIAS : IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property FECHA_ENVIO : DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS : Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
property BLOQUEADO : Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
property OldBLOQUEADO : Integer read GetOldBLOQUEADOValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{A0FDE976-C61E-4FCE-8507-54924F485E4F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldREFERENCIAValue : String;
function GetOldID_ARTICULOValue : Integer;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldVISIBLEValue : Integer;
function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
TAlbaranesCliente_DetallesBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranesCliente_Detalles, IAlbaranesCliente_DetallesDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_ALBARANValue: Integer; virtual;
function GetOldID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
function GetOldPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetTIPO_DETALLEValue: String; virtual;
function GetOldTIPO_DETALLEValue: String; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetCONCEPTOValue: String; virtual;
function GetOldCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetOldIMPORTE_UNIDADValue: Currency; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual;
function GetOldIMPORTE_TOTALValue: Currency; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_PORTEValue: Currency; virtual;
function GetOldIMPORTE_PORTEValue: Currency; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetVISIBLEValue: Integer; virtual;
function GetOldVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IAlbaranesCliente_Detalles_RefreshDelta }
IAlbaranesCliente_Detalles_RefreshDelta = interface(IAlbaranesCliente_Detalles_Refresh)
['{48C36801-6C3D-4815-B443-DDDC4BCD25DF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldREFERENCIAValue : String;
function GetOldID_ARTICULOValue : Integer;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Float;
function GetOldVISIBLEValue : Integer;
function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end;
{ TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules }
TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranesCliente_Detalles_Refresh, IAlbaranesCliente_Detalles_RefreshDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_ALBARANValue: Integer; virtual;
function GetOldID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetPOSICIONValue: Integer; virtual;
function GetOldPOSICIONValue: Integer; virtual;
procedure SetPOSICIONValue(const aValue: Integer); virtual;
function GetTIPO_DETALLEValue: String; virtual;
function GetOldTIPO_DETALLEValue: String; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetCONCEPTOValue: String; virtual;
function GetOldCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetOldIMPORTE_UNIDADValue: Currency; virtual;
procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual;
function GetOldIMPORTE_TOTALValue: Currency; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_PORTEValue: Float; virtual;
function GetOldIMPORTE_PORTEValue: Float; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual;
function GetVISIBLEValue: Integer; virtual;
function GetOldVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property IMPORTE_PORTE : Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IAlbaranesCliente_RefreshDelta }
IAlbaranesCliente_RefreshDelta = interface(IAlbaranesCliente_Refresh)
['{4153EB2E-48B9-4133-8427-285B91FA9723}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldFECHA_ALBARANValue : DateTime;
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIA_CLIENTEValue : String;
function GetOldTIPOValue : String;
function GetOldSITUACIONValue : String;
function GetOldID_ALMACENValue : Integer;
function GetOldNOMBRE_ALMACENValue : String;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_PEDIDOValue : String;
function GetOldCALLEValue : String;
function GetOldREF_FACTURAValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
function GetOldPERSONA_CONTACTOValue : String;
function GetOldTELEFONOValue : String;
function GetOldBASE_IMPONIBLEValue : Currency;
function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_DESCUENTOValue : Currency;
function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldOBSERVACIONESValue : IROStrings;
function GetOldINCIDENCIASValue : IROStrings;
function GetOldINCIDENCIAS_ACTIVASValue : Integer;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldNOMBREValue : String;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
function GetOldFECHA_ENVIOValue : DateTime;
function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldID_AGENTEValue : Integer;
function GetOldAGENTEValue : String;
function GetOldNUM_COPIASValue : Integer;
function GetOldID_ALBARAN_DEVValue : Integer;
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
function GetOldNUM_CORREOSValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property OldTIPO : String read GetOldTIPOValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldCALLE : String read GetOldCALLEValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
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 OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
end;
{ TAlbaranesCliente_RefreshBusinessProcessorRules }
TAlbaranesCliente_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranesCliente_Refresh, IAlbaranesCliente_RefreshDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetOldIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_CLIENTEValue: Integer; virtual;
function GetOldID_CLIENTEValue: Integer; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetFECHA_ALBARANValue: DateTime; virtual;
function GetOldFECHA_ALBARANValue: DateTime; virtual;
procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetREFERENCIA_CLIENTEValue: String; virtual;
function GetOldREFERENCIA_CLIENTEValue: String; virtual;
procedure SetREFERENCIA_CLIENTEValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
function GetOldTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetSITUACIONValue: String; virtual;
function GetOldSITUACIONValue: String; virtual;
procedure SetSITUACIONValue(const aValue: String); virtual;
function GetID_ALMACENValue: Integer; virtual;
function GetOldID_ALMACENValue: Integer; virtual;
procedure SetID_ALMACENValue(const aValue: Integer); virtual;
function GetNOMBRE_ALMACENValue: String; virtual;
function GetOldNOMBRE_ALMACENValue: String; virtual;
procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
function GetID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetREF_PEDIDOValue: String; virtual;
function GetOldREF_PEDIDOValue: String; virtual;
procedure SetREF_PEDIDOValue(const aValue: String); virtual;
function GetCALLEValue: String; virtual;
function GetOldCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual;
function GetREF_FACTURAValue: String; virtual;
function GetOldREF_FACTURAValue: String; virtual;
procedure SetREF_FACTURAValue(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 GetBASE_IMPONIBLEValue: Currency; virtual;
function GetOldBASE_IMPONIBLEValue: Currency; virtual;
procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
function GetIMPORTE_NETOValue: Currency; virtual;
function GetOldIMPORTE_NETOValue: Currency; virtual;
procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEValue: Currency; virtual;
function GetOldIMPORTE_PORTEValue: Currency; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetIMPORTE_DESCUENTOValue: Currency; virtual;
function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
function GetIVAValue: Float; virtual;
function GetOldIVAValue: Float; virtual;
procedure SetIVAValue(const aValue: Float); virtual;
function GetIMPORTE_IVAValue: Currency; virtual;
function GetOldIMPORTE_IVAValue: Currency; virtual;
procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual;
function GetOldIMPORTE_TOTALValue: Currency; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetOBSERVACIONESValue: IROStrings; virtual;
function GetOldOBSERVACIONESValue: IROStrings; virtual;
procedure SetOBSERVACIONESValue(const aValue: IROStrings); virtual;
function GetINCIDENCIASValue: IROStrings; virtual;
function GetOldINCIDENCIASValue: IROStrings; virtual;
procedure SetINCIDENCIASValue(const aValue: IROStrings); virtual;
function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual;
procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetUSUARIOValue: String; virtual;
function GetOldUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetID_FORMA_PAGOValue: Integer; virtual;
function GetOldID_FORMA_PAGOValue: Integer; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
function GetOldFECHA_PREVISTA_ENVIOValue: DateTime; virtual;
procedure SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime); virtual;
function GetFECHA_ENVIOValue: DateTime; virtual;
function GetOldFECHA_ENVIOValue: DateTime; virtual;
procedure SetFECHA_ENVIOValue(const aValue: DateTime); virtual;
function GetFECHA_RECEPCIONValue: DateTime; virtual;
function GetOldFECHA_RECEPCIONValue: DateTime; virtual;
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
function GetID_AGENTEValue: Integer; virtual;
function GetOldID_AGENTEValue: Integer; virtual;
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
function GetAGENTEValue: String; virtual;
function GetOldAGENTEValue: String; virtual;
procedure SetAGENTEValue(const aValue: String); virtual;
function GetNUM_COPIASValue: Integer; virtual;
function GetOldNUM_COPIASValue: Integer; virtual;
procedure SetNUM_COPIASValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetNUM_CORREOSValue: Integer; virtual;
function GetOldNUM_CORREOSValue: Integer; virtual;
procedure SetNUM_CORREOSValue(const aValue: Integer); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property OldID : Integer read GetOldIDValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property FECHA_ALBARAN : DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property REFERENCIA_CLIENTE : String read GetREFERENCIA_CLIENTEValue write SetREFERENCIA_CLIENTEValue;
property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue;
property TIPO : String read GetTIPOValue write SetTIPOValue;
property OldTIPO : String read GetOldTIPOValue;
property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue;
property OldSITUACION : String read GetOldSITUACIONValue;
property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property REF_PEDIDO : String read GetREF_PEDIDOValue write SetREF_PEDIDOValue;
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property OldCALLE : String read GetOldCALLEValue;
property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
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 BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property IVA : Float read GetIVAValue write SetIVAValue;
property OldIVA : Float read GetOldIVAValue;
property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue write SetOBSERVACIONESValue;
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property INCIDENCIAS : IROStrings read GetINCIDENCIASValue write SetINCIDENCIASValue;
property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property FECHA_PREVISTA_ENVIO : DateTime read GetFECHA_PREVISTA_ENVIOValue write SetFECHA_PREVISTA_ENVIOValue;
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property FECHA_ENVIO : DateTime read GetFECHA_ENVIOValue write SetFECHA_ENVIOValue;
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
property FECHA_RECEPCION : DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
property OldAGENTE : String read GetOldAGENTEValue;
property NUM_COPIAS : Integer read GetNUM_COPIASValue write SetNUM_COPIASValue;
property OldNUM_COPIAS : Integer read GetOldNUM_COPIASValue;
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property NUM_CORREOS : Integer read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property OldNUM_CORREOS : Integer read GetOldNUM_CORREOSValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
Variants, uROBinaryHelpers;
{ TListaAnosAlbaranesBusinessProcessorRules }
constructor TListaAnosAlbaranesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TListaAnosAlbaranesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TListaAnosAlbaranesBusinessProcessorRules.GetANOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosAlbaranesANO];
end;
function TListaAnosAlbaranesBusinessProcessorRules.GetOldANOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosAlbaranesANO];
end;
procedure TListaAnosAlbaranesBusinessProcessorRules.SetANOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosAlbaranesANO] := aValue;
end;
{ TDarReferenciaBusinessProcessorRules }
constructor TDarReferenciaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDarReferenciaBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDarReferenciaBusinessProcessorRules.GetVALORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR];
end;
function TDarReferenciaBusinessProcessorRules.GetOldVALORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarReferenciaVALOR];
end;
procedure TDarReferenciaBusinessProcessorRules.SetVALORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DarReferenciaVALOR] := aValue;
end;
{ TAlbaranesClienteBusinessProcessorRules }
constructor TAlbaranesClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TAlbaranesClienteBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TAlbaranesClienteBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_EMPRESA];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_EMPRESA];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_EMPRESA] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CLIENTE];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_CLIENTE];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CLIENTE] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetFECHA_ALBARANValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_ALBARAN];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_ALBARANValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_ALBARAN];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_ALBARANValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_ALBARAN] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_PEDIDO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_PEDIDO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_PEDIDO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_CLIENTE];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA_CLIENTE];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_CLIENTE] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIPO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteTIPO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTIPO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteSITUACION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteSITUACION];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteSITUACION] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_ALMACENValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_ALMACEN];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_ALMACENValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_ALMACEN];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_ALMACEN] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetNOMBRE_ALMACENValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_ALMACEN];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNOMBRE_ALMACEN];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_ALMACEN] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FACTURA];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_FACTURA];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FACTURA] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetREF_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldREF_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREF_PEDIDO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetREF_PEDIDOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_PEDIDO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteCALLE];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteCALLE];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteCALLE] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetREF_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_FACTURA];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldREF_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREF_FACTURA];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_FACTURA] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteCODIGO_POSTAL];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteCODIGO_POSTAL];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteCODIGO_POSTAL] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePOBLACION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClientePOBLACION];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePOBLACION] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePROVINCIA];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClientePROVINCIA];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePROVINCIA] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePERSONA_CONTACTO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClientePERSONA_CONTACTO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePERSONA_CONTACTO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTELEFONO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteTELEFONO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteTELEFONO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBASE_IMPONIBLE];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteBASE_IMPONIBLE];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBASE_IMPONIBLE] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_NETO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIMPORTE_NETO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_NETO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_PORTE];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIMPORTE_PORTE];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_PORTE] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteDESCUENTO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetIVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIVA];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldIVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIVA];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetIVAValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIVA] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_IVAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_IVA];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIMPORTE_IVA];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_IVA] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_TOTAL];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIMPORTE_TOTAL];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_TOTAL] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteOBSERVACIONES];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteOBSERVACIONES];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteOBSERVACIONES] := aValue.Text;
end;
function TAlbaranesClienteBusinessProcessorRules.GetINCIDENCIASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteINCIDENCIAS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteINCIDENCIAS];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetINCIDENCIASValue(const aValue: IROStrings);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteINCIDENCIAS] := aValue.Text;
end;
function TAlbaranesClienteBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteINCIDENCIAS_ACTIVAS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteINCIDENCIAS_ACTIVAS];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteINCIDENCIAS_ACTIVAS] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_ALTA];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_ALTA];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_ALTA] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_MODIFICACION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_MODIFICACION];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_MODIFICACION] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteUSUARIO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteUSUARIO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteUSUARIO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNOMBRE];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FORMA_PAGO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_FORMA_PAGO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FORMA_PAGO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetFECHA_PREVISTA_ENVIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_PREVISTA_ENVIO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_PREVISTA_ENVIO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_PREVISTA_ENVIO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetFECHA_ENVIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_ENVIO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_ENVIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_ENVIO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_ENVIOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_ENVIO] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetFECHA_RECEPCIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_RECEPCION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldFECHA_RECEPCIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteFECHA_RECEPCION];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetFECHA_RECEPCIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_RECEPCION] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_AGENTE];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_AGENTE];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_AGENTE] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetAGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldAGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteAGENTE];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetAGENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteAGENTE] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_COPIAS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNUM_COPIAS];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_COPIAS] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_ALBARAN_DEV];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_ALBARAN_DEV];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_ALBARAN_DEV] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_ALB_DEV];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA_ALB_DEV];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_ALB_DEV] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FAC_ALB_DEV];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_FAC_ALB_DEV];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREFERENCIA_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_CORREOS];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNUM_CORREOS];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNUM_CORREOS] := aValue;
end;
function TAlbaranesClienteBusinessProcessorRules.GetBLOQUEADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBLOQUEADO];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldBLOQUEADOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteBLOQUEADO];
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetBLOQUEADOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteBLOQUEADO] := aValue;
end;
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TAlbaranesCliente_DetallesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ALBARANValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ALBARAN];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_ALBARANValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_ALBARAN];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_ALBARANValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ALBARAN] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_PEDIDO] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesPOSICION];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesPOSICION];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesPOSICION] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetTIPO_DETALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesTIPO_DETALLE];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesTIPO_DETALLE];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesTIPO_DETALLE] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesREFERENCIA];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCONCEPTO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesCONCEPTO];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCONCEPTO] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesCANTIDAD];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesCANTIDAD] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesIMPORTE_UNIDAD];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesIMPORTE_UNIDAD];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesIMPORTE_UNIDAD] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesIMPORTE_TOTAL];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesIMPORTE_TOTAL];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesIMPORTE_TOTAL] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesDESCUENTO];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesDESCUENTO];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesDESCUENTO] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesIMPORTE_PORTE];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesIMPORTE_PORTE];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesIMPORTE_PORTE] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVISIBLE];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesVISIBLE];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVISIBLE] := aValue;
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR];
end;
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR];
end;
procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR] := aValue;
end;
{ TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules }
constructor TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshID];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetID_ALBARANValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_ALBARAN];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldID_ALBARANValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshID_ALBARAN];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetID_ALBARANValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_ALBARAN] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_PEDIDO] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshPOSICION];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldPOSICIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshPOSICION];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshPOSICION] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetTIPO_DETALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshTIPO_DETALLE];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldTIPO_DETALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshTIPO_DETALLE];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshTIPO_DETALLE] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshREFERENCIA];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshREFERENCIA];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshREFERENCIA] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_ARTICULO];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshID_ARTICULO];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshID_ARTICULO] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshCONCEPTO];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshCONCEPTO];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshCONCEPTO] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshCANTIDAD];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshCANTIDAD];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshCANTIDAD] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshIMPORTE_UNIDAD];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshIMPORTE_UNIDAD];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshIMPORTE_UNIDAD] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshIMPORTE_TOTAL];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshIMPORTE_TOTAL];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshIMPORTE_TOTAL] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshDESCUENTO];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshDESCUENTO];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshDESCUENTO] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_PORTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshIMPORTE_PORTE];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshIMPORTE_PORTE];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshIMPORTE_PORTE] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshVISIBLE];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshVISIBLE];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshVISIBLE] := aValue;
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshREFERENCIA_PROVEEDOR];
end;
function TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalles_RefreshREFERENCIA_PROVEEDOR];
end;
procedure TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalles_RefreshREFERENCIA_PROVEEDOR] := aValue;
end;
{ TAlbaranesCliente_RefreshBusinessProcessorRules }
constructor TAlbaranesCliente_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TAlbaranesCliente_RefreshBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_EMPRESA];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_EMPRESA];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_EMPRESA] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_CLIENTE];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_CLIENTE];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_CLIENTE] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetFECHA_ALBARANValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_ALBARAN];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALBARANValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshFECHA_ALBARAN];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetFECHA_ALBARANValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_ALBARAN] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_PEDIDO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_PEDIDO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_PEDIDO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_CLIENTE] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshTIPO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldTIPOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshTIPO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshTIPO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshSITUACION];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldSITUACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshSITUACION];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetSITUACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshSITUACION] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_ALMACENValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_ALMACEN];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_ALMACENValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_ALMACEN];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_ALMACEN] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetNOMBRE_ALMACENValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNOMBRE_ALMACEN];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshNOMBRE_ALMACEN];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNOMBRE_ALMACEN] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FACTURA];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_FACTURA];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FACTURA] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREF_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREF_PEDIDO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREF_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREF_PEDIDO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREF_PEDIDOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREF_PEDIDO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshCALLE];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldCALLEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshCALLE];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetCALLEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshCALLE] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREF_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREF_FACTURA];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREF_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREF_FACTURA];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREF_FACTURA] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshCODIGO_POSTAL];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshCODIGO_POSTAL];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshCODIGO_POSTAL] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshPOBLACION];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldPOBLACIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshPOBLACION];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshPOBLACION] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshPROVINCIA];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldPROVINCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshPROVINCIA];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshPROVINCIA] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshPERSONA_CONTACTO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshPERSONA_CONTACTO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshPERSONA_CONTACTO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshTELEFONO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshTELEFONO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshTELEFONO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshBASE_IMPONIBLE];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshBASE_IMPONIBLE];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshBASE_IMPONIBLE] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_NETO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshIMPORTE_NETO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_NETO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_PORTE];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshIMPORTE_PORTE];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_PORTE] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshDESCUENTO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshDESCUENTO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshDESCUENTO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_DESCUENTO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshIMPORTE_DESCUENTO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_DESCUENTO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetIVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIVA];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldIVAValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshIVA];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetIVAValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIVA] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetIMPORTE_IVAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_IVA];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshIMPORTE_IVA];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_IVA] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_TOTAL];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshIMPORTE_TOTAL];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshIMPORTE_TOTAL] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshOBSERVACIONES];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshOBSERVACIONES];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetOBSERVACIONESValue(const aValue: IROStrings);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshOBSERVACIONES] := aValue.Text;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetINCIDENCIASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshINCIDENCIAS];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings;
begin
result := NewROStrings();
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshINCIDENCIAS];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetINCIDENCIASValue(const aValue: IROStrings);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshINCIDENCIAS] := aValue.Text;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshINCIDENCIAS_ACTIVAS];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshINCIDENCIAS_ACTIVAS];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshINCIDENCIAS_ACTIVAS] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_ALTA];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshFECHA_ALTA];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_ALTA] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_MODIFICACION];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshFECHA_MODIFICACION];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_MODIFICACION] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshUSUARIO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshUSUARIO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshUSUARIO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNOMBRE];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshNOMBRE];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNOMBRE] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FORMA_PAGO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_FORMA_PAGO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FORMA_PAGO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetFECHA_PREVISTA_ENVIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldFECHA_PREVISTA_ENVIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetFECHA_PREVISTA_ENVIOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_PREVISTA_ENVIO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetFECHA_ENVIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_ENVIO];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldFECHA_ENVIOValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshFECHA_ENVIO];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetFECHA_ENVIOValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_ENVIO] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetFECHA_RECEPCIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_RECEPCION];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldFECHA_RECEPCIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshFECHA_RECEPCION];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetFECHA_RECEPCIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshFECHA_RECEPCION] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_AGENTE];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_AGENTE];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_AGENTE] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetAGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldAGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshAGENTE];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetAGENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshAGENTE] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldNUM_COPIASValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetNUM_COPIASValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_COPIAS] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_ALBARAN_DEV];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_ALBARAN_DEV];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_ALBARAN_DEV] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_ALB_DEV] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshID_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshREFERENCIA_FAC_ALB_DEV] := aValue;
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_CORREOS];
end;
function TAlbaranesCliente_RefreshBusinessProcessorRules.GetOldNUM_CORREOSValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_RefreshNUM_CORREOS];
end;
procedure TAlbaranesCliente_RefreshBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_RefreshNUM_CORREOS] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesClienteDelta, TAlbaranesClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesCliente_DetallesDelta, TAlbaranesCliente_DetallesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesCliente_Detalles_RefreshDelta, TAlbaranesCliente_Detalles_RefreshBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesCliente_RefreshDelta, TAlbaranesCliente_RefreshBusinessProcessorRules);
end.