unit schComisionesServer_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schComisionesClient_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_Facturas_ComisionDelta = '{748F8239-55DC-4C05-A849-907A5AAA7AB4}'; RID_Vendedores_ComisionDelta = '{F6706BC0-B19A-4DD6-B74B-D0B2C8D6D52F}'; RID_ComisionesDelta = '{046F6CB9-FA42-49F3-8EF9-A9B9B86B348B}'; type { IFacturas_ComisionDelta } IFacturas_ComisionDelta = interface(IFacturas_Comision) ['{748F8239-55DC-4C05-A849-907A5AAA7AB4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldTIPOValue : String; function GetOldID_COMISION_LIQUIDADAValue : Integer; function GetOldFECHA_FACTURAValue : DateTime; function GetOldSITUACIONValue : String; function GetOldBASE_IMPONIBLEValue : Currency; function GetOldDESCUENTOValue : Float; function GetOldIMPORTE_DESCUENTOValue : Currency; function GetOldIVAValue : Float; function GetOldIMPORTE_IVAValue : Currency; function GetOldREValue : Float; function GetOldIMPORTE_REValue : Currency; function GetOldIMPORTE_TOTALValue : Currency; function GetOldOBSERVACIONESValue : IROStrings; function GetOldID_CLIENTEValue : Integer; function GetOldNOMBRE_CLIENTEValue : String; function GetOldNOMBRE_COMERCIAL_CLIENTEValue : String; function GetOldNIF_CIFValue : String; function GetOldNOMBREValue : String; function GetOldCALLEValue : String; function GetOldPOBLACIONValue : String; function GetOldPROVINCIAValue : String; function GetOldCODIGO_POSTALValue : String; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; function GetOldID_FORMA_PAGOValue : Integer; function GetOldRECARGO_EQUIVALENCIAValue : SmallInt; function GetOldID_TIPO_IVAValue : Integer; function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_PORTEValue : Currency; function GetOldID_AGENTEValue : Integer; function GetOldREFERENCIA_COMISIONValue : String; function GetOldIGNORAR_CONTABILIDADValue : SmallInt; function GetOldID_TIENDAValue : Integer; function GetOldTIENDAValue : String; function GetOldID_SUBCUENTAValue : Integer; function GetOldSUBCUENTAValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldTIPO : String read GetOldTIPOValue; property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldSITUACION : String read GetOldSITUACIONValue; property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; property OldIVA : Float read GetOldIVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldRE : Float read GetOldREValue; property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldCALLE : String read GetOldCALLEValue; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldTIENDA : String read GetOldTIENDAValue; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldSUBCUENTA : String read GetOldSUBCUENTAValue; end; { TFacturas_ComisionBusinessProcessorRules } TFacturas_ComisionBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturas_Comision, IFacturas_ComisionDelta) private f_OBSERVACIONES: IROStrings; procedure OBSERVACIONES_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 GetTIPOValue: String; virtual; function GetTIPOIsNull: Boolean; virtual; function GetOldTIPOValue: String; virtual; function GetOldTIPOIsNull: Boolean; virtual; procedure SetTIPOValue(const aValue: String); virtual; procedure SetTIPOIsNull(const aValue: Boolean); virtual; function GetID_COMISION_LIQUIDADAValue: Integer; virtual; function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual; function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual; function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual; procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual; procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual; function GetFECHA_FACTURAValue: DateTime; virtual; function GetFECHA_FACTURAIsNull: Boolean; virtual; function GetOldFECHA_FACTURAValue: DateTime; virtual; function GetOldFECHA_FACTURAIsNull: Boolean; virtual; procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; function GetSITUACIONValue: String; virtual; function GetSITUACIONIsNull: Boolean; virtual; function GetOldSITUACIONValue: String; virtual; function GetOldSITUACIONIsNull: Boolean; virtual; procedure SetSITUACIONValue(const aValue: String); virtual; procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; function GetBASE_IMPONIBLEValue: Currency; virtual; function GetBASE_IMPONIBLEIsNull: Boolean; virtual; function GetOldBASE_IMPONIBLEValue: Currency; virtual; function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual; procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; procedure SetBASE_IMPONIBLEIsNull(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 GetIMPORTE_DESCUENTOValue: Currency; virtual; function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual; function GetOldIMPORTE_DESCUENTOValue: Currency; virtual; function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual; procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual; procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual; function GetIVAValue: Float; virtual; function GetIVAIsNull: Boolean; virtual; function GetOldIVAValue: Float; virtual; function GetOldIVAIsNull: Boolean; virtual; procedure SetIVAValue(const aValue: Float); virtual; procedure SetIVAIsNull(const aValue: Boolean); virtual; function GetIMPORTE_IVAValue: Currency; virtual; function GetIMPORTE_IVAIsNull: Boolean; virtual; function GetOldIMPORTE_IVAValue: Currency; virtual; function GetOldIMPORTE_IVAIsNull: Boolean; virtual; procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual; function GetREValue: Float; virtual; function GetREIsNull: Boolean; virtual; function GetOldREValue: Float; virtual; function GetOldREIsNull: Boolean; virtual; procedure SetREValue(const aValue: Float); virtual; procedure SetREIsNull(const aValue: Boolean); virtual; function GetIMPORTE_REValue: Currency; virtual; function GetIMPORTE_REIsNull: Boolean; virtual; function GetOldIMPORTE_REValue: Currency; virtual; function GetOldIMPORTE_REIsNull: Boolean; virtual; procedure SetIMPORTE_REValue(const aValue: Currency); virtual; procedure SetIMPORTE_REIsNull(const aValue: Boolean); virtual; function GetIMPORTE_TOTALValue: Currency; virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; function GetOldIMPORTE_TOTALValue: Currency; virtual; function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; function GetOBSERVACIONESValue: IROStrings; virtual; function GetOBSERVACIONESIsNull: Boolean; virtual; function GetOldOBSERVACIONESValue: IROStrings; virtual; function GetOldOBSERVACIONESIsNull: Boolean; virtual; procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual; function GetID_CLIENTEValue: Integer; virtual; function GetID_CLIENTEIsNull: Boolean; virtual; function GetOldID_CLIENTEValue: Integer; virtual; function GetOldID_CLIENTEIsNull: Boolean; virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; function GetNOMBRE_CLIENTEValue: String; virtual; function GetNOMBRE_CLIENTEIsNull: Boolean; virtual; function GetOldNOMBRE_CLIENTEValue: String; virtual; function GetOldNOMBRE_CLIENTEIsNull: Boolean; virtual; procedure SetNOMBRE_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); virtual; function GetNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; virtual; function GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); virtual; function GetNIF_CIFValue: String; virtual; function GetNIF_CIFIsNull: Boolean; virtual; function GetOldNIF_CIFValue: String; virtual; function GetOldNIF_CIFIsNull: Boolean; virtual; procedure SetNIF_CIFValue(const aValue: String); virtual; procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetCALLEValue: String; virtual; function GetCALLEIsNull: Boolean; virtual; function GetOldCALLEValue: String; virtual; function GetOldCALLEIsNull: Boolean; virtual; procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEIsNull(const aValue: Boolean); virtual; function GetPOBLACIONValue: String; virtual; function GetPOBLACIONIsNull: Boolean; virtual; function GetOldPOBLACIONValue: String; virtual; function GetOldPOBLACIONIsNull: Boolean; virtual; procedure SetPOBLACIONValue(const aValue: String); virtual; procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; function GetPROVINCIAValue: String; virtual; function GetPROVINCIAIsNull: Boolean; virtual; function GetOldPROVINCIAValue: String; virtual; function GetOldPROVINCIAIsNull: Boolean; virtual; procedure SetPROVINCIAValue(const aValue: String); virtual; procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; function GetCODIGO_POSTALValue: String; virtual; function GetCODIGO_POSTALIsNull: Boolean; virtual; function GetOldCODIGO_POSTALValue: String; virtual; function GetOldCODIGO_POSTALIsNull: Boolean; virtual; procedure SetCODIGO_POSTALValue(const aValue: String); virtual; procedure SetCODIGO_POSTALIsNull(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 GetID_FORMA_PAGOValue: Integer; virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual; function GetOldID_FORMA_PAGOValue: Integer; virtual; function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual; function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual; procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual; function GetID_TIPO_IVAValue: Integer; virtual; function GetID_TIPO_IVAIsNull: Boolean; virtual; function GetOldID_TIPO_IVAValue: Integer; virtual; function GetOldID_TIPO_IVAIsNull: Boolean; virtual; procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual; procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual; function GetIMPORTE_NETOValue: Currency; virtual; function GetIMPORTE_NETOIsNull: Boolean; virtual; function GetOldIMPORTE_NETOValue: Currency; virtual; function GetOldIMPORTE_NETOIsNull: Boolean; virtual; procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual; procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual; function GetIMPORTE_PORTEValue: Currency; virtual; function GetIMPORTE_PORTEIsNull: Boolean; virtual; function GetOldIMPORTE_PORTEValue: Currency; virtual; function GetOldIMPORTE_PORTEIsNull: Boolean; virtual; procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual; procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual; function GetID_AGENTEValue: Integer; virtual; function GetID_AGENTEIsNull: Boolean; virtual; function GetOldID_AGENTEValue: Integer; virtual; function GetOldID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; function GetREFERENCIA_COMISIONValue: String; virtual; function GetREFERENCIA_COMISIONIsNull: Boolean; virtual; function GetOldREFERENCIA_COMISIONValue: String; virtual; function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual; procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; function GetIGNORAR_CONTABILIDADValue: SmallInt; virtual; function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual; function GetOldIGNORAR_CONTABILIDADValue: SmallInt; virtual; function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual; procedure SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); virtual; procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual; function GetID_TIENDAValue: Integer; virtual; function GetID_TIENDAIsNull: Boolean; virtual; function GetOldID_TIENDAValue: Integer; virtual; function GetOldID_TIENDAIsNull: Boolean; virtual; procedure SetID_TIENDAValue(const aValue: Integer); virtual; procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual; function GetTIENDAValue: String; virtual; function GetTIENDAIsNull: Boolean; virtual; function GetOldTIENDAValue: String; virtual; function GetOldTIENDAIsNull: Boolean; virtual; procedure SetTIENDAValue(const aValue: String); virtual; procedure SetTIENDAIsNull(const aValue: Boolean); virtual; function GetID_SUBCUENTAValue: Integer; virtual; function GetID_SUBCUENTAIsNull: Boolean; virtual; function GetOldID_SUBCUENTAValue: Integer; virtual; function GetOldID_SUBCUENTAIsNull: Boolean; virtual; procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual; procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual; function GetSUBCUENTAValue: String; virtual; function GetSUBCUENTAIsNull: Boolean; virtual; function GetOldSUBCUENTAValue: String; virtual; function GetOldSUBCUENTAIsNull: Boolean; virtual; procedure SetSUBCUENTAValue(const aValue: String); virtual; procedure SetSUBCUENTAIsNull(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 TIPO : String read GetTIPOValue write SetTIPOValue; property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull; property OldTIPO : String read GetOldTIPOValue; property OldTIPOIsNull : Boolean read GetOldTIPOIsNull; property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue; property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull; property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull; property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; property OldSITUACION : String read GetOldSITUACIONValue; property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull; 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 IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue; property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull; property IVA : Float read GetIVAValue write SetIVAValue; property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull; property OldIVA : Float read GetOldIVAValue; property OldIVAIsNull : Boolean read GetOldIVAIsNull; property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull; property RE : Float read GetREValue write SetREValue; property REIsNull : Boolean read GetREIsNull write SetREIsNull; property OldRE : Float read GetOldREValue; property OldREIsNull : Boolean read GetOldREIsNull; property IMPORTE_RE : Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; property IMPORTE_REIsNull : Boolean read GetIMPORTE_REIsNull write SetIMPORTE_REIsNull; property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue; property OldIMPORTE_REIsNull : Boolean read GetOldIMPORTE_REIsNull; property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue; property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull; property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue; property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull; property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; property NOMBRE_CLIENTE : String read GetNOMBRE_CLIENTEValue write SetNOMBRE_CLIENTEValue; property NOMBRE_CLIENTEIsNull : Boolean read GetNOMBRE_CLIENTEIsNull write SetNOMBRE_CLIENTEIsNull; property OldNOMBRE_CLIENTE : String read GetOldNOMBRE_CLIENTEValue; property OldNOMBRE_CLIENTEIsNull : Boolean read GetOldNOMBRE_CLIENTEIsNull; property NOMBRE_COMERCIAL_CLIENTE : String read GetNOMBRE_COMERCIAL_CLIENTEValue write SetNOMBRE_COMERCIAL_CLIENTEValue; property NOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetNOMBRE_COMERCIAL_CLIENTEIsNull write SetNOMBRE_COMERCIAL_CLIENTEIsNull; property OldNOMBRE_COMERCIAL_CLIENTE : String read GetOldNOMBRE_COMERCIAL_CLIENTEValue; property OldNOMBRE_COMERCIAL_CLIENTEIsNull : Boolean read GetOldNOMBRE_COMERCIAL_CLIENTEIsNull; property NIF_CIF : String read GetNIF_CIFValue write SetNIF_CIFValue; property NIF_CIFIsNull : Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; property OldNIF_CIF : String read GetOldNIF_CIFValue; property OldNIF_CIFIsNull : Boolean read GetOldNIF_CIFIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property OldCALLE : String read GetOldCALLEValue; property OldCALLEIsNull : Boolean read GetOldCALLEIsNull; property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue; property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull; property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue; property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; property OldPROVINCIA : String read GetOldPROVINCIAValue; property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull; property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull; 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 ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull; property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull; property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue; property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull; property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue; property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull; property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull; property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull; property IGNORAR_CONTABILIDAD : SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue; property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull; property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue; property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull; property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue; property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; property OldID_TIENDA : Integer read GetOldID_TIENDAValue; property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull; property TIENDA : String read GetTIENDAValue write SetTIENDAValue; property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; property OldTIENDA : String read GetOldTIENDAValue; property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue; property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull; property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue; property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull; property SUBCUENTA : String read GetSUBCUENTAValue write SetSUBCUENTAValue; property SUBCUENTAIsNull : Boolean read GetSUBCUENTAIsNull write SetSUBCUENTAIsNull; property OldSUBCUENTA : String read GetOldSUBCUENTAValue; property OldSUBCUENTAIsNull : Boolean read GetOldSUBCUENTAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IVendedores_ComisionDelta } IVendedores_ComisionDelta = interface(IVendedores_Comision) ['{F6706BC0-B19A-4DD6-B74B-D0B2C8D6D52F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_COMISIONValue : Integer; function GetOldID_VENDEDORValue : Integer; function GetOldNOMBREValue : String; function GetOldCOMISIONValue : Float; function GetOldIMPORTE_TOTALValue : Currency; { Properties } property OldID : Integer read GetOldIDValue; property OldID_COMISION : Integer read GetOldID_COMISIONValue; property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldCOMISION : Float read GetOldCOMISIONValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; end; { TVendedores_ComisionBusinessProcessorRules } TVendedores_ComisionBusinessProcessorRules = class(TDABusinessProcessorRules, IVendedores_Comision, IVendedores_ComisionDelta) 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_COMISIONValue: Integer; virtual; function GetID_COMISIONIsNull: Boolean; virtual; function GetOldID_COMISIONValue: Integer; virtual; function GetOldID_COMISIONIsNull: Boolean; virtual; procedure SetID_COMISIONValue(const aValue: Integer); virtual; procedure SetID_COMISIONIsNull(const aValue: Boolean); virtual; function GetID_VENDEDORValue: Integer; virtual; function GetID_VENDEDORIsNull: Boolean; virtual; function GetOldID_VENDEDORValue: Integer; virtual; function GetOldID_VENDEDORIsNull: Boolean; virtual; procedure SetID_VENDEDORValue(const aValue: Integer); virtual; procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual; function GetNOMBREValue: String; virtual; function GetNOMBREIsNull: Boolean; virtual; function GetOldNOMBREValue: String; virtual; function GetOldNOMBREIsNull: Boolean; virtual; procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREIsNull(const aValue: Boolean); virtual; function GetCOMISIONValue: Float; virtual; function GetCOMISIONIsNull: Boolean; virtual; function GetOldCOMISIONValue: Float; virtual; function GetOldCOMISIONIsNull: Boolean; virtual; procedure SetCOMISIONValue(const aValue: Float); virtual; procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; function GetIMPORTE_TOTALValue: Currency; virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; function GetOldIMPORTE_TOTALValue: Currency; virtual; function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALIsNull(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_COMISION : Integer read GetID_COMISIONValue write SetID_COMISIONValue; property ID_COMISIONIsNull : Boolean read GetID_COMISIONIsNull write SetID_COMISIONIsNull; property OldID_COMISION : Integer read GetOldID_COMISIONValue; property OldID_COMISIONIsNull : Boolean read GetOldID_COMISIONIsNull; property ID_VENDEDOR : Integer read GetID_VENDEDORValue write SetID_VENDEDORValue; property ID_VENDEDORIsNull : Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull; property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue; property OldID_VENDEDORIsNull : Boolean read GetOldID_VENDEDORIsNull; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue; property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; property OldCOMISION : Float read GetOldCOMISIONValue; property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull; property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IComisionesDelta } IComisionesDelta = interface(IComisiones) ['{046F6CB9-FA42-49F3-8EF9-A9B9B86B348B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; function GetOldID_AGENTEValue : Integer; function GetOldDESCRIPCIONValue : String; function GetOldFECHAValue : DateTime; function GetOldIMPORTE_TOTALValue : Currency; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldUSUARIOValue : String; { Properties } property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldFECHA : DateTime read GetOldFECHAValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; end; { TComisionesBusinessProcessorRules } TComisionesBusinessProcessorRules = class(TDABusinessProcessorRules, IComisiones, IComisionesDelta) 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_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 GetID_AGENTEValue: Integer; virtual; function GetID_AGENTEIsNull: Boolean; virtual; function GetOldID_AGENTEValue: Integer; virtual; function GetOldID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; procedure SetID_AGENTEIsNull(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 GetFECHAValue: DateTime; virtual; function GetFECHAIsNull: Boolean; virtual; function GetOldFECHAValue: DateTime; virtual; function GetOldFECHAIsNull: Boolean; virtual; procedure SetFECHAValue(const aValue: DateTime); virtual; procedure SetFECHAIsNull(const aValue: Boolean); virtual; function GetIMPORTE_TOTALValue: Currency; virtual; function GetIMPORTE_TOTALIsNull: Boolean; virtual; function GetOldIMPORTE_TOTALValue: Currency; virtual; function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALIsNull(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; { 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 ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull; 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 FECHA : DateTime read GetFECHAValue write SetFECHAValue; property FECHAIsNull : Boolean read GetFECHAIsNull write SetFECHAIsNull; property OldFECHA : DateTime read GetOldFECHAValue; property OldFECHAIsNull : Boolean read GetOldFECHAIsNull; property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; 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; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers, uDAInterfaces; { TFacturas_ComisionBusinessProcessorRules } constructor TFacturas_ComisionBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); var StrList: TStringList; begin inherited; StrList := TStringList.Create; StrList.OnChange := OBSERVACIONES_OnChange; f_OBSERVACIONES := NewROStrings(StrList,True); end; destructor TFacturas_ComisionBusinessProcessorRules.Destroy; begin inherited; end; procedure TFacturas_ComisionBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES] := TStringList(Sender).Text; end; function TFacturas_ComisionBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID]; end; function TFacturas_ComisionBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_EMPRESA]; end; function TFacturas_ComisionBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_EMPRESA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_EMPRESA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_EMPRESA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_EMPRESA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_EMPRESA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA]; end; function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetTIPOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO]; end; function TFacturas_ComisionBusinessProcessorRules.GetTIPOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldTIPOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIPO]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldTIPOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIPO]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetTIPOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIPO] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA]; end; function TFacturas_ComisionBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_COMISION_LIQUIDADA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA]; end; function TFacturas_ComisionBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_FACTURA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_FACTURA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_FACTURA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSITUACION]; end; function TFacturas_ComisionBusinessProcessorRules.GetSITUACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSITUACION]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldSITUACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSITUACION]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSITUACION]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetSITUACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSITUACION] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSITUACION] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE]; end; function TFacturas_ComisionBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionBASE_IMPONIBLE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionBASE_IMPONIBLE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionBASE_IMPONIBLE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO]; end; function TFacturas_ComisionBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionDESCUENTO]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionDESCUENTO]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionDESCUENTO] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO]; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_DESCUENTO] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetIVAValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA]; end; function TFacturas_ComisionBusinessProcessorRules.GetIVAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldIVAValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIVA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldIVAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIVA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetIVAValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIVA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_IVAValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA]; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_IVA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_IVA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_IVA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetREValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE]; end; function TFacturas_ComisionBusinessProcessorRules.GetREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldREValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetREValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_REValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE]; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_REIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_REValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_RE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_REIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_RE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_REValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_REIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_RE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL]; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_TOTAL]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_TOTAL]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_TOTAL] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings; begin result := f_OBSERVACIONES; result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES]; end; function TFacturas_ComisionBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionOBSERVACIONES]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionOBSERVACIONES]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionOBSERVACIONES] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_CLIENTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_CLIENTE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_CLIENTE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_CLIENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_CLIENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_CLIENTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_CLIENTE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBRE_COMERCIAL_CLIENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBRE_COMERCIAL_CLIENTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE_COMERCIAL_CLIENTE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF]; end; function TFacturas_ComisionBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldNIF_CIFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNIF_CIF]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNIF_CIF]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNIF_CIF] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE]; end; function TFacturas_ComisionBusinessProcessorRules.GetNOMBREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionNOMBRE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionNOMBRE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetCALLEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE]; end; function TFacturas_ComisionBusinessProcessorRules.GetCALLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldCALLEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCALLE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldCALLEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCALLE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetCALLEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCALLE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION]; end; function TFacturas_ComisionBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldPOBLACIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPOBLACION]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPOBLACION]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPOBLACION] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA]; end; function TFacturas_ComisionBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldPROVINCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPROVINCIA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionPROVINCIA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionPROVINCIA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL]; end; function TFacturas_ComisionBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCODIGO_POSTAL]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionCODIGO_POSTAL]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionCODIGO_POSTAL] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA]; end; function TFacturas_ComisionBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_ALTA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_ALTA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_ALTA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION]; end; function TFacturas_ComisionBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_MODIFICACION]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionFECHA_MODIFICACION]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionFECHA_MODIFICACION] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO]; end; function TFacturas_ComisionBusinessProcessorRules.GetUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionUSUARIO]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionUSUARIO]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionUSUARIO] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO]; end; function TFacturas_ComisionBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_FORMA_PAGO]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_FORMA_PAGO]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_FORMA_PAGO] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA]; end; function TFacturas_ComisionBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionRECARGO_EQUIVALENCIA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA]; end; function TFacturas_ComisionBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIPO_IVA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIPO_IVA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIPO_IVA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO]; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_NETO]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_NETO]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_NETO] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_PORTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIMPORTE_PORTE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIMPORTE_PORTE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetID_AGENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetID_AGENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_AGENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_AGENTE]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_AGENTE]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_AGENTE] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION]; end; function TFacturas_ComisionBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA_COMISION]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionREFERENCIA_COMISION]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionREFERENCIA_COMISION] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD]; end; function TFacturas_ComisionBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: SmallInt; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: SmallInt); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionIGNORAR_CONTABILIDAD] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetID_TIENDAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA]; end; function TFacturas_ComisionBusinessProcessorRules.GetID_TIENDAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIENDAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIENDA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_TIENDA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_TIENDA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetTIENDAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA]; end; function TFacturas_ComisionBusinessProcessorRules.GetTIENDAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldTIENDAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIENDA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldTIENDAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionTIENDA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetTIENDAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionTIENDA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetID_SUBCUENTAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA]; end; function TFacturas_ComisionBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_SUBCUENTA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionID_SUBCUENTA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionID_SUBCUENTA] := Null; end; function TFacturas_ComisionBusinessProcessorRules.GetSUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA]; end; function TFacturas_ComisionBusinessProcessorRules.GetSUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA]); end; function TFacturas_ComisionBusinessProcessorRules.GetOldSUBCUENTAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSUBCUENTA]; end; function TFacturas_ComisionBusinessProcessorRules.GetOldSUBCUENTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Facturas_ComisionSUBCUENTA]); end; procedure TFacturas_ComisionBusinessProcessorRules.SetSUBCUENTAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA] := aValue; end; procedure TFacturas_ComisionBusinessProcessorRules.SetSUBCUENTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Facturas_ComisionSUBCUENTA] := Null; end; { TVendedores_ComisionBusinessProcessorRules } constructor TVendedores_ComisionBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TVendedores_ComisionBusinessProcessorRules.Destroy; begin inherited; end; function TVendedores_ComisionBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID]; end; function TVendedores_ComisionBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID]); end; function TVendedores_ComisionBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID]; end; function TVendedores_ComisionBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID]); end; procedure TVendedores_ComisionBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID] := aValue; end; procedure TVendedores_ComisionBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID] := Null; end; function TVendedores_ComisionBusinessProcessorRules.GetID_COMISIONValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_COMISION]; end; function TVendedores_ComisionBusinessProcessorRules.GetID_COMISIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_COMISION]); end; function TVendedores_ComisionBusinessProcessorRules.GetOldID_COMISIONValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID_COMISION]; end; function TVendedores_ComisionBusinessProcessorRules.GetOldID_COMISIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID_COMISION]); end; procedure TVendedores_ComisionBusinessProcessorRules.SetID_COMISIONValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_COMISION] := aValue; end; procedure TVendedores_ComisionBusinessProcessorRules.SetID_COMISIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_COMISION] := Null; end; function TVendedores_ComisionBusinessProcessorRules.GetID_VENDEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_VENDEDOR]; end; function TVendedores_ComisionBusinessProcessorRules.GetID_VENDEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_VENDEDOR]); end; function TVendedores_ComisionBusinessProcessorRules.GetOldID_VENDEDORValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID_VENDEDOR]; end; function TVendedores_ComisionBusinessProcessorRules.GetOldID_VENDEDORIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionID_VENDEDOR]); end; procedure TVendedores_ComisionBusinessProcessorRules.SetID_VENDEDORValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_VENDEDOR] := aValue; end; procedure TVendedores_ComisionBusinessProcessorRules.SetID_VENDEDORIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionID_VENDEDOR] := Null; end; function TVendedores_ComisionBusinessProcessorRules.GetNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionNOMBRE]; end; function TVendedores_ComisionBusinessProcessorRules.GetNOMBREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionNOMBRE]); end; function TVendedores_ComisionBusinessProcessorRules.GetOldNOMBREValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionNOMBRE]; end; function TVendedores_ComisionBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionNOMBRE]); end; procedure TVendedores_ComisionBusinessProcessorRules.SetNOMBREValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionNOMBRE] := aValue; end; procedure TVendedores_ComisionBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionNOMBRE] := Null; end; function TVendedores_ComisionBusinessProcessorRules.GetCOMISIONValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionCOMISION]; end; function TVendedores_ComisionBusinessProcessorRules.GetCOMISIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionCOMISION]); end; function TVendedores_ComisionBusinessProcessorRules.GetOldCOMISIONValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionCOMISION]; end; function TVendedores_ComisionBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionCOMISION]); end; procedure TVendedores_ComisionBusinessProcessorRules.SetCOMISIONValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionCOMISION] := aValue; end; procedure TVendedores_ComisionBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionCOMISION] := Null; end; function TVendedores_ComisionBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL]; end; function TVendedores_ComisionBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL]); end; function TVendedores_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL]; end; function TVendedores_ComisionBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL]); end; procedure TVendedores_ComisionBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL] := aValue; end; procedure TVendedores_ComisionBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_Vendedores_ComisionIMPORTE_TOTAL] := Null; end; { TComisionesBusinessProcessorRules } constructor TComisionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor TComisionesBusinessProcessorRules.Destroy; begin inherited; end; function TComisionesBusinessProcessorRules.GetIDValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID]; end; function TComisionesBusinessProcessorRules.GetIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID]); end; function TComisionesBusinessProcessorRules.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID]; end; function TComisionesBusinessProcessorRules.GetOldIDIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID]); end; procedure TComisionesBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID] := aValue; end; procedure TComisionesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID] := Null; end; function TComisionesBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA]; end; function TComisionesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA]); end; function TComisionesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_EMPRESA]; end; function TComisionesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_EMPRESA]); end; procedure TComisionesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA] := aValue; end; procedure TComisionesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA] := Null; end; function TComisionesBusinessProcessorRules.GetREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA]; end; function TComisionesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA]); end; function TComisionesBusinessProcessorRules.GetOldREFERENCIAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesREFERENCIA]; end; function TComisionesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesREFERENCIA]); end; procedure TComisionesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA] := aValue; end; procedure TComisionesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA] := Null; end; function TComisionesBusinessProcessorRules.GetID_AGENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE]; end; function TComisionesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE]); end; function TComisionesBusinessProcessorRules.GetOldID_AGENTEValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_AGENTE]; end; function TComisionesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_AGENTE]); end; procedure TComisionesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE] := aValue; end; procedure TComisionesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE] := Null; end; function TComisionesBusinessProcessorRules.GetDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION]; end; function TComisionesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION]); end; function TComisionesBusinessProcessorRules.GetOldDESCRIPCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesDESCRIPCION]; end; function TComisionesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesDESCRIPCION]); end; procedure TComisionesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION] := aValue; end; procedure TComisionesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION] := Null; end; function TComisionesBusinessProcessorRules.GetFECHAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA]; end; function TComisionesBusinessProcessorRules.GetFECHAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA]); end; function TComisionesBusinessProcessorRules.GetOldFECHAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA]; end; function TComisionesBusinessProcessorRules.GetOldFECHAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA]); end; procedure TComisionesBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA] := aValue; end; procedure TComisionesBusinessProcessorRules.SetFECHAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA] := Null; end; function TComisionesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL]; end; function TComisionesBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL]); end; function TComisionesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesIMPORTE_TOTAL]; end; function TComisionesBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesIMPORTE_TOTAL]); end; procedure TComisionesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL] := aValue; end; procedure TComisionesBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL] := Null; end; function TComisionesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA]; end; function TComisionesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA]); end; function TComisionesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_ALTA]; end; function TComisionesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_ALTA]); end; procedure TComisionesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA] := aValue; end; procedure TComisionesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_ALTA] := Null; end; function TComisionesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION]; end; function TComisionesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION]); end; function TComisionesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_MODIFICACION]; end; function TComisionesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA_MODIFICACION]); end; procedure TComisionesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION] := aValue; end; procedure TComisionesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA_MODIFICACION] := Null; end; function TComisionesBusinessProcessorRules.GetUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO]; end; function TComisionesBusinessProcessorRules.GetUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO]); end; function TComisionesBusinessProcessorRules.GetOldUSUARIOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesUSUARIO]; end; function TComisionesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesUSUARIO]); end; procedure TComisionesBusinessProcessorRules.SetUSUARIOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO] := aValue; end; procedure TComisionesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); begin if aValue then BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO] := Null; end; initialization RegisterBusinessProcessorRules(RID_Facturas_ComisionDelta, TFacturas_ComisionBusinessProcessorRules); RegisterBusinessProcessorRules(RID_Vendedores_ComisionDelta, TVendedores_ComisionBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ComisionesDelta, TComisionesBusinessProcessorRules); end.