roberto
4dc42f3a9d
Tareas #1246: En albaranes de cliente debe salir la base imponible (y no el importe total) Tareas #1248: REvisar agrupaciones facturas proveedor Tareas #1254: Que al seleccionar el cliente se copie la forma de pago del mismo Tareas #1255: Forma de pago, notas y observaciones a nivel de empresa Tareas #1261: Se arregla el tipo de id_tipo_IVA y ID_forma_pago de empresa para que soporte integers Tareas #1264: Revisar el guardar los datos de configuración de la empresa ya que da error Tareas #1265: Revisar forma de pago por defecto de los contactos ya que no está bien Tareas #1269: Que en la lista de contratos se puedan ver las facturas asociadas si las tuviera git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@84 93f398dd-4eb6-7a46-baf6-13f46f578da2
2475 lines
103 KiB
ObjectPascal
2475 lines
103 KiB
ObjectPascal
unit schEmpresasServer_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schEmpresasClient_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_EmpresasTiendasDelta = '{C2DF8351-F4BD-45D9-B158-5B6229017A94}';
|
|
RID_DarNombreDelta = '{E132F7C4-76CF-4381-A65F-3FE396C43927}';
|
|
RID_EmpresasDelta = '{7F3E50C3-3DF3-44E3-A6DF-5159F721FC65}';
|
|
RID_EmpresasDatosBancoDelta = '{8444CEF5-4F93-4913-ADC9-EA4151961E85}';
|
|
|
|
type
|
|
{ IEmpresasTiendasDelta }
|
|
IEmpresasTiendasDelta = interface(IEmpresasTiendas)
|
|
['{C2DF8351-F4BD-45D9-B158-5B6229017A94}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldCALLEValue : String;
|
|
function GetOldPOBLACIONValue : String;
|
|
function GetOldPROVINCIAValue : String;
|
|
function GetOldCODIGO_POSTALValue : String;
|
|
function GetOldPERSONA_CONTACTOValue : String;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldTELEFONOValue : String;
|
|
function GetOldMOVILValue : String;
|
|
function GetOldFAXValue : String;
|
|
function GetOldEMAILValue : String;
|
|
function GetOldNOTASValue : IROStrings;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldCODIGO_CONTABLEValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldTELEFONO : String read GetOldTELEFONOValue;
|
|
property OldMOVIL : String read GetOldMOVILValue;
|
|
property OldFAX : String read GetOldFAXValue;
|
|
property OldEMAIL : String read GetOldEMAILValue;
|
|
property OldNOTAS : IROStrings read GetOldNOTASValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue;
|
|
end;
|
|
|
|
{ TEmpresasTiendasBusinessProcessorRules }
|
|
TEmpresasTiendasBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpresasTiendas, IEmpresasTiendasDelta)
|
|
private
|
|
f_NOTAS: IROStrings;
|
|
procedure NOTAS_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 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 GetPERSONA_CONTACTOValue: String; virtual;
|
|
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
|
|
function GetOldPERSONA_CONTACTOValue: String; virtual;
|
|
function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
|
|
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
|
|
procedure SetPERSONA_CONTACTOIsNull(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 GetTELEFONOValue: String; virtual;
|
|
function GetTELEFONOIsNull: Boolean; virtual;
|
|
function GetOldTELEFONOValue: String; virtual;
|
|
function GetOldTELEFONOIsNull: Boolean; virtual;
|
|
procedure SetTELEFONOValue(const aValue: String); virtual;
|
|
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
|
|
function GetMOVILValue: String; virtual;
|
|
function GetMOVILIsNull: Boolean; virtual;
|
|
function GetOldMOVILValue: String; virtual;
|
|
function GetOldMOVILIsNull: Boolean; virtual;
|
|
procedure SetMOVILValue(const aValue: String); virtual;
|
|
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
|
|
function GetFAXValue: String; virtual;
|
|
function GetFAXIsNull: Boolean; virtual;
|
|
function GetOldFAXValue: String; virtual;
|
|
function GetOldFAXIsNull: Boolean; virtual;
|
|
procedure SetFAXValue(const aValue: String); virtual;
|
|
procedure SetFAXIsNull(const aValue: Boolean); virtual;
|
|
function GetEMAILValue: String; virtual;
|
|
function GetEMAILIsNull: Boolean; virtual;
|
|
function GetOldEMAILValue: String; virtual;
|
|
function GetOldEMAILIsNull: Boolean; virtual;
|
|
procedure SetEMAILValue(const aValue: String); virtual;
|
|
procedure SetEMAILIsNull(const aValue: Boolean); virtual;
|
|
function GetNOTASValue: IROStrings; virtual;
|
|
function GetNOTASIsNull: Boolean; virtual;
|
|
function GetOldNOTASValue: IROStrings; virtual;
|
|
function GetOldNOTASIsNull: Boolean; virtual;
|
|
procedure SetNOTASIsNull(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 GetCODIGO_CONTABLEValue: String; virtual;
|
|
function GetCODIGO_CONTABLEIsNull: Boolean; virtual;
|
|
function GetOldCODIGO_CONTABLEValue: String; virtual;
|
|
function GetOldCODIGO_CONTABLEIsNull: Boolean; virtual;
|
|
procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual;
|
|
procedure SetCODIGO_CONTABLEIsNull(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 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 PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
|
|
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
|
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
|
property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
|
|
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 TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
|
|
property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
|
|
property OldTELEFONO : String read GetOldTELEFONOValue;
|
|
property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
|
|
property MOVIL : String read GetMOVILValue write SetMOVILValue;
|
|
property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
|
|
property OldMOVIL : String read GetOldMOVILValue;
|
|
property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
|
|
property FAX : String read GetFAXValue write SetFAXValue;
|
|
property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
|
|
property OldFAX : String read GetOldFAXValue;
|
|
property OldFAXIsNull : Boolean read GetOldFAXIsNull;
|
|
property EMAIL : String read GetEMAILValue write SetEMAILValue;
|
|
property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull;
|
|
property OldEMAIL : String read GetOldEMAILValue;
|
|
property OldEMAILIsNull : Boolean read GetOldEMAILIsNull;
|
|
property NOTAS : IROStrings read GetNOTASValue;
|
|
property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
|
|
property OldNOTAS : IROStrings read GetOldNOTASValue;
|
|
property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
|
|
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 CODIGO_CONTABLE : String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
|
|
property CODIGO_CONTABLEIsNull : Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
|
|
property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue;
|
|
property OldCODIGO_CONTABLEIsNull : Boolean read GetOldCODIGO_CONTABLEIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IDarNombreDelta }
|
|
IDarNombreDelta = interface(IDarNombre)
|
|
['{E132F7C4-76CF-4381-A65F-3FE396C43927}']
|
|
{ Property getters and setters }
|
|
function GetOldNOMBREValue : String;
|
|
|
|
{ Properties }
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
end;
|
|
|
|
{ TDarNombreBusinessProcessorRules }
|
|
TDarNombreBusinessProcessorRules = class(TDABusinessProcessorRules, IDarNombre, IDarNombreDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
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;
|
|
|
|
{ Properties }
|
|
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
|
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IEmpresasDelta }
|
|
IEmpresasDelta = interface(IEmpresas)
|
|
['{7F3E50C3-3DF3-44E3-A6DF-5159F721FC65}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldNIF_CIFValue : String;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldRAZON_SOCIALValue : String;
|
|
function GetOldCALLEValue : String;
|
|
function GetOldPOBLACIONValue : String;
|
|
function GetOldPROVINCIAValue : String;
|
|
function GetOldCODIGO_POSTALValue : String;
|
|
function GetOldTELEFONO_1Value : String;
|
|
function GetOldTELEFONO_2Value : String;
|
|
function GetOldMOVIL_1Value : String;
|
|
function GetOldMOVIL_2Value : String;
|
|
function GetOldFAXValue : String;
|
|
function GetOldEMAIL_1Value : String;
|
|
function GetOldEMAIL_2Value : String;
|
|
function GetOldPAGINA_WEBValue : String;
|
|
function GetOldNOTASValue : IROStrings;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldUSUARIOValue : String;
|
|
function GetOldLOGOTIPOValue : IROStream;
|
|
function GetOldREGISTRO_MERCANTILValue : String;
|
|
function GetOldID_TIPO_IVAValue : Integer;
|
|
function GetOldIVAValue : Float;
|
|
function GetOldID_FORMA_PAGOValue : Integer;
|
|
function GetOldVALIDEZ_PRESUPUESTOSValue : SmallInt;
|
|
function GetOldPRECIO_PUNTOValue : Currency;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue;
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
|
|
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
|
|
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
|
|
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
|
|
property OldFAX : String read GetOldFAXValue;
|
|
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
|
|
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
|
|
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
|
|
property OldNOTAS : IROStrings read GetOldNOTASValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
|
property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue;
|
|
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
|
|
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
|
|
property OldIVA : Float read GetOldIVAValue;
|
|
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
|
|
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
|
|
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
|
|
end;
|
|
|
|
{ TEmpresasBusinessProcessorRules }
|
|
TEmpresasBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpresas, IEmpresasDelta)
|
|
private
|
|
f_NOTAS: IROStrings;
|
|
f_LOGOTIPO: IROStream;
|
|
procedure NOTAS_OnChange(Sender: TObject);
|
|
procedure LOGOTIPO_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 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 GetRAZON_SOCIALValue: String; virtual;
|
|
function GetRAZON_SOCIALIsNull: Boolean; virtual;
|
|
function GetOldRAZON_SOCIALValue: String; virtual;
|
|
function GetOldRAZON_SOCIALIsNull: Boolean; virtual;
|
|
procedure SetRAZON_SOCIALValue(const aValue: String); virtual;
|
|
procedure SetRAZON_SOCIALIsNull(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 GetTELEFONO_1Value: String; virtual;
|
|
function GetTELEFONO_1IsNull: Boolean; virtual;
|
|
function GetOldTELEFONO_1Value: String; virtual;
|
|
function GetOldTELEFONO_1IsNull: Boolean; virtual;
|
|
procedure SetTELEFONO_1Value(const aValue: String); virtual;
|
|
procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual;
|
|
function GetTELEFONO_2Value: String; virtual;
|
|
function GetTELEFONO_2IsNull: Boolean; virtual;
|
|
function GetOldTELEFONO_2Value: String; virtual;
|
|
function GetOldTELEFONO_2IsNull: Boolean; virtual;
|
|
procedure SetTELEFONO_2Value(const aValue: String); virtual;
|
|
procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual;
|
|
function GetMOVIL_1Value: String; virtual;
|
|
function GetMOVIL_1IsNull: Boolean; virtual;
|
|
function GetOldMOVIL_1Value: String; virtual;
|
|
function GetOldMOVIL_1IsNull: Boolean; virtual;
|
|
procedure SetMOVIL_1Value(const aValue: String); virtual;
|
|
procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual;
|
|
function GetMOVIL_2Value: String; virtual;
|
|
function GetMOVIL_2IsNull: Boolean; virtual;
|
|
function GetOldMOVIL_2Value: String; virtual;
|
|
function GetOldMOVIL_2IsNull: Boolean; virtual;
|
|
procedure SetMOVIL_2Value(const aValue: String); virtual;
|
|
procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual;
|
|
function GetFAXValue: String; virtual;
|
|
function GetFAXIsNull: Boolean; virtual;
|
|
function GetOldFAXValue: String; virtual;
|
|
function GetOldFAXIsNull: Boolean; virtual;
|
|
procedure SetFAXValue(const aValue: String); virtual;
|
|
procedure SetFAXIsNull(const aValue: Boolean); virtual;
|
|
function GetEMAIL_1Value: String; virtual;
|
|
function GetEMAIL_1IsNull: Boolean; virtual;
|
|
function GetOldEMAIL_1Value: String; virtual;
|
|
function GetOldEMAIL_1IsNull: Boolean; virtual;
|
|
procedure SetEMAIL_1Value(const aValue: String); virtual;
|
|
procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual;
|
|
function GetEMAIL_2Value: String; virtual;
|
|
function GetEMAIL_2IsNull: Boolean; virtual;
|
|
function GetOldEMAIL_2Value: String; virtual;
|
|
function GetOldEMAIL_2IsNull: Boolean; virtual;
|
|
procedure SetEMAIL_2Value(const aValue: String); virtual;
|
|
procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual;
|
|
function GetPAGINA_WEBValue: String; virtual;
|
|
function GetPAGINA_WEBIsNull: Boolean; virtual;
|
|
function GetOldPAGINA_WEBValue: String; virtual;
|
|
function GetOldPAGINA_WEBIsNull: Boolean; virtual;
|
|
procedure SetPAGINA_WEBValue(const aValue: String); virtual;
|
|
procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual;
|
|
function GetNOTASValue: IROStrings; virtual;
|
|
function GetNOTASIsNull: Boolean; virtual;
|
|
function GetOldNOTASValue: IROStrings; virtual;
|
|
function GetOldNOTASIsNull: Boolean; virtual;
|
|
procedure SetNOTASIsNull(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 GetLOGOTIPOValue: IROStream; virtual;
|
|
function GetLOGOTIPOIsNull: Boolean; virtual;
|
|
function GetOldLOGOTIPOValue: IROStream; virtual;
|
|
function GetOldLOGOTIPOIsNull: Boolean; virtual;
|
|
procedure SetLOGOTIPOIsNull(const aValue: Boolean); virtual;
|
|
function GetREGISTRO_MERCANTILValue: String; virtual;
|
|
function GetREGISTRO_MERCANTILIsNull: Boolean; virtual;
|
|
function GetOldREGISTRO_MERCANTILValue: String; virtual;
|
|
function GetOldREGISTRO_MERCANTILIsNull: Boolean; virtual;
|
|
procedure SetREGISTRO_MERCANTILValue(const aValue: String); virtual;
|
|
procedure SetREGISTRO_MERCANTILIsNull(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 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 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 GetVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
|
|
function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
|
|
function GetOldVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
|
|
function GetOldVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
|
|
procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt); virtual;
|
|
procedure SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean); virtual;
|
|
function GetPRECIO_PUNTOValue: Currency; virtual;
|
|
function GetPRECIO_PUNTOIsNull: Boolean; virtual;
|
|
function GetOldPRECIO_PUNTOValue: Currency; virtual;
|
|
function GetOldPRECIO_PUNTOIsNull: Boolean; virtual;
|
|
procedure SetPRECIO_PUNTOValue(const aValue: Currency); virtual;
|
|
procedure SetPRECIO_PUNTOIsNull(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 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 RAZON_SOCIAL : String read GetRAZON_SOCIALValue write SetRAZON_SOCIALValue;
|
|
property RAZON_SOCIALIsNull : Boolean read GetRAZON_SOCIALIsNull write SetRAZON_SOCIALIsNull;
|
|
property OldRAZON_SOCIAL : String read GetOldRAZON_SOCIALValue;
|
|
property OldRAZON_SOCIALIsNull : Boolean read GetOldRAZON_SOCIALIsNull;
|
|
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 TELEFONO_1 : String read GetTELEFONO_1Value write SetTELEFONO_1Value;
|
|
property TELEFONO_1IsNull : Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull;
|
|
property OldTELEFONO_1 : String read GetOldTELEFONO_1Value;
|
|
property OldTELEFONO_1IsNull : Boolean read GetOldTELEFONO_1IsNull;
|
|
property TELEFONO_2 : String read GetTELEFONO_2Value write SetTELEFONO_2Value;
|
|
property TELEFONO_2IsNull : Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull;
|
|
property OldTELEFONO_2 : String read GetOldTELEFONO_2Value;
|
|
property OldTELEFONO_2IsNull : Boolean read GetOldTELEFONO_2IsNull;
|
|
property MOVIL_1 : String read GetMOVIL_1Value write SetMOVIL_1Value;
|
|
property MOVIL_1IsNull : Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull;
|
|
property OldMOVIL_1 : String read GetOldMOVIL_1Value;
|
|
property OldMOVIL_1IsNull : Boolean read GetOldMOVIL_1IsNull;
|
|
property MOVIL_2 : String read GetMOVIL_2Value write SetMOVIL_2Value;
|
|
property MOVIL_2IsNull : Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull;
|
|
property OldMOVIL_2 : String read GetOldMOVIL_2Value;
|
|
property OldMOVIL_2IsNull : Boolean read GetOldMOVIL_2IsNull;
|
|
property FAX : String read GetFAXValue write SetFAXValue;
|
|
property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
|
|
property OldFAX : String read GetOldFAXValue;
|
|
property OldFAXIsNull : Boolean read GetOldFAXIsNull;
|
|
property EMAIL_1 : String read GetEMAIL_1Value write SetEMAIL_1Value;
|
|
property EMAIL_1IsNull : Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull;
|
|
property OldEMAIL_1 : String read GetOldEMAIL_1Value;
|
|
property OldEMAIL_1IsNull : Boolean read GetOldEMAIL_1IsNull;
|
|
property EMAIL_2 : String read GetEMAIL_2Value write SetEMAIL_2Value;
|
|
property EMAIL_2IsNull : Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull;
|
|
property OldEMAIL_2 : String read GetOldEMAIL_2Value;
|
|
property OldEMAIL_2IsNull : Boolean read GetOldEMAIL_2IsNull;
|
|
property PAGINA_WEB : String read GetPAGINA_WEBValue write SetPAGINA_WEBValue;
|
|
property PAGINA_WEBIsNull : Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull;
|
|
property OldPAGINA_WEB : String read GetOldPAGINA_WEBValue;
|
|
property OldPAGINA_WEBIsNull : Boolean read GetOldPAGINA_WEBIsNull;
|
|
property NOTAS : IROStrings read GetNOTASValue;
|
|
property NOTASIsNull : Boolean read GetNOTASIsNull write SetNOTASIsNull;
|
|
property OldNOTAS : IROStrings read GetOldNOTASValue;
|
|
property OldNOTASIsNull : Boolean read GetOldNOTASIsNull;
|
|
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 LOGOTIPO : IROStream read GetLOGOTIPOValue;
|
|
property LOGOTIPOIsNull : Boolean read GetLOGOTIPOIsNull write SetLOGOTIPOIsNull;
|
|
property OldLOGOTIPO : IROStream read GetOldLOGOTIPOValue;
|
|
property OldLOGOTIPOIsNull : Boolean read GetOldLOGOTIPOIsNull;
|
|
property REGISTRO_MERCANTIL : String read GetREGISTRO_MERCANTILValue write SetREGISTRO_MERCANTILValue;
|
|
property REGISTRO_MERCANTILIsNull : Boolean read GetREGISTRO_MERCANTILIsNull write SetREGISTRO_MERCANTILIsNull;
|
|
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
|
|
property OldREGISTRO_MERCANTILIsNull : Boolean read GetOldREGISTRO_MERCANTILIsNull;
|
|
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 IVA : Float read GetIVAValue write SetIVAValue;
|
|
property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
|
|
property OldIVA : Float read GetOldIVAValue;
|
|
property OldIVAIsNull : Boolean read GetOldIVAIsNull;
|
|
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 VALIDEZ_PRESUPUESTOS : SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
|
|
property VALIDEZ_PRESUPUESTOSIsNull : Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
|
|
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
|
|
property OldVALIDEZ_PRESUPUESTOSIsNull : Boolean read GetOldVALIDEZ_PRESUPUESTOSIsNull;
|
|
property PRECIO_PUNTO : Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
|
|
property PRECIO_PUNTOIsNull : Boolean read GetPRECIO_PUNTOIsNull write SetPRECIO_PUNTOIsNull;
|
|
property OldPRECIO_PUNTO : Currency read GetOldPRECIO_PUNTOValue;
|
|
property OldPRECIO_PUNTOIsNull : Boolean read GetOldPRECIO_PUNTOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IEmpresasDatosBancoDelta }
|
|
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
|
|
['{8444CEF5-4F93-4913-ADC9-EA4151961E85}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldENTIDADValue : String;
|
|
function GetOldSUCURSALValue : String;
|
|
function GetOldDCValue : String;
|
|
function GetOldCUENTAValue : String;
|
|
function GetOldSUFIJO_N19Value : String;
|
|
function GetOldSUFIJO_N58Value : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldENTIDAD : String read GetOldENTIDADValue;
|
|
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
|
property OldDC : String read GetOldDCValue;
|
|
property OldCUENTA : String read GetOldCUENTAValue;
|
|
property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
|
|
property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
|
|
end;
|
|
|
|
{ TEmpresasDatosBancoBusinessProcessorRules }
|
|
TEmpresasDatosBancoBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpresasDatosBanco, IEmpresasDatosBancoDelta)
|
|
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 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 GetENTIDADValue: String; virtual;
|
|
function GetENTIDADIsNull: Boolean; virtual;
|
|
function GetOldENTIDADValue: String; virtual;
|
|
function GetOldENTIDADIsNull: Boolean; virtual;
|
|
procedure SetENTIDADValue(const aValue: String); virtual;
|
|
procedure SetENTIDADIsNull(const aValue: Boolean); virtual;
|
|
function GetSUCURSALValue: String; virtual;
|
|
function GetSUCURSALIsNull: Boolean; virtual;
|
|
function GetOldSUCURSALValue: String; virtual;
|
|
function GetOldSUCURSALIsNull: Boolean; virtual;
|
|
procedure SetSUCURSALValue(const aValue: String); virtual;
|
|
procedure SetSUCURSALIsNull(const aValue: Boolean); virtual;
|
|
function GetDCValue: String; virtual;
|
|
function GetDCIsNull: Boolean; virtual;
|
|
function GetOldDCValue: String; virtual;
|
|
function GetOldDCIsNull: Boolean; virtual;
|
|
procedure SetDCValue(const aValue: String); virtual;
|
|
procedure SetDCIsNull(const aValue: Boolean); virtual;
|
|
function GetCUENTAValue: String; virtual;
|
|
function GetCUENTAIsNull: Boolean; virtual;
|
|
function GetOldCUENTAValue: String; virtual;
|
|
function GetOldCUENTAIsNull: Boolean; virtual;
|
|
procedure SetCUENTAValue(const aValue: String); virtual;
|
|
procedure SetCUENTAIsNull(const aValue: Boolean); virtual;
|
|
function GetSUFIJO_N19Value: String; virtual;
|
|
function GetSUFIJO_N19IsNull: Boolean; virtual;
|
|
function GetOldSUFIJO_N19Value: String; virtual;
|
|
function GetOldSUFIJO_N19IsNull: Boolean; virtual;
|
|
procedure SetSUFIJO_N19Value(const aValue: String); virtual;
|
|
procedure SetSUFIJO_N19IsNull(const aValue: Boolean); virtual;
|
|
function GetSUFIJO_N58Value: String; virtual;
|
|
function GetSUFIJO_N58IsNull: Boolean; virtual;
|
|
function GetOldSUFIJO_N58Value: String; virtual;
|
|
function GetOldSUFIJO_N58IsNull: Boolean; virtual;
|
|
procedure SetSUFIJO_N58Value(const aValue: String); virtual;
|
|
procedure SetSUFIJO_N58IsNull(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 NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
|
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
|
property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
|
|
property ENTIDADIsNull : Boolean read GetENTIDADIsNull write SetENTIDADIsNull;
|
|
property OldENTIDAD : String read GetOldENTIDADValue;
|
|
property OldENTIDADIsNull : Boolean read GetOldENTIDADIsNull;
|
|
property SUCURSAL : String read GetSUCURSALValue write SetSUCURSALValue;
|
|
property SUCURSALIsNull : Boolean read GetSUCURSALIsNull write SetSUCURSALIsNull;
|
|
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
|
property OldSUCURSALIsNull : Boolean read GetOldSUCURSALIsNull;
|
|
property DC : String read GetDCValue write SetDCValue;
|
|
property DCIsNull : Boolean read GetDCIsNull write SetDCIsNull;
|
|
property OldDC : String read GetOldDCValue;
|
|
property OldDCIsNull : Boolean read GetOldDCIsNull;
|
|
property CUENTA : String read GetCUENTAValue write SetCUENTAValue;
|
|
property CUENTAIsNull : Boolean read GetCUENTAIsNull write SetCUENTAIsNull;
|
|
property OldCUENTA : String read GetOldCUENTAValue;
|
|
property OldCUENTAIsNull : Boolean read GetOldCUENTAIsNull;
|
|
property SUFIJO_N19 : String read GetSUFIJO_N19Value write SetSUFIJO_N19Value;
|
|
property SUFIJO_N19IsNull : Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull;
|
|
property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
|
|
property OldSUFIJO_N19IsNull : Boolean read GetOldSUFIJO_N19IsNull;
|
|
property SUFIJO_N58 : String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
|
|
property SUFIJO_N58IsNull : Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull;
|
|
property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
|
|
property OldSUFIJO_N58IsNull : Boolean read GetOldSUFIJO_N58IsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uROBinaryHelpers, uDAInterfaces;
|
|
|
|
{ TEmpresasTiendasBusinessProcessorRules }
|
|
constructor TEmpresasTiendasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor TEmpresasTiendasBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasID];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasID]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasID];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasID]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasID] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasID] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasID_EMPRESA];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasID_EMPRESA]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasID_EMPRESA];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCALLE];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCALLE]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCALLE];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCALLE]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCALLE] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPOBLACION];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPOBLACION]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasPOBLACION];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasPOBLACION]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPOBLACION] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPROVINCIA];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPROVINCIA]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasPROVINCIA];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasPROVINCIA]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPERSONA_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasPERSONA_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasNOMBRE];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasNOMBRE]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasNOMBRE];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasNOMBRE]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasNOMBRE] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetTELEFONOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasTELEFONO];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasTELEFONO]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldTELEFONOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasTELEFONO];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasTELEFONO]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasTELEFONO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasTELEFONO] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetMOVILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasMOVIL];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetMOVILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasMOVIL]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldMOVILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasMOVIL];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasMOVIL]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetMOVILValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasMOVIL] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasMOVIL] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFAX];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFAX]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasFAX];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasFAX]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFAX] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFAX] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetEMAILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasEMAIL];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetEMAILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasEMAIL]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldEMAILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasEMAIL];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasEMAIL]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetEMAILValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasEMAIL] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasEMAIL] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasNOTAS];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasNOTAS]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasNOTAS];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasNOTAS]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasNOTAS] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_ALTA];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_ALTA]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasFECHA_ALTA];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetCODIGO_CONTABLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetCODIGO_CONTABLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE]);
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldCODIGO_CONTABLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCODIGO_CONTABLE];
|
|
end;
|
|
|
|
function TEmpresasTiendasBusinessProcessorRules.GetOldCODIGO_CONTABLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCODIGO_CONTABLE]);
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetCODIGO_CONTABLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasTiendasBusinessProcessorRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE] := Null;
|
|
end;
|
|
|
|
|
|
{ TDarNombreBusinessProcessorRules }
|
|
constructor TDarNombreBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TDarNombreBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TDarNombreBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarNombreNOMBRE];
|
|
end;
|
|
|
|
function TDarNombreBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarNombreNOMBRE]);
|
|
end;
|
|
|
|
function TDarNombreBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarNombreNOMBRE];
|
|
end;
|
|
|
|
function TDarNombreBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarNombreNOMBRE]);
|
|
end;
|
|
|
|
procedure TDarNombreBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DarNombreNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TDarNombreBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DarNombreNOMBRE] := Null;
|
|
end;
|
|
|
|
|
|
{ TEmpresasBusinessProcessorRules }
|
|
constructor TEmpresasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
ROStream: TROStream;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
|
|
ROStream := TROStream.Create;
|
|
ROStream.OnChange := LOGOTIPO_OnChange;
|
|
f_LOGOTIPO := ROStream;
|
|
end;
|
|
|
|
destructor TEmpresasBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.LOGOTIPO_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasLOGOTIPO] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNIF_CIF];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNIF_CIF]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNIF_CIF];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNIF_CIF]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNIF_CIF] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNIF_CIF] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOMBRE];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOMBRE]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNOMBRE];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNOMBRE]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOMBRE] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetRAZON_SOCIALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasRAZON_SOCIAL];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetRAZON_SOCIALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasRAZON_SOCIAL]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldRAZON_SOCIALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasRAZON_SOCIAL];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldRAZON_SOCIALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasRAZON_SOCIAL]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetRAZON_SOCIALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasRAZON_SOCIAL] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetRAZON_SOCIALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasRAZON_SOCIAL] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCALLE];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCALLE]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasCALLE];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasCALLE]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCALLE] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPOBLACION];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPOBLACION]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPOBLACION];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPOBLACION]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPOBLACION] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPROVINCIA];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPROVINCIA]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPROVINCIA];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPROVINCIA]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_1];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_1]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTELEFONO_1];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTELEFONO_1]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_1] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_1] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_2];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_2]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTELEFONO_2];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTELEFONO_2]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_2] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTELEFONO_2] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_1];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_1]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasMOVIL_1];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasMOVIL_1]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_1] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_2];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_2]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasMOVIL_2];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasMOVIL_2]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasMOVIL_2] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFAX];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFAX]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFAX];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFAX]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFAX] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFAX] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_1];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_1]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasEMAIL_1];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasEMAIL_1]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_1] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_2];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_2]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasEMAIL_2];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasEMAIL_2]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasEMAIL_2] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPAGINA_WEB];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPAGINA_WEB]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPAGINA_WEB];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPAGINA_WEB]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPAGINA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPAGINA_WEB] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOTAS];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOTAS]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNOTAS];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasNOTAS]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasNOTAS] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_ALTA];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_ALTA]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFECHA_ALTA];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasUSUARIO];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasUSUARIO]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasUSUARIO];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasUSUARIO]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasUSUARIO] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetLOGOTIPOValue: IROStream;
|
|
begin
|
|
result := f_LOGOTIPO;
|
|
result.Position := 0;
|
|
if not Result.InUpdateMode then begin
|
|
BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasLOGOTIPO], result.Stream);
|
|
result.Position := 0;
|
|
end;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetLOGOTIPOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasLOGOTIPO]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldLOGOTIPOValue: IROStream;
|
|
begin
|
|
result := NewROStream();
|
|
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasLOGOTIPO], result.Stream);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldLOGOTIPOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasLOGOTIPO]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetLOGOTIPOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasLOGOTIPO] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetREGISTRO_MERCANTILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetREGISTRO_MERCANTILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldREGISTRO_MERCANTILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasREGISTRO_MERCANTIL];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldREGISTRO_MERCANTILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasREGISTRO_MERCANTIL]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetREGISTRO_MERCANTILValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetREGISTRO_MERCANTILIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasREGISTRO_MERCANTIL] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_TIPO_IVA];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_TIPO_IVA]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_TIPO_IVA];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_TIPO_IVA]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_TIPO_IVA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_TIPO_IVA] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetIVAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetIVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldIVAValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasIVA];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldIVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasIVA]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetIVAValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasIVA] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_FORMA_PAGO];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_FORMA_PAGO]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetVALIDEZ_PRESUPUESTOSIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldVALIDEZ_PRESUPUESTOSValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldVALIDEZ_PRESUPUESTOSIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetVALIDEZ_PRESUPUESTOSIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS] := Null;
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetPRECIO_PUNTOValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPRECIO_PUNTO];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetPRECIO_PUNTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPRECIO_PUNTO]);
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldPRECIO_PUNTOValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPRECIO_PUNTO];
|
|
end;
|
|
|
|
function TEmpresasBusinessProcessorRules.GetOldPRECIO_PUNTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasPRECIO_PUNTO]);
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetPRECIO_PUNTOValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPRECIO_PUNTO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasBusinessProcessorRules.SetPRECIO_PUNTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasPRECIO_PUNTO] := Null;
|
|
end;
|
|
|
|
|
|
{ TEmpresasDatosBancoBusinessProcessorRules }
|
|
constructor TEmpresasDatosBancoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TEmpresasDatosBancoBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID]);
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoID];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoID]);
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID] := Null;
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID_EMPRESA];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID_EMPRESA]);
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoID_EMPRESA];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoNOMBRE];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoNOMBRE]);
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoNOMBRE];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoNOMBRE]);
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoNOMBRE] := Null;
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoENTIDAD];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetENTIDADIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoENTIDAD]);
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoENTIDAD];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldENTIDADIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoENTIDAD]);
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetENTIDADValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoENTIDAD] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoENTIDAD] := Null;
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUCURSAL];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetSUCURSALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUCURSAL]);
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUCURSAL];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUCURSAL]);
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUCURSAL] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUCURSAL] := Null;
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoDC];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetDCIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoDC]);
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoDC];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldDCIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoDC]);
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetDCValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoDC] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetDCIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoDC] := Null;
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoCUENTA];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoCUENTA]);
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoCUENTA];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoCUENTA]);
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetCUENTAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoCUENTA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoCUENTA] := Null;
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N19Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N19];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N19IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N19]);
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N19Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUFIJO_N19];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N19IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUFIJO_N19]);
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N19Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N19] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N19IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N19] := Null;
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N58Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N58];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetSUFIJO_N58IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N58]);
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N58Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUFIJO_N58];
|
|
end;
|
|
|
|
function TEmpresasDatosBancoBusinessProcessorRules.GetOldSUFIJO_N58IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSUFIJO_N58]);
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N58Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N58] := aValue;
|
|
end;
|
|
|
|
procedure TEmpresasDatosBancoBusinessProcessorRules.SetSUFIJO_N58IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N58] := Null;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_EmpresasTiendasDelta, TEmpresasTiendasBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_DarNombreDelta, TDarNombreBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_EmpresasDelta, TEmpresasBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_EmpresasDatosBancoDelta, TEmpresasDatosBancoBusinessProcessorRules);
|
|
|
|
end.
|