roberto
e63365542f
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@222 c93665c3-c93d-084d-9b98-7d5f4a9c3376
1766 lines
90 KiB
ObjectPascal
1766 lines
90 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 = '{4849A47C-A068-4F94-8175-8642792A1951}';
|
|
RID_InfMargenPorArticuloDelta = '{E660929D-6B13-4D1F-91E2-399D5B205DEA}';
|
|
|
|
type
|
|
{ IInfMargenPorClienteDelta }
|
|
IInfMargenPorClienteDelta = interface(IInfMargenPorCliente)
|
|
['{4849A47C-A068-4F94-8175-8642792A1951}']
|
|
{ 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 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 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 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 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)
|
|
['{E660929D-6B13-4D1F-91E2-399D5B205DEA}']
|
|
{ Property getters and setters }
|
|
function GetOldID_EMPRESAValue : 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 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 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 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 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;
|
|
|
|
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.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.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;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_InfMargenPorClienteDelta, TInfMargenPorClienteBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_InfMargenPorArticuloDelta, TInfMargenPorArticuloBusinessProcessorRules);
|
|
|
|
end.
|