unit schInfVentasArticuloServer_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schInfVentasArticuloClient_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_InfVentasArticuloDelta = '{41CF36F8-6F1E-47E5-A111-BE05FD77D941}'; type { IInfVentasArticuloDelta } IInfVentasArticuloDelta = interface(IInfVentasArticulo) ['{41CF36F8-6F1E-47E5-A111-BE05FD77D941}'] { Property getters and setters } function GetOldID_FACTURAValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldID_REFERENCIA_FACTURAValue : String; function GetOldFECHA_FACTURAValue : DateTime; function GetOldIMPORTE_TOTAL_FACTURAValue : Float; 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 GetOldPRECIO_COSTEValue : Float; function GetOldDESCUENTO_PROVEEDORValue : Float; function GetOldPRECIO_NETOValue : Float; function GetOldPRECIO_PORTEValue : Float; function GetOldCANTIDADValue : Integer; function GetOldIMPORTE_UNIDADValue : Float; function GetOldDESCUENTO_CLIENTEValue : Float; function GetOldIMPORTE_PORTEValue : Float; function GetOldIMPORTE_TOTALValue : 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 : Float; { Properties } property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_REFERENCIA_FACTURA : String read GetOldID_REFERENCIA_FACTURAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldIMPORTE_TOTAL_FACTURA : Float 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 OldPRECIO_COSTE : Float read GetOldPRECIO_COSTEValue; property OldDESCUENTO_PROVEEDOR : Float read GetOldDESCUENTO_PROVEEDORValue; property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue; property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldIMPORTE_UNIDAD : Float read GetOldIMPORTE_UNIDADValue; property OldDESCUENTO_CLIENTE : Float read GetOldDESCUENTO_CLIENTEValue; property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue; property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; 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 : Float read GetOldIMPORTE_COMISION_AGENTEValue; end; { TInfVentasArticuloBusinessProcessorRules } TInfVentasArticuloBusinessProcessorRules = class(TDABusinessProcessorRules, IInfVentasArticulo, IInfVentasArticuloDelta) 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 GetID_REFERENCIA_FACTURAValue: String; virtual; function GetOldID_REFERENCIA_FACTURAValue: String; virtual; procedure SetID_REFERENCIA_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: Float; virtual; function GetOldIMPORTE_TOTAL_FACTURAValue: Float; virtual; procedure SetIMPORTE_TOTAL_FACTURAValue(const aValue: Float); 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 GetPRECIO_COSTEValue: Float; virtual; function GetOldPRECIO_COSTEValue: Float; virtual; procedure SetPRECIO_COSTEValue(const aValue: Float); virtual; function GetDESCUENTO_PROVEEDORValue: Float; virtual; function GetOldDESCUENTO_PROVEEDORValue: Float; virtual; procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float); virtual; function GetPRECIO_NETOValue: Float; virtual; function GetOldPRECIO_NETOValue: Float; virtual; procedure SetPRECIO_NETOValue(const aValue: Float); virtual; function GetPRECIO_PORTEValue: Float; virtual; function GetOldPRECIO_PORTEValue: Float; virtual; procedure SetPRECIO_PORTEValue(const aValue: Float); virtual; function GetCANTIDADValue: Integer; virtual; function GetOldCANTIDADValue: Integer; virtual; procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetIMPORTE_UNIDADValue: Float; virtual; function GetOldIMPORTE_UNIDADValue: Float; virtual; procedure SetIMPORTE_UNIDADValue(const aValue: Float); virtual; function GetDESCUENTO_CLIENTEValue: Float; virtual; function GetOldDESCUENTO_CLIENTEValue: Float; virtual; procedure SetDESCUENTO_CLIENTEValue(const aValue: Float); virtual; function GetIMPORTE_PORTEValue: Float; virtual; function GetOldIMPORTE_PORTEValue: Float; virtual; procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual; function GetIMPORTE_TOTALValue: Float; virtual; function GetOldIMPORTE_TOTALValue: Float; virtual; procedure SetIMPORTE_TOTALValue(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: Float; virtual; function GetOldIMPORTE_COMISION_AGENTEValue: Float; virtual; procedure SetIMPORTE_COMISION_AGENTEValue(const aValue: Float); 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 ID_REFERENCIA_FACTURA : String read GetID_REFERENCIA_FACTURAValue write SetID_REFERENCIA_FACTURAValue; property OldID_REFERENCIA_FACTURA : String read GetOldID_REFERENCIA_FACTURAValue; property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property IMPORTE_TOTAL_FACTURA : Float read GetIMPORTE_TOTAL_FACTURAValue write SetIMPORTE_TOTAL_FACTURAValue; property OldIMPORTE_TOTAL_FACTURA : Float 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 PRECIO_COSTE : Float read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property OldPRECIO_COSTE : Float read GetOldPRECIO_COSTEValue; property DESCUENTO_PROVEEDOR : Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue; property OldDESCUENTO_PROVEEDOR : Float read GetOldDESCUENTO_PROVEEDORValue; property PRECIO_NETO : Float read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property OldPRECIO_NETO : Float read GetOldPRECIO_NETOValue; property PRECIO_PORTE : Float read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property OldPRECIO_PORTE : Float read GetOldPRECIO_PORTEValue; property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; property OldCANTIDAD : Integer read GetOldCANTIDADValue; property IMPORTE_UNIDAD : Float read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue; property OldIMPORTE_UNIDAD : Float read GetOldIMPORTE_UNIDADValue; property DESCUENTO_CLIENTE : Float read GetDESCUENTO_CLIENTEValue write SetDESCUENTO_CLIENTEValue; property OldDESCUENTO_CLIENTE : Float read GetOldDESCUENTO_CLIENTEValue; property IMPORTE_PORTE : Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue; property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; 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 : Float read GetIMPORTE_COMISION_AGENTEValue write SetIMPORTE_COMISION_AGENTEValue; property OldIMPORTE_COMISION_AGENTE : Float read GetOldIMPORTE_COMISION_AGENTEValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers; { TInfVentasArticuloBusinessProcessorRules } constructor TInfVentasArticuloBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TInfVentasArticuloBusinessProcessorRules.Destroy; begin inherited; end; function TInfVentasArticuloBusinessProcessorRules.GetID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_FACTURA]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldID_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_FACTURA]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_FACTURA] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_EMPRESA]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_EMPRESA]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_EMPRESA] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetID_REFERENCIA_FACTURAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_REFERENCIA_FACTURA]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldID_REFERENCIA_FACTURAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_REFERENCIA_FACTURA]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetID_REFERENCIA_FACTURAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_REFERENCIA_FACTURA] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloFECHA_FACTURA]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloFECHA_FACTURA]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloFECHA_FACTURA] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_TOTAL_FACTURAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_TOTAL_FACTURA]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_TOTAL_FACTURAValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_TOTAL_FACTURA]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_TOTAL_FACTURAValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_TOTAL_FACTURA] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetID_COMISION_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_COMISION_FACTURA]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldID_COMISION_FACTURAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_COMISION_FACTURA]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetID_COMISION_FACTURAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_COMISION_FACTURA] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_ARTICULO]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloID_ARTICULO]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloID_ARTICULO] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloFAMILIA]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloFAMILIA]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetFAMILIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloFAMILIA] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloREFERENCIA]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloREFERENCIA]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloREFERENCIA] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloREFERENCIA_PROV]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloREFERENCIA_PROV]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloREFERENCIA_PROV] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCRIPCION]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloDESCRIPCION]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCRIPCION] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetCOMISIONABLEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCOMISIONABLE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCOMISIONABLE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCOMISIONABLE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetINVENTARIABLEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloINVENTARIABLE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldINVENTARIABLEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloINVENTARIABLE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloINVENTARIABLE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetPRECIO_COSTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_COSTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldPRECIO_COSTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPRECIO_COSTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_COSTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetDESCUENTO_PROVEEDORValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCUENTO_PROVEEDOR]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldDESCUENTO_PROVEEDORValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloDESCUENTO_PROVEEDOR]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetDESCUENTO_PROVEEDORValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCUENTO_PROVEEDOR] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetPRECIO_NETOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_NETO]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldPRECIO_NETOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPRECIO_NETO]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_NETO] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetPRECIO_PORTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_PORTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldPRECIO_PORTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPRECIO_PORTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPRECIO_PORTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCANTIDAD]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCANTIDAD]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCANTIDAD] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_UNIDADValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_UNIDAD]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_UNIDAD]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_UNIDAD] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetDESCUENTO_CLIENTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCUENTO_CLIENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldDESCUENTO_CLIENTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloDESCUENTO_CLIENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetDESCUENTO_CLIENTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloDESCUENTO_CLIENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_PORTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_PORTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_PORTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_PORTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_TOTALValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_TOTAL]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_TOTAL]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_TOTAL] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetNIF_CIF_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_PROVEEDOR]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldNIF_CIF_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNIF_CIF_PROVEEDOR]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetNIF_CIF_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_PROVEEDOR] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_PROVEEDOR]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNOMBRE_PROVEEDOR]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_PROVEEDOR] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetCALLE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_PROVEEDOR]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldCALLE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCALLE_PROVEEDOR]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetCALLE_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_PROVEEDOR] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetPOBLACION_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_PROVEEDOR]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldPOBLACION_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPOBLACION_PROVEEDOR]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetPOBLACION_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_PROVEEDOR] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetPROVINCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_PROVEEDOR]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldPROVINCIA_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPROVINCIA_PROVEEDOR]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetPROVINCIA_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_PROVEEDOR] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetNIF_CIF_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_CLIENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldNIF_CIF_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNIF_CIF_CLIENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetNIF_CIF_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_CLIENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_CLIENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNOMBRE_CLIENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_CLIENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_COMERCIAL_CLIENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetCALLE_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_CLIENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldCALLE_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCALLE_CLIENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetCALLE_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_CLIENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetPOBLACION_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_CLIENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldPOBLACION_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPOBLACION_CLIENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetPOBLACION_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_CLIENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetPROVINCIA_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_CLIENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldPROVINCIA_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPROVINCIA_CLIENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetPROVINCIA_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_CLIENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetNIF_CIF_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_AGENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldNIF_CIF_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNIF_CIF_AGENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetNIF_CIF_AGENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNIF_CIF_AGENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetNOMBRE_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_AGENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloNOMBRE_AGENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloNOMBRE_AGENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetCALLE_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_AGENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldCALLE_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCALLE_AGENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetCALLE_AGENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCALLE_AGENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetPOBLACION_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_AGENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldPOBLACION_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPOBLACION_AGENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetPOBLACION_AGENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPOBLACION_AGENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetPROVINCIA_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_AGENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldPROVINCIA_AGENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloPROVINCIA_AGENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetPROVINCIA_AGENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloPROVINCIA_AGENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetCOMISION_AGENTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCOMISION_AGENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldCOMISION_AGENTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloCOMISION_AGENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetCOMISION_AGENTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloCOMISION_AGENTE] := aValue; end; function TInfVentasArticuloBusinessProcessorRules.GetIMPORTE_COMISION_AGENTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_COMISION_AGENTE]; end; function TInfVentasArticuloBusinessProcessorRules.GetOldIMPORTE_COMISION_AGENTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InfVentasArticuloIMPORTE_COMISION_AGENTE]; end; procedure TInfVentasArticuloBusinessProcessorRules.SetIMPORTE_COMISION_AGENTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InfVentasArticuloIMPORTE_COMISION_AGENTE] := aValue; end; initialization RegisterBusinessProcessorRules(RID_InfVentasArticuloDelta, TInfVentasArticuloBusinessProcessorRules); end.