roberto
d309e38ec1
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@239 c93665c3-c93d-084d-9b98-7d5f4a9c3376
2682 lines
134 KiB
ObjectPascal
2682 lines
134 KiB
ObjectPascal
unit schInfMargenArticuloServer_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schInfMargenArticuloClient_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_InfMargenPorClienteDelta = '{60A00CBF-ED18-41E1-975D-BA6353A4801E}';
|
|
RID_InfMargenPorArticuloDelta = '{0376D2C4-1F54-421F-AE63-F63FC0C83DA1}';
|
|
RID_InfMargenPorFacturaDelta = '{C49FE731-4C9C-4B1B-8633-558AEE8CD0BD}';
|
|
|
|
type
|
|
{ IInfMargenPorClienteDelta }
|
|
IInfMargenPorClienteDelta = interface(IInfMargenPorCliente)
|
|
['{60A00CBF-ED18-41E1-975D-BA6353A4801E}']
|
|
{ Property getters and setters }
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldID_CLIENTEValue : Integer;
|
|
function GetOldID_ARTICULOValue : Integer;
|
|
function GetOldFAMILIAValue : String;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldREFERENCIA_PROVValue : String;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldCOMISIONABLEValue : Integer;
|
|
function GetOldINVENTARIABLEValue : Integer;
|
|
function GetOldNIF_CIF_CLIENTEValue : String;
|
|
function GetOldNOMBRE_CLIENTEValue : String;
|
|
function GetOldPROVEEDORValue : String;
|
|
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
|
|
function GetOldNIF_CIF_AGENTEValue : String;
|
|
function GetOldNOMBRE_AGENTEValue : String;
|
|
function GetOldIMP_UNIDAD_ULT_VENTValue : Float;
|
|
function GetOldIMP_NETO_ULT_VENTValue : Float;
|
|
function GetOldIMP_PORTE_ULT_VENTValue : Float;
|
|
function GetOldIMP_UNIDAD_PRO_VENTValue : Float;
|
|
function GetOldIMP_NETO_PRO_VENTValue : Float;
|
|
function GetOldIMP_PORTE_PRO_VENTValue : Float;
|
|
function GetOldIMP_UNIDAD_COMPRAValue : Float;
|
|
function GetOldIMP_NETO_COMPRAValue : Float;
|
|
function GetOldIMP_PORTE_COMPRAValue : Float;
|
|
function GetOldIMP_UNIDAD_ULT_COMPValue : Float;
|
|
function GetOldIMP_NETO_ULT_COMPValue : Float;
|
|
function GetOldIMP_PORTE_ULT_COMPValue : Float;
|
|
function GetOldIMP_UNIDAD_PRO_COMPValue : Float;
|
|
function GetOldIMP_NETO_PRO_COMPValue : Float;
|
|
function GetOldIMP_PORTE_PRO_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_ULT_VENT_COMPRAValue : Float;
|
|
function GetOldPOR_MARGEN_ULT_VENT_COMPRAValue : Float;
|
|
function GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue : Float;
|
|
function GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue : Float;
|
|
function GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_PRO_VENT_COMPRAValue : Float;
|
|
function GetOldPOR_MARGEN_PRO_VENT_COMPRAValue : Float;
|
|
function GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue : Float;
|
|
function GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue : Float;
|
|
function GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue : Float;
|
|
|
|
{ Properties }
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
|
property OldFAMILIA : String read GetOldFAMILIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
|
|
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
|
|
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
|
|
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
|
property OldIMP_UNIDAD_ULT_VENT : Float read GetOldIMP_UNIDAD_ULT_VENTValue;
|
|
property OldIMP_NETO_ULT_VENT : Float read GetOldIMP_NETO_ULT_VENTValue;
|
|
property OldIMP_PORTE_ULT_VENT : Float read GetOldIMP_PORTE_ULT_VENTValue;
|
|
property OldIMP_UNIDAD_PRO_VENT : Float read GetOldIMP_UNIDAD_PRO_VENTValue;
|
|
property OldIMP_NETO_PRO_VENT : Float read GetOldIMP_NETO_PRO_VENTValue;
|
|
property OldIMP_PORTE_PRO_VENT : Float read GetOldIMP_PORTE_PRO_VENTValue;
|
|
property OldIMP_UNIDAD_COMPRA : Float read GetOldIMP_UNIDAD_COMPRAValue;
|
|
property OldIMP_NETO_COMPRA : Float read GetOldIMP_NETO_COMPRAValue;
|
|
property OldIMP_PORTE_COMPRA : Float read GetOldIMP_PORTE_COMPRAValue;
|
|
property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
|
|
property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
|
|
property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
|
|
property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
|
|
property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
|
|
property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
|
|
property OldIMP_MARGEN_ULT_VENT_COMPRA : Float read GetOldIMP_MARGEN_ULT_VENT_COMPRAValue;
|
|
property OldPOR_MARGEN_ULT_VENT_COMPRA : Float read GetOldPOR_MARGEN_ULT_VENT_COMPRAValue;
|
|
property OldIMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property OldPOR_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property OldIMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property OldPOR_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property OldIMP_MARGEN_PRO_VENT_COMPRA : Float read GetOldIMP_MARGEN_PRO_VENT_COMPRAValue;
|
|
property OldPOR_MARGEN_PRO_VENT_COMPRA : Float read GetOldPOR_MARGEN_PRO_VENT_COMPRAValue;
|
|
property OldIMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property OldPOR_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property OldIMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property OldPOR_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
end;
|
|
|
|
{ TInfMargenPorClienteBusinessProcessorRules }
|
|
TInfMargenPorClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IInfMargenPorCliente, IInfMargenPorClienteDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
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 GetID_ARTICULOValue: Integer; virtual;
|
|
function GetOldID_ARTICULOValue: Integer; virtual;
|
|
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
|
function GetFAMILIAValue: String; virtual;
|
|
function GetOldFAMILIAValue: String; virtual;
|
|
procedure SetFAMILIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVValue: String; virtual;
|
|
function GetOldREFERENCIA_PROVValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetCOMISIONABLEValue: Integer; virtual;
|
|
function GetOldCOMISIONABLEValue: Integer; virtual;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
|
|
function GetINVENTARIABLEValue: Integer; virtual;
|
|
function GetOldINVENTARIABLEValue: Integer; virtual;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
|
|
function GetNIF_CIF_CLIENTEValue: String; virtual;
|
|
function GetOldNIF_CIF_CLIENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_CLIENTEValue: String; virtual;
|
|
function GetOldNOMBRE_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
|
function GetPROVEEDORValue: String; virtual;
|
|
function GetOldPROVEEDORValue: String; virtual;
|
|
procedure SetPROVEEDORValue(const aValue: String); virtual;
|
|
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
|
|
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_AGENTEValue: String; virtual;
|
|
function GetOldNIF_CIF_AGENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_AGENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_AGENTEValue: String; virtual;
|
|
function GetOldNOMBRE_AGENTEValue: String; virtual;
|
|
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
|
|
function GetIMP_UNIDAD_ULT_VENTValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_ULT_VENTValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_ULT_VENTValue: Float; virtual;
|
|
function GetOldIMP_NETO_ULT_VENTValue: Float; virtual;
|
|
procedure SetIMP_NETO_ULT_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_ULT_VENTValue: Float; virtual;
|
|
function GetOldIMP_PORTE_ULT_VENTValue: Float; virtual;
|
|
procedure SetIMP_PORTE_ULT_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_PRO_VENTValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_PRO_VENTValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_PRO_VENTValue: Float; virtual;
|
|
function GetOldIMP_NETO_PRO_VENTValue: Float; virtual;
|
|
procedure SetIMP_NETO_PRO_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_PRO_VENTValue: Float; virtual;
|
|
function GetOldIMP_PORTE_PRO_VENTValue: Float; virtual;
|
|
procedure SetIMP_PORTE_PRO_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_NETO_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_NETO_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_PORTE_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_PORTE_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_NETO_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_NETO_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_PORTE_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_PORTE_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_NETO_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_NETO_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_PORTE_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_PORTE_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
|
|
{ Properties }
|
|
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 ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
|
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property OldFAMILIA : String read GetOldFAMILIAValue;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
|
|
property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
|
|
property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
|
|
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
|
|
property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
|
|
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
|
|
property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
|
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
|
property IMP_UNIDAD_ULT_VENT : Float read GetIMP_UNIDAD_ULT_VENTValue write SetIMP_UNIDAD_ULT_VENTValue;
|
|
property OldIMP_UNIDAD_ULT_VENT : Float read GetOldIMP_UNIDAD_ULT_VENTValue;
|
|
property IMP_NETO_ULT_VENT : Float read GetIMP_NETO_ULT_VENTValue write SetIMP_NETO_ULT_VENTValue;
|
|
property OldIMP_NETO_ULT_VENT : Float read GetOldIMP_NETO_ULT_VENTValue;
|
|
property IMP_PORTE_ULT_VENT : Float read GetIMP_PORTE_ULT_VENTValue write SetIMP_PORTE_ULT_VENTValue;
|
|
property OldIMP_PORTE_ULT_VENT : Float read GetOldIMP_PORTE_ULT_VENTValue;
|
|
property IMP_UNIDAD_PRO_VENT : Float read GetIMP_UNIDAD_PRO_VENTValue write SetIMP_UNIDAD_PRO_VENTValue;
|
|
property OldIMP_UNIDAD_PRO_VENT : Float read GetOldIMP_UNIDAD_PRO_VENTValue;
|
|
property IMP_NETO_PRO_VENT : Float read GetIMP_NETO_PRO_VENTValue write SetIMP_NETO_PRO_VENTValue;
|
|
property OldIMP_NETO_PRO_VENT : Float read GetOldIMP_NETO_PRO_VENTValue;
|
|
property IMP_PORTE_PRO_VENT : Float read GetIMP_PORTE_PRO_VENTValue write SetIMP_PORTE_PRO_VENTValue;
|
|
property OldIMP_PORTE_PRO_VENT : Float read GetOldIMP_PORTE_PRO_VENTValue;
|
|
property IMP_UNIDAD_COMPRA : Float read GetIMP_UNIDAD_COMPRAValue write SetIMP_UNIDAD_COMPRAValue;
|
|
property OldIMP_UNIDAD_COMPRA : Float read GetOldIMP_UNIDAD_COMPRAValue;
|
|
property IMP_NETO_COMPRA : Float read GetIMP_NETO_COMPRAValue write SetIMP_NETO_COMPRAValue;
|
|
property OldIMP_NETO_COMPRA : Float read GetOldIMP_NETO_COMPRAValue;
|
|
property IMP_PORTE_COMPRA : Float read GetIMP_PORTE_COMPRAValue write SetIMP_PORTE_COMPRAValue;
|
|
property OldIMP_PORTE_COMPRA : Float read GetOldIMP_PORTE_COMPRAValue;
|
|
property IMP_UNIDAD_ULT_COMP : Float read GetIMP_UNIDAD_ULT_COMPValue write SetIMP_UNIDAD_ULT_COMPValue;
|
|
property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
|
|
property IMP_NETO_ULT_COMP : Float read GetIMP_NETO_ULT_COMPValue write SetIMP_NETO_ULT_COMPValue;
|
|
property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
|
|
property IMP_PORTE_ULT_COMP : Float read GetIMP_PORTE_ULT_COMPValue write SetIMP_PORTE_ULT_COMPValue;
|
|
property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
|
|
property IMP_UNIDAD_PRO_COMP : Float read GetIMP_UNIDAD_PRO_COMPValue write SetIMP_UNIDAD_PRO_COMPValue;
|
|
property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
|
|
property IMP_NETO_PRO_COMP : Float read GetIMP_NETO_PRO_COMPValue write SetIMP_NETO_PRO_COMPValue;
|
|
property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
|
|
property IMP_PORTE_PRO_COMP : Float read GetIMP_PORTE_PRO_COMPValue write SetIMP_PORTE_PRO_COMPValue;
|
|
property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
|
|
property IMP_MARGEN_ULT_VENT_COMPRA : Float read GetIMP_MARGEN_ULT_VENT_COMPRAValue write SetIMP_MARGEN_ULT_VENT_COMPRAValue;
|
|
property OldIMP_MARGEN_ULT_VENT_COMPRA : Float read GetOldIMP_MARGEN_ULT_VENT_COMPRAValue;
|
|
property POR_MARGEN_ULT_VENT_COMPRA : Float read GetPOR_MARGEN_ULT_VENT_COMPRAValue write SetPOR_MARGEN_ULT_VENT_COMPRAValue;
|
|
property OldPOR_MARGEN_ULT_VENT_COMPRA : Float read GetOldPOR_MARGEN_ULT_VENT_COMPRAValue;
|
|
property IMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetIMP_MARGEN_ULT_VENT_ULT_COMPValue write SetIMP_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property OldIMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property POR_MARGEN_ULT_VENT_ULT_COMP : Float read GetPOR_MARGEN_ULT_VENT_ULT_COMPValue write SetPOR_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property OldPOR_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property IMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetIMP_MARGEN_ULT_VENT_PRO_COMPValue write SetIMP_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property OldIMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property POR_MARGEN_ULT_VENT_PRO_COMP : Float read GetPOR_MARGEN_ULT_VENT_PRO_COMPValue write SetPOR_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property OldPOR_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property IMP_MARGEN_PRO_VENT_COMPRA : Float read GetIMP_MARGEN_PRO_VENT_COMPRAValue write SetIMP_MARGEN_PRO_VENT_COMPRAValue;
|
|
property OldIMP_MARGEN_PRO_VENT_COMPRA : Float read GetOldIMP_MARGEN_PRO_VENT_COMPRAValue;
|
|
property POR_MARGEN_PRO_VENT_COMPRA : Float read GetPOR_MARGEN_PRO_VENT_COMPRAValue write SetPOR_MARGEN_PRO_VENT_COMPRAValue;
|
|
property OldPOR_MARGEN_PRO_VENT_COMPRA : Float read GetOldPOR_MARGEN_PRO_VENT_COMPRAValue;
|
|
property IMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetIMP_MARGEN_PRO_VENT_ULT_COMPValue write SetIMP_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property OldIMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property POR_MARGEN_PRO_VENT_ULT_COMP : Float read GetPOR_MARGEN_PRO_VENT_ULT_COMPValue write SetPOR_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property OldPOR_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property IMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetIMP_MARGEN_PRO_VENT_PRO_COMPValue write SetIMP_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property OldIMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property POR_MARGEN_PRO_VENT_PRO_COMP : Float read GetPOR_MARGEN_PRO_VENT_PRO_COMPValue write SetPOR_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property OldPOR_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IInfMargenPorArticuloDelta }
|
|
IInfMargenPorArticuloDelta = interface(IInfMargenPorArticulo)
|
|
['{0376D2C4-1F54-421F-AE63-F63FC0C83DA1}']
|
|
{ Property getters and setters }
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldID_ARTICULOValue : Integer;
|
|
function GetOldFAMILIAValue : String;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldREFERENCIA_PROVValue : String;
|
|
function GetOldPROVEEDORValue : String;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldCOMISIONABLEValue : Integer;
|
|
function GetOldINVENTARIABLEValue : Integer;
|
|
function GetOldIMP_UNIDAD_ULT_VENTValue : Float;
|
|
function GetOldIMP_NETO_ULT_VENTValue : Float;
|
|
function GetOldIMP_PORTE_ULT_VENTValue : Float;
|
|
function GetOldIMP_UNIDAD_PRO_VENTValue : Float;
|
|
function GetOldIMP_NETO_PRO_VENTValue : Float;
|
|
function GetOldIMP_PORTE_PRO_VENTValue : Float;
|
|
function GetOldIMP_UNIDAD_COMPRAValue : Float;
|
|
function GetOldIMP_NETO_COMPRAValue : Float;
|
|
function GetOldIMP_PORTE_COMPRAValue : Float;
|
|
function GetOldIMP_UNIDAD_ULT_COMPValue : Float;
|
|
function GetOldIMP_NETO_ULT_COMPValue : Float;
|
|
function GetOldIMP_PORTE_ULT_COMPValue : Float;
|
|
function GetOldIMP_UNIDAD_PRO_COMPValue : Float;
|
|
function GetOldIMP_NETO_PRO_COMPValue : Float;
|
|
function GetOldIMP_PORTE_PRO_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_ULT_VENT_COMPRAValue : Float;
|
|
function GetOldPOR_MARGEN_ULT_VENT_COMPRAValue : Float;
|
|
function GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue : Float;
|
|
function GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue : Float;
|
|
function GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_PRO_VENT_COMPRAValue : Float;
|
|
function GetOldPOR_MARGEN_PRO_VENT_COMPRAValue : Float;
|
|
function GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue : Float;
|
|
function GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue : Float;
|
|
function GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue : Float;
|
|
|
|
{ Properties }
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
|
property OldFAMILIA : String read GetOldFAMILIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
|
|
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
|
|
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
|
|
property OldIMP_UNIDAD_ULT_VENT : Float read GetOldIMP_UNIDAD_ULT_VENTValue;
|
|
property OldIMP_NETO_ULT_VENT : Float read GetOldIMP_NETO_ULT_VENTValue;
|
|
property OldIMP_PORTE_ULT_VENT : Float read GetOldIMP_PORTE_ULT_VENTValue;
|
|
property OldIMP_UNIDAD_PRO_VENT : Float read GetOldIMP_UNIDAD_PRO_VENTValue;
|
|
property OldIMP_NETO_PRO_VENT : Float read GetOldIMP_NETO_PRO_VENTValue;
|
|
property OldIMP_PORTE_PRO_VENT : Float read GetOldIMP_PORTE_PRO_VENTValue;
|
|
property OldIMP_UNIDAD_COMPRA : Float read GetOldIMP_UNIDAD_COMPRAValue;
|
|
property OldIMP_NETO_COMPRA : Float read GetOldIMP_NETO_COMPRAValue;
|
|
property OldIMP_PORTE_COMPRA : Float read GetOldIMP_PORTE_COMPRAValue;
|
|
property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
|
|
property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
|
|
property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
|
|
property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
|
|
property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
|
|
property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
|
|
property OldIMP_MARGEN_ULT_VENT_COMPRA : Float read GetOldIMP_MARGEN_ULT_VENT_COMPRAValue;
|
|
property OldPOR_MARGEN_ULT_VENT_COMPRA : Float read GetOldPOR_MARGEN_ULT_VENT_COMPRAValue;
|
|
property OldIMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property OldPOR_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property OldIMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property OldPOR_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property OldIMP_MARGEN_PRO_VENT_COMPRA : Float read GetOldIMP_MARGEN_PRO_VENT_COMPRAValue;
|
|
property OldPOR_MARGEN_PRO_VENT_COMPRA : Float read GetOldPOR_MARGEN_PRO_VENT_COMPRAValue;
|
|
property OldIMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property OldPOR_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property OldIMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property OldPOR_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
end;
|
|
|
|
{ TInfMargenPorArticuloBusinessProcessorRules }
|
|
TInfMargenPorArticuloBusinessProcessorRules = class(TDABusinessProcessorRules, IInfMargenPorArticulo, IInfMargenPorArticuloDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
function GetID_ARTICULOValue: Integer; virtual;
|
|
function GetOldID_ARTICULOValue: Integer; virtual;
|
|
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
|
function GetFAMILIAValue: String; virtual;
|
|
function GetOldFAMILIAValue: String; virtual;
|
|
procedure SetFAMILIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVValue: String; virtual;
|
|
function GetOldREFERENCIA_PROVValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
|
|
function GetPROVEEDORValue: String; virtual;
|
|
function GetOldPROVEEDORValue: String; virtual;
|
|
procedure SetPROVEEDORValue(const aValue: String); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetCOMISIONABLEValue: Integer; virtual;
|
|
function GetOldCOMISIONABLEValue: Integer; virtual;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
|
|
function GetINVENTARIABLEValue: Integer; virtual;
|
|
function GetOldINVENTARIABLEValue: Integer; virtual;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
|
|
function GetIMP_UNIDAD_ULT_VENTValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_ULT_VENTValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_ULT_VENTValue: Float; virtual;
|
|
function GetOldIMP_NETO_ULT_VENTValue: Float; virtual;
|
|
procedure SetIMP_NETO_ULT_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_ULT_VENTValue: Float; virtual;
|
|
function GetOldIMP_PORTE_ULT_VENTValue: Float; virtual;
|
|
procedure SetIMP_PORTE_ULT_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_PRO_VENTValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_PRO_VENTValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_PRO_VENTValue: Float; virtual;
|
|
function GetOldIMP_NETO_PRO_VENTValue: Float; virtual;
|
|
procedure SetIMP_NETO_PRO_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_PRO_VENTValue: Float; virtual;
|
|
function GetOldIMP_PORTE_PRO_VENTValue: Float; virtual;
|
|
procedure SetIMP_PORTE_PRO_VENTValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_NETO_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_NETO_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_PORTE_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_PORTE_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_NETO_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_NETO_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_PORTE_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_PORTE_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_NETO_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_NETO_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_PORTE_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_PORTE_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_ULT_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_PRO_VENT_COMPRAValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float); virtual;
|
|
|
|
{ Properties }
|
|
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
|
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property OldFAMILIA : String read GetOldFAMILIAValue;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
|
|
property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
|
|
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
|
|
property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
|
|
property IMP_UNIDAD_ULT_VENT : Float read GetIMP_UNIDAD_ULT_VENTValue write SetIMP_UNIDAD_ULT_VENTValue;
|
|
property OldIMP_UNIDAD_ULT_VENT : Float read GetOldIMP_UNIDAD_ULT_VENTValue;
|
|
property IMP_NETO_ULT_VENT : Float read GetIMP_NETO_ULT_VENTValue write SetIMP_NETO_ULT_VENTValue;
|
|
property OldIMP_NETO_ULT_VENT : Float read GetOldIMP_NETO_ULT_VENTValue;
|
|
property IMP_PORTE_ULT_VENT : Float read GetIMP_PORTE_ULT_VENTValue write SetIMP_PORTE_ULT_VENTValue;
|
|
property OldIMP_PORTE_ULT_VENT : Float read GetOldIMP_PORTE_ULT_VENTValue;
|
|
property IMP_UNIDAD_PRO_VENT : Float read GetIMP_UNIDAD_PRO_VENTValue write SetIMP_UNIDAD_PRO_VENTValue;
|
|
property OldIMP_UNIDAD_PRO_VENT : Float read GetOldIMP_UNIDAD_PRO_VENTValue;
|
|
property IMP_NETO_PRO_VENT : Float read GetIMP_NETO_PRO_VENTValue write SetIMP_NETO_PRO_VENTValue;
|
|
property OldIMP_NETO_PRO_VENT : Float read GetOldIMP_NETO_PRO_VENTValue;
|
|
property IMP_PORTE_PRO_VENT : Float read GetIMP_PORTE_PRO_VENTValue write SetIMP_PORTE_PRO_VENTValue;
|
|
property OldIMP_PORTE_PRO_VENT : Float read GetOldIMP_PORTE_PRO_VENTValue;
|
|
property IMP_UNIDAD_COMPRA : Float read GetIMP_UNIDAD_COMPRAValue write SetIMP_UNIDAD_COMPRAValue;
|
|
property OldIMP_UNIDAD_COMPRA : Float read GetOldIMP_UNIDAD_COMPRAValue;
|
|
property IMP_NETO_COMPRA : Float read GetIMP_NETO_COMPRAValue write SetIMP_NETO_COMPRAValue;
|
|
property OldIMP_NETO_COMPRA : Float read GetOldIMP_NETO_COMPRAValue;
|
|
property IMP_PORTE_COMPRA : Float read GetIMP_PORTE_COMPRAValue write SetIMP_PORTE_COMPRAValue;
|
|
property OldIMP_PORTE_COMPRA : Float read GetOldIMP_PORTE_COMPRAValue;
|
|
property IMP_UNIDAD_ULT_COMP : Float read GetIMP_UNIDAD_ULT_COMPValue write SetIMP_UNIDAD_ULT_COMPValue;
|
|
property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
|
|
property IMP_NETO_ULT_COMP : Float read GetIMP_NETO_ULT_COMPValue write SetIMP_NETO_ULT_COMPValue;
|
|
property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
|
|
property IMP_PORTE_ULT_COMP : Float read GetIMP_PORTE_ULT_COMPValue write SetIMP_PORTE_ULT_COMPValue;
|
|
property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
|
|
property IMP_UNIDAD_PRO_COMP : Float read GetIMP_UNIDAD_PRO_COMPValue write SetIMP_UNIDAD_PRO_COMPValue;
|
|
property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
|
|
property IMP_NETO_PRO_COMP : Float read GetIMP_NETO_PRO_COMPValue write SetIMP_NETO_PRO_COMPValue;
|
|
property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
|
|
property IMP_PORTE_PRO_COMP : Float read GetIMP_PORTE_PRO_COMPValue write SetIMP_PORTE_PRO_COMPValue;
|
|
property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
|
|
property IMP_MARGEN_ULT_VENT_COMPRA : Float read GetIMP_MARGEN_ULT_VENT_COMPRAValue write SetIMP_MARGEN_ULT_VENT_COMPRAValue;
|
|
property OldIMP_MARGEN_ULT_VENT_COMPRA : Float read GetOldIMP_MARGEN_ULT_VENT_COMPRAValue;
|
|
property POR_MARGEN_ULT_VENT_COMPRA : Float read GetPOR_MARGEN_ULT_VENT_COMPRAValue write SetPOR_MARGEN_ULT_VENT_COMPRAValue;
|
|
property OldPOR_MARGEN_ULT_VENT_COMPRA : Float read GetOldPOR_MARGEN_ULT_VENT_COMPRAValue;
|
|
property IMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetIMP_MARGEN_ULT_VENT_ULT_COMPValue write SetIMP_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property OldIMP_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property POR_MARGEN_ULT_VENT_ULT_COMP : Float read GetPOR_MARGEN_ULT_VENT_ULT_COMPValue write SetPOR_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property OldPOR_MARGEN_ULT_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue;
|
|
property IMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetIMP_MARGEN_ULT_VENT_PRO_COMPValue write SetIMP_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property OldIMP_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property POR_MARGEN_ULT_VENT_PRO_COMP : Float read GetPOR_MARGEN_ULT_VENT_PRO_COMPValue write SetPOR_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property OldPOR_MARGEN_ULT_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue;
|
|
property IMP_MARGEN_PRO_VENT_COMPRA : Float read GetIMP_MARGEN_PRO_VENT_COMPRAValue write SetIMP_MARGEN_PRO_VENT_COMPRAValue;
|
|
property OldIMP_MARGEN_PRO_VENT_COMPRA : Float read GetOldIMP_MARGEN_PRO_VENT_COMPRAValue;
|
|
property POR_MARGEN_PRO_VENT_COMPRA : Float read GetPOR_MARGEN_PRO_VENT_COMPRAValue write SetPOR_MARGEN_PRO_VENT_COMPRAValue;
|
|
property OldPOR_MARGEN_PRO_VENT_COMPRA : Float read GetOldPOR_MARGEN_PRO_VENT_COMPRAValue;
|
|
property IMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetIMP_MARGEN_PRO_VENT_ULT_COMPValue write SetIMP_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property OldIMP_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property POR_MARGEN_PRO_VENT_ULT_COMP : Float read GetPOR_MARGEN_PRO_VENT_ULT_COMPValue write SetPOR_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property OldPOR_MARGEN_PRO_VENT_ULT_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue;
|
|
property IMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetIMP_MARGEN_PRO_VENT_PRO_COMPValue write SetIMP_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property OldIMP_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property POR_MARGEN_PRO_VENT_PRO_COMP : Float read GetPOR_MARGEN_PRO_VENT_PRO_COMPValue write SetPOR_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
property OldPOR_MARGEN_PRO_VENT_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IInfMargenPorFacturaDelta }
|
|
IInfMargenPorFacturaDelta = interface(IInfMargenPorFactura)
|
|
['{C49FE731-4C9C-4B1B-8633-558AEE8CD0BD}']
|
|
{ Property getters and setters }
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldID_CLIENTEValue : Integer;
|
|
function GetOldID_FACTURAValue : Integer;
|
|
function GetOldID_DETALLEValue : Integer;
|
|
function GetOldID_ARTICULOValue : Integer;
|
|
function GetOldFAMILIAValue : String;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldREFERENCIA_PROVValue : String;
|
|
function GetOldREFERENCIA_FACTURAValue : String;
|
|
function GetOldFECHA_FACTURAValue : DateTime;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldCOMISIONABLEValue : Integer;
|
|
function GetOldINVENTARIABLEValue : Integer;
|
|
function GetOldNIF_CIF_CLIENTEValue : String;
|
|
function GetOldNOMBRE_CLIENTEValue : String;
|
|
function GetOldPROVEEDORValue : String;
|
|
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
|
|
function GetOldNIF_CIF_AGENTEValue : String;
|
|
function GetOldNOMBRE_AGENTEValue : String;
|
|
function GetOldCANTIDADValue : Integer;
|
|
function GetOldIMP_UNIDADValue : Float;
|
|
function GetOldIMP_NETOValue : Float;
|
|
function GetOldIMP_PORTEValue : Float;
|
|
function GetOldIMP_TOTALValue : Float;
|
|
function GetOldIMP_UNIDAD_ULT_COMPValue : Float;
|
|
function GetOldIMP_NETO_ULT_COMPValue : Float;
|
|
function GetOldIMP_PORTE_ULT_COMPValue : Float;
|
|
function GetOldIMP_NETO_ULT_COM_TOTALValue : Float;
|
|
function GetOldIMP_UNIDAD_PRO_COMPValue : Float;
|
|
function GetOldIMP_NETO_PRO_COMPValue : Float;
|
|
function GetOldIMP_PORTE_PRO_COMPValue : Float;
|
|
function GetOldIMP_NETO_PRO_COM_TOTALValue : Float;
|
|
function GetOldIMP_MARGEN_ULT_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_ULT_COMP_TOTALValue : Float;
|
|
function GetOldPOR_MARGEN_ULT_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_PRO_COMPValue : Float;
|
|
function GetOldIMP_MARGEN_PRO_COMP_TOTALValue : Float;
|
|
function GetOldPOR_MARGEN_PRO_COMPValue : Float;
|
|
|
|
{ Properties }
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property OldID_DETALLE : Integer read GetOldID_DETALLEValue;
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
|
property OldFAMILIA : String read GetOldFAMILIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
|
|
property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
|
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
|
|
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
|
|
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
|
|
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
|
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
|
|
property OldIMP_UNIDAD : Float read GetOldIMP_UNIDADValue;
|
|
property OldIMP_NETO : Float read GetOldIMP_NETOValue;
|
|
property OldIMP_PORTE : Float read GetOldIMP_PORTEValue;
|
|
property OldIMP_TOTAL : Float read GetOldIMP_TOTALValue;
|
|
property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
|
|
property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
|
|
property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
|
|
property OldIMP_NETO_ULT_COM_TOTAL : Float read GetOldIMP_NETO_ULT_COM_TOTALValue;
|
|
property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
|
|
property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
|
|
property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
|
|
property OldIMP_NETO_PRO_COM_TOTAL : Float read GetOldIMP_NETO_PRO_COM_TOTALValue;
|
|
property OldIMP_MARGEN_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_COMPValue;
|
|
property OldIMP_MARGEN_ULT_COMP_TOTAL : Float read GetOldIMP_MARGEN_ULT_COMP_TOTALValue;
|
|
property OldPOR_MARGEN_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_COMPValue;
|
|
property OldIMP_MARGEN_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_COMPValue;
|
|
property OldIMP_MARGEN_PRO_COMP_TOTAL : Float read GetOldIMP_MARGEN_PRO_COMP_TOTALValue;
|
|
property OldPOR_MARGEN_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_COMPValue;
|
|
end;
|
|
|
|
{ TInfMargenPorFacturaBusinessProcessorRules }
|
|
TInfMargenPorFacturaBusinessProcessorRules = class(TDABusinessProcessorRules, IInfMargenPorFactura, IInfMargenPorFacturaDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
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 GetID_FACTURAValue: Integer; virtual;
|
|
function GetOldID_FACTURAValue: Integer; virtual;
|
|
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
|
|
function GetID_DETALLEValue: Integer; virtual;
|
|
function GetOldID_DETALLEValue: Integer; virtual;
|
|
procedure SetID_DETALLEValue(const aValue: Integer); virtual;
|
|
function GetID_ARTICULOValue: Integer; virtual;
|
|
function GetOldID_ARTICULOValue: Integer; virtual;
|
|
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
|
|
function GetFAMILIAValue: String; virtual;
|
|
function GetOldFAMILIAValue: String; virtual;
|
|
procedure SetFAMILIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_PROVValue: String; virtual;
|
|
function GetOldREFERENCIA_PROVValue: String; virtual;
|
|
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
|
|
function GetREFERENCIA_FACTURAValue: String; virtual;
|
|
function GetOldREFERENCIA_FACTURAValue: String; virtual;
|
|
procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
|
|
function GetFECHA_FACTURAValue: DateTime; virtual;
|
|
function GetOldFECHA_FACTURAValue: DateTime; virtual;
|
|
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
function GetCOMISIONABLEValue: Integer; virtual;
|
|
function GetOldCOMISIONABLEValue: Integer; virtual;
|
|
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
|
|
function GetINVENTARIABLEValue: Integer; virtual;
|
|
function GetOldINVENTARIABLEValue: Integer; virtual;
|
|
procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
|
|
function GetNIF_CIF_CLIENTEValue: String; virtual;
|
|
function GetOldNIF_CIF_CLIENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_CLIENTEValue: String; virtual;
|
|
function GetOldNOMBRE_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual;
|
|
function GetPROVEEDORValue: String; virtual;
|
|
function GetOldPROVEEDORValue: String; virtual;
|
|
procedure SetPROVEEDORValue(const aValue: String); virtual;
|
|
function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
|
|
function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual;
|
|
procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual;
|
|
function GetNIF_CIF_AGENTEValue: String; virtual;
|
|
function GetOldNIF_CIF_AGENTEValue: String; virtual;
|
|
procedure SetNIF_CIF_AGENTEValue(const aValue: String); virtual;
|
|
function GetNOMBRE_AGENTEValue: String; virtual;
|
|
function GetOldNOMBRE_AGENTEValue: String; virtual;
|
|
procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
|
|
function GetCANTIDADValue: Integer; virtual;
|
|
function GetOldCANTIDADValue: Integer; virtual;
|
|
procedure SetCANTIDADValue(const aValue: Integer); virtual;
|
|
function GetIMP_UNIDADValue: Float; virtual;
|
|
function GetOldIMP_UNIDADValue: Float; virtual;
|
|
procedure SetIMP_UNIDADValue(const aValue: Float); virtual;
|
|
function GetIMP_NETOValue: Float; virtual;
|
|
function GetOldIMP_NETOValue: Float; virtual;
|
|
procedure SetIMP_NETOValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTEValue: Float; virtual;
|
|
function GetOldIMP_PORTEValue: Float; virtual;
|
|
procedure SetIMP_PORTEValue(const aValue: Float); virtual;
|
|
function GetIMP_TOTALValue: Float; virtual;
|
|
function GetOldIMP_TOTALValue: Float; virtual;
|
|
procedure SetIMP_TOTALValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_NETO_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_NETO_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_PORTE_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_PORTE_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_ULT_COM_TOTALValue: Float; virtual;
|
|
function GetOldIMP_NETO_ULT_COM_TOTALValue: Float; virtual;
|
|
procedure SetIMP_NETO_ULT_COM_TOTALValue(const aValue: Float); virtual;
|
|
function GetIMP_UNIDAD_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_UNIDAD_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_NETO_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_NETO_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_PORTE_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_PORTE_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_PORTE_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_NETO_PRO_COM_TOTALValue: Float; virtual;
|
|
function GetOldIMP_NETO_PRO_COM_TOTALValue: Float; virtual;
|
|
procedure SetIMP_NETO_PRO_COM_TOTALValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_ULT_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_ULT_COMP_TOTALValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_ULT_COMP_TOTALValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_ULT_COMP_TOTALValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_ULT_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_ULT_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_ULT_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_COMPValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_PRO_COMPValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_COMPValue(const aValue: Float); virtual;
|
|
function GetIMP_MARGEN_PRO_COMP_TOTALValue: Float; virtual;
|
|
function GetOldIMP_MARGEN_PRO_COMP_TOTALValue: Float; virtual;
|
|
procedure SetIMP_MARGEN_PRO_COMP_TOTALValue(const aValue: Float); virtual;
|
|
function GetPOR_MARGEN_PRO_COMPValue: Float; virtual;
|
|
function GetOldPOR_MARGEN_PRO_COMPValue: Float; virtual;
|
|
procedure SetPOR_MARGEN_PRO_COMPValue(const aValue: Float); virtual;
|
|
|
|
{ Properties }
|
|
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 ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
|
|
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
|
|
property ID_DETALLE : Integer read GetID_DETALLEValue write SetID_DETALLEValue;
|
|
property OldID_DETALLE : Integer read GetOldID_DETALLEValue;
|
|
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
|
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
|
|
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
|
|
property OldFAMILIA : String read GetOldFAMILIAValue;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
|
|
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
|
|
property REFERENCIA_FACTURA : String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
|
|
property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
|
|
property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
|
|
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
|
|
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
|
|
property INVENTARIABLE : Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
|
|
property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
|
|
property NIF_CIF_CLIENTE : String read GetNIF_CIF_CLIENTEValue write SetNIF_CIF_CLIENTEValue;
|
|
property OldNIF_CIF_CLIENTE : String read GetOldNIF_CIF_CLIENTEValue;
|
|
property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue;
|
|
property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue;
|
|
property PROVEEDOR : String read GetPROVEEDORValue write SetPROVEEDORValue;
|
|
property OldPROVEEDOR : String read GetOldPROVEEDORValue;
|
|
property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue;
|
|
property NIF_CIF_AGENTE : String read GetNIF_CIF_AGENTEValue write SetNIF_CIF_AGENTEValue;
|
|
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
|
|
property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
|
|
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
|
|
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
|
|
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
|
|
property IMP_UNIDAD : Float read GetIMP_UNIDADValue write SetIMP_UNIDADValue;
|
|
property OldIMP_UNIDAD : Float read GetOldIMP_UNIDADValue;
|
|
property IMP_NETO : Float read GetIMP_NETOValue write SetIMP_NETOValue;
|
|
property OldIMP_NETO : Float read GetOldIMP_NETOValue;
|
|
property IMP_PORTE : Float read GetIMP_PORTEValue write SetIMP_PORTEValue;
|
|
property OldIMP_PORTE : Float read GetOldIMP_PORTEValue;
|
|
property IMP_TOTAL : Float read GetIMP_TOTALValue write SetIMP_TOTALValue;
|
|
property OldIMP_TOTAL : Float read GetOldIMP_TOTALValue;
|
|
property IMP_UNIDAD_ULT_COMP : Float read GetIMP_UNIDAD_ULT_COMPValue write SetIMP_UNIDAD_ULT_COMPValue;
|
|
property OldIMP_UNIDAD_ULT_COMP : Float read GetOldIMP_UNIDAD_ULT_COMPValue;
|
|
property IMP_NETO_ULT_COMP : Float read GetIMP_NETO_ULT_COMPValue write SetIMP_NETO_ULT_COMPValue;
|
|
property OldIMP_NETO_ULT_COMP : Float read GetOldIMP_NETO_ULT_COMPValue;
|
|
property IMP_PORTE_ULT_COMP : Float read GetIMP_PORTE_ULT_COMPValue write SetIMP_PORTE_ULT_COMPValue;
|
|
property OldIMP_PORTE_ULT_COMP : Float read GetOldIMP_PORTE_ULT_COMPValue;
|
|
property IMP_NETO_ULT_COM_TOTAL : Float read GetIMP_NETO_ULT_COM_TOTALValue write SetIMP_NETO_ULT_COM_TOTALValue;
|
|
property OldIMP_NETO_ULT_COM_TOTAL : Float read GetOldIMP_NETO_ULT_COM_TOTALValue;
|
|
property IMP_UNIDAD_PRO_COMP : Float read GetIMP_UNIDAD_PRO_COMPValue write SetIMP_UNIDAD_PRO_COMPValue;
|
|
property OldIMP_UNIDAD_PRO_COMP : Float read GetOldIMP_UNIDAD_PRO_COMPValue;
|
|
property IMP_NETO_PRO_COMP : Float read GetIMP_NETO_PRO_COMPValue write SetIMP_NETO_PRO_COMPValue;
|
|
property OldIMP_NETO_PRO_COMP : Float read GetOldIMP_NETO_PRO_COMPValue;
|
|
property IMP_PORTE_PRO_COMP : Float read GetIMP_PORTE_PRO_COMPValue write SetIMP_PORTE_PRO_COMPValue;
|
|
property OldIMP_PORTE_PRO_COMP : Float read GetOldIMP_PORTE_PRO_COMPValue;
|
|
property IMP_NETO_PRO_COM_TOTAL : Float read GetIMP_NETO_PRO_COM_TOTALValue write SetIMP_NETO_PRO_COM_TOTALValue;
|
|
property OldIMP_NETO_PRO_COM_TOTAL : Float read GetOldIMP_NETO_PRO_COM_TOTALValue;
|
|
property IMP_MARGEN_ULT_COMP : Float read GetIMP_MARGEN_ULT_COMPValue write SetIMP_MARGEN_ULT_COMPValue;
|
|
property OldIMP_MARGEN_ULT_COMP : Float read GetOldIMP_MARGEN_ULT_COMPValue;
|
|
property IMP_MARGEN_ULT_COMP_TOTAL : Float read GetIMP_MARGEN_ULT_COMP_TOTALValue write SetIMP_MARGEN_ULT_COMP_TOTALValue;
|
|
property OldIMP_MARGEN_ULT_COMP_TOTAL : Float read GetOldIMP_MARGEN_ULT_COMP_TOTALValue;
|
|
property POR_MARGEN_ULT_COMP : Float read GetPOR_MARGEN_ULT_COMPValue write SetPOR_MARGEN_ULT_COMPValue;
|
|
property OldPOR_MARGEN_ULT_COMP : Float read GetOldPOR_MARGEN_ULT_COMPValue;
|
|
property IMP_MARGEN_PRO_COMP : Float read GetIMP_MARGEN_PRO_COMPValue write SetIMP_MARGEN_PRO_COMPValue;
|
|
property OldIMP_MARGEN_PRO_COMP : Float read GetOldIMP_MARGEN_PRO_COMPValue;
|
|
property IMP_MARGEN_PRO_COMP_TOTAL : Float read GetIMP_MARGEN_PRO_COMP_TOTALValue write SetIMP_MARGEN_PRO_COMP_TOTALValue;
|
|
property OldIMP_MARGEN_PRO_COMP_TOTAL : Float read GetOldIMP_MARGEN_PRO_COMP_TOTALValue;
|
|
property POR_MARGEN_PRO_COMP : Float read GetPOR_MARGEN_PRO_COMPValue write SetPOR_MARGEN_PRO_COMPValue;
|
|
property OldPOR_MARGEN_PRO_COMP : Float read GetOldPOR_MARGEN_PRO_COMPValue;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uROBinaryHelpers;
|
|
|
|
{ TInfMargenPorClienteBusinessProcessorRules }
|
|
constructor TInfMargenPorClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TInfMargenPorClienteBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_EMPRESA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteID_EMPRESA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_CLIENTE];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteID_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetID_ARTICULOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_ARTICULO];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteID_ARTICULO];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteID_ARTICULO] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetFAMILIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteFAMILIA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldFAMILIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteFAMILIA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteFAMILIA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteREFERENCIA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteREFERENCIA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteREFERENCIA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteREFERENCIA_PROV];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteREFERENCIA_PROV];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteREFERENCIA_PROV] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteDESCRIPCION];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteDESCRIPCION];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteCOMISIONABLE];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteCOMISIONABLE];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteCOMISIONABLE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteINVENTARIABLE];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteINVENTARIABLE];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteINVENTARIABLE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNIF_CIF_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetPROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePROVEEDOR];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldPROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePROVEEDOR];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_COMERCIAL_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetNIF_CIF_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNIF_CIF_AGENTE];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldNIF_CIF_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNIF_CIF_AGENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetNIF_CIF_AGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNIF_CIF_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_AGENTE];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteNOMBRE_AGENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteNOMBRE_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_ULT_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_ULT_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_PRO_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_PRO_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_UNIDAD_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_UNIDAD_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_NETO_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_NETO_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_NETO_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_NETO_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_PORTE_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_PORTE_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_PORTE_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_PORTE_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorClienteBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorClienteBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
|
|
{ TInfMargenPorArticuloBusinessProcessorRules }
|
|
constructor TInfMargenPorArticuloBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TInfMargenPorArticuloBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloID_EMPRESA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloID_EMPRESA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetID_ARTICULOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloID_ARTICULO];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloID_ARTICULO];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloID_ARTICULO] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetFAMILIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloFAMILIA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldFAMILIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloFAMILIA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloFAMILIA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloREFERENCIA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloREFERENCIA_PROV] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetPROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPROVEEDOR];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldPROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPROVEEDOR];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloDESCRIPCION];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloDESCRIPCION];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloCOMISIONABLE];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloCOMISIONABLE];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloCOMISIONABLE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloINVENTARIABLE];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloINVENTARIABLE];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloINVENTARIABLE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_ULT_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_ULT_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_ULT_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_ULT_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_PRO_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_PRO_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_VENT];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_PRO_VENTValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_VENT];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_PRO_VENTValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_VENT] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_UNIDAD_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_UNIDAD_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_NETO_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_NETO_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_NETO_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_NETO_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_PORTE_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_PORTE_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_PORTE_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_PORTE_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_ULT_VENT_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_ULT_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_ULT_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_ULT_VENT_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_COMPRAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_COMPRAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_COMPRA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldIMP_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetIMP_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloIMP_MARGEN_PRO_VENT_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorArticuloBusinessProcessorRules.GetOldPOR_MARGEN_PRO_VENT_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorArticuloBusinessProcessorRules.SetPOR_MARGEN_PRO_VENT_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorArticuloPOR_MARGEN_PRO_VENT_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
|
|
{ TInfMargenPorFacturaBusinessProcessorRules }
|
|
constructor TInfMargenPorFacturaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TInfMargenPorFacturaBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_EMPRESA];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_EMPRESA];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_CLIENTE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_FACTURA];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_FACTURA];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetID_DETALLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_DETALLE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_DETALLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_DETALLE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetID_DETALLEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_DETALLE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetID_ARTICULOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_ARTICULO];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaID_ARTICULO];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaID_ARTICULO] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetFAMILIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaFAMILIA];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldFAMILIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaFAMILIA];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaFAMILIA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaREFERENCIA];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA_PROV];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaREFERENCIA_PROV];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA_PROV] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetREFERENCIA_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA_FACTURA];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldREFERENCIA_FACTURAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaREFERENCIA_FACTURA];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetREFERENCIA_FACTURAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaREFERENCIA_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaFECHA_FACTURA];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaFECHA_FACTURA];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaFECHA_FACTURA] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaDESCRIPCION];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaDESCRIPCION];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaCOMISIONABLE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaCOMISIONABLE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaCOMISIONABLE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaINVENTARIABLE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaINVENTARIABLE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaINVENTARIABLE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNIF_CIF_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNIF_CIF_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetPROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPROVEEDOR];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldPROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaPROVEEDOR];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetPROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPROVEEDOR] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_COMERCIAL_CLIENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetNIF_CIF_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNIF_CIF_AGENTE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldNIF_CIF_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNIF_CIF_AGENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetNIF_CIF_AGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNIF_CIF_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_AGENTE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaNOMBRE_AGENTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaNOMBRE_AGENTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetCANTIDADValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaCANTIDAD];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldCANTIDADValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaCANTIDAD];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaCANTIDAD] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_UNIDADValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_UNIDADValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_UNIDAD];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_UNIDADValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETOValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_PORTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_PORTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_PORTE];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_PORTEValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_TOTAL];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_TOTAL];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_TOTALValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_UNIDAD_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_UNIDAD_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_UNIDAD_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETO_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETO_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETO_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_PORTE_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_PORTE_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_PORTE_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_PORTE_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETO_ULT_COM_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETO_ULT_COM_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETO_ULT_COM_TOTALValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_ULT_COM_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_UNIDAD_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_UNIDAD_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_UNIDAD_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_UNIDAD_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETO_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETO_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETO_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_PORTE_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_PORTE_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_PORTE_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_PORTE_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_PORTE_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_NETO_PRO_COM_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_NETO_PRO_COM_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_NETO_PRO_COM_TOTALValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_NETO_PRO_COM_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_MARGEN_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_MARGEN_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_MARGEN_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_MARGEN_ULT_COMP_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_MARGEN_ULT_COMP_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_MARGEN_ULT_COMP_TOTALValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_ULT_COMP_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetPOR_MARGEN_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPOR_MARGEN_ULT_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldPOR_MARGEN_ULT_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaPOR_MARGEN_ULT_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetPOR_MARGEN_ULT_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPOR_MARGEN_ULT_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_MARGEN_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_MARGEN_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_MARGEN_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetIMP_MARGEN_PRO_COMP_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldIMP_MARGEN_PRO_COMP_TOTALValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetIMP_MARGEN_PRO_COMP_TOTALValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL] := aValue;
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetPOR_MARGEN_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP];
|
|
end;
|
|
|
|
function TInfMargenPorFacturaBusinessProcessorRules.GetOldPOR_MARGEN_PRO_COMPValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP];
|
|
end;
|
|
|
|
procedure TInfMargenPorFacturaBusinessProcessorRules.SetPOR_MARGEN_PRO_COMPValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP] := aValue;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_InfMargenPorClienteDelta, TInfMargenPorClienteBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_InfMargenPorArticuloDelta, TInfMargenPorArticuloBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_InfMargenPorFacturaDelta, TInfMargenPorFacturaBusinessProcessorRules);
|
|
|
|
end.
|