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.