Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
211a73b55b
LuisLeon_FactuGES/Source/Modulos/Informe margen por articulo/Model/schInfMargenArticuloServer_Intf.pas
roberto 211a73b55b Subida 2.2.0 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@122 c93665c3-c93d-084d-9b98-7d5f4a9c3376
2007-08-01 18:24:02 +00:00

1224 lines
62 KiB
ObjectPascal
Raw Blame History

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_InfMargenArticuloDelta = '{0078F486-303D-4681-9081-2524C6EF6B07}';
type
{ IInfMargenArticuloDelta }
IInfMargenArticuloDelta = interface(IInfMargenArticulo)
['{0078F486-303D-4681-9081-2524C6EF6B07}']
{ Property getters and setters }
function GetOldID_FACTURAValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIA_FACTURAValue : String;
function GetOldFECHA_FACTURAValue : DateTime;
function GetOldIMPORTE_TOTAL_FACTURAValue : Currency;
function GetOldID_COMISION_FACTURAValue : 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 GetOldIMPORTE_UNIDAD_COSTEValue : Currency;
function GetOldDESCUENTO_PROVEEDOR_COSTEValue : Float;
function GetOldIMPORTE_NETO_COSTEValue : Currency;
function GetOldIMPORTE_PORTE_COSTEValue : Currency;
function GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue : Currency;
function GetOldIMPORTE_NETO_ULTIMA_COMPRAValue : Currency;
function GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue : Currency;
function GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue : Currency;
function GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue : Currency;
function GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue : Currency;
function GetOldCANTIDADValue : Integer;
function GetOldIMPORTE_UNIDAD_VENTAValue : Currency;
function GetOldDESCUENTO_CLIENTE_VENTAValue : Float;
function GetOldIMPORTE_NETO_VENTAValue : Currency;
function GetOldIMPORTE_PORTE_VENTAValue : Float;
function GetOldIMPORTE_TOTAL_VENTAValue : Currency;
function GetOldIMPORTE_MARGEN_COSTEValue : Currency;
function GetOldPORCENTAJE_MARGEN_COSTEValue : Float;
function GetOldIMPORTE_MARGEN_ULT_COMPRAValue : Currency;
function GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue : Float;
function GetOldIMPORTE_MARGEN_PROM_COMPRAValue : Currency;
function GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue : Float;
function GetOldNIF_CIF_PROVEEDORValue : String;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldCALLE_PROVEEDORValue : String;
function GetOldPOBLACION_PROVEEDORValue : String;
function GetOldPROVINCIA_PROVEEDORValue : String;
function GetOldNIF_CIF_CLIENTEValue : String;
function GetOldNOMBRE_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String;
function GetOldCALLE_CLIENTEValue : String;
function GetOldPOBLACION_CLIENTEValue : String;
function GetOldPROVINCIA_CLIENTEValue : String;
function GetOldNIF_CIF_AGENTEValue : String;
function GetOldNOMBRE_AGENTEValue : String;
function GetOldCALLE_AGENTEValue : String;
function GetOldPOBLACION_AGENTEValue : String;
function GetOldPROVINCIA_AGENTEValue : String;
function GetOldCOMISION_AGENTEValue : Float;
function GetOldIMPORTE_COMISION_AGENTEValue : Currency;
{ Properties }
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property OldIMPORTE_TOTAL_FACTURA : Currency read GetOldIMPORTE_TOTAL_FACTURAValue;
property OldID_COMISION_FACTURA : Integer read GetOldID_COMISION_FACTURAValue;
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 OldIMPORTE_UNIDAD_COSTE : Currency read GetOldIMPORTE_UNIDAD_COSTEValue;
property OldDESCUENTO_PROVEEDOR_COSTE : Float read GetOldDESCUENTO_PROVEEDOR_COSTEValue;
property OldIMPORTE_NETO_COSTE : Currency read GetOldIMPORTE_NETO_COSTEValue;
property OldIMPORTE_PORTE_COSTE : Currency read GetOldIMPORTE_PORTE_COSTEValue;
property OldIMPORTE_UNIDAD_ULTIMA_COMPRA : Currency read GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue;
property OldIMPORTE_NETO_ULTIMA_COMPRA : Currency read GetOldIMPORTE_NETO_ULTIMA_COMPRAValue;
property OldIMPORTE_PORTE_ULTIMA_COMPRA : Currency read GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue;
property OldIMPORTE_UNIDAD_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue;
property OldIMPORTE_NETO_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue;
property OldIMPORTE_PORTE_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD_VENTA : Currency read GetOldIMPORTE_UNIDAD_VENTAValue;
property OldDESCUENTO_CLIENTE_VENTA : Float read GetOldDESCUENTO_CLIENTE_VENTAValue;
property OldIMPORTE_NETO_VENTA : Currency read GetOldIMPORTE_NETO_VENTAValue;
property OldIMPORTE_PORTE_VENTA : Float read GetOldIMPORTE_PORTE_VENTAValue;
property OldIMPORTE_TOTAL_VENTA : Currency read GetOldIMPORTE_TOTAL_VENTAValue;
property OldIMPORTE_MARGEN_COSTE : Currency read GetOldIMPORTE_MARGEN_COSTEValue;
property OldPORCENTAJE_MARGEN_COSTE : Float read GetOldPORCENTAJE_MARGEN_COSTEValue;
property OldIMPORTE_MARGEN_ULT_COMPRA : Currency read GetOldIMPORTE_MARGEN_ULT_COMPRAValue;
property OldPORCENTAJE_MARGEN_ULT_COMPRA : Float read GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue;
property OldIMPORTE_MARGEN_PROM_COMPRA : Currency read GetOldIMPORTE_MARGEN_PROM_COMPRAValue;
property OldPORCENTAJE_MARGEN_PROM_COMPRA : Float read GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue;
property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue;
property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue;
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 OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_CLIENTEValue;
property OldNIF_CIF_AGENTE : String read GetOldNIF_CIF_AGENTEValue;
property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
property OldCALLE_AGENTE : String read GetOldCALLE_AGENTEValue;
property OldPOBLACION_AGENTE : String read GetOldPOBLACION_AGENTEValue;
property OldPROVINCIA_AGENTE : String read GetOldPROVINCIA_AGENTEValue;
property OldCOMISION_AGENTE : Float read GetOldCOMISION_AGENTEValue;
property OldIMPORTE_COMISION_AGENTE : Currency read GetOldIMPORTE_COMISION_AGENTEValue;
end;
{ TInfMargenArticuloBusinessProcessorRules }
TInfMargenArticuloBusinessProcessorRules = class(TDABusinessProcessorRules, IInfMargenArticulo, IInfMargenArticuloDelta)
private
protected
{ Property getters and setters }
function GetID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIA_FACTURAValue: String; virtual;
function GetOldREFERENCIA_FACTURAValue: String; virtual;
procedure SetREFERENCIA_FACTURAValue(const aValue: String); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
function GetOldFECHA_FACTURAValue: DateTime; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetIMPORTE_TOTAL_FACTURAValue: Currency; virtual;
function GetOldIMPORTE_TOTAL_FACTURAValue: Currency; virtual;
procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency); virtual;
function GetID_COMISION_FACTURAValue: Integer; virtual;
function GetOldID_COMISION_FACTURAValue: Integer; virtual;
procedure SetID_COMISION_FACTURAValue(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 GetIMPORTE_UNIDAD_COSTEValue: Currency; virtual;
function GetOldIMPORTE_UNIDAD_COSTEValue: Currency; virtual;
procedure SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency); virtual;
function GetDESCUENTO_PROVEEDOR_COSTEValue: Float; virtual;
function GetOldDESCUENTO_PROVEEDOR_COSTEValue: Float; virtual;
procedure SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float); virtual;
function GetIMPORTE_NETO_COSTEValue: Currency; virtual;
function GetOldIMPORTE_NETO_COSTEValue: Currency; virtual;
procedure SetIMPORTE_NETO_COSTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTE_COSTEValue: Currency; virtual;
function GetOldIMPORTE_PORTE_COSTEValue: Currency; virtual;
procedure SetIMPORTE_PORTE_COSTEValue(const aValue: Currency); virtual;
function GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; virtual;
function GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency; virtual;
procedure SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency); virtual;
function GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; virtual;
function GetOldIMPORTE_NETO_ULTIMA_COMPRAValue: Currency; virtual;
procedure SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; virtual;
function GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency; virtual;
procedure SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency); virtual;
function GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; virtual;
function GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency; virtual;
procedure SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency); virtual;
function GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; virtual;
function GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency; virtual;
procedure SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; virtual;
function GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency; virtual;
procedure SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency); virtual;
function GetCANTIDADValue: Integer; virtual;
function GetOldCANTIDADValue: Integer; virtual;
procedure SetCANTIDADValue(const aValue: Integer); virtual;
function GetIMPORTE_UNIDAD_VENTAValue: Currency; virtual;
function GetOldIMPORTE_UNIDAD_VENTAValue: Currency; virtual;
procedure SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency); virtual;
function GetDESCUENTO_CLIENTE_VENTAValue: Float; virtual;
function GetOldDESCUENTO_CLIENTE_VENTAValue: Float; virtual;
procedure SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float); virtual;
function GetIMPORTE_NETO_VENTAValue: Currency; virtual;
function GetOldIMPORTE_NETO_VENTAValue: Currency; virtual;
procedure SetIMPORTE_NETO_VENTAValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTE_VENTAValue: Float; virtual;
function GetOldIMPORTE_PORTE_VENTAValue: Float; virtual;
procedure SetIMPORTE_PORTE_VENTAValue(const aValue: Float); virtual;
function GetIMPORTE_TOTAL_VENTAValue: Currency; virtual;
function GetOldIMPORTE_TOTAL_VENTAValue: Currency; virtual;
procedure SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency); virtual;
function GetIMPORTE_MARGEN_COSTEValue: Currency; virtual;
function GetOldIMPORTE_MARGEN_COSTEValue: Currency; virtual;
procedure SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency); virtual;
function GetPORCENTAJE_MARGEN_COSTEValue: Float; virtual;
function GetOldPORCENTAJE_MARGEN_COSTEValue: Float; virtual;
procedure SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float); virtual;
function GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency; virtual;
function GetOldIMPORTE_MARGEN_ULT_COMPRAValue: Currency; virtual;
procedure SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency); virtual;
function GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; virtual;
function GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue: Float; virtual;
procedure SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float); virtual;
function GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency; virtual;
function GetOldIMPORTE_MARGEN_PROM_COMPRAValue: Currency; virtual;
procedure SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency); virtual;
function GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; virtual;
function GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue: Float; virtual;
procedure SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float); virtual;
function GetNIF_CIF_PROVEEDORValue: String; virtual;
function GetOldNIF_CIF_PROVEEDORValue: String; virtual;
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetCALLE_PROVEEDORValue: String; virtual;
function GetOldCALLE_PROVEEDORValue: String; virtual;
procedure SetCALLE_PROVEEDORValue(const aValue: String); virtual;
function GetPOBLACION_PROVEEDORValue: String; virtual;
function GetOldPOBLACION_PROVEEDORValue: String; virtual;
procedure SetPOBLACION_PROVEEDORValue(const aValue: String); virtual;
function GetPROVINCIA_PROVEEDORValue: String; virtual;
function GetOldPROVINCIA_PROVEEDORValue: String; virtual;
procedure SetPROVINCIA_PROVEEDORValue(const aValue: String); 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 GetCALLE_CLIENTEValue: String; virtual;
function GetOldCALLE_CLIENTEValue: String; virtual;
procedure SetCALLE_CLIENTEValue(const aValue: String); virtual;
function GetPOBLACION_CLIENTEValue: String; virtual;
function GetOldPOBLACION_CLIENTEValue: String; virtual;
procedure SetPOBLACION_CLIENTEValue(const aValue: String); virtual;
function GetPROVINCIA_CLIENTEValue: String; virtual;
function GetOldPROVINCIA_CLIENTEValue: String; virtual;
procedure SetPROVINCIA_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 GetCALLE_AGENTEValue: String; virtual;
function GetOldCALLE_AGENTEValue: String; virtual;
procedure SetCALLE_AGENTEValue(const aValue: String); virtual;
function GetPOBLACION_AGENTEValue: String; virtual;
function GetOldPOBLACION_AGENTEValue: String; virtual;
procedure SetPOBLACION_AGENTEValue(const aValue: String); virtual;
function GetPROVINCIA_AGENTEValue: String; virtual;
function GetOldPROVINCIA_AGENTEValue: String; virtual;
procedure SetPROVINCIA_AGENTEValue(const aValue: String); virtual;
function GetCOMISION_AGENTEValue: Float; virtual;
function GetOldCOMISION_AGENTEValue: Float; virtual;
procedure SetCOMISION_AGENTEValue(const aValue: Float); virtual;
function GetIMPORTE_COMISION_AGENTEValue: Currency; virtual;
function GetOldIMPORTE_COMISION_AGENTEValue: Currency; virtual;
procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency); virtual;
{ Properties }
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REFERENCIA_FACTURA : String read GetREFERENCIA_FACTURAValue write SetREFERENCIA_FACTURAValue;
property OldREFERENCIA_FACTURA : String read GetOldREFERENCIA_FACTURAValue;
property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue;
property IMPORTE_TOTAL_FACTURA : Currency read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue;
property OldIMPORTE_TOTAL_FACTURA : Currency read GetOldIMPORTE_TOTAL_FACTURAValue;
property ID_COMISION_FACTURA : Integer read GetID_COMISION_FACTURAValue write SetID_COMISION_FACTURAValue;
property OldID_COMISION_FACTURA : Integer read GetOldID_COMISION_FACTURAValue;
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 IMPORTE_UNIDAD_COSTE : Currency read GetIMPORTE_UNIDAD_COSTEValue write SetIMPORTE_UNIDAD_COSTEValue;
property OldIMPORTE_UNIDAD_COSTE : Currency read GetOldIMPORTE_UNIDAD_COSTEValue;
property DESCUENTO_PROVEEDOR_COSTE : Float read GetDESCUENTO_PROVEEDOR_COSTEValue write SetDESCUENTO_PROVEEDOR_COSTEValue;
property OldDESCUENTO_PROVEEDOR_COSTE : Float read GetOldDESCUENTO_PROVEEDOR_COSTEValue;
property IMPORTE_NETO_COSTE : Currency read GetIMPORTE_NETO_COSTEValue write SetIMPORTE_NETO_COSTEValue;
property OldIMPORTE_NETO_COSTE : Currency read GetOldIMPORTE_NETO_COSTEValue;
property IMPORTE_PORTE_COSTE : Currency read GetIMPORTE_PORTE_COSTEValue write SetIMPORTE_PORTE_COSTEValue;
property OldIMPORTE_PORTE_COSTE : Currency read GetOldIMPORTE_PORTE_COSTEValue;
property IMPORTE_UNIDAD_ULTIMA_COMPRA : Currency read GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue write SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue;
property OldIMPORTE_UNIDAD_ULTIMA_COMPRA : Currency read GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue;
property IMPORTE_NETO_ULTIMA_COMPRA : Currency read GetIMPORTE_NETO_ULTIMA_COMPRAValue write SetIMPORTE_NETO_ULTIMA_COMPRAValue;
property OldIMPORTE_NETO_ULTIMA_COMPRA : Currency read GetOldIMPORTE_NETO_ULTIMA_COMPRAValue;
property IMPORTE_PORTE_ULTIMA_COMPRA : Currency read GetIMPORTE_PORTE_ULTIMA_COMPRAValue write SetIMPORTE_PORTE_ULTIMA_COMPRAValue;
property OldIMPORTE_PORTE_ULTIMA_COMPRA : Currency read GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue;
property IMPORTE_UNIDAD_PROMEDIO_COMPRA : Currency read GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue write SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue;
property OldIMPORTE_UNIDAD_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue;
property IMPORTE_NETO_PROMEDIO_COMPRA : Currency read GetIMPORTE_NETO_PROMEDIO_COMPRAValue write SetIMPORTE_NETO_PROMEDIO_COMPRAValue;
property OldIMPORTE_NETO_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue;
property IMPORTE_PORTE_PROMEDIO_COMPRA : Currency read GetIMPORTE_PORTE_PROMEDIO_COMPRAValue write SetIMPORTE_PORTE_PROMEDIO_COMPRAValue;
property OldIMPORTE_PORTE_PROMEDIO_COMPRA : Currency read GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue;
property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property IMPORTE_UNIDAD_VENTA : Currency read GetIMPORTE_UNIDAD_VENTAValue write SetIMPORTE_UNIDAD_VENTAValue;
property OldIMPORTE_UNIDAD_VENTA : Currency read GetOldIMPORTE_UNIDAD_VENTAValue;
property DESCUENTO_CLIENTE_VENTA : Float read GetDESCUENTO_CLIENTE_VENTAValue write SetDESCUENTO_CLIENTE_VENTAValue;
property OldDESCUENTO_CLIENTE_VENTA : Float read GetOldDESCUENTO_CLIENTE_VENTAValue;
property IMPORTE_NETO_VENTA : Currency read GetIMPORTE_NETO_VENTAValue write SetIMPORTE_NETO_VENTAValue;
property OldIMPORTE_NETO_VENTA : Currency read GetOldIMPORTE_NETO_VENTAValue;
property IMPORTE_PORTE_VENTA : Float read GetIMPORTE_PORTE_VENTAValue write SetIMPORTE_PORTE_VENTAValue;
property OldIMPORTE_PORTE_VENTA : Float read GetOldIMPORTE_PORTE_VENTAValue;
property IMPORTE_TOTAL_VENTA : Currency read GetIMPORTE_TOTAL_VENTAValue write SetIMPORTE_TOTAL_VENTAValue;
property OldIMPORTE_TOTAL_VENTA : Currency read GetOldIMPORTE_TOTAL_VENTAValue;
property IMPORTE_MARGEN_COSTE : Currency read GetIMPORTE_MARGEN_COSTEValue write SetIMPORTE_MARGEN_COSTEValue;
property OldIMPORTE_MARGEN_COSTE : Currency read GetOldIMPORTE_MARGEN_COSTEValue;
property PORCENTAJE_MARGEN_COSTE : Float read GetPORCENTAJE_MARGEN_COSTEValue write SetPORCENTAJE_MARGEN_COSTEValue;
property OldPORCENTAJE_MARGEN_COSTE : Float read GetOldPORCENTAJE_MARGEN_COSTEValue;
property IMPORTE_MARGEN_ULT_COMPRA : Currency read GetIMPORTE_MARGEN_ULT_COMPRAValue write SetIMPORTE_MARGEN_ULT_COMPRAValue;
property OldIMPORTE_MARGEN_ULT_COMPRA : Currency read GetOldIMPORTE_MARGEN_ULT_COMPRAValue;
property PORCENTAJE_MARGEN_ULT_COMPRA : Float read GetPORCENTAJE_MARGEN_ULT_COMPRAValue write SetPORCENTAJE_MARGEN_ULT_COMPRAValue;
property OldPORCENTAJE_MARGEN_ULT_COMPRA : Float read GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue;
property IMPORTE_MARGEN_PROM_COMPRA : Currency read GetIMPORTE_MARGEN_PROM_COMPRAValue write SetIMPORTE_MARGEN_PROM_COMPRAValue;
property OldIMPORTE_MARGEN_PROM_COMPRA : Currency read GetOldIMPORTE_MARGEN_PROM_COMPRAValue;
property PORCENTAJE_MARGEN_PROM_COMPRA : Float read GetPORCENTAJE_MARGEN_PROM_COMPRAValue write SetPORCENTAJE_MARGEN_PROM_COMPRAValue;
property OldPORCENTAJE_MARGEN_PROM_COMPRA : Float read GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue;
property NIF_CIF_PROVEEDOR : String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property CALLE_PROVEEDOR : String read GetCALLE_PROVEEDORValue write SetCALLE_PROVEEDORValue;
property OldCALLE_PROVEEDOR : String read GetOldCALLE_PROVEEDORValue;
property POBLACION_PROVEEDOR : String read GetPOBLACION_PROVEEDORValue write SetPOBLACION_PROVEEDORValue;
property OldPOBLACION_PROVEEDOR : String read GetOldPOBLACION_PROVEEDORValue;
property PROVINCIA_PROVEEDOR : String read GetPROVINCIA_PROVEEDORValue write SetPROVINCIA_PROVEEDORValue;
property OldPROVINCIA_PROVEEDOR : String read GetOldPROVINCIA_PROVEEDORValue;
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 CALLE_CLIENTE : String read GetCALLE_CLIENTEValue write SetCALLE_CLIENTEValue;
property OldCALLE_CLIENTE : String read GetOldCALLE_CLIENTEValue;
property POBLACION_CLIENTE : String read GetPOBLACION_CLIENTEValue write SetPOBLACION_CLIENTEValue;
property OldPOBLACION_CLIENTE : String read GetOldPOBLACION_CLIENTEValue;
property PROVINCIA_CLIENTE : String read GetPROVINCIA_CLIENTEValue write SetPROVINCIA_CLIENTEValue;
property OldPROVINCIA_CLIENTE : String read GetOldPROVINCIA_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 CALLE_AGENTE : String read GetCALLE_AGENTEValue write SetCALLE_AGENTEValue;
property OldCALLE_AGENTE : String read GetOldCALLE_AGENTEValue;
property POBLACION_AGENTE : String read GetPOBLACION_AGENTEValue write SetPOBLACION_AGENTEValue;
property OldPOBLACION_AGENTE : String read GetOldPOBLACION_AGENTEValue;
property PROVINCIA_AGENTE : String read GetPROVINCIA_AGENTEValue write SetPROVINCIA_AGENTEValue;
property OldPROVINCIA_AGENTE : String read GetOldPROVINCIA_AGENTEValue;
property COMISION_AGENTE : Float read GetCOMISION_AGENTEValue write SetCOMISION_AGENTEValue;
property OldCOMISION_AGENTE : Float read GetOldCOMISION_AGENTEValue;
property IMPORTE_COMISION_AGENTE : Currency read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue;
property OldIMPORTE_COMISION_AGENTE : Currency read GetOldIMPORTE_COMISION_AGENTEValue;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
Variants, uROBinaryHelpers;
{ TInfMargenArticuloBusinessProcessorRules }
constructor TInfMargenArticuloBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TInfMargenArticuloBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TInfMargenArticuloBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_FACTURA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloID_FACTURA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_FACTURA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_EMPRESA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloID_EMPRESA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_EMPRESA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetREFERENCIA_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA_FACTURA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldREFERENCIA_FACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloREFERENCIA_FACTURA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetREFERENCIA_FACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA_FACTURA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloFECHA_FACTURA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloFECHA_FACTURA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloFECHA_FACTURA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_TOTAL_FACTURAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_FACTURA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_TOTAL_FACTURAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_FACTURA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_TOTAL_FACTURAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_FACTURA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetID_COMISION_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_COMISION_FACTURA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldID_COMISION_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloID_COMISION_FACTURA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetID_COMISION_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_COMISION_FACTURA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_ARTICULO];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloID_ARTICULO];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloID_ARTICULO] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloFAMILIA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloFAMILIA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloFAMILIA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloREFERENCIA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA_PROV];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloREFERENCIA_PROV];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloREFERENCIA_PROV] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCRIPCION];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloDESCRIPCION];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCRIPCION] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCOMISIONABLE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCOMISIONABLE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCOMISIONABLE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetINVENTARIABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloINVENTARIABLE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloINVENTARIABLE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloINVENTARIABLE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_UNIDAD_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_COSTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDAD_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_COSTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_UNIDAD_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_COSTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetDESCUENTO_PROVEEDOR_COSTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldDESCUENTO_PROVEEDOR_COSTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetDESCUENTO_PROVEEDOR_COSTEValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCUENTO_PROVEEDOR_COSTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_NETO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_COSTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_NETO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_NETO_COSTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_NETO_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_COSTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_PORTE_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_COSTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_PORTE_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_PORTE_COSTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_PORTE_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_COSTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDAD_ULTIMA_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_UNIDAD_ULTIMA_COMPRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_ULTIMA_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_NETO_ULTIMA_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_NETO_ULTIMA_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_NETO_ULTIMA_COMPRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_ULTIMA_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_PORTE_ULTIMA_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_PORTE_ULTIMA_COMPRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_ULTIMA_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDAD_PROMEDIO_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_UNIDAD_PROMEDIO_COMPRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_PROMEDIO_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_NETO_PROMEDIO_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_NETO_PROMEDIO_COMPRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_PROMEDIO_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_PORTE_PROMEDIO_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_PORTE_PROMEDIO_COMPRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_PROMEDIO_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCANTIDAD];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldCANTIDADValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCANTIDAD];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCANTIDAD] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_UNIDAD_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_VENTA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDAD_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_VENTA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_UNIDAD_VENTAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_UNIDAD_VENTA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetDESCUENTO_CLIENTE_VENTAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCUENTO_CLIENTE_VENTA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldDESCUENTO_CLIENTE_VENTAValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloDESCUENTO_CLIENTE_VENTA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetDESCUENTO_CLIENTE_VENTAValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloDESCUENTO_CLIENTE_VENTA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_NETO_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_VENTA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_NETO_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_NETO_VENTA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_NETO_VENTAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_NETO_VENTA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_PORTE_VENTAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_VENTA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_PORTE_VENTAValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_PORTE_VENTA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_PORTE_VENTAValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_PORTE_VENTA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_TOTAL_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_VENTA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_TOTAL_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_VENTA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_TOTAL_VENTAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_TOTAL_VENTA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_MARGEN_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_COSTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_MARGEN_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_COSTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_MARGEN_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_COSTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetPORCENTAJE_MARGEN_COSTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_COSTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldPORCENTAJE_MARGEN_COSTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_COSTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetPORCENTAJE_MARGEN_COSTEValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_COSTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_MARGEN_ULT_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_MARGEN_ULT_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_MARGEN_ULT_COMPRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_ULT_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetPORCENTAJE_MARGEN_ULT_COMPRAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldPORCENTAJE_MARGEN_ULT_COMPRAValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetPORCENTAJE_MARGEN_ULT_COMPRAValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_ULT_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_MARGEN_PROM_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_MARGEN_PROM_COMPRAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_MARGEN_PROM_COMPRAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_MARGEN_PROM_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetPORCENTAJE_MARGEN_PROM_COMPRAValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldPORCENTAJE_MARGEN_PROM_COMPRAValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetPORCENTAJE_MARGEN_PROM_COMPRAValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPORCENTAJE_MARGEN_PROM_COMPRA] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_PROVEEDOR];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNIF_CIF_PROVEEDOR];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_PROVEEDOR] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_PROVEEDOR];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNOMBRE_PROVEEDOR];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_PROVEEDOR] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetCALLE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_PROVEEDOR];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldCALLE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCALLE_PROVEEDOR];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetCALLE_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_PROVEEDOR] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetPOBLACION_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_PROVEEDOR];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldPOBLACION_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPOBLACION_PROVEEDOR];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetPOBLACION_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_PROVEEDOR] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetPROVINCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_PROVEEDOR];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldPROVINCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPROVINCIA_PROVEEDOR];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetPROVINCIA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_PROVEEDOR] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_CLIENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNIF_CIF_CLIENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_CLIENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_CLIENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNOMBRE_CLIENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_CLIENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_COMERCIAL_CLIENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetCALLE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_CLIENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCALLE_CLIENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_CLIENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_CLIENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPOBLACION_CLIENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_CLIENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_CLIENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPROVINCIA_CLIENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_CLIENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetNIF_CIF_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_AGENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldNIF_CIF_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNIF_CIF_AGENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetNIF_CIF_AGENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNIF_CIF_AGENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_AGENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloNOMBRE_AGENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloNOMBRE_AGENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetCALLE_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_AGENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldCALLE_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCALLE_AGENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetCALLE_AGENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCALLE_AGENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetPOBLACION_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_AGENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldPOBLACION_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPOBLACION_AGENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetPOBLACION_AGENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPOBLACION_AGENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetPROVINCIA_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_AGENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldPROVINCIA_AGENTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloPROVINCIA_AGENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetPROVINCIA_AGENTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloPROVINCIA_AGENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetCOMISION_AGENTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCOMISION_AGENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldCOMISION_AGENTEValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloCOMISION_AGENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetCOMISION_AGENTEValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloCOMISION_AGENTE] := aValue;
end;
function TInfMargenArticuloBusinessProcessorRules.GetIMPORTE_COMISION_AGENTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_COMISION_AGENTE];
end;
function TInfMargenArticuloBusinessProcessorRules.GetOldIMPORTE_COMISION_AGENTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfMargenArticuloIMPORTE_COMISION_AGENTE];
end;
procedure TInfMargenArticuloBusinessProcessorRules.SetIMPORTE_COMISION_AGENTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_InfMargenArticuloIMPORTE_COMISION_AGENTE] := aValue;
end;
initialization
RegisterBusinessProcessorRules(RID_InfMargenArticuloDelta, TInfMargenArticuloBusinessProcessorRules);
end.
Reference in New Issue View Git Blame Copy Permalink