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.