unit schArticulosServer_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schArticulosClient_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_Articulos_IdiomasDelta = '{7CB5DF0C-6B8B-472D-91B9-1DFAFAA444BC}'; RID_Articulos_ProveedoresDelta = '{3B765545-3173-4A91-AED1-D4BE4EA77F07}'; RID_ListaTarifasArticulosDelta = '{D4D2B11E-DBEB-42C0-AAC9-F8DCB7912B06}'; RID_ArticulosDelta = '{53E922E9-569C-4E1A-8F52-108951B98B23}'; RID_ArticulosParaCompraDelta = '{744D9334-387A-45D9-B0E9-57EE29A1DFEE}'; RID_ArticulosParaClienteDelta = '{4DCF2C9B-AA19-4862-A839-CAA2D86DE701}'; type { IArticulos_IdiomasDelta } IArticulos_IdiomasDelta = interface(IArticulos_Idiomas) ['{7CB5DF0C-6B8B-472D-91B9-1DFAFAA444BC}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ARTICULOValue : Integer; function GetOldID_IDIOMAValue : Integer; function GetOldDESCRIPCIONValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_IDIOMA : Integer read GetOldID_IDIOMAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; end; { TArticulos_IdiomasBusinessProcessorRules } TArticulos_IdiomasBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulos_Idiomas, IArticulos_IdiomasDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOIsNull: Boolean; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; function GetID_IDIOMAValue: Integer; virtual; function GetID_IDIOMAIsNull: Boolean; virtual; function GetOldID_IDIOMAValue: Integer; virtual; function GetOldID_IDIOMAIsNull: Boolean; virtual; procedure SetID_IDIOMAValue(const aValue: Integer); virtual; procedure SetID_IDIOMAIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; property ID_IDIOMA : Integer read GetID_IDIOMAValue write SetID_IDIOMAValue; property ID_IDIOMAIsNull : Boolean read GetID_IDIOMAIsNull write SetID_IDIOMAIsNull; property OldID_IDIOMA : Integer read GetOldID_IDIOMAValue; property OldID_IDIOMAIsNull : Boolean read GetOldID_IDIOMAIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IArticulos_ProveedoresDelta } IArticulos_ProveedoresDelta = interface(IArticulos_Proveedores) ['{3B765545-3173-4A91-AED1-D4BE4EA77F07}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_ARTICULOValue : Integer; function GetOldID_PROVEEDORValue : Integer; function GetOldREFERENCIA_PROVValue : String; function GetOldPRECIO_COSTEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldPRECIO_NETOValue : Currency; function GetOldPRECIO_PORTEValue : Currency; function GetOldPRECIO_PVP_VENTAValue : Currency; function GetOldPRECIO_PVP_TOTALValue : Currency; function GetOldFECHA_ACTUALIZACIONValue : DateTime; { Properties } property OldID : Integer read GetOldIDValue; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue; property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue; property OldFECHA_ACTUALIZACION : DateTime read GetOldFECHA_ACTUALIZACIONValue; end; { TArticulos_ProveedoresBusinessProcessorRules } TArticulos_ProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulos_Proveedores, IArticulos_ProveedoresDelta) private protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_ARTICULOValue: Integer; virtual; function GetID_ARTICULOIsNull: Boolean; virtual; function GetOldID_ARTICULOValue: Integer; virtual; function GetOldID_ARTICULOIsNull: Boolean; virtual; procedure SetID_ARTICULOValue(const aValue: Integer); virtual; procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORIsNull: Boolean; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_PROVValue: String; virtual; function GetREFERENCIA_PROVIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVValue: String; virtual; function GetOldREFERENCIA_PROVIsNull: Boolean; virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; function GetPRECIO_COSTEValue: Currency; virtual; function GetPRECIO_COSTEIsNull: Boolean; virtual; function GetOldPRECIO_COSTEValue: Currency; virtual; function GetOldPRECIO_COSTEIsNull: Boolean; virtual; procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOValue: Float; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetPRECIO_NETOValue: Currency; virtual; function GetPRECIO_NETOIsNull: Boolean; virtual; function GetOldPRECIO_NETOValue: Currency; virtual; function GetOldPRECIO_NETOIsNull: Boolean; virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; function GetPRECIO_PORTEValue: Currency; virtual; function GetPRECIO_PORTEIsNull: Boolean; virtual; function GetOldPRECIO_PORTEValue: Currency; virtual; function GetOldPRECIO_PORTEIsNull: Boolean; virtual; procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual; procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; function GetPRECIO_PVP_VENTAValue: Currency; virtual; function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual; function GetOldPRECIO_PVP_VENTAValue: Currency; virtual; function GetOldPRECIO_PVP_VENTAIsNull: Boolean; virtual; procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual; procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual; function GetPRECIO_PVP_TOTALValue: Currency; virtual; function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual; function GetOldPRECIO_PVP_TOTALValue: Currency; virtual; function GetOldPRECIO_PVP_TOTALIsNull: Boolean; virtual; procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual; procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual; function GetFECHA_ACTUALIZACIONValue: DateTime; virtual; function GetFECHA_ACTUALIZACIONIsNull: Boolean; virtual; function GetOldFECHA_ACTUALIZACIONValue: DateTime; virtual; function GetOldFECHA_ACTUALIZACIONIsNull: Boolean; virtual; procedure SetFECHA_ACTUALIZACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue; property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull; property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue; property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull; property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull; property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull; property PRECIO_PVP_VENTA : Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue; property PRECIO_PVP_VENTAIsNull : Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull; property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue; property OldPRECIO_PVP_VENTAIsNull : Boolean read GetOldPRECIO_PVP_VENTAIsNull; property PRECIO_PVP_TOTAL : Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue; property PRECIO_PVP_TOTALIsNull : Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull; property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue; property OldPRECIO_PVP_TOTALIsNull : Boolean read GetOldPRECIO_PVP_TOTALIsNull; property FECHA_ACTUALIZACION : DateTime read GetFECHA_ACTUALIZACIONValue write SetFECHA_ACTUALIZACIONValue; property FECHA_ACTUALIZACIONIsNull : Boolean read GetFECHA_ACTUALIZACIONIsNull write SetFECHA_ACTUALIZACIONIsNull; property OldFECHA_ACTUALIZACION : DateTime read GetOldFECHA_ACTUALIZACIONValue; property OldFECHA_ACTUALIZACIONIsNull : Boolean read GetOldFECHA_ACTUALIZACIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IListaTarifasArticulosDelta } IListaTarifasArticulosDelta = interface(IListaTarifasArticulos) ['{D4D2B11E-DBEB-42C0-AAC9-F8DCB7912B06}'] { Property getters and setters } function GetOldTARIFAValue : String; { Properties } property OldTARIFA : String read GetOldTARIFAValue; end; { TListaTarifasArticulosBusinessProcessorRules } TListaTarifasArticulosBusinessProcessorRules = class(TDABusinessProcessorRules, IListaTarifasArticulos, IListaTarifasArticulosDelta) private protected { Property getters and setters } function GetTARIFAValue: String; virtual; function GetTARIFAIsNull: Boolean; virtual; function GetOldTARIFAValue: String; virtual; function GetOldTARIFAIsNull: Boolean; virtual; procedure SetTARIFAValue(const aValue: String); virtual; procedure SetTARIFAIsNull(const aValue: Boolean); virtual; { Properties } property TARIFA : String read GetTARIFAValue write SetTARIFAValue; property TARIFAIsNull : Boolean read GetTARIFAIsNull write SetTARIFAIsNull; property OldTARIFA : String read GetOldTARIFAValue; property OldTARIFAIsNull : Boolean read GetOldTARIFAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IArticulosDelta } IArticulosDelta = interface(IArticulos) ['{53E922E9-569C-4E1A-8F52-108951B98B23}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldDESCRIPCIONValue : String; function GetOldFAMILIAValue : String; function GetOldIMAGENValue : IROStream; function GetOldCOMISIONABLEValue : Integer; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldREFERENCIA_PROVValue : String; function GetOldPRECIO_COSTEValue : Currency; function GetOldPRECIO_PORTEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldPRECIO_NETOValue : Currency; function GetOldPRECIO_PVPValue : Currency; function GetOldINVENTARIABLEValue : SmallInt; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBRE_PROVEEDORValue : String; function GetOldELIMINADOValue : SmallInt; function GetOldTARIFAValue : String; function GetOldFABRICANTEValue : String; function GetOldREFERENCIA_FABValue : String; function GetOldSTOCK_MINValue : Integer; function GetOldUNIDAD_MEDIDAValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue; property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldTARIFA : String read GetOldTARIFAValue; property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldREFERENCIA_FAB : String read GetOldREFERENCIA_FABValue; property OldSTOCK_MIN : Integer read GetOldSTOCK_MINValue; property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; end; { TArticulosBusinessProcessorRules } TArticulosBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulos, IArticulosDelta) private f_IMAGEN: IROStream; procedure IMAGEN_OnChange(Sender: Tobject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetFAMILIAValue: String; virtual; function GetFAMILIAIsNull: Boolean; virtual; function GetOldFAMILIAValue: String; virtual; function GetOldFAMILIAIsNull: Boolean; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; procedure SetFAMILIAIsNull(const aValue: Boolean); virtual; function GetIMAGENValue: IROStream; virtual; function GetIMAGENIsNull: Boolean; virtual; function GetOldIMAGENValue: IROStream; virtual; function GetOldIMAGENIsNull: Boolean; virtual; procedure SetIMAGENIsNull(const aValue: Boolean); virtual; function GetCOMISIONABLEValue: Integer; virtual; function GetCOMISIONABLEIsNull: Boolean; virtual; function GetOldCOMISIONABLEValue: Integer; virtual; function GetOldCOMISIONABLEIsNull: Boolean; virtual; procedure SetCOMISIONABLEValue(const aValue: Integer); virtual; procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; function GetUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_PROVValue: String; virtual; function GetREFERENCIA_PROVIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVValue: String; virtual; function GetOldREFERENCIA_PROVIsNull: Boolean; virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; function GetPRECIO_COSTEValue: Currency; virtual; function GetPRECIO_COSTEIsNull: Boolean; virtual; function GetOldPRECIO_COSTEValue: Currency; virtual; function GetOldPRECIO_COSTEIsNull: Boolean; virtual; procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; function GetPRECIO_PORTEValue: Currency; virtual; function GetPRECIO_PORTEIsNull: Boolean; virtual; function GetOldPRECIO_PORTEValue: Currency; virtual; function GetOldPRECIO_PORTEIsNull: Boolean; virtual; procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual; procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOValue: Float; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetPRECIO_NETOValue: Currency; virtual; function GetPRECIO_NETOIsNull: Boolean; virtual; function GetOldPRECIO_NETOValue: Currency; virtual; function GetOldPRECIO_NETOIsNull: Boolean; virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; function GetPRECIO_PVPValue: Currency; virtual; function GetPRECIO_PVPIsNull: Boolean; virtual; function GetOldPRECIO_PVPValue: Currency; virtual; function GetOldPRECIO_PVPIsNull: Boolean; virtual; procedure SetPRECIO_PVPValue(const aValue: Currency); virtual; procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual; function GetINVENTARIABLEValue: SmallInt; virtual; function GetINVENTARIABLEIsNull: Boolean; virtual; function GetOldINVENTARIABLEValue: SmallInt; virtual; function GetOldINVENTARIABLEIsNull: Boolean; virtual; procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual; procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORIsNull: Boolean; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetNOMBRE_PROVEEDORValue: String; virtual; function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; function GetOldNOMBRE_PROVEEDORValue: String; virtual; function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetELIMINADOValue: SmallInt; virtual; function GetELIMINADOIsNull: Boolean; virtual; function GetOldELIMINADOValue: SmallInt; virtual; function GetOldELIMINADOIsNull: Boolean; virtual; procedure SetELIMINADOValue(const aValue: SmallInt); virtual; procedure SetELIMINADOIsNull(const aValue: Boolean); virtual; function GetTARIFAValue: String; virtual; function GetTARIFAIsNull: Boolean; virtual; function GetOldTARIFAValue: String; virtual; function GetOldTARIFAIsNull: Boolean; virtual; procedure SetTARIFAValue(const aValue: String); virtual; procedure SetTARIFAIsNull(const aValue: Boolean); virtual; function GetFABRICANTEValue: String; virtual; function GetFABRICANTEIsNull: Boolean; virtual; function GetOldFABRICANTEValue: String; virtual; function GetOldFABRICANTEIsNull: Boolean; virtual; procedure SetFABRICANTEValue(const aValue: String); virtual; procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_FABValue: String; virtual; function GetREFERENCIA_FABIsNull: Boolean; virtual; function GetOldREFERENCIA_FABValue: String; virtual; function GetOldREFERENCIA_FABIsNull: Boolean; virtual; procedure SetREFERENCIA_FABValue(const aValue: String); virtual; procedure SetREFERENCIA_FABIsNull(const aValue: Boolean); virtual; function GetSTOCK_MINValue: Integer; virtual; function GetSTOCK_MINIsNull: Boolean; virtual; function GetOldSTOCK_MINValue: Integer; virtual; function GetOldSTOCK_MINIsNull: Boolean; virtual; procedure SetSTOCK_MINValue(const aValue: Integer); virtual; procedure SetSTOCK_MINIsNull(const aValue: Boolean); virtual; function GetUNIDAD_MEDIDAValue: String; virtual; function GetUNIDAD_MEDIDAIsNull: Boolean; virtual; function GetOldUNIDAD_MEDIDAValue: String; virtual; function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual; procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual; procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property OldFAMILIA : String read GetOldFAMILIAValue; property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull; property IMAGEN : IROStream read GetIMAGENValue; property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull; property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull; property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue; property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull; property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull; property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull; property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue; property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull; property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue; property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull; property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull; property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue; property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull; property TARIFA : String read GetTARIFAValue write SetTARIFAValue; property TARIFAIsNull : Boolean read GetTARIFAIsNull write SetTARIFAIsNull; property OldTARIFA : String read GetOldTARIFAValue; property OldTARIFAIsNull : Boolean read GetOldTARIFAIsNull; property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue; property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull; property REFERENCIA_FAB : String read GetREFERENCIA_FABValue write SetREFERENCIA_FABValue; property REFERENCIA_FABIsNull : Boolean read GetREFERENCIA_FABIsNull write SetREFERENCIA_FABIsNull; property OldREFERENCIA_FAB : String read GetOldREFERENCIA_FABValue; property OldREFERENCIA_FABIsNull : Boolean read GetOldREFERENCIA_FABIsNull; property STOCK_MIN : Integer read GetSTOCK_MINValue write SetSTOCK_MINValue; property STOCK_MINIsNull : Boolean read GetSTOCK_MINIsNull write SetSTOCK_MINIsNull; property OldSTOCK_MIN : Integer read GetOldSTOCK_MINValue; property OldSTOCK_MINIsNull : Boolean read GetOldSTOCK_MINIsNull; property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IArticulosParaCompraDelta } IArticulosParaCompraDelta = interface(IArticulosParaCompra) ['{744D9334-387A-45D9-B0E9-57EE29A1DFEE}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldDESCRIPCIONValue : String; function GetOldFAMILIAValue : String; function GetOldIMAGENValue : IROStream; function GetOldCOMISIONABLEValue : SmallInt; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldREFERENCIA_PROVValue : String; function GetOldPRECIO_COSTEValue : Currency; function GetOldPRECIO_PORTEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldPRECIO_NETOValue : Currency; function GetOldPRECIO_PVPValue : Currency; function GetOldINVENTARIABLEValue : SmallInt; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBRE_PROVEEDORValue : String; function GetOldELIMINADOValue : SmallInt; function GetOldTARIFAValue : String; function GetOldFABRICANTEValue : String; function GetOldREFERENCIA_FABValue : String; function GetOldSTOCK_MINValue : Integer; function GetOldUNIDAD_MEDIDAValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue; property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldTARIFA : String read GetOldTARIFAValue; property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldREFERENCIA_FAB : String read GetOldREFERENCIA_FABValue; property OldSTOCK_MIN : Integer read GetOldSTOCK_MINValue; property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; end; { TArticulosParaCompraBusinessProcessorRules } TArticulosParaCompraBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulosParaCompra, IArticulosParaCompraDelta) private f_IMAGEN: IROStream; procedure IMAGEN_OnChange(Sender: Tobject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetFAMILIAValue: String; virtual; function GetFAMILIAIsNull: Boolean; virtual; function GetOldFAMILIAValue: String; virtual; function GetOldFAMILIAIsNull: Boolean; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; procedure SetFAMILIAIsNull(const aValue: Boolean); virtual; function GetIMAGENValue: IROStream; virtual; function GetIMAGENIsNull: Boolean; virtual; function GetOldIMAGENValue: IROStream; virtual; function GetOldIMAGENIsNull: Boolean; virtual; procedure SetIMAGENIsNull(const aValue: Boolean); virtual; function GetCOMISIONABLEValue: SmallInt; virtual; function GetCOMISIONABLEIsNull: Boolean; virtual; function GetOldCOMISIONABLEValue: SmallInt; virtual; function GetOldCOMISIONABLEIsNull: Boolean; virtual; procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual; procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; function GetUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_PROVValue: String; virtual; function GetREFERENCIA_PROVIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVValue: String; virtual; function GetOldREFERENCIA_PROVIsNull: Boolean; virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; function GetPRECIO_COSTEValue: Currency; virtual; function GetPRECIO_COSTEIsNull: Boolean; virtual; function GetOldPRECIO_COSTEValue: Currency; virtual; function GetOldPRECIO_COSTEIsNull: Boolean; virtual; procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; function GetPRECIO_PORTEValue: Currency; virtual; function GetPRECIO_PORTEIsNull: Boolean; virtual; function GetOldPRECIO_PORTEValue: Currency; virtual; function GetOldPRECIO_PORTEIsNull: Boolean; virtual; procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual; procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOValue: Float; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetPRECIO_NETOValue: Currency; virtual; function GetPRECIO_NETOIsNull: Boolean; virtual; function GetOldPRECIO_NETOValue: Currency; virtual; function GetOldPRECIO_NETOIsNull: Boolean; virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; function GetPRECIO_PVPValue: Currency; virtual; function GetPRECIO_PVPIsNull: Boolean; virtual; function GetOldPRECIO_PVPValue: Currency; virtual; function GetOldPRECIO_PVPIsNull: Boolean; virtual; procedure SetPRECIO_PVPValue(const aValue: Currency); virtual; procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual; function GetINVENTARIABLEValue: SmallInt; virtual; function GetINVENTARIABLEIsNull: Boolean; virtual; function GetOldINVENTARIABLEValue: SmallInt; virtual; function GetOldINVENTARIABLEIsNull: Boolean; virtual; procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual; procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORIsNull: Boolean; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetNOMBRE_PROVEEDORValue: String; virtual; function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; function GetOldNOMBRE_PROVEEDORValue: String; virtual; function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetELIMINADOValue: SmallInt; virtual; function GetELIMINADOIsNull: Boolean; virtual; function GetOldELIMINADOValue: SmallInt; virtual; function GetOldELIMINADOIsNull: Boolean; virtual; procedure SetELIMINADOValue(const aValue: SmallInt); virtual; procedure SetELIMINADOIsNull(const aValue: Boolean); virtual; function GetTARIFAValue: String; virtual; function GetTARIFAIsNull: Boolean; virtual; function GetOldTARIFAValue: String; virtual; function GetOldTARIFAIsNull: Boolean; virtual; procedure SetTARIFAValue(const aValue: String); virtual; procedure SetTARIFAIsNull(const aValue: Boolean); virtual; function GetFABRICANTEValue: String; virtual; function GetFABRICANTEIsNull: Boolean; virtual; function GetOldFABRICANTEValue: String; virtual; function GetOldFABRICANTEIsNull: Boolean; virtual; procedure SetFABRICANTEValue(const aValue: String); virtual; procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_FABValue: String; virtual; function GetREFERENCIA_FABIsNull: Boolean; virtual; function GetOldREFERENCIA_FABValue: String; virtual; function GetOldREFERENCIA_FABIsNull: Boolean; virtual; procedure SetREFERENCIA_FABValue(const aValue: String); virtual; procedure SetREFERENCIA_FABIsNull(const aValue: Boolean); virtual; function GetSTOCK_MINValue: Integer; virtual; function GetSTOCK_MINIsNull: Boolean; virtual; function GetOldSTOCK_MINValue: Integer; virtual; function GetOldSTOCK_MINIsNull: Boolean; virtual; procedure SetSTOCK_MINValue(const aValue: Integer); virtual; procedure SetSTOCK_MINIsNull(const aValue: Boolean); virtual; function GetUNIDAD_MEDIDAValue: String; virtual; function GetUNIDAD_MEDIDAIsNull: Boolean; virtual; function GetOldUNIDAD_MEDIDAValue: String; virtual; function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual; procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual; procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property OldFAMILIA : String read GetOldFAMILIAValue; property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull; property IMAGEN : IROStream read GetIMAGENValue; property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull; property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull; property COMISIONABLE : SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue; property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull; property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull; property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull; property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue; property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull; property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue; property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull; property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull; property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue; property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull; property TARIFA : String read GetTARIFAValue write SetTARIFAValue; property TARIFAIsNull : Boolean read GetTARIFAIsNull write SetTARIFAIsNull; property OldTARIFA : String read GetOldTARIFAValue; property OldTARIFAIsNull : Boolean read GetOldTARIFAIsNull; property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue; property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull; property OldFABRICANTE : String read GetOldFABRICANTEValue; property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull; property REFERENCIA_FAB : String read GetREFERENCIA_FABValue write SetREFERENCIA_FABValue; property REFERENCIA_FABIsNull : Boolean read GetREFERENCIA_FABIsNull write SetREFERENCIA_FABIsNull; property OldREFERENCIA_FAB : String read GetOldREFERENCIA_FABValue; property OldREFERENCIA_FABIsNull : Boolean read GetOldREFERENCIA_FABIsNull; property STOCK_MIN : Integer read GetSTOCK_MINValue write SetSTOCK_MINValue; property STOCK_MINIsNull : Boolean read GetSTOCK_MINIsNull write SetSTOCK_MINIsNull; property OldSTOCK_MIN : Integer read GetOldSTOCK_MINValue; property OldSTOCK_MINIsNull : Boolean read GetOldSTOCK_MINIsNull; property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue; property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull; property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue; property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IArticulosParaClienteDelta } IArticulosParaClienteDelta = interface(IArticulosParaCliente) ['{4DCF2C9B-AA19-4862-A839-CAA2D86DE701}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldDESCRIPCIONValue : String; function GetOldFAMILIAValue : String; function GetOldIMAGENValue : IROStream; function GetOldCOMISIONABLEValue : SmallInt; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldREFERENCIA_PROVValue : String; function GetOldPRECIO_COSTEValue : Currency; function GetOldPRECIO_PORTEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldPRECIO_NETOValue : Currency; function GetOldINVENTARIABLEValue : SmallInt; function GetOldID_PROVEEDORValue : Integer; function GetOldNOMBRE_PROVEEDORValue : String; function GetOldELIMINADOValue : SmallInt; function GetOldTARIFAValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldFAMILIA : String read GetOldFAMILIAValue; property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldTARIFA : String read GetOldTARIFAValue; end; { TArticulosParaClienteBusinessProcessorRules } TArticulosParaClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulosParaCliente, IArticulosParaClienteDelta) private f_IMAGEN: IROStream; procedure IMAGEN_OnChange(Sender: Tobject); protected { Property getters and setters } function GetIDValue: Integer; virtual; function GetIDIsNull: Boolean; virtual; function GetOldIDValue: Integer; virtual; function GetOldIDIsNull: Boolean; virtual; procedure SetIDValue(const aValue: Integer); virtual; procedure SetIDIsNull(const aValue: Boolean); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetID_EMPRESAIsNull: Boolean; virtual; function GetOldID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAIsNull: Boolean; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; function GetREFERENCIAValue: String; virtual; function GetREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONIsNull: Boolean; virtual; function GetOldDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONIsNull: Boolean; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; function GetFAMILIAValue: String; virtual; function GetFAMILIAIsNull: Boolean; virtual; function GetOldFAMILIAValue: String; virtual; function GetOldFAMILIAIsNull: Boolean; virtual; procedure SetFAMILIAValue(const aValue: String); virtual; procedure SetFAMILIAIsNull(const aValue: Boolean); virtual; function GetIMAGENValue: IROStream; virtual; function GetIMAGENIsNull: Boolean; virtual; function GetOldIMAGENValue: IROStream; virtual; function GetOldIMAGENIsNull: Boolean; virtual; procedure SetIMAGENIsNull(const aValue: Boolean); virtual; function GetCOMISIONABLEValue: SmallInt; virtual; function GetCOMISIONABLEIsNull: Boolean; virtual; function GetOldCOMISIONABLEValue: SmallInt; virtual; function GetOldCOMISIONABLEIsNull: Boolean; virtual; procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual; procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual; function GetFECHA_ALTAValue: DateTime; virtual; function GetFECHA_ALTAIsNull: Boolean; virtual; function GetOldFECHA_ALTAValue: DateTime; virtual; function GetOldFECHA_ALTAIsNull: Boolean; virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; function GetUSUARIOValue: String; virtual; function GetUSUARIOIsNull: Boolean; virtual; function GetOldUSUARIOValue: String; virtual; function GetOldUSUARIOIsNull: Boolean; virtual; procedure SetUSUARIOValue(const aValue: String); virtual; procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_PROVValue: String; virtual; function GetREFERENCIA_PROVIsNull: Boolean; virtual; function GetOldREFERENCIA_PROVValue: String; virtual; function GetOldREFERENCIA_PROVIsNull: Boolean; virtual; procedure SetREFERENCIA_PROVValue(const aValue: String); virtual; procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual; function GetPRECIO_COSTEValue: Currency; virtual; function GetPRECIO_COSTEIsNull: Boolean; virtual; function GetOldPRECIO_COSTEValue: Currency; virtual; function GetOldPRECIO_COSTEIsNull: Boolean; virtual; procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual; procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual; function GetPRECIO_PORTEValue: Currency; virtual; function GetPRECIO_PORTEIsNull: Boolean; virtual; function GetOldPRECIO_PORTEValue: Currency; virtual; function GetOldPRECIO_PORTEIsNull: Boolean; virtual; procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual; procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOValue: Float; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetPRECIO_NETOValue: Currency; virtual; function GetPRECIO_NETOIsNull: Boolean; virtual; function GetOldPRECIO_NETOValue: Currency; virtual; function GetOldPRECIO_NETOIsNull: Boolean; virtual; procedure SetPRECIO_NETOValue(const aValue: Currency); virtual; procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual; function GetINVENTARIABLEValue: SmallInt; virtual; function GetINVENTARIABLEIsNull: Boolean; virtual; function GetOldINVENTARIABLEValue: SmallInt; virtual; function GetOldINVENTARIABLEIsNull: Boolean; virtual; procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual; procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual; function GetID_PROVEEDORValue: Integer; virtual; function GetID_PROVEEDORIsNull: Boolean; virtual; function GetOldID_PROVEEDORValue: Integer; virtual; function GetOldID_PROVEEDORIsNull: Boolean; virtual; procedure SetID_PROVEEDORValue(const aValue: Integer); virtual; procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetNOMBRE_PROVEEDORValue: String; virtual; function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual; function GetOldNOMBRE_PROVEEDORValue: String; virtual; function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual; procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual; procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual; function GetELIMINADOValue: SmallInt; virtual; function GetELIMINADOIsNull: Boolean; virtual; function GetOldELIMINADOValue: SmallInt; virtual; function GetOldELIMINADOIsNull: Boolean; virtual; procedure SetELIMINADOValue(const aValue: SmallInt); virtual; procedure SetELIMINADOIsNull(const aValue: Boolean); virtual; function GetTARIFAValue: String; virtual; function GetTARIFAIsNull: Boolean; virtual; function GetOldTARIFAValue: String; virtual; function GetOldTARIFAIsNull: Boolean; virtual; procedure SetTARIFAValue(const aValue: String); virtual; procedure SetTARIFAIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; property OldID : Integer read GetOldIDValue; property OldIDIsNull : Boolean read GetOldIDIsNull; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue; property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull; property OldFAMILIA : String read GetOldFAMILIAValue; property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull; property IMAGEN : IROStream read GetIMAGENValue; property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull; property OldIMAGEN : IROStream read GetOldIMAGENValue; property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull; property COMISIONABLE : SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue; property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull; property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue; property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull; property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull; property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue; property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull; property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue; property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull; property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue; property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull; property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue; property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull; property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue; property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull; property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue; property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue; property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull; property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue; property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull; property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue; property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull; property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue; property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull; property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue; property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull; property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue; property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull; property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue; property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull; property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue; property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull; property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue; property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull; property OldELIMINADO : SmallInt read GetOldELIMINADOValue; property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull; property TARIFA : String read GetTARIFAValue write SetTARIFAValue; property TARIFAIsNull : Boolean read GetTARIFAIsNull write SetTARIFAIsNull; property OldTARIFA : String read GetOldTARIFAValue; property OldTARIFAIsNull : Boolean read GetOldTARIFAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers, uDAInterfaces; { TArticulos_IdiomasBusinessProcessorRules } constructor TArticulos_IdiomasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TArticulos_IdiomasBusinessProcessorRules.Destroy; begin inherited; end; function TArticulos_IdiomasBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID]; end; function TArticulos_IdiomasBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID]); end; function TArticulos_IdiomasBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_IdiomasID]; end; function TArticulos_IdiomasBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_IdiomasID]); end; procedure TArticulos_IdiomasBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID] := aValue; end; procedure TArticulos_IdiomasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID] := Null; end; function TArticulos_IdiomasBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID_ARTICULO]; end; function TArticulos_IdiomasBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID_ARTICULO]); end; function TArticulos_IdiomasBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_IdiomasID_ARTICULO]; end; function TArticulos_IdiomasBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_IdiomasID_ARTICULO]); end; procedure TArticulos_IdiomasBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID_ARTICULO] := aValue; end; procedure TArticulos_IdiomasBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID_ARTICULO] := Null; end; function TArticulos_IdiomasBusinessProcessorRules.GetID_IDIOMAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID_IDIOMA]; end; function TArticulos_IdiomasBusinessProcessorRules.GetID_IDIOMAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID_IDIOMA]); end; function TArticulos_IdiomasBusinessProcessorRules.GetOldID_IDIOMAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_IdiomasID_IDIOMA]; end; function TArticulos_IdiomasBusinessProcessorRules.GetOldID_IDIOMAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_IdiomasID_IDIOMA]); end; procedure TArticulos_IdiomasBusinessProcessorRules.SetID_IDIOMAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID_IDIOMA] := aValue; end; procedure TArticulos_IdiomasBusinessProcessorRules.SetID_IDIOMAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasID_IDIOMA] := Null; end; function TArticulos_IdiomasBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasDESCRIPCION]; end; function TArticulos_IdiomasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasDESCRIPCION]); end; function TArticulos_IdiomasBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_IdiomasDESCRIPCION]; end; function TArticulos_IdiomasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_IdiomasDESCRIPCION]); end; procedure TArticulos_IdiomasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasDESCRIPCION] := aValue; end; procedure TArticulos_IdiomasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_IdiomasDESCRIPCION] := Null; end; { TArticulos_ProveedoresBusinessProcessorRules } constructor TArticulos_ProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TArticulos_ProveedoresBusinessProcessorRules.Destroy; begin inherited; end; function TArticulos_ProveedoresBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_ARTICULO]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_ARTICULO]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_PROVEEDOR]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_PROVEEDOR]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_COSTE]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_COSTE]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresDESCUENTO]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresDESCUENTO]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_NETO]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_NETO]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PORTE]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PORTE]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_VENTAValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_VENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_VENTAValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_VENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_TOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_TOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL] := Null; end; function TArticulos_ProveedoresBusinessProcessorRules.GetFECHA_ACTUALIZACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetFECHA_ACTUALIZACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION]); end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldFECHA_ACTUALIZACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION]; end; function TArticulos_ProveedoresBusinessProcessorRules.GetOldFECHA_ACTUALIZACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION]); end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetFECHA_ACTUALIZACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION] := aValue; end; procedure TArticulos_ProveedoresBusinessProcessorRules.SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION] := Null; end; { TListaTarifasArticulosBusinessProcessorRules } constructor TListaTarifasArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TListaTarifasArticulosBusinessProcessorRules.Destroy; begin inherited; end; function TListaTarifasArticulosBusinessProcessorRules.GetTARIFAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaTarifasArticulosTARIFA]; end; function TListaTarifasArticulosBusinessProcessorRules.GetTARIFAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaTarifasArticulosTARIFA]); end; function TListaTarifasArticulosBusinessProcessorRules.GetOldTARIFAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaTarifasArticulosTARIFA]; end; function TListaTarifasArticulosBusinessProcessorRules.GetOldTARIFAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaTarifasArticulosTARIFA]); end; procedure TListaTarifasArticulosBusinessProcessorRules.SetTARIFAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ListaTarifasArticulosTARIFA] := aValue; end; procedure TListaTarifasArticulosBusinessProcessorRules.SetTARIFAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ListaTarifasArticulosTARIFA] := Null; end; { TArticulosBusinessProcessorRules } constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var ROStream: TROStream; begin inherited; ROStream := TROStream.Create; ROStream.OnChange := IMAGEN_OnChange; f_IMAGEN := ROStream; end; destructor TArticulosBusinessProcessorRules.Destroy; begin inherited; end; procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream); end; function TArticulosBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID]; end; function TArticulosBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID]); end; function TArticulosBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID]; end; function TArticulosBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID]); end; procedure TArticulosBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID] := aValue; end; procedure TArticulosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID] := Null; end; function TArticulosBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA]; end; function TArticulosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA]); end; function TArticulosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_EMPRESA]; end; function TArticulosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_EMPRESA]); end; procedure TArticulosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA] := aValue; end; procedure TArticulosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA] := Null; end; function TArticulosBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA]; end; function TArticulosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA]); end; function TArticulosBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA]; end; function TArticulosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA]); end; procedure TArticulosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA] := aValue; end; procedure TArticulosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA] := Null; end; function TArticulosBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION]; end; function TArticulosBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION]); end; function TArticulosBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCRIPCION]; end; function TArticulosBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCRIPCION]); end; procedure TArticulosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION] := aValue; end; procedure TArticulosBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION] := Null; end; function TArticulosBusinessProcessorRules.GetFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA]; end; function TArticulosBusinessProcessorRules.GetFAMILIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA]); end; function TArticulosBusinessProcessorRules.GetOldFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFAMILIA]; end; function TArticulosBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFAMILIA]); end; procedure TArticulosBusinessProcessorRules.SetFAMILIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA] := aValue; end; procedure TArticulosBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA] := Null; end; function TArticulosBusinessProcessorRules.GetIMAGENValue: IROStream; begin result := f_IMAGEN; result.Position := 0; if not Result.InUpdateMode then begin BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream); result.Position := 0; end; end; function TArticulosBusinessProcessorRules.GetIMAGENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN]); end; function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream; begin result := NewROStream(); BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream); end; function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN]); end; procedure TArticulosBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := Null; end; function TArticulosBusinessProcessorRules.GetCOMISIONABLEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE]; end; function TArticulosBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE]); end; function TArticulosBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCOMISIONABLE]; end; function TArticulosBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCOMISIONABLE]); end; procedure TArticulosBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE] := aValue; end; procedure TArticulosBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE] := Null; end; function TArticulosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA]; end; function TArticulosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA]); end; function TArticulosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_ALTA]; end; function TArticulosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_ALTA]); end; procedure TArticulosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA] := aValue; end; procedure TArticulosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA] := Null; end; function TArticulosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION]; end; function TArticulosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION]); end; function TArticulosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_MODIFICACION]; end; function TArticulosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_MODIFICACION]); end; procedure TArticulosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION] := aValue; end; procedure TArticulosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION] := Null; end; function TArticulosBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO]; end; function TArticulosBusinessProcessorRules.GetUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO]); end; function TArticulosBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUSUARIO]; end; function TArticulosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUSUARIO]); end; procedure TArticulosBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO] := aValue; end; procedure TArticulosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO] := Null; end; function TArticulosBusinessProcessorRules.GetREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV]; end; function TArticulosBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV]); end; function TArticulosBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_PROV]; end; function TArticulosBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_PROV]); end; procedure TArticulosBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV] := aValue; end; procedure TArticulosBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV] := Null; end; function TArticulosBusinessProcessorRules.GetPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE]; end; function TArticulosBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE]); end; function TArticulosBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_COSTE]; end; function TArticulosBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_COSTE]); end; procedure TArticulosBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE] := aValue; end; procedure TArticulosBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE] := Null; end; function TArticulosBusinessProcessorRules.GetPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE]; end; function TArticulosBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE]); end; function TArticulosBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PORTE]; end; function TArticulosBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PORTE]); end; procedure TArticulosBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE] := aValue; end; procedure TArticulosBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE] := Null; end; function TArticulosBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO]; end; function TArticulosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO]); end; function TArticulosBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCUENTO]; end; function TArticulosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCUENTO]); end; procedure TArticulosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO] := aValue; end; procedure TArticulosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO] := Null; end; function TArticulosBusinessProcessorRules.GetPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO]; end; function TArticulosBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO]); end; function TArticulosBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_NETO]; end; function TArticulosBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_NETO]); end; procedure TArticulosBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := aValue; end; procedure TArticulosBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := Null; end; function TArticulosBusinessProcessorRules.GetPRECIO_PVPValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP]; end; function TArticulosBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP]); end; function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP]; end; function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP]); end; procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := aValue; end; procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := Null; end; function TArticulosBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE]; end; function TArticulosBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE]); end; function TArticulosBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosINVENTARIABLE]; end; function TArticulosBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosINVENTARIABLE]); end; procedure TArticulosBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE] := aValue; end; procedure TArticulosBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE] := Null; end; function TArticulosBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR]; end; function TArticulosBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR]); end; function TArticulosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_PROVEEDOR]; end; function TArticulosBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_PROVEEDOR]); end; procedure TArticulosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR] := aValue; end; procedure TArticulosBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR] := Null; end; function TArticulosBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR]; end; function TArticulosBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR]); end; function TArticulosBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosNOMBRE_PROVEEDOR]; end; function TArticulosBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosNOMBRE_PROVEEDOR]); end; procedure TArticulosBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR] := aValue; end; procedure TArticulosBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR] := Null; end; function TArticulosBusinessProcessorRules.GetELIMINADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO]; end; function TArticulosBusinessProcessorRules.GetELIMINADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO]); end; function TArticulosBusinessProcessorRules.GetOldELIMINADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosELIMINADO]; end; function TArticulosBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosELIMINADO]); end; procedure TArticulosBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := aValue; end; procedure TArticulosBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := Null; end; function TArticulosBusinessProcessorRules.GetTARIFAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTARIFA]; end; function TArticulosBusinessProcessorRules.GetTARIFAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTARIFA]); end; function TArticulosBusinessProcessorRules.GetOldTARIFAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTARIFA]; end; function TArticulosBusinessProcessorRules.GetOldTARIFAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTARIFA]); end; procedure TArticulosBusinessProcessorRules.SetTARIFAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTARIFA] := aValue; end; procedure TArticulosBusinessProcessorRules.SetTARIFAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTARIFA] := Null; end; function TArticulosBusinessProcessorRules.GetFABRICANTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE]; end; function TArticulosBusinessProcessorRules.GetFABRICANTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE]); end; function TArticulosBusinessProcessorRules.GetOldFABRICANTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE]; end; function TArticulosBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE]); end; procedure TArticulosBusinessProcessorRules.SetFABRICANTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := aValue; end; procedure TArticulosBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := Null; end; function TArticulosBusinessProcessorRules.GetREFERENCIA_FABValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FAB]; end; function TArticulosBusinessProcessorRules.GetREFERENCIA_FABIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FAB]); end; function TArticulosBusinessProcessorRules.GetOldREFERENCIA_FABValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_FAB]; end; function TArticulosBusinessProcessorRules.GetOldREFERENCIA_FABIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_FAB]); end; procedure TArticulosBusinessProcessorRules.SetREFERENCIA_FABValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FAB] := aValue; end; procedure TArticulosBusinessProcessorRules.SetREFERENCIA_FABIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FAB] := Null; end; function TArticulosBusinessProcessorRules.GetSTOCK_MINValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosSTOCK_MIN]; end; function TArticulosBusinessProcessorRules.GetSTOCK_MINIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosSTOCK_MIN]); end; function TArticulosBusinessProcessorRules.GetOldSTOCK_MINValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosSTOCK_MIN]; end; function TArticulosBusinessProcessorRules.GetOldSTOCK_MINIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosSTOCK_MIN]); end; procedure TArticulosBusinessProcessorRules.SetSTOCK_MINValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosSTOCK_MIN] := aValue; end; procedure TArticulosBusinessProcessorRules.SetSTOCK_MINIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosSTOCK_MIN] := Null; end; function TArticulosBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA]; end; function TArticulosBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA]); end; function TArticulosBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUNIDAD_MEDIDA]; end; function TArticulosBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUNIDAD_MEDIDA]); end; procedure TArticulosBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA] := aValue; end; procedure TArticulosBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA] := Null; end; { TArticulosParaCompraBusinessProcessorRules } constructor TArticulosParaCompraBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var ROStream: TROStream; begin inherited; ROStream := TROStream.Create; ROStream.OnChange := IMAGEN_OnChange; f_IMAGEN := ROStream; end; destructor TArticulosParaCompraBusinessProcessorRules.Destroy; begin inherited; end; procedure TArticulosParaCompraBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream); end; function TArticulosParaCompraBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID]; end; function TArticulosParaCompraBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA]; end; function TArticulosParaCompraBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_EMPRESA]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_EMPRESA]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA]; end; function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION]; end; function TArticulosParaCompraBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCRIPCION]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCRIPCION]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA]; end; function TArticulosParaCompraBusinessProcessorRules.GetFAMILIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFAMILIA]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFAMILIA]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetFAMILIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetIMAGENValue: IROStream; begin result := f_IMAGEN; result.Position := 0; if not Result.InUpdateMode then begin BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream); result.Position := 0; end; end; function TArticulosParaCompraBusinessProcessorRules.GetIMAGENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENValue: IROStream; begin result := NewROStream(); BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream); end; function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetCOMISIONABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE]; end; function TArticulosParaCompraBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldCOMISIONABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraCOMISIONABLE]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraCOMISIONABLE]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA]; end; function TArticulosParaCompraBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_ALTA]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_ALTA]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION]; end; function TArticulosParaCompraBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO]; end; function TArticulosParaCompraBusinessProcessorRules.GetUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUSUARIO]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUSUARIO]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV]; end; function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_PROV]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_PROV]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE]; end; function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_COSTE]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_COSTE]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE]; end; function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PORTE]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PORTE]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO]; end; function TArticulosParaCompraBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCUENTO]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCUENTO]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO]; end; function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_NETO]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_NETO]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PVPValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP]; end; function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PVP]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PVP]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE]; end; function TArticulosParaCompraBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraINVENTARIABLE]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraINVENTARIABLE]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR]; end; function TArticulosParaCompraBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_PROVEEDOR]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_PROVEEDOR]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR]; end; function TArticulosParaCompraBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetELIMINADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO]; end; function TArticulosParaCompraBusinessProcessorRules.GetELIMINADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldELIMINADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraELIMINADO]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraELIMINADO]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetTARIFAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraTARIFA]; end; function TArticulosParaCompraBusinessProcessorRules.GetTARIFAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraTARIFA]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldTARIFAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraTARIFA]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldTARIFAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraTARIFA]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetTARIFAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraTARIFA] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetTARIFAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraTARIFA] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetFABRICANTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFABRICANTE]; end; function TArticulosParaCompraBusinessProcessorRules.GetFABRICANTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFABRICANTE]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldFABRICANTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFABRICANTE]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFABRICANTE]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetFABRICANTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFABRICANTE] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFABRICANTE] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_FABValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_FAB]; end; function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_FABIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_FAB]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_FABValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_FAB]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_FABIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_FAB]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_FABValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_FAB] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_FABIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_FAB] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetSTOCK_MINValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraSTOCK_MIN]; end; function TArticulosParaCompraBusinessProcessorRules.GetSTOCK_MINIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraSTOCK_MIN]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldSTOCK_MINValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraSTOCK_MIN]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldSTOCK_MINIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraSTOCK_MIN]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetSTOCK_MINValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraSTOCK_MIN] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetSTOCK_MINIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraSTOCK_MIN] := Null; end; function TArticulosParaCompraBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA]; end; function TArticulosParaCompraBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA]); end; function TArticulosParaCompraBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA]; end; function TArticulosParaCompraBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA]); end; procedure TArticulosParaCompraBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA] := aValue; end; procedure TArticulosParaCompraBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA] := Null; end; { TArticulosParaClienteBusinessProcessorRules } constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var ROStream: TROStream; begin inherited; ROStream := TROStream.Create; ROStream.OnChange := IMAGEN_OnChange; f_IMAGEN := ROStream; end; destructor TArticulosParaClienteBusinessProcessorRules.Destroy; begin inherited; end; procedure TArticulosParaClienteBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream); end; function TArticulosParaClienteBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID]; end; function TArticulosParaClienteBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA]; end; function TArticulosParaClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_EMPRESA]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_EMPRESA]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA]; end; function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION]; end; function TArticulosParaClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCRIPCION]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCRIPCION]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA]; end; function TArticulosParaClienteBusinessProcessorRules.GetFAMILIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldFAMILIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFAMILIA]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFAMILIA]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetFAMILIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetIMAGENValue: IROStream; begin result := f_IMAGEN; result.Position := 0; if not Result.InUpdateMode then begin BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream); result.Position := 0; end; end; function TArticulosParaClienteBusinessProcessorRules.GetIMAGENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENValue: IROStream; begin result := NewROStream(); BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream); end; function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]; end; function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA]; end; function TArticulosParaClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_ALTA]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_ALTA]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION]; end; function TArticulosParaClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO]; end; function TArticulosParaClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteUSUARIO]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteUSUARIO]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV]; end; function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_PROV]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_PROV]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE]; end; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE]; end; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO]; end; function TArticulosParaClienteBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCUENTO]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCUENTO]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO]; end; function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]; end; function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR]; end; function TArticulosParaClienteBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_PROVEEDOR]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_PROVEEDOR]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]; end; function TArticulosParaClienteBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO]; end; function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := Null; end; function TArticulosParaClienteBusinessProcessorRules.GetTARIFAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTARIFA]; end; function TArticulosParaClienteBusinessProcessorRules.GetTARIFAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTARIFA]); end; function TArticulosParaClienteBusinessProcessorRules.GetOldTARIFAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteTARIFA]; end; function TArticulosParaClienteBusinessProcessorRules.GetOldTARIFAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteTARIFA]); end; procedure TArticulosParaClienteBusinessProcessorRules.SetTARIFAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTARIFA] := aValue; end; procedure TArticulosParaClienteBusinessProcessorRules.SetTARIFAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTARIFA] := Null; end; initialization RegisterBusinessProcessorRules(RID_Articulos_IdiomasDelta, TArticulos_IdiomasBusinessProcessorRules); RegisterBusinessProcessorRules(RID_Articulos_ProveedoresDelta, TArticulos_ProveedoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ListaTarifasArticulosDelta, TListaTarifasArticulosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosParaCompraDelta, TArticulosParaCompraBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules); end.