roberto
a9dfac9b18
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@226 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
15341 lines
655 KiB
ObjectPascal
15341 lines
655 KiB
ObjectPascal
unit schContactosServer_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schContactosClient_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_ContactosDelta = '{BCA34A69-E498-49A9-A489-721729A07DCD}';
|
|
RID_GruposClienteDelta = '{B0AE9214-61A6-4A32-B1BE-D04071E244D2}';
|
|
RID_DatosBancariosDelta = '{900241CC-03B8-4153-89B3-234393D6979B}';
|
|
RID_ClientesDelta = '{2FF16F31-AC8D-4BC0-9140-57168EFBC851}';
|
|
RID_ProveedoresDelta = '{CB4EF337-2F1A-4C41-97AE-B3EFB5741E58}';
|
|
RID_EmpleadosDelta = '{6EF0C5EB-5EB6-43F1-BA67-CB43E85AEE92}';
|
|
RID_DireccionesContactoDelta = '{DF3DA490-2072-47AD-BFFA-94EF4A57C1FB}';
|
|
RID_DatasetDelta = '{92DA574A-AA4C-4148-9568-61F6FF5888A3}';
|
|
RID_ClientesDescuentosDelta = '{8F7EDEAA-7020-43C4-B07E-547FDFD26B83}';
|
|
RID_GruposProveedorDelta = '{9957CE7F-AC20-4524-B8FC-EC7D88E999D4}';
|
|
RID_GruposEmpleadoDelta = '{9F616AED-7D65-4BD0-9088-99006359D00A}';
|
|
RID_Contactos_RefreshDelta = '{71F5C48B-8BE6-434D-A399-558390A69C4B}';
|
|
RID_ContratosEmpleadosDelta = '{3DAD0A15-9DBD-489F-ADEA-15738BB11004}';
|
|
RID_DescripcionesProveedoresDelta = '{7E9F61CF-6A6E-47CE-8C7D-CAC032838F41}';
|
|
RID_PersonalContactoDelta = '{73FE5200-3FC9-4FDE-BDA2-9CDD3F24AFC9}';
|
|
RID_Agentes_ComisionesDelta = '{E055B1F0-98D8-4576-80BE-C9DED613916B}';
|
|
RID_ListaAnosObjetivosAlbDelta = '{E8EF00DB-8820-496A-A9A2-CFD7A1DC01D1}';
|
|
RID_AgentesDelta = '{78CDEBAE-FB08-4CC1-BFBC-B837FA61DA6E}';
|
|
RID_ClientesDescuentosArticulosDelta = '{50FFA388-10BC-4FD6-BBDB-2F8E881C234B}';
|
|
RID_Agentes_Objetivos_albaranesDelta = '{16FC9B1B-2F15-4F6B-AE2F-40B7C2343C1E}';
|
|
RID_Agentes_Objetivos_facturasDelta = '{277F2895-6496-4A96-ACF7-BEC4389819EA}';
|
|
RID_ListaAnosObjetivosFacDelta = '{BA849E82-6EA5-48A4-99DD-85722C9DFBB6}';
|
|
RID_IdiomasDelta = '{4330BB74-655C-4432-B37A-3AE570E3A64A}';
|
|
RID_TiposClienteDelta = '{BF98679D-32FD-4DBE-B987-7947FF444030}';
|
|
RID_ClientesSucursalesDelta = '{DAA8A3FB-FCAD-4A99-A61E-6A3BA1858877}';
|
|
|
|
type
|
|
{ IContactosDelta }
|
|
IContactosDelta = interface(IContactos)
|
|
['{BCA34A69-E498-49A9-A489-721729A07DCD}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CATEGORIAValue : Integer;
|
|
function GetOldNIF_CIFValue : String;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldPERSONA_CONTACTOValue : String;
|
|
function GetOldCALLEValue : String;
|
|
function GetOldPOBLACIONValue : String;
|
|
function GetOldPROVINCIAValue : String;
|
|
function GetOldCODIGO_POSTALValue : String;
|
|
function GetOldPAISValue : String;
|
|
function GetOldIDIOMA_ISOValue : String;
|
|
function GetOldIDIOMAValue : 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 GetOldID_EMPRESAValue : Integer;
|
|
function GetOldREFERENCIAValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
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 OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
end;
|
|
|
|
{ TContactosBusinessProcessorRules }
|
|
TContactosBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos, IContactosDelta)
|
|
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_CATEGORIAValue: Integer; virtual;
|
|
function GetID_CATEGORIAIsNull: Boolean; virtual;
|
|
function GetOldID_CATEGORIAValue: Integer; virtual;
|
|
function GetOldID_CATEGORIAIsNull: Boolean; virtual;
|
|
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
|
|
procedure SetID_CATEGORIAIsNull(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 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 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 GetPAISValue: String; virtual;
|
|
function GetPAISIsNull: Boolean; virtual;
|
|
function GetOldPAISValue: String; virtual;
|
|
function GetOldPAISIsNull: Boolean; virtual;
|
|
procedure SetPAISValue(const aValue: String); virtual;
|
|
procedure SetPAISIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMA_ISOValue: String; virtual;
|
|
function GetIDIOMA_ISOIsNull: Boolean; virtual;
|
|
function GetOldIDIOMA_ISOValue: String; virtual;
|
|
function GetOldIDIOMA_ISOIsNull: Boolean; virtual;
|
|
procedure SetIDIOMA_ISOValue(const aValue: String); virtual;
|
|
procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMAValue: String; virtual;
|
|
function GetIDIOMAIsNull: Boolean; virtual;
|
|
function GetOldIDIOMAValue: String; virtual;
|
|
function GetOldIDIOMAIsNull: Boolean; virtual;
|
|
procedure SetIDIOMAValue(const aValue: String); virtual;
|
|
procedure SetIDIOMAIsNull(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 GetID_EMPRESAValue: Integer; virtual;
|
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ 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_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
|
|
property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
|
|
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 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 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 PAIS : String read GetPAISValue write SetPAISValue;
|
|
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
|
|
property IDIOMA_ISO : String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue;
|
|
property IDIOMA_ISOIsNull : Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA_ISOIsNull : Boolean read GetOldIDIOMA_ISOIsNull;
|
|
property IDIOMA : String read GetIDIOMAValue write SetIDIOMAValue;
|
|
property IDIOMAIsNull : Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
property OldIDIOMAIsNull : Boolean read GetOldIDIOMAIsNull;
|
|
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 ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IGruposClienteDelta }
|
|
IGruposClienteDelta = interface(IGruposCliente)
|
|
['{B0AE9214-61A6-4A32-B1BE-D04071E244D2}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
end;
|
|
|
|
{ TGruposClienteBusinessProcessorRules }
|
|
TGruposClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposCliente, IGruposClienteDelta)
|
|
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 GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IDatosBancariosDelta }
|
|
IDatosBancariosDelta = interface(IDatosBancarios)
|
|
['{900241CC-03B8-4153-89B3-234393D6979B}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CONTACTOValue : Integer;
|
|
function GetOldTITULARValue : String;
|
|
function GetOldENTIDADValue : String;
|
|
function GetOldSUCURSALValue : String;
|
|
function GetOldDCValue : String;
|
|
function GetOldCUENTAValue : String;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldIBANValue : String;
|
|
function GetOldSWIFTValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
|
property OldTITULAR : String read GetOldTITULARValue;
|
|
property OldENTIDAD : String read GetOldENTIDADValue;
|
|
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
|
property OldDC : String read GetOldDCValue;
|
|
property OldCUENTA : String read GetOldCUENTAValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldIBAN : String read GetOldIBANValue;
|
|
property OldSWIFT : String read GetOldSWIFTValue;
|
|
end;
|
|
|
|
{ TDatosBancariosBusinessProcessorRules }
|
|
TDatosBancariosBusinessProcessorRules = class(TDABusinessProcessorRules, IDatosBancarios, IDatosBancariosDelta)
|
|
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_CONTACTOValue: Integer; virtual;
|
|
function GetID_CONTACTOIsNull: Boolean; virtual;
|
|
function GetOldID_CONTACTOValue: Integer; virtual;
|
|
function GetOldID_CONTACTOIsNull: Boolean; virtual;
|
|
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
|
|
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
|
|
function GetTITULARValue: String; virtual;
|
|
function GetTITULARIsNull: Boolean; virtual;
|
|
function GetOldTITULARValue: String; virtual;
|
|
function GetOldTITULARIsNull: Boolean; virtual;
|
|
procedure SetTITULARValue(const aValue: String); virtual;
|
|
procedure SetTITULARIsNull(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 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 GetIBANValue: String; virtual;
|
|
function GetIBANIsNull: Boolean; virtual;
|
|
function GetOldIBANValue: String; virtual;
|
|
function GetOldIBANIsNull: Boolean; virtual;
|
|
procedure SetIBANValue(const aValue: String); virtual;
|
|
procedure SetIBANIsNull(const aValue: Boolean); virtual;
|
|
function GetSWIFTValue: String; virtual;
|
|
function GetSWIFTIsNull: Boolean; virtual;
|
|
function GetOldSWIFTValue: String; virtual;
|
|
function GetOldSWIFTIsNull: Boolean; virtual;
|
|
procedure SetSWIFTValue(const aValue: String); virtual;
|
|
procedure SetSWIFTIsNull(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_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
|
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
|
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
|
property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
|
|
property TITULAR : String read GetTITULARValue write SetTITULARValue;
|
|
property TITULARIsNull : Boolean read GetTITULARIsNull write SetTITULARIsNull;
|
|
property OldTITULAR : String read GetOldTITULARValue;
|
|
property OldTITULARIsNull : Boolean read GetOldTITULARIsNull;
|
|
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 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 IBAN : String read GetIBANValue write SetIBANValue;
|
|
property IBANIsNull : Boolean read GetIBANIsNull write SetIBANIsNull;
|
|
property OldIBAN : String read GetOldIBANValue;
|
|
property OldIBANIsNull : Boolean read GetOldIBANIsNull;
|
|
property SWIFT : String read GetSWIFTValue write SetSWIFTValue;
|
|
property SWIFTIsNull : Boolean read GetSWIFTIsNull write SetSWIFTIsNull;
|
|
property OldSWIFT : String read GetOldSWIFTValue;
|
|
property OldSWIFTIsNull : Boolean read GetOldSWIFTIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IClientesDelta }
|
|
IClientesDelta = interface(IClientes)
|
|
['{2FF16F31-AC8D-4BC0-9140-57168EFBC851}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CATEGORIAValue : Integer;
|
|
function GetOldNIF_CIFValue : String;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldPERSONA_CONTACTOValue : String;
|
|
function GetOldCALLEValue : String;
|
|
function GetOldPOBLACIONValue : String;
|
|
function GetOldPROVINCIAValue : String;
|
|
function GetOldCODIGO_POSTALValue : String;
|
|
function GetOldPAISValue : String;
|
|
function GetOldIDIOMA_ISOValue : String;
|
|
function GetOldIDIOMAValue : 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 GetOldID_EMPRESAValue : Integer;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldID_AGENTEValue : Integer;
|
|
function GetOldGRUPO_CLIENTEValue : String;
|
|
function GetOldNOMBRE_COMERCIALValue : String;
|
|
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
|
|
function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
|
|
function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
|
|
function GetOldBLOQUEADOValue : SmallInt;
|
|
function GetOldAGENTEValue : String;
|
|
function GetOldRAPELValue : SmallInt;
|
|
function GetOldEMAIL_ADMINISTRACIONValue : String;
|
|
function GetOldREGIMEN_IVAValue : String;
|
|
function GetOldMOTIVO_BLOQUEOValue : String;
|
|
function GetOldRECARGO_EQUIVALENCIAValue : Integer;
|
|
function GetOldID_TIPO_IVAValue : Integer;
|
|
function GetOldID_FORMA_PAGOValue : Integer;
|
|
function GetOldTIENDA_WEBValue : SmallInt;
|
|
function GetOldCODIGO_ASIGNADOValue : String;
|
|
function GetOldDESCUENTOValue : Float;
|
|
function GetOldFELICITACIONValue : SmallInt;
|
|
function GetOldTIPO_CLIENTEValue : String;
|
|
function GetOldSEPAValue : SmallInt;
|
|
function GetOldID_CENTRALValue : Integer;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
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 OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
|
|
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
|
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
|
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
|
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
|
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
|
property OldAGENTE : String read GetOldAGENTEValue;
|
|
property OldRAPEL : SmallInt read GetOldRAPELValue;
|
|
property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
|
|
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
|
|
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
|
|
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
|
|
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
|
|
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
|
|
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
|
|
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
|
|
property OldTIPO_CLIENTE : String read GetOldTIPO_CLIENTEValue;
|
|
property OldSEPA : SmallInt read GetOldSEPAValue;
|
|
property OldID_CENTRAL : Integer read GetOldID_CENTRALValue;
|
|
end;
|
|
|
|
{ TClientesBusinessProcessorRules }
|
|
TClientesBusinessProcessorRules = class(TDABusinessProcessorRules, IClientes, IClientesDelta)
|
|
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_CATEGORIAValue: Integer; virtual;
|
|
function GetID_CATEGORIAIsNull: Boolean; virtual;
|
|
function GetOldID_CATEGORIAValue: Integer; virtual;
|
|
function GetOldID_CATEGORIAIsNull: Boolean; virtual;
|
|
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
|
|
procedure SetID_CATEGORIAIsNull(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 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 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 GetPAISValue: String; virtual;
|
|
function GetPAISIsNull: Boolean; virtual;
|
|
function GetOldPAISValue: String; virtual;
|
|
function GetOldPAISIsNull: Boolean; virtual;
|
|
procedure SetPAISValue(const aValue: String); virtual;
|
|
procedure SetPAISIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMA_ISOValue: String; virtual;
|
|
function GetIDIOMA_ISOIsNull: Boolean; virtual;
|
|
function GetOldIDIOMA_ISOValue: String; virtual;
|
|
function GetOldIDIOMA_ISOIsNull: Boolean; virtual;
|
|
procedure SetIDIOMA_ISOValue(const aValue: String); virtual;
|
|
procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMAValue: String; virtual;
|
|
function GetIDIOMAIsNull: Boolean; virtual;
|
|
function GetOldIDIOMAValue: String; virtual;
|
|
function GetOldIDIOMAIsNull: Boolean; virtual;
|
|
procedure SetIDIOMAValue(const aValue: String); virtual;
|
|
procedure SetIDIOMAIsNull(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 GetID_EMPRESAValue: Integer; virtual;
|
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_AGENTEValue: Integer; virtual;
|
|
function GetID_AGENTEIsNull: Boolean; virtual;
|
|
function GetOldID_AGENTEValue: Integer; virtual;
|
|
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
|
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
|
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetGRUPO_CLIENTEValue: String; virtual;
|
|
function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
|
|
function GetOldGRUPO_CLIENTEValue: String; virtual;
|
|
function GetOldGRUPO_CLIENTEIsNull: Boolean; virtual;
|
|
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
|
|
procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetNOMBRE_COMERCIALValue: String; virtual;
|
|
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
|
function GetOldNOMBRE_COMERCIALValue: String; virtual;
|
|
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
|
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
|
|
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
|
|
function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
|
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
|
|
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
|
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
|
|
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
|
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
|
|
function GetBLOQUEADOValue: SmallInt; virtual;
|
|
function GetBLOQUEADOIsNull: Boolean; virtual;
|
|
function GetOldBLOQUEADOValue: SmallInt; virtual;
|
|
function GetOldBLOQUEADOIsNull: Boolean; virtual;
|
|
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
|
|
procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual;
|
|
function GetAGENTEValue: String; virtual;
|
|
function GetAGENTEIsNull: Boolean; virtual;
|
|
function GetOldAGENTEValue: String; virtual;
|
|
function GetOldAGENTEIsNull: Boolean; virtual;
|
|
procedure SetAGENTEValue(const aValue: String); virtual;
|
|
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetRAPELValue: SmallInt; virtual;
|
|
function GetRAPELIsNull: Boolean; virtual;
|
|
function GetOldRAPELValue: SmallInt; virtual;
|
|
function GetOldRAPELIsNull: Boolean; virtual;
|
|
procedure SetRAPELValue(const aValue: SmallInt); virtual;
|
|
procedure SetRAPELIsNull(const aValue: Boolean); virtual;
|
|
function GetEMAIL_ADMINISTRACIONValue: String; virtual;
|
|
function GetEMAIL_ADMINISTRACIONIsNull: Boolean; virtual;
|
|
function GetOldEMAIL_ADMINISTRACIONValue: String; virtual;
|
|
function GetOldEMAIL_ADMINISTRACIONIsNull: Boolean; virtual;
|
|
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual;
|
|
procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetREGIMEN_IVAValue: String; virtual;
|
|
function GetREGIMEN_IVAIsNull: Boolean; virtual;
|
|
function GetOldREGIMEN_IVAValue: String; virtual;
|
|
function GetOldREGIMEN_IVAIsNull: Boolean; virtual;
|
|
procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
|
|
procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
|
|
function GetMOTIVO_BLOQUEOValue: String; virtual;
|
|
function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual;
|
|
function GetOldMOTIVO_BLOQUEOValue: String; virtual;
|
|
function GetOldMOTIVO_BLOQUEOIsNull: Boolean; virtual;
|
|
procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;
|
|
procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual;
|
|
function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
|
|
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
|
|
function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
|
|
function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
|
|
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
|
|
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_TIPO_IVAValue: Integer; virtual;
|
|
function GetID_TIPO_IVAIsNull: Boolean; virtual;
|
|
function GetOldID_TIPO_IVAValue: Integer; virtual;
|
|
function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
|
|
procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
|
|
procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
|
|
function 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 GetTIENDA_WEBValue: SmallInt; virtual;
|
|
function GetTIENDA_WEBIsNull: Boolean; virtual;
|
|
function GetOldTIENDA_WEBValue: SmallInt; virtual;
|
|
function GetOldTIENDA_WEBIsNull: Boolean; virtual;
|
|
procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
|
|
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
|
|
function GetCODIGO_ASIGNADOValue: String; virtual;
|
|
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
|
|
function GetOldCODIGO_ASIGNADOValue: String; virtual;
|
|
function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
|
|
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
|
|
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCUENTOValue: Float; virtual;
|
|
function GetDESCUENTOIsNull: Boolean; virtual;
|
|
function GetOldDESCUENTOValue: Float; virtual;
|
|
function GetOldDESCUENTOIsNull: Boolean; virtual;
|
|
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
|
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
|
|
function GetFELICITACIONValue: SmallInt; virtual;
|
|
function GetFELICITACIONIsNull: Boolean; virtual;
|
|
function GetOldFELICITACIONValue: SmallInt; virtual;
|
|
function GetOldFELICITACIONIsNull: Boolean; virtual;
|
|
procedure SetFELICITACIONValue(const aValue: SmallInt); virtual;
|
|
procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetTIPO_CLIENTEValue: String; virtual;
|
|
function GetTIPO_CLIENTEIsNull: Boolean; virtual;
|
|
function GetOldTIPO_CLIENTEValue: String; virtual;
|
|
function GetOldTIPO_CLIENTEIsNull: Boolean; virtual;
|
|
procedure SetTIPO_CLIENTEValue(const aValue: String); virtual;
|
|
procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetSEPAValue: SmallInt; virtual;
|
|
function GetSEPAIsNull: Boolean; virtual;
|
|
function GetOldSEPAValue: SmallInt; virtual;
|
|
function GetOldSEPAIsNull: Boolean; virtual;
|
|
procedure SetSEPAValue(const aValue: SmallInt); virtual;
|
|
procedure SetSEPAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_CENTRALValue: Integer; virtual;
|
|
function GetID_CENTRALIsNull: Boolean; virtual;
|
|
function GetOldID_CENTRALValue: Integer; virtual;
|
|
function GetOldID_CENTRALIsNull: Boolean; virtual;
|
|
procedure SetID_CENTRALValue(const aValue: Integer); virtual;
|
|
procedure SetID_CENTRALIsNull(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_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
|
|
property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
|
|
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 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 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 PAIS : String read GetPAISValue write SetPAISValue;
|
|
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
|
|
property IDIOMA_ISO : String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue;
|
|
property IDIOMA_ISOIsNull : Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA_ISOIsNull : Boolean read GetOldIDIOMA_ISOIsNull;
|
|
property IDIOMA : String read GetIDIOMAValue write SetIDIOMAValue;
|
|
property IDIOMAIsNull : Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
property OldIDIOMAIsNull : Boolean read GetOldIDIOMAIsNull;
|
|
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 ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
|
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
|
property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
|
|
property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
|
|
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
|
|
property OldGRUPO_CLIENTEIsNull : Boolean read GetOldGRUPO_CLIENTEIsNull;
|
|
property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
|
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
|
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
|
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
|
|
property VENCIMIENTO_FACTURAS_1 : SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
|
|
property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
|
|
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
|
property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
|
|
property VENCIMIENTO_FACTURAS_2 : SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
|
|
property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
|
|
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
|
property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
|
|
property VENCIMIENTO_FACTURAS_3 : SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
|
property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
|
|
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
|
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
|
|
property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
|
|
property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
|
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
|
property OldBLOQUEADOIsNull : Boolean read GetOldBLOQUEADOIsNull;
|
|
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
|
|
property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
|
property OldAGENTE : String read GetOldAGENTEValue;
|
|
property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
|
|
property RAPEL : SmallInt read GetRAPELValue write SetRAPELValue;
|
|
property RAPELIsNull : Boolean read GetRAPELIsNull write SetRAPELIsNull;
|
|
property OldRAPEL : SmallInt read GetOldRAPELValue;
|
|
property OldRAPELIsNull : Boolean read GetOldRAPELIsNull;
|
|
property EMAIL_ADMINISTRACION : String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
|
|
property EMAIL_ADMINISTRACIONIsNull : Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull;
|
|
property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
|
|
property OldEMAIL_ADMINISTRACIONIsNull : Boolean read GetOldEMAIL_ADMINISTRACIONIsNull;
|
|
property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
|
|
property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
|
|
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
|
|
property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull;
|
|
property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
|
|
property MOTIVO_BLOQUEOIsNull : Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
|
|
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
|
|
property OldMOTIVO_BLOQUEOIsNull : Boolean read GetOldMOTIVO_BLOQUEOIsNull;
|
|
property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
|
|
property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
|
|
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
|
|
property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
|
|
property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
|
|
property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
|
|
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
|
|
property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
|
|
property 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 TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
|
property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
|
|
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
|
|
property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
|
|
property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
|
|
property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
|
|
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
|
|
property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
|
|
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
|
|
property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
|
|
property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
|
|
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
|
|
property OldFELICITACIONIsNull : Boolean read GetOldFELICITACIONIsNull;
|
|
property TIPO_CLIENTE : String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
|
|
property TIPO_CLIENTEIsNull : Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
|
|
property OldTIPO_CLIENTE : String read GetOldTIPO_CLIENTEValue;
|
|
property OldTIPO_CLIENTEIsNull : Boolean read GetOldTIPO_CLIENTEIsNull;
|
|
property SEPA : SmallInt read GetSEPAValue write SetSEPAValue;
|
|
property SEPAIsNull : Boolean read GetSEPAIsNull write SetSEPAIsNull;
|
|
property OldSEPA : SmallInt read GetOldSEPAValue;
|
|
property OldSEPAIsNull : Boolean read GetOldSEPAIsNull;
|
|
property ID_CENTRAL : Integer read GetID_CENTRALValue write SetID_CENTRALValue;
|
|
property ID_CENTRALIsNull : Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
|
|
property OldID_CENTRAL : Integer read GetOldID_CENTRALValue;
|
|
property OldID_CENTRALIsNull : Boolean read GetOldID_CENTRALIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IProveedoresDelta }
|
|
IProveedoresDelta = interface(IProveedores)
|
|
['{CB4EF337-2F1A-4C41-97AE-B3EFB5741E58}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CATEGORIAValue : Integer;
|
|
function GetOldNIF_CIFValue : String;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldPERSONA_CONTACTOValue : String;
|
|
function GetOldCALLEValue : String;
|
|
function GetOldPOBLACIONValue : String;
|
|
function GetOldPROVINCIAValue : String;
|
|
function GetOldCODIGO_POSTALValue : String;
|
|
function GetOldPAISValue : String;
|
|
function GetOldIDIOMA_ISOValue : String;
|
|
function GetOldIDIOMAValue : 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 GetOldID_EMPRESAValue : Integer;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldDESCUENTOValue : Float;
|
|
function GetOldDESCRIPCION_PROVEEDORValue : String;
|
|
function GetOldCODIGO_ASIGNADOValue : String;
|
|
function GetOldGRUPO_PROVEEDORValue : String;
|
|
function GetOldREGIMEN_IVAValue : String;
|
|
function GetOldID_TIPO_IVAValue : Integer;
|
|
function GetOldID_FORMA_PAGOValue : Integer;
|
|
function GetOldTIENDA_WEBValue : SmallInt;
|
|
function GetOldHOMOLOGADOValue : SmallInt;
|
|
function GetOldCERTIFICACIONValue : String;
|
|
function GetOldSUBCONTRATAValue : SmallInt;
|
|
function GetOldEMAIL_ADMINISTRACIONValue : String;
|
|
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
|
|
function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
|
|
function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
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 OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
|
|
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
|
|
property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;
|
|
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
|
|
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
|
|
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
|
|
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
|
|
property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
|
|
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
|
|
property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue;
|
|
property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
|
|
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
|
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
|
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
|
end;
|
|
|
|
{ TProveedoresBusinessProcessorRules }
|
|
TProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IProveedores, IProveedoresDelta)
|
|
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_CATEGORIAValue: Integer; virtual;
|
|
function GetID_CATEGORIAIsNull: Boolean; virtual;
|
|
function GetOldID_CATEGORIAValue: Integer; virtual;
|
|
function GetOldID_CATEGORIAIsNull: Boolean; virtual;
|
|
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
|
|
procedure SetID_CATEGORIAIsNull(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 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 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 GetPAISValue: String; virtual;
|
|
function GetPAISIsNull: Boolean; virtual;
|
|
function GetOldPAISValue: String; virtual;
|
|
function GetOldPAISIsNull: Boolean; virtual;
|
|
procedure SetPAISValue(const aValue: String); virtual;
|
|
procedure SetPAISIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMA_ISOValue: String; virtual;
|
|
function GetIDIOMA_ISOIsNull: Boolean; virtual;
|
|
function GetOldIDIOMA_ISOValue: String; virtual;
|
|
function GetOldIDIOMA_ISOIsNull: Boolean; virtual;
|
|
procedure SetIDIOMA_ISOValue(const aValue: String); virtual;
|
|
procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMAValue: String; virtual;
|
|
function GetIDIOMAIsNull: Boolean; virtual;
|
|
function GetOldIDIOMAValue: String; virtual;
|
|
function GetOldIDIOMAIsNull: Boolean; virtual;
|
|
procedure SetIDIOMAValue(const aValue: String); virtual;
|
|
procedure SetIDIOMAIsNull(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 GetID_EMPRESAValue: Integer; virtual;
|
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCUENTOValue: Float; virtual;
|
|
function GetDESCUENTOIsNull: Boolean; virtual;
|
|
function GetOldDESCUENTOValue: Float; virtual;
|
|
function GetOldDESCUENTOIsNull: Boolean; virtual;
|
|
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
|
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCION_PROVEEDORValue: String; virtual;
|
|
function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCION_PROVEEDORValue: String; virtual;
|
|
function GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetCODIGO_ASIGNADOValue: String; virtual;
|
|
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
|
|
function GetOldCODIGO_ASIGNADOValue: String; virtual;
|
|
function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
|
|
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
|
|
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
|
|
function GetGRUPO_PROVEEDORValue: String; virtual;
|
|
function GetGRUPO_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldGRUPO_PROVEEDORValue: String; virtual;
|
|
function GetOldGRUPO_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetGRUPO_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetREGIMEN_IVAValue: String; virtual;
|
|
function GetREGIMEN_IVAIsNull: Boolean; virtual;
|
|
function GetOldREGIMEN_IVAValue: String; virtual;
|
|
function GetOldREGIMEN_IVAIsNull: Boolean; virtual;
|
|
procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
|
|
procedure SetREGIMEN_IVAIsNull(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 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 GetTIENDA_WEBValue: SmallInt; virtual;
|
|
function GetTIENDA_WEBIsNull: Boolean; virtual;
|
|
function GetOldTIENDA_WEBValue: SmallInt; virtual;
|
|
function GetOldTIENDA_WEBIsNull: Boolean; virtual;
|
|
procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
|
|
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
|
|
function GetHOMOLOGADOValue: SmallInt; virtual;
|
|
function GetHOMOLOGADOIsNull: Boolean; virtual;
|
|
function GetOldHOMOLOGADOValue: SmallInt; virtual;
|
|
function GetOldHOMOLOGADOIsNull: Boolean; virtual;
|
|
procedure SetHOMOLOGADOValue(const aValue: SmallInt); virtual;
|
|
procedure SetHOMOLOGADOIsNull(const aValue: Boolean); virtual;
|
|
function GetCERTIFICACIONValue: String; virtual;
|
|
function GetCERTIFICACIONIsNull: Boolean; virtual;
|
|
function GetOldCERTIFICACIONValue: String; virtual;
|
|
function GetOldCERTIFICACIONIsNull: Boolean; virtual;
|
|
procedure SetCERTIFICACIONValue(const aValue: String); virtual;
|
|
procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetSUBCONTRATAValue: SmallInt; virtual;
|
|
function GetSUBCONTRATAIsNull: Boolean; virtual;
|
|
function GetOldSUBCONTRATAValue: SmallInt; virtual;
|
|
function GetOldSUBCONTRATAIsNull: Boolean; virtual;
|
|
procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual;
|
|
procedure SetSUBCONTRATAIsNull(const aValue: Boolean); virtual;
|
|
function GetEMAIL_ADMINISTRACIONValue: String; virtual;
|
|
function GetEMAIL_ADMINISTRACIONIsNull: Boolean; virtual;
|
|
function GetOldEMAIL_ADMINISTRACIONValue: String; virtual;
|
|
function GetOldEMAIL_ADMINISTRACIONIsNull: Boolean; virtual;
|
|
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual;
|
|
procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
|
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
|
|
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
|
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
|
|
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
|
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_3IsNull(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_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
|
|
property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
|
|
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 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 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 PAIS : String read GetPAISValue write SetPAISValue;
|
|
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
|
|
property IDIOMA_ISO : String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue;
|
|
property IDIOMA_ISOIsNull : Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA_ISOIsNull : Boolean read GetOldIDIOMA_ISOIsNull;
|
|
property IDIOMA : String read GetIDIOMAValue write SetIDIOMAValue;
|
|
property IDIOMAIsNull : Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
property OldIDIOMAIsNull : Boolean read GetOldIDIOMAIsNull;
|
|
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 ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
|
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
|
|
property DESCRIPCION_PROVEEDOR : String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
|
|
property DESCRIPCION_PROVEEDORIsNull : Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull;
|
|
property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
|
|
property OldDESCRIPCION_PROVEEDORIsNull : Boolean read GetOldDESCRIPCION_PROVEEDORIsNull;
|
|
property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
|
|
property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
|
|
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
|
|
property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
|
|
property GRUPO_PROVEEDOR : String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
|
|
property GRUPO_PROVEEDORIsNull : Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull;
|
|
property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;
|
|
property OldGRUPO_PROVEEDORIsNull : Boolean read GetOldGRUPO_PROVEEDORIsNull;
|
|
property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
|
|
property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
|
|
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
|
|
property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull;
|
|
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 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 TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
|
property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
|
|
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
|
|
property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
|
|
property HOMOLOGADO : SmallInt read GetHOMOLOGADOValue write SetHOMOLOGADOValue;
|
|
property HOMOLOGADOIsNull : Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
|
|
property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
|
|
property OldHOMOLOGADOIsNull : Boolean read GetOldHOMOLOGADOIsNull;
|
|
property CERTIFICACION : String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
|
|
property CERTIFICACIONIsNull : Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
|
|
property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
|
|
property OldCERTIFICACIONIsNull : Boolean read GetOldCERTIFICACIONIsNull;
|
|
property SUBCONTRATA : SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue;
|
|
property SUBCONTRATAIsNull : Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull;
|
|
property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue;
|
|
property OldSUBCONTRATAIsNull : Boolean read GetOldSUBCONTRATAIsNull;
|
|
property EMAIL_ADMINISTRACION : String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
|
|
property EMAIL_ADMINISTRACIONIsNull : Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull;
|
|
property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
|
|
property OldEMAIL_ADMINISTRACIONIsNull : Boolean read GetOldEMAIL_ADMINISTRACIONIsNull;
|
|
property VENCIMIENTO_FACTURAS_1 : SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
|
|
property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
|
|
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
|
property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
|
|
property VENCIMIENTO_FACTURAS_2 : SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
|
|
property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
|
|
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
|
property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
|
|
property VENCIMIENTO_FACTURAS_3 : SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
|
property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
|
|
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
|
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IEmpleadosDelta }
|
|
IEmpleadosDelta = interface(IEmpleados)
|
|
['{6EF0C5EB-5EB6-43F1-BA67-CB43E85AEE92}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CATEGORIAValue : Integer;
|
|
function GetOldNIF_CIFValue : String;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldPERSONA_CONTACTOValue : String;
|
|
function GetOldCALLEValue : String;
|
|
function GetOldPOBLACIONValue : String;
|
|
function GetOldPROVINCIAValue : String;
|
|
function GetOldCODIGO_POSTALValue : String;
|
|
function GetOldPAISValue : String;
|
|
function GetOldIDIOMA_ISOValue : String;
|
|
function GetOldIDIOMAValue : 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 GetOldID_EMPRESAValue : Integer;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldFECHA_NACIMIENTOValue : DateTime;
|
|
function GetOldCATEGORIAValue : String;
|
|
function GetOldFECHA_ALTA_EMPRESAValue : DateTime;
|
|
function GetOldFORMACION_BASEValue : IROStrings;
|
|
function GetOldFORMACION_COMPLEValue : IROStrings;
|
|
function GetOldFORMACION_RECIBIDAValue : IROStrings;
|
|
function GetOldEXPERIENCIAValue : IROStrings;
|
|
function GetOldCONTRATOValue : String;
|
|
function GetOldDURACIONValue : String;
|
|
function GetOldFECHA_BAJAValue : DateTime;
|
|
function GetOldCAUSA_BAJAValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
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 OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue;
|
|
property OldCATEGORIA : String read GetOldCATEGORIAValue;
|
|
property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue;
|
|
property OldFORMACION_BASE : IROStrings read GetOldFORMACION_BASEValue;
|
|
property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue;
|
|
property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue;
|
|
property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;
|
|
property OldCONTRATO : String read GetOldCONTRATOValue;
|
|
property OldDURACION : String read GetOldDURACIONValue;
|
|
property OldFECHA_BAJA : DateTime read GetOldFECHA_BAJAValue;
|
|
property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue;
|
|
end;
|
|
|
|
{ TEmpleadosBusinessProcessorRules }
|
|
TEmpleadosBusinessProcessorRules = class(TDABusinessProcessorRules, IEmpleados, IEmpleadosDelta)
|
|
private
|
|
f_NOTAS: IROStrings;
|
|
f_FORMACION_BASE: IROStrings;
|
|
f_FORMACION_COMPLE: IROStrings;
|
|
f_FORMACION_RECIBIDA: IROStrings;
|
|
f_EXPERIENCIA: IROStrings;
|
|
procedure NOTAS_OnChange(Sender: TObject);
|
|
procedure FORMACION_BASE_OnChange(Sender: TObject);
|
|
procedure FORMACION_COMPLE_OnChange(Sender: TObject);
|
|
procedure FORMACION_RECIBIDA_OnChange(Sender: TObject);
|
|
procedure EXPERIENCIA_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_CATEGORIAValue: Integer; virtual;
|
|
function GetID_CATEGORIAIsNull: Boolean; virtual;
|
|
function GetOldID_CATEGORIAValue: Integer; virtual;
|
|
function GetOldID_CATEGORIAIsNull: Boolean; virtual;
|
|
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
|
|
procedure SetID_CATEGORIAIsNull(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 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 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 GetPAISValue: String; virtual;
|
|
function GetPAISIsNull: Boolean; virtual;
|
|
function GetOldPAISValue: String; virtual;
|
|
function GetOldPAISIsNull: Boolean; virtual;
|
|
procedure SetPAISValue(const aValue: String); virtual;
|
|
procedure SetPAISIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMA_ISOValue: String; virtual;
|
|
function GetIDIOMA_ISOIsNull: Boolean; virtual;
|
|
function GetOldIDIOMA_ISOValue: String; virtual;
|
|
function GetOldIDIOMA_ISOIsNull: Boolean; virtual;
|
|
procedure SetIDIOMA_ISOValue(const aValue: String); virtual;
|
|
procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMAValue: String; virtual;
|
|
function GetIDIOMAIsNull: Boolean; virtual;
|
|
function GetOldIDIOMAValue: String; virtual;
|
|
function GetOldIDIOMAIsNull: Boolean; virtual;
|
|
procedure SetIDIOMAValue(const aValue: String); virtual;
|
|
procedure SetIDIOMAIsNull(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 GetID_EMPRESAValue: Integer; virtual;
|
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_NACIMIENTOValue: DateTime; virtual;
|
|
function GetFECHA_NACIMIENTOIsNull: Boolean; virtual;
|
|
function GetOldFECHA_NACIMIENTOValue: DateTime; virtual;
|
|
function GetOldFECHA_NACIMIENTOIsNull: Boolean; virtual;
|
|
procedure SetFECHA_NACIMIENTOValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_NACIMIENTOIsNull(const aValue: Boolean); virtual;
|
|
function GetCATEGORIAValue: String; virtual;
|
|
function GetCATEGORIAIsNull: Boolean; virtual;
|
|
function GetOldCATEGORIAValue: String; virtual;
|
|
function GetOldCATEGORIAIsNull: Boolean; virtual;
|
|
procedure SetCATEGORIAValue(const aValue: String); virtual;
|
|
procedure SetCATEGORIAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual;
|
|
function GetFECHA_ALTA_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldFECHA_ALTA_EMPRESAValue: DateTime; virtual;
|
|
function GetOldFECHA_ALTA_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetFORMACION_BASEValue: IROStrings; virtual;
|
|
function GetFORMACION_BASEIsNull: Boolean; virtual;
|
|
function GetOldFORMACION_BASEValue: IROStrings; virtual;
|
|
function GetOldFORMACION_BASEIsNull: Boolean; virtual;
|
|
procedure SetFORMACION_BASEIsNull(const aValue: Boolean); virtual;
|
|
function GetFORMACION_COMPLEValue: IROStrings; virtual;
|
|
function GetFORMACION_COMPLEIsNull: Boolean; virtual;
|
|
function GetOldFORMACION_COMPLEValue: IROStrings; virtual;
|
|
function GetOldFORMACION_COMPLEIsNull: Boolean; virtual;
|
|
procedure SetFORMACION_COMPLEIsNull(const aValue: Boolean); virtual;
|
|
function GetFORMACION_RECIBIDAValue: IROStrings; virtual;
|
|
function GetFORMACION_RECIBIDAIsNull: Boolean; virtual;
|
|
function GetOldFORMACION_RECIBIDAValue: IROStrings; virtual;
|
|
function GetOldFORMACION_RECIBIDAIsNull: Boolean; virtual;
|
|
procedure SetFORMACION_RECIBIDAIsNull(const aValue: Boolean); virtual;
|
|
function GetEXPERIENCIAValue: IROStrings; virtual;
|
|
function GetEXPERIENCIAIsNull: Boolean; virtual;
|
|
function GetOldEXPERIENCIAValue: IROStrings; virtual;
|
|
function GetOldEXPERIENCIAIsNull: Boolean; virtual;
|
|
procedure SetEXPERIENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetCONTRATOValue: String; virtual;
|
|
function GetCONTRATOIsNull: Boolean; virtual;
|
|
function GetOldCONTRATOValue: String; virtual;
|
|
function GetOldCONTRATOIsNull: Boolean; virtual;
|
|
procedure SetCONTRATOValue(const aValue: String); virtual;
|
|
procedure SetCONTRATOIsNull(const aValue: Boolean); virtual;
|
|
function GetDURACIONValue: String; virtual;
|
|
function GetDURACIONIsNull: Boolean; virtual;
|
|
function GetOldDURACIONValue: String; virtual;
|
|
function GetOldDURACIONIsNull: Boolean; virtual;
|
|
procedure SetDURACIONValue(const aValue: String); virtual;
|
|
procedure SetDURACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_BAJAValue: DateTime; virtual;
|
|
function GetFECHA_BAJAIsNull: Boolean; virtual;
|
|
function GetOldFECHA_BAJAValue: DateTime; virtual;
|
|
function GetOldFECHA_BAJAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_BAJAValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_BAJAIsNull(const aValue: Boolean); virtual;
|
|
function GetCAUSA_BAJAValue: String; virtual;
|
|
function GetCAUSA_BAJAIsNull: Boolean; virtual;
|
|
function GetOldCAUSA_BAJAValue: String; virtual;
|
|
function GetOldCAUSA_BAJAIsNull: Boolean; virtual;
|
|
procedure SetCAUSA_BAJAValue(const aValue: String); virtual;
|
|
procedure SetCAUSA_BAJAIsNull(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_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
|
|
property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
|
|
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 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 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 PAIS : String read GetPAISValue write SetPAISValue;
|
|
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
|
|
property IDIOMA_ISO : String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue;
|
|
property IDIOMA_ISOIsNull : Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA_ISOIsNull : Boolean read GetOldIDIOMA_ISOIsNull;
|
|
property IDIOMA : String read GetIDIOMAValue write SetIDIOMAValue;
|
|
property IDIOMAIsNull : Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
property OldIDIOMAIsNull : Boolean read GetOldIDIOMAIsNull;
|
|
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 ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
|
property FECHA_NACIMIENTO : DateTime read GetFECHA_NACIMIENTOValue write SetFECHA_NACIMIENTOValue;
|
|
property FECHA_NACIMIENTOIsNull : Boolean read GetFECHA_NACIMIENTOIsNull write SetFECHA_NACIMIENTOIsNull;
|
|
property OldFECHA_NACIMIENTO : DateTime read GetOldFECHA_NACIMIENTOValue;
|
|
property OldFECHA_NACIMIENTOIsNull : Boolean read GetOldFECHA_NACIMIENTOIsNull;
|
|
property CATEGORIA : String read GetCATEGORIAValue write SetCATEGORIAValue;
|
|
property CATEGORIAIsNull : Boolean read GetCATEGORIAIsNull write SetCATEGORIAIsNull;
|
|
property OldCATEGORIA : String read GetOldCATEGORIAValue;
|
|
property OldCATEGORIAIsNull : Boolean read GetOldCATEGORIAIsNull;
|
|
property FECHA_ALTA_EMPRESA : DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue;
|
|
property FECHA_ALTA_EMPRESAIsNull : Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull;
|
|
property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue;
|
|
property OldFECHA_ALTA_EMPRESAIsNull : Boolean read GetOldFECHA_ALTA_EMPRESAIsNull;
|
|
property FORMACION_BASE : IROStrings read GetFORMACION_BASEValue;
|
|
property FORMACION_BASEIsNull : Boolean read GetFORMACION_BASEIsNull write SetFORMACION_BASEIsNull;
|
|
property OldFORMACION_BASE : IROStrings read GetOldFORMACION_BASEValue;
|
|
property OldFORMACION_BASEIsNull : Boolean read GetOldFORMACION_BASEIsNull;
|
|
property FORMACION_COMPLE : IROStrings read GetFORMACION_COMPLEValue;
|
|
property FORMACION_COMPLEIsNull : Boolean read GetFORMACION_COMPLEIsNull write SetFORMACION_COMPLEIsNull;
|
|
property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue;
|
|
property OldFORMACION_COMPLEIsNull : Boolean read GetOldFORMACION_COMPLEIsNull;
|
|
property FORMACION_RECIBIDA : IROStrings read GetFORMACION_RECIBIDAValue;
|
|
property FORMACION_RECIBIDAIsNull : Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull;
|
|
property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue;
|
|
property OldFORMACION_RECIBIDAIsNull : Boolean read GetOldFORMACION_RECIBIDAIsNull;
|
|
property EXPERIENCIA : IROStrings read GetEXPERIENCIAValue;
|
|
property EXPERIENCIAIsNull : Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
|
|
property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;
|
|
property OldEXPERIENCIAIsNull : Boolean read GetOldEXPERIENCIAIsNull;
|
|
property CONTRATO : String read GetCONTRATOValue write SetCONTRATOValue;
|
|
property CONTRATOIsNull : Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull;
|
|
property OldCONTRATO : String read GetOldCONTRATOValue;
|
|
property OldCONTRATOIsNull : Boolean read GetOldCONTRATOIsNull;
|
|
property DURACION : String read GetDURACIONValue write SetDURACIONValue;
|
|
property DURACIONIsNull : Boolean read GetDURACIONIsNull write SetDURACIONIsNull;
|
|
property OldDURACION : String read GetOldDURACIONValue;
|
|
property OldDURACIONIsNull : Boolean read GetOldDURACIONIsNull;
|
|
property FECHA_BAJA : DateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue;
|
|
property FECHA_BAJAIsNull : Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull;
|
|
property OldFECHA_BAJA : DateTime read GetOldFECHA_BAJAValue;
|
|
property OldFECHA_BAJAIsNull : Boolean read GetOldFECHA_BAJAIsNull;
|
|
property CAUSA_BAJA : String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue;
|
|
property CAUSA_BAJAIsNull : Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull;
|
|
property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue;
|
|
property OldCAUSA_BAJAIsNull : Boolean read GetOldCAUSA_BAJAIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IDireccionesContactoDelta }
|
|
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
|
['{DF3DA490-2072-47AD-BFFA-94EF4A57C1FB}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CONTACTOValue : 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 GetOldPORTEValue : Float;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
function GetOldPAISValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
|
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 OldPORTE : Float read GetOldPORTEValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
end;
|
|
|
|
{ TDireccionesContactoBusinessProcessorRules }
|
|
TDireccionesContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IDireccionesContacto, IDireccionesContactoDelta)
|
|
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_CONTACTOValue: Integer; virtual;
|
|
function GetID_CONTACTOIsNull: Boolean; virtual;
|
|
function GetOldID_CONTACTOValue: Integer; virtual;
|
|
function GetOldID_CONTACTOIsNull: Boolean; virtual;
|
|
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
|
|
procedure SetID_CONTACTOIsNull(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 GetPORTEValue: Float; virtual;
|
|
function GetPORTEIsNull: Boolean; virtual;
|
|
function GetOldPORTEValue: Float; virtual;
|
|
function GetOldPORTEIsNull: Boolean; virtual;
|
|
procedure SetPORTEValue(const aValue: Float); virtual;
|
|
procedure SetPORTEIsNull(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 GetPAISValue: String; virtual;
|
|
function GetPAISIsNull: Boolean; virtual;
|
|
function GetOldPAISValue: String; virtual;
|
|
function GetOldPAISIsNull: Boolean; virtual;
|
|
procedure SetPAISValue(const aValue: String); virtual;
|
|
procedure SetPAISIsNull(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_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
|
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
|
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
|
property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
|
|
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 PORTE : Float read GetPORTEValue write SetPORTEValue;
|
|
property PORTEIsNull : Boolean read GetPORTEIsNull write SetPORTEIsNull;
|
|
property OldPORTE : Float read GetOldPORTEValue;
|
|
property OldPORTEIsNull : Boolean read GetOldPORTEIsNull;
|
|
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 PAIS : String read GetPAISValue write SetPAISValue;
|
|
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IDatasetDelta }
|
|
IDatasetDelta = interface(IDataset)
|
|
['{92DA574A-AA4C-4148-9568-61F6FF5888A3}']
|
|
{ Property getters and setters }
|
|
|
|
{ Properties }
|
|
end;
|
|
|
|
{ TDatasetBusinessProcessorRules }
|
|
TDatasetBusinessProcessorRules = class(TDABusinessProcessorRules, IDataset, IDatasetDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
|
|
{ Properties }
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IClientesDescuentosDelta }
|
|
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
|
['{8F7EDEAA-7020-43C4-B07E-547FDFD26B83}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CLIENTEValue : Integer;
|
|
function GetOldID_PROVEEDORValue : Integer;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldDESCUENTOValue : Float;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
end;
|
|
|
|
{ TClientesDescuentosBusinessProcessorRules }
|
|
TClientesDescuentosBusinessProcessorRules = class(TDABusinessProcessorRules, IClientesDescuentos, IClientesDescuentosDelta)
|
|
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_CLIENTEValue: Integer; virtual;
|
|
function GetID_CLIENTEIsNull: Boolean; virtual;
|
|
function GetOldID_CLIENTEValue: Integer; virtual;
|
|
function GetOldID_CLIENTEIsNull: Boolean; virtual;
|
|
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
|
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetID_PROVEEDORValue: Integer; virtual;
|
|
function GetID_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldID_PROVEEDORValue: Integer; virtual;
|
|
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
|
|
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function 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 GetDESCUENTOValue: Float; virtual;
|
|
function GetDESCUENTOIsNull: Boolean; virtual;
|
|
function GetOldDESCUENTOValue: Float; virtual;
|
|
function GetOldDESCUENTOIsNull: Boolean; virtual;
|
|
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
|
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ 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_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
|
|
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
|
|
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
|
|
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
|
|
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
|
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
|
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IGruposProveedorDelta }
|
|
IGruposProveedorDelta = interface(IGruposProveedor)
|
|
['{9957CE7F-AC20-4524-B8FC-EC7D88E999D4}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
end;
|
|
|
|
{ TGruposProveedorBusinessProcessorRules }
|
|
TGruposProveedorBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposProveedor, IGruposProveedorDelta)
|
|
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 GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IGruposEmpleadoDelta }
|
|
IGruposEmpleadoDelta = interface(IGruposEmpleado)
|
|
['{9F616AED-7D65-4BD0-9088-99006359D00A}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
end;
|
|
|
|
{ TGruposEmpleadoBusinessProcessorRules }
|
|
TGruposEmpleadoBusinessProcessorRules = class(TDABusinessProcessorRules, IGruposEmpleado, IGruposEmpleadoDelta)
|
|
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 GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IContactos_RefreshDelta }
|
|
IContactos_RefreshDelta = interface(IContactos_Refresh)
|
|
['{71F5C48B-8BE6-434D-A399-558390A69C4B}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldNIF_CIFValue : String;
|
|
function GetOldNOMBREValue : 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 GetOldREFERENCIAValue : String;
|
|
function GetOldPERSONA_CONTACTOValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
property 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 OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
|
end;
|
|
|
|
{ TContactos_RefreshBusinessProcessorRules }
|
|
TContactos_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IContactos_Refresh, IContactos_RefreshDelta)
|
|
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 GetNIF_CIFValue: String; virtual;
|
|
function GetNIF_CIFIsNull: Boolean; virtual;
|
|
function GetOldNIF_CIFValue: String; virtual;
|
|
function GetOldNIF_CIFIsNull: Boolean; virtual;
|
|
procedure SetNIF_CIFValue(const aValue: String); virtual;
|
|
procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual;
|
|
function GetNOMBREValue: String; virtual;
|
|
function GetNOMBREIsNull: Boolean; virtual;
|
|
function GetOldNOMBREValue: String; virtual;
|
|
function GetOldNOMBREIsNull: Boolean; virtual;
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
|
function GetCALLEValue: String; virtual;
|
|
function GetCALLEIsNull: Boolean; virtual;
|
|
function GetOldCALLEValue: String; virtual;
|
|
function GetOldCALLEIsNull: Boolean; virtual;
|
|
procedure SetCALLEValue(const aValue: String); virtual;
|
|
procedure SetCALLEIsNull(const aValue: Boolean); virtual;
|
|
function GetPOBLACIONValue: String; virtual;
|
|
function GetPOBLACIONIsNull: Boolean; virtual;
|
|
function GetOldPOBLACIONValue: String; virtual;
|
|
function GetOldPOBLACIONIsNull: Boolean; virtual;
|
|
procedure SetPOBLACIONValue(const aValue: String); virtual;
|
|
procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetPROVINCIAValue: String; virtual;
|
|
function GetPROVINCIAIsNull: Boolean; virtual;
|
|
function GetOldPROVINCIAValue: String; virtual;
|
|
function GetOldPROVINCIAIsNull: Boolean; virtual;
|
|
procedure SetPROVINCIAValue(const aValue: String); virtual;
|
|
procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetCODIGO_POSTALValue: String; virtual;
|
|
function GetCODIGO_POSTALIsNull: Boolean; virtual;
|
|
function GetOldCODIGO_POSTALValue: String; virtual;
|
|
function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
|
|
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
|
|
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
|
|
function 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 GetREFERENCIAValue: String; virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
function 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;
|
|
|
|
{ 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 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 REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
|
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;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IContratosEmpleadosDelta }
|
|
IContratosEmpleadosDelta = interface(IContratosEmpleados)
|
|
['{3DAD0A15-9DBD-489F-ADEA-15738BB11004}']
|
|
{ Property getters and setters }
|
|
function GetOldCONTRATOValue : String;
|
|
|
|
{ Properties }
|
|
property OldCONTRATO : String read GetOldCONTRATOValue;
|
|
end;
|
|
|
|
{ TContratosEmpleadosBusinessProcessorRules }
|
|
TContratosEmpleadosBusinessProcessorRules = class(TDABusinessProcessorRules, IContratosEmpleados, IContratosEmpleadosDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetCONTRATOValue: String; virtual;
|
|
function GetCONTRATOIsNull: Boolean; virtual;
|
|
function GetOldCONTRATOValue: String; virtual;
|
|
function GetOldCONTRATOIsNull: Boolean; virtual;
|
|
procedure SetCONTRATOValue(const aValue: String); virtual;
|
|
procedure SetCONTRATOIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property CONTRATO : String read GetCONTRATOValue write SetCONTRATOValue;
|
|
property CONTRATOIsNull : Boolean read GetCONTRATOIsNull write SetCONTRATOIsNull;
|
|
property OldCONTRATO : String read GetOldCONTRATOValue;
|
|
property OldCONTRATOIsNull : Boolean read GetOldCONTRATOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IDescripcionesProveedoresDelta }
|
|
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
|
|
['{7E9F61CF-6A6E-47CE-8C7D-CAC032838F41}']
|
|
{ Property getters and setters }
|
|
function GetOldDESCRIPCION_PROVEEDORValue : String;
|
|
|
|
{ Properties }
|
|
property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
|
|
end;
|
|
|
|
{ TDescripcionesProveedoresBusinessProcessorRules }
|
|
TDescripcionesProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IDescripcionesProveedores, IDescripcionesProveedoresDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetDESCRIPCION_PROVEEDORValue: String; virtual;
|
|
function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCION_PROVEEDORValue: String; virtual;
|
|
function GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property DESCRIPCION_PROVEEDOR : String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
|
|
property DESCRIPCION_PROVEEDORIsNull : Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull;
|
|
property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
|
|
property OldDESCRIPCION_PROVEEDORIsNull : Boolean read GetOldDESCRIPCION_PROVEEDORIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IPersonalContactoDelta }
|
|
IPersonalContactoDelta = interface(IPersonalContacto)
|
|
['{73FE5200-3FC9-4FDE-BDA2-9CDD3F24AFC9}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CONTACTOValue : Integer;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldPUESTOValue : String;
|
|
function GetOldTELEFONOValue : String;
|
|
function GetOldMOVILValue : String;
|
|
function GetOldFAXValue : String;
|
|
function GetOldEMAILValue : String;
|
|
function GetOldFECHA_ALTAValue : DateTime;
|
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldPUESTO : String read GetOldPUESTOValue;
|
|
property OldTELEFONO : String read GetOldTELEFONOValue;
|
|
property OldMOVIL : String read GetOldMOVILValue;
|
|
property OldFAX : String read GetOldFAXValue;
|
|
property OldEMAIL : String read GetOldEMAILValue;
|
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
|
end;
|
|
|
|
{ TPersonalContactoBusinessProcessorRules }
|
|
TPersonalContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IPersonalContacto, IPersonalContactoDelta)
|
|
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_CONTACTOValue: Integer; virtual;
|
|
function GetID_CONTACTOIsNull: Boolean; virtual;
|
|
function GetOldID_CONTACTOValue: Integer; virtual;
|
|
function GetOldID_CONTACTOIsNull: Boolean; virtual;
|
|
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
|
|
procedure SetID_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 GetPUESTOValue: String; virtual;
|
|
function GetPUESTOIsNull: Boolean; virtual;
|
|
function GetOldPUESTOValue: String; virtual;
|
|
function GetOldPUESTOIsNull: Boolean; virtual;
|
|
procedure SetPUESTOValue(const aValue: String); virtual;
|
|
procedure SetPUESTOIsNull(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 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;
|
|
|
|
{ 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_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
|
|
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
|
|
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
|
|
property OldID_CONTACTOIsNull : Boolean read GetOldID_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 PUESTO : String read GetPUESTOValue write SetPUESTOValue;
|
|
property PUESTOIsNull : Boolean read GetPUESTOIsNull write SetPUESTOIsNull;
|
|
property OldPUESTO : String read GetOldPUESTOValue;
|
|
property OldPUESTOIsNull : Boolean read GetOldPUESTOIsNull;
|
|
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 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;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IAgentes_ComisionesDelta }
|
|
IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
|
|
['{E055B1F0-98D8-4576-80BE-C9DED613916B}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_AGENTEValue : Integer;
|
|
function GetOldID_PROVEEDORValue : SmallInt;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldCOMISIONValue : Float;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldID_PROVEEDOR : SmallInt read GetOldID_PROVEEDORValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldCOMISION : Float read GetOldCOMISIONValue;
|
|
end;
|
|
|
|
{ TAgentes_ComisionesBusinessProcessorRules }
|
|
TAgentes_ComisionesBusinessProcessorRules = class(TDABusinessProcessorRules, IAgentes_Comisiones, IAgentes_ComisionesDelta)
|
|
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_AGENTEValue: Integer; virtual;
|
|
function GetID_AGENTEIsNull: Boolean; virtual;
|
|
function GetOldID_AGENTEValue: Integer; virtual;
|
|
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
|
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
|
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetID_PROVEEDORValue: SmallInt; virtual;
|
|
function GetID_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldID_PROVEEDORValue: SmallInt; virtual;
|
|
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetID_PROVEEDORValue(const aValue: SmallInt); virtual;
|
|
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetNOMBREValue: String; virtual;
|
|
function GetNOMBREIsNull: Boolean; virtual;
|
|
function GetOldNOMBREValue: String; virtual;
|
|
function GetOldNOMBREIsNull: Boolean; virtual;
|
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
|
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
|
function GetCOMISIONValue: Float; virtual;
|
|
function GetCOMISIONIsNull: Boolean; virtual;
|
|
function GetOldCOMISIONValue: Float; virtual;
|
|
function GetOldCOMISIONIsNull: Boolean; virtual;
|
|
procedure SetCOMISIONValue(const aValue: Float); virtual;
|
|
procedure SetCOMISIONIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ 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_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
|
property ID_PROVEEDOR : SmallInt read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
|
|
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
|
|
property OldID_PROVEEDOR : SmallInt read GetOldID_PROVEEDORValue;
|
|
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
|
|
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
|
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
|
property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue;
|
|
property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
|
|
property OldCOMISION : Float read GetOldCOMISIONValue;
|
|
property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IListaAnosObjetivosAlbDelta }
|
|
IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb)
|
|
['{E8EF00DB-8820-496A-A9A2-CFD7A1DC01D1}']
|
|
{ Property getters and setters }
|
|
function GetOldANOValue : SmallInt;
|
|
|
|
{ Properties }
|
|
property OldANO : SmallInt read GetOldANOValue;
|
|
end;
|
|
|
|
{ TListaAnosObjetivosAlbBusinessProcessorRules }
|
|
TListaAnosObjetivosAlbBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosObjetivosAlb, IListaAnosObjetivosAlbDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetANOValue: SmallInt; virtual;
|
|
function GetANOIsNull: Boolean; virtual;
|
|
function GetOldANOValue: SmallInt; virtual;
|
|
function GetOldANOIsNull: Boolean; virtual;
|
|
procedure SetANOValue(const aValue: SmallInt); virtual;
|
|
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ANO : SmallInt read GetANOValue write SetANOValue;
|
|
property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
|
|
property OldANO : SmallInt read GetOldANOValue;
|
|
property OldANOIsNull : Boolean read GetOldANOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IAgentesDelta }
|
|
IAgentesDelta = interface(IAgentes)
|
|
['{78CDEBAE-FB08-4CC1-BFBC-B837FA61DA6E}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CATEGORIAValue : Integer;
|
|
function GetOldNIF_CIFValue : String;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldPERSONA_CONTACTOValue : String;
|
|
function GetOldCALLEValue : String;
|
|
function GetOldPOBLACIONValue : String;
|
|
function GetOldPROVINCIAValue : String;
|
|
function GetOldCODIGO_POSTALValue : String;
|
|
function GetOldPAISValue : String;
|
|
function GetOldIDIOMA_ISOValue : String;
|
|
function GetOldIDIOMAValue : 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 GetOldID_EMPRESAValue : Integer;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldFECHA_ALTA_EMPRESAValue : DateTime;
|
|
function GetOldFECHA_BAJAValue : DateTime;
|
|
function GetOldCAUSA_BAJAValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
|
property OldCALLE : String read GetOldCALLEValue;
|
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
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 OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue;
|
|
property OldFECHA_BAJA : DateTime read GetOldFECHA_BAJAValue;
|
|
property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue;
|
|
end;
|
|
|
|
{ TAgentesBusinessProcessorRules }
|
|
TAgentesBusinessProcessorRules = class(TDABusinessProcessorRules, IAgentes, IAgentesDelta)
|
|
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_CATEGORIAValue: Integer; virtual;
|
|
function GetID_CATEGORIAIsNull: Boolean; virtual;
|
|
function GetOldID_CATEGORIAValue: Integer; virtual;
|
|
function GetOldID_CATEGORIAIsNull: Boolean; virtual;
|
|
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
|
|
procedure SetID_CATEGORIAIsNull(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 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 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 GetPAISValue: String; virtual;
|
|
function GetPAISIsNull: Boolean; virtual;
|
|
function GetOldPAISValue: String; virtual;
|
|
function GetOldPAISIsNull: Boolean; virtual;
|
|
procedure SetPAISValue(const aValue: String); virtual;
|
|
procedure SetPAISIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMA_ISOValue: String; virtual;
|
|
function GetIDIOMA_ISOIsNull: Boolean; virtual;
|
|
function GetOldIDIOMA_ISOValue: String; virtual;
|
|
function GetOldIDIOMA_ISOIsNull: Boolean; virtual;
|
|
procedure SetIDIOMA_ISOValue(const aValue: String); virtual;
|
|
procedure SetIDIOMA_ISOIsNull(const aValue: Boolean); virtual;
|
|
function GetIDIOMAValue: String; virtual;
|
|
function GetIDIOMAIsNull: Boolean; virtual;
|
|
function GetOldIDIOMAValue: String; virtual;
|
|
function GetOldIDIOMAIsNull: Boolean; virtual;
|
|
procedure SetIDIOMAValue(const aValue: String); virtual;
|
|
procedure SetIDIOMAIsNull(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 GetID_EMPRESAValue: Integer; virtual;
|
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_ALTA_EMPRESAValue: DateTime; virtual;
|
|
function GetFECHA_ALTA_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldFECHA_ALTA_EMPRESAValue: DateTime; virtual;
|
|
function GetOldFECHA_ALTA_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetFECHA_BAJAValue: DateTime; virtual;
|
|
function GetFECHA_BAJAIsNull: Boolean; virtual;
|
|
function GetOldFECHA_BAJAValue: DateTime; virtual;
|
|
function GetOldFECHA_BAJAIsNull: Boolean; virtual;
|
|
procedure SetFECHA_BAJAValue(const aValue: DateTime); virtual;
|
|
procedure SetFECHA_BAJAIsNull(const aValue: Boolean); virtual;
|
|
function GetCAUSA_BAJAValue: String; virtual;
|
|
function GetCAUSA_BAJAIsNull: Boolean; virtual;
|
|
function GetOldCAUSA_BAJAValue: String; virtual;
|
|
function GetOldCAUSA_BAJAIsNull: Boolean; virtual;
|
|
procedure SetCAUSA_BAJAValue(const aValue: String); virtual;
|
|
procedure SetCAUSA_BAJAIsNull(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_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
|
|
property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
|
|
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 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 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 PAIS : String read GetPAISValue write SetPAISValue;
|
|
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
|
|
property OldPAIS : String read GetOldPAISValue;
|
|
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
|
|
property IDIOMA_ISO : String read GetIDIOMA_ISOValue write SetIDIOMA_ISOValue;
|
|
property IDIOMA_ISOIsNull : Boolean read GetIDIOMA_ISOIsNull write SetIDIOMA_ISOIsNull;
|
|
property OldIDIOMA_ISO : String read GetOldIDIOMA_ISOValue;
|
|
property OldIDIOMA_ISOIsNull : Boolean read GetOldIDIOMA_ISOIsNull;
|
|
property IDIOMA : String read GetIDIOMAValue write SetIDIOMAValue;
|
|
property IDIOMAIsNull : Boolean read GetIDIOMAIsNull write SetIDIOMAIsNull;
|
|
property OldIDIOMA : String read GetOldIDIOMAValue;
|
|
property OldIDIOMAIsNull : Boolean read GetOldIDIOMAIsNull;
|
|
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 ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
|
property FECHA_ALTA_EMPRESA : DateTime read GetFECHA_ALTA_EMPRESAValue write SetFECHA_ALTA_EMPRESAValue;
|
|
property FECHA_ALTA_EMPRESAIsNull : Boolean read GetFECHA_ALTA_EMPRESAIsNull write SetFECHA_ALTA_EMPRESAIsNull;
|
|
property OldFECHA_ALTA_EMPRESA : DateTime read GetOldFECHA_ALTA_EMPRESAValue;
|
|
property OldFECHA_ALTA_EMPRESAIsNull : Boolean read GetOldFECHA_ALTA_EMPRESAIsNull;
|
|
property FECHA_BAJA : DateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue;
|
|
property FECHA_BAJAIsNull : Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull;
|
|
property OldFECHA_BAJA : DateTime read GetOldFECHA_BAJAValue;
|
|
property OldFECHA_BAJAIsNull : Boolean read GetOldFECHA_BAJAIsNull;
|
|
property CAUSA_BAJA : String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue;
|
|
property CAUSA_BAJAIsNull : Boolean read GetCAUSA_BAJAIsNull write SetCAUSA_BAJAIsNull;
|
|
property OldCAUSA_BAJA : String read GetOldCAUSA_BAJAValue;
|
|
property OldCAUSA_BAJAIsNull : Boolean read GetOldCAUSA_BAJAIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IClientesDescuentosArticulosDelta }
|
|
IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos)
|
|
['{50FFA388-10BC-4FD6-BBDB-2F8E881C234B}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CLIENTEValue : Integer;
|
|
function GetOldID_ARTICULOValue : SmallInt;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldPRECIO_COSTEValue : Currency;
|
|
function GetOldDESCUENTO_PROVEEDORValue : Float;
|
|
function GetOldPRECIO_NETOValue : Currency;
|
|
function GetOldDESCUENTOValue : Float;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property OldID_ARTICULO : SmallInt read GetOldID_ARTICULOValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
|
|
property OldDESCUENTO_PROVEEDOR : Float read GetOldDESCUENTO_PROVEEDORValue;
|
|
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
end;
|
|
|
|
{ TClientesDescuentosArticulosBusinessProcessorRules }
|
|
TClientesDescuentosArticulosBusinessProcessorRules = class(TDABusinessProcessorRules, IClientesDescuentosArticulos, IClientesDescuentosArticulosDelta)
|
|
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_CLIENTEValue: Integer; virtual;
|
|
function GetID_CLIENTEIsNull: Boolean; virtual;
|
|
function GetOldID_CLIENTEValue: Integer; virtual;
|
|
function GetOldID_CLIENTEIsNull: Boolean; virtual;
|
|
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
|
|
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetID_ARTICULOValue: SmallInt; virtual;
|
|
function GetID_ARTICULOIsNull: Boolean; virtual;
|
|
function GetOldID_ARTICULOValue: SmallInt; virtual;
|
|
function GetOldID_ARTICULOIsNull: Boolean; virtual;
|
|
procedure SetID_ARTICULOValue(const aValue: SmallInt); virtual;
|
|
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
function GetPRECIO_COSTEValue: Currency; virtual;
|
|
function GetPRECIO_COSTEIsNull: Boolean; virtual;
|
|
function GetOldPRECIO_COSTEValue: Currency; virtual;
|
|
function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
|
|
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
|
|
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCUENTO_PROVEEDORValue: Float; virtual;
|
|
function GetDESCUENTO_PROVEEDORIsNull: Boolean; virtual;
|
|
function GetOldDESCUENTO_PROVEEDORValue: Float; virtual;
|
|
function GetOldDESCUENTO_PROVEEDORIsNull: Boolean; virtual;
|
|
procedure SetDESCUENTO_PROVEEDORValue(const aValue: Float); virtual;
|
|
procedure SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean); virtual;
|
|
function GetPRECIO_NETOValue: Currency; virtual;
|
|
function GetPRECIO_NETOIsNull: Boolean; virtual;
|
|
function GetOldPRECIO_NETOValue: Currency; virtual;
|
|
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
|
|
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
|
|
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCUENTOValue: Float; virtual;
|
|
function GetDESCUENTOIsNull: Boolean; virtual;
|
|
function GetOldDESCUENTOValue: Float; virtual;
|
|
function GetOldDESCUENTOIsNull: Boolean; virtual;
|
|
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
|
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ 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_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
|
|
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
|
|
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
|
|
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
|
|
property ID_ARTICULO : SmallInt read GetID_ARTICULOValue write SetID_ARTICULOValue;
|
|
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
|
|
property OldID_ARTICULO : SmallInt read GetOldID_ARTICULOValue;
|
|
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
|
|
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
|
|
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
|
|
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
|
|
property DESCUENTO_PROVEEDOR : Float read GetDESCUENTO_PROVEEDORValue write SetDESCUENTO_PROVEEDORValue;
|
|
property DESCUENTO_PROVEEDORIsNull : Boolean read GetDESCUENTO_PROVEEDORIsNull write SetDESCUENTO_PROVEEDORIsNull;
|
|
property OldDESCUENTO_PROVEEDOR : Float read GetOldDESCUENTO_PROVEEDORValue;
|
|
property OldDESCUENTO_PROVEEDORIsNull : Boolean read GetOldDESCUENTO_PROVEEDORIsNull;
|
|
property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
|
|
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
|
|
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
|
|
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
|
|
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IAgentes_Objetivos_albaranesDelta }
|
|
IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes)
|
|
['{16FC9B1B-2F15-4F6B-AE2F-40B7C2343C1E}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_AGENTEValue : Integer;
|
|
function GetOldANOValue : SmallInt;
|
|
function GetOldMESValue : SmallInt;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldUNIDADES_OBJETIVOValue : SmallInt;
|
|
function GetOldIMPORTE_OBJETIVOValue : Currency;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldANO : SmallInt read GetOldANOValue;
|
|
property OldMES : SmallInt read GetOldMESValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldUNIDADES_OBJETIVO : SmallInt read GetOldUNIDADES_OBJETIVOValue;
|
|
property OldIMPORTE_OBJETIVO : Currency read GetOldIMPORTE_OBJETIVOValue;
|
|
end;
|
|
|
|
{ TAgentes_Objetivos_albaranesBusinessProcessorRules }
|
|
TAgentes_Objetivos_albaranesBusinessProcessorRules = class(TDABusinessProcessorRules, IAgentes_Objetivos_albaranes, IAgentes_Objetivos_albaranesDelta)
|
|
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_AGENTEValue: Integer; virtual;
|
|
function GetID_AGENTEIsNull: Boolean; virtual;
|
|
function GetOldID_AGENTEValue: Integer; virtual;
|
|
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
|
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
|
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetANOValue: SmallInt; virtual;
|
|
function GetANOIsNull: Boolean; virtual;
|
|
function GetOldANOValue: SmallInt; virtual;
|
|
function GetOldANOIsNull: Boolean; virtual;
|
|
procedure SetANOValue(const aValue: SmallInt); virtual;
|
|
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
|
function GetMESValue: SmallInt; virtual;
|
|
function GetMESIsNull: Boolean; virtual;
|
|
function GetOldMESValue: SmallInt; virtual;
|
|
function GetOldMESIsNull: Boolean; virtual;
|
|
procedure SetMESValue(const aValue: SmallInt); virtual;
|
|
procedure SetMESIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
function GetUNIDADES_OBJETIVOValue: SmallInt; virtual;
|
|
function GetUNIDADES_OBJETIVOIsNull: Boolean; virtual;
|
|
function GetOldUNIDADES_OBJETIVOValue: SmallInt; virtual;
|
|
function GetOldUNIDADES_OBJETIVOIsNull: Boolean; virtual;
|
|
procedure SetUNIDADES_OBJETIVOValue(const aValue: SmallInt); virtual;
|
|
procedure SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean); virtual;
|
|
function GetIMPORTE_OBJETIVOValue: Currency; virtual;
|
|
function GetIMPORTE_OBJETIVOIsNull: Boolean; virtual;
|
|
function GetOldIMPORTE_OBJETIVOValue: Currency; virtual;
|
|
function GetOldIMPORTE_OBJETIVOIsNull: Boolean; virtual;
|
|
procedure SetIMPORTE_OBJETIVOValue(const aValue: Currency); virtual;
|
|
procedure SetIMPORTE_OBJETIVOIsNull(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_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
|
property ANO : SmallInt read GetANOValue write SetANOValue;
|
|
property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
|
|
property OldANO : SmallInt read GetOldANOValue;
|
|
property OldANOIsNull : Boolean read GetOldANOIsNull;
|
|
property MES : SmallInt read GetMESValue write SetMESValue;
|
|
property MESIsNull : Boolean read GetMESIsNull write SetMESIsNull;
|
|
property OldMES : SmallInt read GetOldMESValue;
|
|
property OldMESIsNull : Boolean read GetOldMESIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
property UNIDADES_OBJETIVO : SmallInt read GetUNIDADES_OBJETIVOValue write SetUNIDADES_OBJETIVOValue;
|
|
property UNIDADES_OBJETIVOIsNull : Boolean read GetUNIDADES_OBJETIVOIsNull write SetUNIDADES_OBJETIVOIsNull;
|
|
property OldUNIDADES_OBJETIVO : SmallInt read GetOldUNIDADES_OBJETIVOValue;
|
|
property OldUNIDADES_OBJETIVOIsNull : Boolean read GetOldUNIDADES_OBJETIVOIsNull;
|
|
property IMPORTE_OBJETIVO : Currency read GetIMPORTE_OBJETIVOValue write SetIMPORTE_OBJETIVOValue;
|
|
property IMPORTE_OBJETIVOIsNull : Boolean read GetIMPORTE_OBJETIVOIsNull write SetIMPORTE_OBJETIVOIsNull;
|
|
property OldIMPORTE_OBJETIVO : Currency read GetOldIMPORTE_OBJETIVOValue;
|
|
property OldIMPORTE_OBJETIVOIsNull : Boolean read GetOldIMPORTE_OBJETIVOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IAgentes_Objetivos_facturasDelta }
|
|
IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas)
|
|
['{277F2895-6496-4A96-ACF7-BEC4389819EA}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_AGENTEValue : Integer;
|
|
function GetOldANOValue : SmallInt;
|
|
function GetOldMESValue : SmallInt;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
function GetOldUNIDADES_OBJETIVOValue : SmallInt;
|
|
function GetOldIMPORTE_OBJETIVOValue : Currency;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldANO : SmallInt read GetOldANOValue;
|
|
property OldMES : SmallInt read GetOldMESValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldUNIDADES_OBJETIVO : SmallInt read GetOldUNIDADES_OBJETIVOValue;
|
|
property OldIMPORTE_OBJETIVO : Currency read GetOldIMPORTE_OBJETIVOValue;
|
|
end;
|
|
|
|
{ TAgentes_Objetivos_facturasBusinessProcessorRules }
|
|
TAgentes_Objetivos_facturasBusinessProcessorRules = class(TDABusinessProcessorRules, IAgentes_Objetivos_facturas, IAgentes_Objetivos_facturasDelta)
|
|
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_AGENTEValue: Integer; virtual;
|
|
function GetID_AGENTEIsNull: Boolean; virtual;
|
|
function GetOldID_AGENTEValue: Integer; virtual;
|
|
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
|
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
|
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetANOValue: SmallInt; virtual;
|
|
function GetANOIsNull: Boolean; virtual;
|
|
function GetOldANOValue: SmallInt; virtual;
|
|
function GetOldANOIsNull: Boolean; virtual;
|
|
procedure SetANOValue(const aValue: SmallInt); virtual;
|
|
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
|
function GetMESValue: SmallInt; virtual;
|
|
function GetMESIsNull: Boolean; virtual;
|
|
function GetOldMESValue: SmallInt; virtual;
|
|
function GetOldMESIsNull: Boolean; virtual;
|
|
procedure SetMESValue(const aValue: SmallInt); virtual;
|
|
procedure SetMESIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
function GetUNIDADES_OBJETIVOValue: SmallInt; virtual;
|
|
function GetUNIDADES_OBJETIVOIsNull: Boolean; virtual;
|
|
function GetOldUNIDADES_OBJETIVOValue: SmallInt; virtual;
|
|
function GetOldUNIDADES_OBJETIVOIsNull: Boolean; virtual;
|
|
procedure SetUNIDADES_OBJETIVOValue(const aValue: SmallInt); virtual;
|
|
procedure SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean); virtual;
|
|
function GetIMPORTE_OBJETIVOValue: Currency; virtual;
|
|
function GetIMPORTE_OBJETIVOIsNull: Boolean; virtual;
|
|
function GetOldIMPORTE_OBJETIVOValue: Currency; virtual;
|
|
function GetOldIMPORTE_OBJETIVOIsNull: Boolean; virtual;
|
|
procedure SetIMPORTE_OBJETIVOValue(const aValue: Currency); virtual;
|
|
procedure SetIMPORTE_OBJETIVOIsNull(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_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
|
property ANO : SmallInt read GetANOValue write SetANOValue;
|
|
property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
|
|
property OldANO : SmallInt read GetOldANOValue;
|
|
property OldANOIsNull : Boolean read GetOldANOIsNull;
|
|
property MES : SmallInt read GetMESValue write SetMESValue;
|
|
property MESIsNull : Boolean read GetMESIsNull write SetMESIsNull;
|
|
property OldMES : SmallInt read GetOldMESValue;
|
|
property OldMESIsNull : Boolean read GetOldMESIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
property UNIDADES_OBJETIVO : SmallInt read GetUNIDADES_OBJETIVOValue write SetUNIDADES_OBJETIVOValue;
|
|
property UNIDADES_OBJETIVOIsNull : Boolean read GetUNIDADES_OBJETIVOIsNull write SetUNIDADES_OBJETIVOIsNull;
|
|
property OldUNIDADES_OBJETIVO : SmallInt read GetOldUNIDADES_OBJETIVOValue;
|
|
property OldUNIDADES_OBJETIVOIsNull : Boolean read GetOldUNIDADES_OBJETIVOIsNull;
|
|
property IMPORTE_OBJETIVO : Currency read GetIMPORTE_OBJETIVOValue write SetIMPORTE_OBJETIVOValue;
|
|
property IMPORTE_OBJETIVOIsNull : Boolean read GetIMPORTE_OBJETIVOIsNull write SetIMPORTE_OBJETIVOIsNull;
|
|
property OldIMPORTE_OBJETIVO : Currency read GetOldIMPORTE_OBJETIVOValue;
|
|
property OldIMPORTE_OBJETIVOIsNull : Boolean read GetOldIMPORTE_OBJETIVOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IListaAnosObjetivosFacDelta }
|
|
IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac)
|
|
['{BA849E82-6EA5-48A4-99DD-85722C9DFBB6}']
|
|
{ Property getters and setters }
|
|
function GetOldANOValue : SmallInt;
|
|
|
|
{ Properties }
|
|
property OldANO : SmallInt read GetOldANOValue;
|
|
end;
|
|
|
|
{ TListaAnosObjetivosFacBusinessProcessorRules }
|
|
TListaAnosObjetivosFacBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosObjetivosFac, IListaAnosObjetivosFacDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function GetANOValue: SmallInt; virtual;
|
|
function GetANOIsNull: Boolean; virtual;
|
|
function GetOldANOValue: SmallInt; virtual;
|
|
function GetOldANOIsNull: Boolean; virtual;
|
|
procedure SetANOValue(const aValue: SmallInt); virtual;
|
|
procedure SetANOIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ANO : SmallInt read GetANOValue write SetANOValue;
|
|
property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
|
|
property OldANO : SmallInt read GetOldANOValue;
|
|
property OldANOIsNull : Boolean read GetOldANOIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IIdiomasDelta }
|
|
IIdiomasDelta = interface(IIdiomas)
|
|
['{4330BB74-655C-4432-B37A-3AE570E3A64A}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldISOValue : String;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldISO : String read GetOldISOValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
end;
|
|
|
|
{ TIdiomasBusinessProcessorRules }
|
|
TIdiomasBusinessProcessorRules = class(TDABusinessProcessorRules, IIdiomas, IIdiomasDelta)
|
|
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 GetISOValue: String; virtual;
|
|
function GetISOIsNull: Boolean; virtual;
|
|
function GetOldISOValue: String; virtual;
|
|
function GetOldISOIsNull: Boolean; virtual;
|
|
procedure SetISOValue(const aValue: String); virtual;
|
|
procedure SetISOIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property ISO : String read GetISOValue write SetISOValue;
|
|
property ISOIsNull : Boolean read GetISOIsNull write SetISOIsNull;
|
|
property OldISO : String read GetOldISOValue;
|
|
property OldISOIsNull : Boolean read GetOldISOIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ ITiposClienteDelta }
|
|
ITiposClienteDelta = interface(ITiposCliente)
|
|
['{BF98679D-32FD-4DBE-B987-7947FF444030}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldDESCRIPCIONValue : String;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
end;
|
|
|
|
{ TTiposClienteBusinessProcessorRules }
|
|
TTiposClienteBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposCliente, ITiposClienteDelta)
|
|
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 GetDESCRIPCIONValue: String; virtual;
|
|
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
|
function GetOldDESCRIPCIONValue: String; virtual;
|
|
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
|
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
|
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property ID : Integer read GetIDValue write SetIDValue;
|
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
|
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
|
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
|
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
|
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IClientesSucursalesDelta }
|
|
IClientesSucursalesDelta = interface(IClientesSucursales)
|
|
['{DAA8A3FB-FCAD-4A99-A61E-6A3BA1858877}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_CATEGORIAValue : Integer;
|
|
function GetOldNIF_CIFValue : String;
|
|
function GetOldNOMBREValue : String;
|
|
function GetOldPERSONA_CONTACTOValue : 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 GetOldID_EMPRESAValue : Integer;
|
|
function GetOldREFERENCIAValue : String;
|
|
function GetOldID_AGENTEValue : Integer;
|
|
function GetOldGRUPO_CLIENTEValue : String;
|
|
function GetOldNOMBRE_COMERCIALValue : String;
|
|
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
|
|
function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt;
|
|
function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt;
|
|
function GetOldBLOQUEADOValue : SmallInt;
|
|
function GetOldAGENTEValue : String;
|
|
function GetOldRAPELValue : SmallInt;
|
|
function GetOldEMAIL_ADMINISTRACIONValue : String;
|
|
function GetOldREGIMEN_IVAValue : String;
|
|
function GetOldMOTIVO_BLOQUEOValue : String;
|
|
function GetOldRECARGO_EQUIVALENCIAValue : Integer;
|
|
function GetOldID_TIPO_IVAValue : Integer;
|
|
function GetOldID_FORMA_PAGOValue : Integer;
|
|
function GetOldTIENDA_WEBValue : SmallInt;
|
|
function GetOldCODIGO_ASIGNADOValue : String;
|
|
function GetOldDESCUENTOValue : Float;
|
|
function GetOldFELICITACIONValue : SmallInt;
|
|
function GetOldTIPO_CLIENTEValue : String;
|
|
function GetOldSEPAValue : SmallInt;
|
|
function GetOldID_CENTRALValue : Integer;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldNIF_CIF : String read GetOldNIF_CIFValue;
|
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
|
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 OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
|
|
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
|
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
|
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
|
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
|
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
|
property OldAGENTE : String read GetOldAGENTEValue;
|
|
property OldRAPEL : SmallInt read GetOldRAPELValue;
|
|
property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
|
|
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
|
|
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
|
|
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
|
|
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
|
|
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
|
|
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
|
|
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
|
|
property OldTIPO_CLIENTE : String read GetOldTIPO_CLIENTEValue;
|
|
property OldSEPA : SmallInt read GetOldSEPAValue;
|
|
property OldID_CENTRAL : Integer read GetOldID_CENTRALValue;
|
|
end;
|
|
|
|
{ TClientesSucursalesBusinessProcessorRules }
|
|
TClientesSucursalesBusinessProcessorRules = class(TDABusinessProcessorRules, IClientesSucursales, IClientesSucursalesDelta)
|
|
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_CATEGORIAValue: Integer; virtual;
|
|
function GetID_CATEGORIAIsNull: Boolean; virtual;
|
|
function GetOldID_CATEGORIAValue: Integer; virtual;
|
|
function GetOldID_CATEGORIAIsNull: Boolean; virtual;
|
|
procedure SetID_CATEGORIAValue(const aValue: Integer); virtual;
|
|
procedure SetID_CATEGORIAIsNull(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 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 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 GetID_EMPRESAValue: Integer; virtual;
|
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
|
function GetREFERENCIAValue: String; virtual;
|
|
function GetREFERENCIAIsNull: Boolean; virtual;
|
|
function GetOldREFERENCIAValue: String; virtual;
|
|
function GetOldREFERENCIAIsNull: Boolean; virtual;
|
|
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
|
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_AGENTEValue: Integer; virtual;
|
|
function GetID_AGENTEIsNull: Boolean; virtual;
|
|
function GetOldID_AGENTEValue: Integer; virtual;
|
|
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
|
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
|
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetGRUPO_CLIENTEValue: String; virtual;
|
|
function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
|
|
function GetOldGRUPO_CLIENTEValue: String; virtual;
|
|
function GetOldGRUPO_CLIENTEIsNull: Boolean; virtual;
|
|
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
|
|
procedure SetGRUPO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetNOMBRE_COMERCIALValue: String; virtual;
|
|
function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
|
function GetOldNOMBRE_COMERCIALValue: String; virtual;
|
|
function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
|
|
procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
|
|
procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
|
|
function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
|
function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual;
|
|
function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
|
function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual;
|
|
function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
|
function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual;
|
|
function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual;
|
|
procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual;
|
|
function GetBLOQUEADOValue: SmallInt; virtual;
|
|
function GetBLOQUEADOIsNull: Boolean; virtual;
|
|
function GetOldBLOQUEADOValue: SmallInt; virtual;
|
|
function GetOldBLOQUEADOIsNull: Boolean; virtual;
|
|
procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual;
|
|
procedure SetBLOQUEADOIsNull(const aValue: Boolean); virtual;
|
|
function GetAGENTEValue: String; virtual;
|
|
function GetAGENTEIsNull: Boolean; virtual;
|
|
function GetOldAGENTEValue: String; virtual;
|
|
function GetOldAGENTEIsNull: Boolean; virtual;
|
|
procedure SetAGENTEValue(const aValue: String); virtual;
|
|
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetRAPELValue: SmallInt; virtual;
|
|
function GetRAPELIsNull: Boolean; virtual;
|
|
function GetOldRAPELValue: SmallInt; virtual;
|
|
function GetOldRAPELIsNull: Boolean; virtual;
|
|
procedure SetRAPELValue(const aValue: SmallInt); virtual;
|
|
procedure SetRAPELIsNull(const aValue: Boolean); virtual;
|
|
function GetEMAIL_ADMINISTRACIONValue: String; virtual;
|
|
function GetEMAIL_ADMINISTRACIONIsNull: Boolean; virtual;
|
|
function GetOldEMAIL_ADMINISTRACIONValue: String; virtual;
|
|
function GetOldEMAIL_ADMINISTRACIONIsNull: Boolean; virtual;
|
|
procedure SetEMAIL_ADMINISTRACIONValue(const aValue: String); virtual;
|
|
procedure SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetREGIMEN_IVAValue: String; virtual;
|
|
function GetREGIMEN_IVAIsNull: Boolean; virtual;
|
|
function GetOldREGIMEN_IVAValue: String; virtual;
|
|
function GetOldREGIMEN_IVAIsNull: Boolean; virtual;
|
|
procedure SetREGIMEN_IVAValue(const aValue: String); virtual;
|
|
procedure SetREGIMEN_IVAIsNull(const aValue: Boolean); virtual;
|
|
function GetMOTIVO_BLOQUEOValue: String; virtual;
|
|
function GetMOTIVO_BLOQUEOIsNull: Boolean; virtual;
|
|
function GetOldMOTIVO_BLOQUEOValue: String; virtual;
|
|
function GetOldMOTIVO_BLOQUEOIsNull: Boolean; virtual;
|
|
procedure SetMOTIVO_BLOQUEOValue(const aValue: String); virtual;
|
|
procedure SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean); virtual;
|
|
function GetRECARGO_EQUIVALENCIAValue: Integer; virtual;
|
|
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
|
|
function GetOldRECARGO_EQUIVALENCIAValue: Integer; virtual;
|
|
function GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
|
|
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); virtual;
|
|
procedure SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_TIPO_IVAValue: Integer; virtual;
|
|
function GetID_TIPO_IVAIsNull: Boolean; virtual;
|
|
function GetOldID_TIPO_IVAValue: Integer; virtual;
|
|
function GetOldID_TIPO_IVAIsNull: Boolean; virtual;
|
|
procedure SetID_TIPO_IVAValue(const aValue: Integer); virtual;
|
|
procedure SetID_TIPO_IVAIsNull(const aValue: Boolean); virtual;
|
|
function 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 GetTIENDA_WEBValue: SmallInt; virtual;
|
|
function GetTIENDA_WEBIsNull: Boolean; virtual;
|
|
function GetOldTIENDA_WEBValue: SmallInt; virtual;
|
|
function GetOldTIENDA_WEBIsNull: Boolean; virtual;
|
|
procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
|
|
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
|
|
function GetCODIGO_ASIGNADOValue: String; virtual;
|
|
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
|
|
function GetOldCODIGO_ASIGNADOValue: String; virtual;
|
|
function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
|
|
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
|
|
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
|
|
function GetDESCUENTOValue: Float; virtual;
|
|
function GetDESCUENTOIsNull: Boolean; virtual;
|
|
function GetOldDESCUENTOValue: Float; virtual;
|
|
function GetOldDESCUENTOIsNull: Boolean; virtual;
|
|
procedure SetDESCUENTOValue(const aValue: Float); virtual;
|
|
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
|
|
function GetFELICITACIONValue: SmallInt; virtual;
|
|
function GetFELICITACIONIsNull: Boolean; virtual;
|
|
function GetOldFELICITACIONValue: SmallInt; virtual;
|
|
function GetOldFELICITACIONIsNull: Boolean; virtual;
|
|
procedure SetFELICITACIONValue(const aValue: SmallInt); virtual;
|
|
procedure SetFELICITACIONIsNull(const aValue: Boolean); virtual;
|
|
function GetTIPO_CLIENTEValue: String; virtual;
|
|
function GetTIPO_CLIENTEIsNull: Boolean; virtual;
|
|
function GetOldTIPO_CLIENTEValue: String; virtual;
|
|
function GetOldTIPO_CLIENTEIsNull: Boolean; virtual;
|
|
procedure SetTIPO_CLIENTEValue(const aValue: String); virtual;
|
|
procedure SetTIPO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
|
function GetSEPAValue: SmallInt; virtual;
|
|
function GetSEPAIsNull: Boolean; virtual;
|
|
function GetOldSEPAValue: SmallInt; virtual;
|
|
function GetOldSEPAIsNull: Boolean; virtual;
|
|
procedure SetSEPAValue(const aValue: SmallInt); virtual;
|
|
procedure SetSEPAIsNull(const aValue: Boolean); virtual;
|
|
function GetID_CENTRALValue: Integer; virtual;
|
|
function GetID_CENTRALIsNull: Boolean; virtual;
|
|
function GetOldID_CENTRALValue: Integer; virtual;
|
|
function GetOldID_CENTRALIsNull: Boolean; virtual;
|
|
procedure SetID_CENTRALValue(const aValue: Integer); virtual;
|
|
procedure SetID_CENTRALIsNull(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_CATEGORIA : Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue;
|
|
property ID_CATEGORIAIsNull : Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull;
|
|
property OldID_CATEGORIA : Integer read GetOldID_CATEGORIAValue;
|
|
property OldID_CATEGORIAIsNull : Boolean read GetOldID_CATEGORIAIsNull;
|
|
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 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 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 ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
|
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
|
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
|
|
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
|
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
|
|
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
|
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
|
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
|
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
|
property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
|
|
property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
|
|
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
|
|
property OldGRUPO_CLIENTEIsNull : Boolean read GetOldGRUPO_CLIENTEIsNull;
|
|
property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
|
|
property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
|
|
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
|
|
property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
|
|
property VENCIMIENTO_FACTURAS_1 : SmallInt read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value;
|
|
property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull;
|
|
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value;
|
|
property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull;
|
|
property VENCIMIENTO_FACTURAS_2 : SmallInt read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value;
|
|
property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull;
|
|
property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value;
|
|
property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull;
|
|
property VENCIMIENTO_FACTURAS_3 : SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value;
|
|
property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull;
|
|
property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value;
|
|
property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull;
|
|
property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue;
|
|
property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
|
|
property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
|
|
property OldBLOQUEADOIsNull : Boolean read GetOldBLOQUEADOIsNull;
|
|
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
|
|
property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
|
property OldAGENTE : String read GetOldAGENTEValue;
|
|
property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
|
|
property RAPEL : SmallInt read GetRAPELValue write SetRAPELValue;
|
|
property RAPELIsNull : Boolean read GetRAPELIsNull write SetRAPELIsNull;
|
|
property OldRAPEL : SmallInt read GetOldRAPELValue;
|
|
property OldRAPELIsNull : Boolean read GetOldRAPELIsNull;
|
|
property EMAIL_ADMINISTRACION : String read GetEMAIL_ADMINISTRACIONValue write SetEMAIL_ADMINISTRACIONValue;
|
|
property EMAIL_ADMINISTRACIONIsNull : Boolean read GetEMAIL_ADMINISTRACIONIsNull write SetEMAIL_ADMINISTRACIONIsNull;
|
|
property OldEMAIL_ADMINISTRACION : String read GetOldEMAIL_ADMINISTRACIONValue;
|
|
property OldEMAIL_ADMINISTRACIONIsNull : Boolean read GetOldEMAIL_ADMINISTRACIONIsNull;
|
|
property REGIMEN_IVA : String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
|
|
property REGIMEN_IVAIsNull : Boolean read GetREGIMEN_IVAIsNull write SetREGIMEN_IVAIsNull;
|
|
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
|
|
property OldREGIMEN_IVAIsNull : Boolean read GetOldREGIMEN_IVAIsNull;
|
|
property MOTIVO_BLOQUEO : String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue;
|
|
property MOTIVO_BLOQUEOIsNull : Boolean read GetMOTIVO_BLOQUEOIsNull write SetMOTIVO_BLOQUEOIsNull;
|
|
property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue;
|
|
property OldMOTIVO_BLOQUEOIsNull : Boolean read GetOldMOTIVO_BLOQUEOIsNull;
|
|
property RECARGO_EQUIVALENCIA : Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
|
|
property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
|
|
property OldRECARGO_EQUIVALENCIA : Integer read GetOldRECARGO_EQUIVALENCIAValue;
|
|
property OldRECARGO_EQUIVALENCIAIsNull : Boolean read GetOldRECARGO_EQUIVALENCIAIsNull;
|
|
property ID_TIPO_IVA : Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
|
|
property ID_TIPO_IVAIsNull : Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
|
|
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
|
|
property OldID_TIPO_IVAIsNull : Boolean read GetOldID_TIPO_IVAIsNull;
|
|
property 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 TIENDA_WEB : SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
|
|
property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
|
|
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
|
|
property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
|
|
property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
|
|
property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
|
|
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
|
|
property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
|
|
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
|
|
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
|
|
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
|
|
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
|
|
property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
|
|
property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
|
|
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
|
|
property OldFELICITACIONIsNull : Boolean read GetOldFELICITACIONIsNull;
|
|
property TIPO_CLIENTE : String read GetTIPO_CLIENTEValue write SetTIPO_CLIENTEValue;
|
|
property TIPO_CLIENTEIsNull : Boolean read GetTIPO_CLIENTEIsNull write SetTIPO_CLIENTEIsNull;
|
|
property OldTIPO_CLIENTE : String read GetOldTIPO_CLIENTEValue;
|
|
property OldTIPO_CLIENTEIsNull : Boolean read GetOldTIPO_CLIENTEIsNull;
|
|
property SEPA : SmallInt read GetSEPAValue write SetSEPAValue;
|
|
property SEPAIsNull : Boolean read GetSEPAIsNull write SetSEPAIsNull;
|
|
property OldSEPA : SmallInt read GetOldSEPAValue;
|
|
property OldSEPAIsNull : Boolean read GetOldSEPAIsNull;
|
|
property ID_CENTRAL : Integer read GetID_CENTRALValue write SetID_CENTRALValue;
|
|
property ID_CENTRALIsNull : Boolean read GetID_CENTRALIsNull write SetID_CENTRALIsNull;
|
|
property OldID_CENTRAL : Integer read GetOldID_CENTRALValue;
|
|
property OldID_CENTRALIsNull : Boolean read GetOldID_CENTRALIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uROBinaryHelpers, uDAInterfaces;
|
|
|
|
{ TContactosBusinessProcessorRules }
|
|
constructor TContactosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor TContactosBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAIS];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAIS]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPAISValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosIDIOMA_ISO];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosIDIOMA_ISO]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosIDIOMA_ISO];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosIDIOMA_ISO]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetIDIOMA_ISOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosIDIOMA_ISO] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetIDIOMA_ISOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosIDIOMA_ISO] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosIDIOMA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosIDIOMA]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosIDIOMA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosIDIOMA]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetIDIOMAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosIDIOMA] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetIDIOMAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosIDIOMA] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA]);
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA];
|
|
end;
|
|
|
|
function TContactosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA]);
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TContactosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := Null;
|
|
end;
|
|
|
|
|
|
{ TGruposClienteBusinessProcessorRules }
|
|
constructor TGruposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TGruposClienteBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TGruposClienteBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID];
|
|
end;
|
|
|
|
function TGruposClienteBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID]);
|
|
end;
|
|
|
|
function TGruposClienteBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID];
|
|
end;
|
|
|
|
function TGruposClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID]);
|
|
end;
|
|
|
|
procedure TGruposClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID] := aValue;
|
|
end;
|
|
|
|
procedure TGruposClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID] := Null;
|
|
end;
|
|
|
|
function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION];
|
|
end;
|
|
|
|
function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION]);
|
|
end;
|
|
|
|
function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION];
|
|
end;
|
|
|
|
function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION] := Null;
|
|
end;
|
|
|
|
|
|
{ TDatosBancariosBusinessProcessorRules }
|
|
constructor TDatosBancariosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TDatosBancariosBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetTITULARValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetTITULARIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldTITULARValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldTITULARIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetTITULARValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetTITULARIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetENTIDADIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldENTIDADValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldENTIDADIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetENTIDADValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetENTIDADIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetSUCURSALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetDCIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldDCValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldDCIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetDCValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetDCIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldCUENTAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldCUENTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetCUENTAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetCUENTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetIBANValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosIBAN];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetIBANIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosIBAN]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldIBANValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosIBAN];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldIBANIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosIBAN]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetIBANValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosIBAN] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetIBANIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosIBAN] := Null;
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetSWIFTValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSWIFT];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetSWIFTIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSWIFT]);
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldSWIFTValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSWIFT];
|
|
end;
|
|
|
|
function TDatosBancariosBusinessProcessorRules.GetOldSWIFTIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSWIFT]);
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetSWIFTValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSWIFT] := aValue;
|
|
end;
|
|
|
|
procedure TDatosBancariosBusinessProcessorRules.SetSWIFTIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSWIFT] := Null;
|
|
end;
|
|
|
|
|
|
{ TClientesBusinessProcessorRules }
|
|
constructor TClientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor TClientesBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAIS];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAIS]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPAISValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIDIOMA_ISO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIDIOMA_ISO]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIDIOMA_ISO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIDIOMA_ISO]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetIDIOMA_ISOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIDIOMA_ISO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetIDIOMA_ISOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIDIOMA_ISO] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIDIOMA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIDIOMA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIDIOMA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIDIOMA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetIDIOMAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIDIOMA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetIDIOMAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIDIOMA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_AGENTE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_AGENTE]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetBLOQUEADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldBLOQUEADOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldBLOQUEADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetBLOQUEADOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetBLOQUEADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetAGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesAGENTE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetAGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesAGENTE]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldAGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesAGENTE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldAGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesAGENTE]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetAGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesAGENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetAGENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesAGENTE] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetRAPELValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetRAPELIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldRAPELValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRAPEL];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldRAPELIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRAPEL]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetRAPELValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetRAPELIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRAPEL] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetEMAIL_ADMINISTRACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_ADMINISTRACION];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_ADMINISTRACION]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_ADMINISTRACION] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetREGIMEN_IVAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetFELICITACIONValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetFELICITACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldFELICITACIONValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFELICITACION];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldFELICITACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFELICITACION]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetFELICITACIONValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetFELICITACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetTIPO_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIPO_CLIENTE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetTIPO_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIPO_CLIENTE]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldTIPO_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIPO_CLIENTE];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldTIPO_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIPO_CLIENTE]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetTIPO_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIPO_CLIENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetTIPO_CLIENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIPO_CLIENTE] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetSEPAValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSEPA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetSEPAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSEPA]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldSEPAValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSEPA];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldSEPAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSEPA]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetSEPAValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSEPA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetSEPAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSEPA] := Null;
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_CENTRALValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CENTRAL];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetID_CENTRALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CENTRAL]);
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_CENTRALValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CENTRAL];
|
|
end;
|
|
|
|
function TClientesBusinessProcessorRules.GetOldID_CENTRALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CENTRAL]);
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_CENTRALValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CENTRAL] := aValue;
|
|
end;
|
|
|
|
procedure TClientesBusinessProcessorRules.SetID_CENTRALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CENTRAL] := Null;
|
|
end;
|
|
|
|
|
|
{ TProveedoresBusinessProcessorRules }
|
|
constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor TProveedoresBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPAISValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIDIOMA_ISO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIDIOMA_ISO]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIDIOMA_ISO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIDIOMA_ISO]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetIDIOMA_ISOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIDIOMA_ISO] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetIDIOMA_ISOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIDIOMA_ISO] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIDIOMA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIDIOMA]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIDIOMA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIDIOMA]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetIDIOMAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIDIOMA] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetIDIOMAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIDIOMA] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetHOMOLOGADOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetHOMOLOGADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetCERTIFICACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetCERTIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetSUBCONTRATAValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetSUBCONTRATAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldSUBCONTRATAValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresSUBCONTRATA];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldSUBCONTRATAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresSUBCONTRATA]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetSUBCONTRATAValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetSUBCONTRATAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetEMAIL_ADMINISTRACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_ADMINISTRACION];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_ADMINISTRACION]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_ADMINISTRACION] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := Null;
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]);
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3];
|
|
end;
|
|
|
|
function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]);
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := aValue;
|
|
end;
|
|
|
|
procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := Null;
|
|
end;
|
|
|
|
|
|
{ TEmpleadosBusinessProcessorRules }
|
|
constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := FORMACION_BASE_OnChange;
|
|
f_FORMACION_BASE := NewROStrings(StrList,True);
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := FORMACION_COMPLE_OnChange;
|
|
f_FORMACION_COMPLE := NewROStrings(StrList,True);
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := FORMACION_RECIBIDA_OnChange;
|
|
f_FORMACION_RECIBIDA := NewROStrings(StrList,True);
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := EXPERIENCIA_OnChange;
|
|
f_EXPERIENCIA := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor TEmpleadosBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.FORMACION_BASE_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.FORMACION_COMPLE_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.FORMACION_RECIBIDA_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.EXPERIENCIA_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAIS];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAIS]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAIS];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAIS]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPAISValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAIS] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAIS] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosIDIOMA_ISO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosIDIOMA_ISO]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosIDIOMA_ISO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosIDIOMA_ISO]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetIDIOMA_ISOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosIDIOMA_ISO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetIDIOMA_ISOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosIDIOMA_ISO] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosIDIOMA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosIDIOMA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosIDIOMA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosIDIOMA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetIDIOMAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosIDIOMA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetIDIOMAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosIDIOMA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOTAS];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOTAS]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_NACIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_NACIMIENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_NACIMIENTOValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_NACIMIENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCATEGORIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_ALTA_EMPRESAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_ALTA_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFORMACION_BASEValue: IROStrings;
|
|
begin
|
|
result := f_FORMACION_BASE;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFORMACION_BASEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFORMACION_BASEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFORMACION_COMPLEValue: IROStrings;
|
|
begin
|
|
result := f_FORMACION_COMPLE;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFORMACION_COMPLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFORMACION_COMPLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFORMACION_RECIBIDAValue: IROStrings;
|
|
begin
|
|
result := f_FORMACION_RECIBIDA;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFORMACION_RECIBIDAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFORMACION_RECIBIDAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetEXPERIENCIAValue: IROStrings;
|
|
begin
|
|
result := f_EXPERIENCIA;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetEXPERIENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetEXPERIENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCONTRATOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCONTRATOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCONTRATOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCONTRATO];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCONTRATOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCONTRATO]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCONTRATOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCONTRATOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetDURACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetDURACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldDURACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosDURACION];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldDURACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosDURACION]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetDURACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetDURACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_BAJAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetFECHA_BAJAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_BAJAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_BAJA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldFECHA_BAJAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_BAJA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_BAJAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetFECHA_BAJAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA] := Null;
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCAUSA_BAJAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetCAUSA_BAJAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA]);
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCAUSA_BAJAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCAUSA_BAJA];
|
|
end;
|
|
|
|
function TEmpleadosBusinessProcessorRules.GetOldCAUSA_BAJAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCAUSA_BAJA]);
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCAUSA_BAJAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA] := aValue;
|
|
end;
|
|
|
|
procedure TEmpleadosBusinessProcessorRules.SetCAUSA_BAJAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA] := Null;
|
|
end;
|
|
|
|
|
|
{ TDireccionesContactoBusinessProcessorRules }
|
|
constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor TDireccionesContactoBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetTELEFONOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetMOVILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetMOVILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldMOVILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetMOVILValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetEMAILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetEMAILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldEMAILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetEMAILValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPORTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPORTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPORTEValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPORTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPORTEValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPORTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPAIS];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPAIS]);
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPAIS];
|
|
end;
|
|
|
|
function TDireccionesContactoBusinessProcessorRules.GetOldPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPAIS]);
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPAISValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPAIS] := aValue;
|
|
end;
|
|
|
|
procedure TDireccionesContactoBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPAIS] := Null;
|
|
end;
|
|
|
|
|
|
{ TDatasetBusinessProcessorRules }
|
|
constructor TDatasetBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TDatasetBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
|
|
{ TClientesDescuentosBusinessProcessorRules }
|
|
constructor TClientesDescuentosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TClientesDescuentosBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID]);
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE]);
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR]);
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE]);
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO]);
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO];
|
|
end;
|
|
|
|
function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO] := Null;
|
|
end;
|
|
|
|
|
|
{ TGruposProveedorBusinessProcessorRules }
|
|
constructor TGruposProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TGruposProveedorBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TGruposProveedorBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID];
|
|
end;
|
|
|
|
function TGruposProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID]);
|
|
end;
|
|
|
|
function TGruposProveedorBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID];
|
|
end;
|
|
|
|
function TGruposProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID]);
|
|
end;
|
|
|
|
procedure TGruposProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID] := aValue;
|
|
end;
|
|
|
|
procedure TGruposProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID] := Null;
|
|
end;
|
|
|
|
function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION];
|
|
end;
|
|
|
|
function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION]);
|
|
end;
|
|
|
|
function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION];
|
|
end;
|
|
|
|
function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TGruposProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TGruposProveedorBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION] := Null;
|
|
end;
|
|
|
|
|
|
{ TGruposEmpleadoBusinessProcessorRules }
|
|
constructor TGruposEmpleadoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TGruposEmpleadoBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TGruposEmpleadoBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID];
|
|
end;
|
|
|
|
function TGruposEmpleadoBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID]);
|
|
end;
|
|
|
|
function TGruposEmpleadoBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoID];
|
|
end;
|
|
|
|
function TGruposEmpleadoBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoID]);
|
|
end;
|
|
|
|
procedure TGruposEmpleadoBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID] := aValue;
|
|
end;
|
|
|
|
procedure TGruposEmpleadoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID] := Null;
|
|
end;
|
|
|
|
function TGruposEmpleadoBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION];
|
|
end;
|
|
|
|
function TGruposEmpleadoBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION]);
|
|
end;
|
|
|
|
function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION];
|
|
end;
|
|
|
|
function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TGruposEmpleadoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TGruposEmpleadoBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION] := Null;
|
|
end;
|
|
|
|
|
|
{ TContactos_RefreshBusinessProcessorRules }
|
|
constructor TContactos_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor TContactos_RefreshBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshID];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshID]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNIF_CIF];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNIF_CIF]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOMBRE];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOMBRE]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCALLE];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCALLE]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPOBLACION];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPOBLACION]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPROVINCIA];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPROVINCIA]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_1];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_1]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_2];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_2]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_1];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_1]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_2];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_2]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFAX];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFAX]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_1];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_1]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_2];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_2]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAGINA_WEB];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAGINA_WEB]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOTAS];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOTAS]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_ALTA];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshUSUARIO];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshUSUARIO]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshREFERENCIA];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshREFERENCIA]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TContactos_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TContactos_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO] := Null;
|
|
end;
|
|
|
|
|
|
{ TContratosEmpleadosBusinessProcessorRules }
|
|
constructor TContratosEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TContratosEmpleadosBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TContratosEmpleadosBusinessProcessorRules.GetCONTRATOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO];
|
|
end;
|
|
|
|
function TContratosEmpleadosBusinessProcessorRules.GetCONTRATOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO]);
|
|
end;
|
|
|
|
function TContratosEmpleadosBusinessProcessorRules.GetOldCONTRATOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosEmpleadosCONTRATO];
|
|
end;
|
|
|
|
function TContratosEmpleadosBusinessProcessorRules.GetOldCONTRATOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosEmpleadosCONTRATO]);
|
|
end;
|
|
|
|
procedure TContratosEmpleadosBusinessProcessorRules.SetCONTRATOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO] := aValue;
|
|
end;
|
|
|
|
procedure TContratosEmpleadosBusinessProcessorRules.SetCONTRATOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO] := Null;
|
|
end;
|
|
|
|
|
|
{ TDescripcionesProveedoresBusinessProcessorRules }
|
|
constructor TDescripcionesProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TDescripcionesProveedoresBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TDescripcionesProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR];
|
|
end;
|
|
|
|
function TDescripcionesProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]);
|
|
end;
|
|
|
|
function TDescripcionesProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR];
|
|
end;
|
|
|
|
function TDescripcionesProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TDescripcionesProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TDescripcionesProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
|
|
{ TPersonalContactoBusinessProcessorRules }
|
|
constructor TPersonalContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TPersonalContactoBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := Null;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE] := Null;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetPUESTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetPUESTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldPUESTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldPUESTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetPUESTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetPUESTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := Null;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetTELEFONOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := Null;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetMOVILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetMOVILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldMOVILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetMOVILValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL] := Null;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := Null;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetEMAILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetEMAILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldEMAILValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetEMAILValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := Null;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
|
|
{ TAgentes_ComisionesBusinessProcessorRules }
|
|
constructor TAgentes_ComisionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TAgentes_ComisionesBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID]);
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesID];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesID]);
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID] := Null;
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID_AGENTE];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID_AGENTE]);
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesID_AGENTE];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesID_AGENTE]);
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID_AGENTE] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID_AGENTE] := Null;
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetID_PROVEEDORValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID_PROVEEDOR];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID_PROVEEDOR]);
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldID_PROVEEDORValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesID_PROVEEDOR];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesID_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesID_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesNOMBRE];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesNOMBRE]);
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesNOMBRE];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesNOMBRE]);
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesNOMBRE] := Null;
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetCOMISIONValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesCOMISION];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetCOMISIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesCOMISION]);
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldCOMISIONValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesCOMISION];
|
|
end;
|
|
|
|
function TAgentes_ComisionesBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_ComisionesCOMISION]);
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetCOMISIONValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesCOMISION] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_ComisionesBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_ComisionesCOMISION] := Null;
|
|
end;
|
|
|
|
|
|
{ TListaAnosObjetivosAlbBusinessProcessorRules }
|
|
constructor TListaAnosObjetivosAlbBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TListaAnosObjetivosAlbBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TListaAnosObjetivosAlbBusinessProcessorRules.GetANOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO];
|
|
end;
|
|
|
|
function TListaAnosObjetivosAlbBusinessProcessorRules.GetANOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO]);
|
|
end;
|
|
|
|
function TListaAnosObjetivosAlbBusinessProcessorRules.GetOldANOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosAlbANO];
|
|
end;
|
|
|
|
function TListaAnosObjetivosAlbBusinessProcessorRules.GetOldANOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosAlbANO]);
|
|
end;
|
|
|
|
procedure TListaAnosObjetivosAlbBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO] := aValue;
|
|
end;
|
|
|
|
procedure TListaAnosObjetivosAlbBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO] := Null;
|
|
end;
|
|
|
|
|
|
{ TAgentesBusinessProcessorRules }
|
|
constructor TAgentesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor TAgentesBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesID];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesID]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_CATEGORIA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_CATEGORIA]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesID_CATEGORIA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesID_CATEGORIA]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_CATEGORIA] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_CATEGORIA] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNIF_CIF];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNIF_CIF]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesNIF_CIF];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesNIF_CIF]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNIF_CIF] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNIF_CIF] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOMBRE];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOMBRE]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesNOMBRE];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesNOMBRE]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOMBRE] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPERSONA_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPERSONA_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCALLE];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCALLE]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesCALLE];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesCALLE]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCALLE] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPOBLACION];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPOBLACION]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPOBLACION];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPOBLACION]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPOBLACION] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPROVINCIA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPROVINCIA]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPROVINCIA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPROVINCIA]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAIS];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAIS]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPAISValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPAIS];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPAISIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPAIS]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPAISValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAIS] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAIS] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesIDIOMA_ISO];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesIDIOMA_ISO]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldIDIOMA_ISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesIDIOMA_ISO];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldIDIOMA_ISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesIDIOMA_ISO]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetIDIOMA_ISOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesIDIOMA_ISO] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetIDIOMA_ISOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesIDIOMA_ISO] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesIDIOMA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesIDIOMA]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldIDIOMAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesIDIOMA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldIDIOMAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesIDIOMA]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetIDIOMAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesIDIOMA] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetIDIOMAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesIDIOMA] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_1];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_1]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesTELEFONO_1];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesTELEFONO_1]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_1] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_1] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_2];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_2]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesTELEFONO_2];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesTELEFONO_2]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_2] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesTELEFONO_2] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_1];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_1]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesMOVIL_1];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesMOVIL_1]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_1] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_2];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_2]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesMOVIL_2];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesMOVIL_2]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesMOVIL_2] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFAX];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFAX]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFAX];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFAX]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFAX] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFAX] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_1];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_1]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesEMAIL_1];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesEMAIL_1]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_1] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_2];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_2]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesEMAIL_2];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesEMAIL_2]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesEMAIL_2] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAGINA_WEB];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAGINA_WEB]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPAGINA_WEB];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesPAGINA_WEB]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAGINA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesPAGINA_WEB] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOTAS];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOTAS]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesNOTAS];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesNOTAS]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesNOTAS] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_ALTA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesUSUARIO];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesUSUARIO]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesUSUARIO];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesUSUARIO]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesUSUARIO] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_EMPRESA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_EMPRESA]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesID_EMPRESA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesREFERENCIA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesREFERENCIA]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesREFERENCIA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesREFERENCIA]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFECHA_ALTA_EMPRESAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA_EMPRESA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFECHA_ALTA_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA_EMPRESA]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_ALTA_EMPRESA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_ALTA_EMPRESA]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFECHA_ALTA_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_ALTA_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFECHA_BAJAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_BAJA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetFECHA_BAJAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_BAJA]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFECHA_BAJAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_BAJA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldFECHA_BAJAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesFECHA_BAJA]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFECHA_BAJAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_BAJA] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetFECHA_BAJAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesFECHA_BAJA] := Null;
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetCAUSA_BAJAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCAUSA_BAJA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetCAUSA_BAJAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCAUSA_BAJA]);
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldCAUSA_BAJAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesCAUSA_BAJA];
|
|
end;
|
|
|
|
function TAgentesBusinessProcessorRules.GetOldCAUSA_BAJAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AgentesCAUSA_BAJA]);
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetCAUSA_BAJAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCAUSA_BAJA] := aValue;
|
|
end;
|
|
|
|
procedure TAgentesBusinessProcessorRules.SetCAUSA_BAJAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AgentesCAUSA_BAJA] := Null;
|
|
end;
|
|
|
|
|
|
{ TClientesDescuentosArticulosBusinessProcessorRules }
|
|
constructor TClientesDescuentosArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TClientesDescuentosArticulosBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID]);
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_CLIENTE];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_CLIENTE]);
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID_CLIENTE];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID_CLIENTE]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_CLIENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_CLIENTE] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetID_ARTICULOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_ARTICULO];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_ARTICULO]);
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldID_ARTICULOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID_ARTICULO];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosID_ARTICULO]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetID_ARTICULOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_ARTICULO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosID_ARTICULO] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosREFERENCIA];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosREFERENCIA]);
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosREFERENCIA];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosREFERENCIA]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCRIPCION];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCRIPCION]);
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCRIPCION];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCRIPCION] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE]);
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_COSTE] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCUENTO_PROVEEDORValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCUENTO_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR]);
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCUENTO_PROVEEDORValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCUENTO_PROVEEDORIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCUENTO_PROVEEDORValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCUENTO_PROVEEDORIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO_PROVEEDOR] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO]);
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosPRECIO_NETO] := Null;
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO]);
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCUENTO];
|
|
end;
|
|
|
|
function TClientesDescuentosArticulosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosArticulosDESCUENTO]);
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesDescuentosArticulosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosArticulosDESCUENTO] := Null;
|
|
end;
|
|
|
|
|
|
{ TAgentes_Objetivos_albaranesBusinessProcessorRules }
|
|
constructor TAgentes_Objetivos_albaranesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TAgentes_Objetivos_albaranesBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesID];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesID]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesID];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesID]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesID] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesID] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesID_AGENTE];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesID_AGENTE]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesID_AGENTE];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesID_AGENTE]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesID_AGENTE] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesID_AGENTE] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetANOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesANO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetANOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesANO]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldANOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesANO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldANOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesANO]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesANO] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesANO] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetMESValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesMES];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetMESIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesMES]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldMESValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesMES];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldMESIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesMES]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetMESValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesMES] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetMESIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesMES] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesDESCRIPCION];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesDESCRIPCION]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesDESCRIPCION];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesDESCRIPCION] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetUNIDADES_OBJETIVOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetUNIDADES_OBJETIVOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldUNIDADES_OBJETIVOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldUNIDADES_OBJETIVOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetUNIDADES_OBJETIVOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesUNIDADES_OBJETIVO] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetIMPORTE_OBJETIVOValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetIMPORTE_OBJETIVOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldIMPORTE_OBJETIVOValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_albaranesBusinessProcessorRules.GetOldIMPORTE_OBJETIVOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetIMPORTE_OBJETIVOValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_albaranesBusinessProcessorRules.SetIMPORTE_OBJETIVOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_albaranesIMPORTE_OBJETIVO] := Null;
|
|
end;
|
|
|
|
|
|
{ TAgentes_Objetivos_facturasBusinessProcessorRules }
|
|
constructor TAgentes_Objetivos_facturasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TAgentes_Objetivos_facturasBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasID];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasID]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasID];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasID]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasID] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasID] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasID_AGENTE];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasID_AGENTE]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasID_AGENTE];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasID_AGENTE]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasID_AGENTE] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasID_AGENTE] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetANOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasANO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetANOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasANO]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldANOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasANO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldANOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasANO]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasANO] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasANO] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetMESValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasMES];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetMESIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasMES]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldMESValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasMES];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldMESIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasMES]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetMESValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasMES] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetMESIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasMES] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasDESCRIPCION];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasDESCRIPCION]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasDESCRIPCION];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasDESCRIPCION] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetUNIDADES_OBJETIVOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasUNIDADES_OBJETIVO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetUNIDADES_OBJETIVOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasUNIDADES_OBJETIVO]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldUNIDADES_OBJETIVOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasUNIDADES_OBJETIVO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldUNIDADES_OBJETIVOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasUNIDADES_OBJETIVO]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetUNIDADES_OBJETIVOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasUNIDADES_OBJETIVO] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetUNIDADES_OBJETIVOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasUNIDADES_OBJETIVO] := Null;
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetIMPORTE_OBJETIVOValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasIMPORTE_OBJETIVO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetIMPORTE_OBJETIVOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasIMPORTE_OBJETIVO]);
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldIMPORTE_OBJETIVOValue: Currency;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasIMPORTE_OBJETIVO];
|
|
end;
|
|
|
|
function TAgentes_Objetivos_facturasBusinessProcessorRules.GetOldIMPORTE_OBJETIVOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Agentes_Objetivos_facturasIMPORTE_OBJETIVO]);
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetIMPORTE_OBJETIVOValue(const aValue: Currency);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasIMPORTE_OBJETIVO] := aValue;
|
|
end;
|
|
|
|
procedure TAgentes_Objetivos_facturasBusinessProcessorRules.SetIMPORTE_OBJETIVOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_Agentes_Objetivos_facturasIMPORTE_OBJETIVO] := Null;
|
|
end;
|
|
|
|
|
|
{ TListaAnosObjetivosFacBusinessProcessorRules }
|
|
constructor TListaAnosObjetivosFacBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TListaAnosObjetivosFacBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TListaAnosObjetivosFacBusinessProcessorRules.GetANOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO];
|
|
end;
|
|
|
|
function TListaAnosObjetivosFacBusinessProcessorRules.GetANOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO]);
|
|
end;
|
|
|
|
function TListaAnosObjetivosFacBusinessProcessorRules.GetOldANOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosFacANO];
|
|
end;
|
|
|
|
function TListaAnosObjetivosFacBusinessProcessorRules.GetOldANOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosFacANO]);
|
|
end;
|
|
|
|
procedure TListaAnosObjetivosFacBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO] := aValue;
|
|
end;
|
|
|
|
procedure TListaAnosObjetivosFacBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO] := Null;
|
|
end;
|
|
|
|
|
|
{ TIdiomasBusinessProcessorRules }
|
|
constructor TIdiomasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TIdiomasBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasID];
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasID]);
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasID];
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasID]);
|
|
end;
|
|
|
|
procedure TIdiomasBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasID] := aValue;
|
|
end;
|
|
|
|
procedure TIdiomasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasID] := Null;
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasISO];
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasISO]);
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetOldISOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasISO];
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetOldISOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasISO]);
|
|
end;
|
|
|
|
procedure TIdiomasBusinessProcessorRules.SetISOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasISO] := aValue;
|
|
end;
|
|
|
|
procedure TIdiomasBusinessProcessorRules.SetISOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasISO] := Null;
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasDESCRIPCION];
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasDESCRIPCION]);
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasDESCRIPCION];
|
|
end;
|
|
|
|
function TIdiomasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TIdiomasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TIdiomasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasDESCRIPCION] := Null;
|
|
end;
|
|
|
|
|
|
{ TTiposClienteBusinessProcessorRules }
|
|
constructor TTiposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TTiposClienteBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TTiposClienteBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteID];
|
|
end;
|
|
|
|
function TTiposClienteBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteID]);
|
|
end;
|
|
|
|
function TTiposClienteBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposClienteID];
|
|
end;
|
|
|
|
function TTiposClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposClienteID]);
|
|
end;
|
|
|
|
procedure TTiposClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteID] := aValue;
|
|
end;
|
|
|
|
procedure TTiposClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteID] := Null;
|
|
end;
|
|
|
|
function TTiposClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteDESCRIPCION];
|
|
end;
|
|
|
|
function TTiposClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteDESCRIPCION]);
|
|
end;
|
|
|
|
function TTiposClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposClienteDESCRIPCION];
|
|
end;
|
|
|
|
function TTiposClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposClienteDESCRIPCION]);
|
|
end;
|
|
|
|
procedure TTiposClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteDESCRIPCION] := aValue;
|
|
end;
|
|
|
|
procedure TTiposClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiposClienteDESCRIPCION] := Null;
|
|
end;
|
|
|
|
|
|
{ TClientesSucursalesBusinessProcessorRules }
|
|
constructor TClientesSucursalesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := NOTAS_OnChange;
|
|
f_NOTAS := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor TClientesSucursalesBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.NOTAS_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOTAS] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CATEGORIA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CATEGORIA]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_CATEGORIA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_CATEGORIA]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CATEGORIA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CATEGORIA] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNIF_CIF];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNIF_CIF]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldNIF_CIFValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNIF_CIF];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNIF_CIF]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNIF_CIF] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNIF_CIF] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldNOMBREValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOMBRE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOMBRE]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPERSONA_CONTACTO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPERSONA_CONTACTO]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPERSONA_CONTACTO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPERSONA_CONTACTO] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCALLE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCALLE]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldCALLEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCALLE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCALLE]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCALLE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCALLE] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPOBLACION];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPOBLACION]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPOBLACION];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPOBLACION]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPOBLACION] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPOBLACION] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPROVINCIA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPROVINCIA]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPROVINCIA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPROVINCIA]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPROVINCIA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPROVINCIA] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_POSTAL]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCODIGO_POSTAL];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCODIGO_POSTAL]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_POSTAL] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_POSTAL] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_1];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_1]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldTELEFONO_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTELEFONO_1];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTELEFONO_1]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_1] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_1] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_2];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_2]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldTELEFONO_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTELEFONO_2];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTELEFONO_2]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_2] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTELEFONO_2] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_1];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_1]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldMOVIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOVIL_1];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOVIL_1]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_1] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_2];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_2]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldMOVIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOVIL_2];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOVIL_2]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOVIL_2] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFAX];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFAX]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldFAXValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFAX];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFAX]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetFAXValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFAX] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFAX] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_1];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_1]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_1Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_1];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_1]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_1] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_1] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_2];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_2]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_2Value: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_2];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_2]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_2] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_2] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPAGINA_WEB];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPAGINA_WEB]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldPAGINA_WEBValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPAGINA_WEB];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesPAGINA_WEB]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPAGINA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesPAGINA_WEB] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetNOTASValue: IROStrings;
|
|
begin
|
|
result := f_NOTAS;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOTAS];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOTAS]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldNOTASValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOTAS];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldNOTASIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOTAS]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOTAS] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_ALTA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_ALTA]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFECHA_ALTA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFECHA_ALTA]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_ALTA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_ALTA] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFECHA_MODIFICACION];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFECHA_MODIFICACION]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_MODIFICACION] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFECHA_MODIFICACION] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesUSUARIO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesUSUARIO]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldUSUARIOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesUSUARIO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesUSUARIO]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesUSUARIO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesUSUARIO] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_EMPRESA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_EMPRESA]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_EMPRESA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREFERENCIA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREFERENCIA]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldREFERENCIAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesREFERENCIA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesREFERENCIA]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREFERENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREFERENCIA] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_AGENTE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_AGENTE]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_AGENTE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_AGENTE]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_AGENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_AGENTE] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesGRUPO_CLIENTE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetGRUPO_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesGRUPO_CLIENTE]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldGRUPO_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesGRUPO_CLIENTE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldGRUPO_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesGRUPO_CLIENTE]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetGRUPO_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesGRUPO_CLIENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetGRUPO_CLIENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesGRUPO_CLIENTE] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesNOMBRE_COMERCIAL] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_1] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_2] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesVENCIMIENTO_FACTURAS_3] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesBLOQUEADO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetBLOQUEADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesBLOQUEADO]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldBLOQUEADOValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesBLOQUEADO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldBLOQUEADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesBLOQUEADO]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetBLOQUEADOValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesBLOQUEADO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetBLOQUEADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesBLOQUEADO] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetAGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesAGENTE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetAGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesAGENTE]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldAGENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesAGENTE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldAGENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesAGENTE]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetAGENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesAGENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetAGENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesAGENTE] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetRAPELValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRAPEL];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetRAPELIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRAPEL]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldRAPELValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesRAPEL];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldRAPELIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesRAPEL]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetRAPELValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRAPEL] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetRAPELIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRAPEL] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetEMAIL_ADMINISTRACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetEMAIL_ADMINISTRACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldEMAIL_ADMINISTRACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_ADMINISTRACIONValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetEMAIL_ADMINISTRACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesEMAIL_ADMINISTRACION] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetREGIMEN_IVAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREGIMEN_IVA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREGIMEN_IVA]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldREGIMEN_IVAValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesREGIMEN_IVA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesREGIMEN_IVA]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREGIMEN_IVA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetREGIMEN_IVAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesREGIMEN_IVA] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetMOTIVO_BLOQUEOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetMOTIVO_BLOQUEOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetMOTIVO_BLOQUEOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetMOTIVO_BLOQUEOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesMOTIVO_BLOQUEO] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesRECARGO_EQUIVALENCIA] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_TIPO_IVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_TIPO_IVA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_TIPO_IVA]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_TIPO_IVA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_TIPO_IVA]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_TIPO_IVA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_TIPO_IVAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_TIPO_IVA] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_FORMA_PAGO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_FORMA_PAGO]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_FORMA_PAGO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_FORMA_PAGO]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_FORMA_PAGO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_FORMA_PAGO] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetTIENDA_WEBValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIENDA_WEB];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIENDA_WEB]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTIENDA_WEB];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTIENDA_WEB]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIENDA_WEB] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetTIENDA_WEBIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIENDA_WEB] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesCODIGO_ASIGNADO] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesDESCUENTO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesDESCUENTO]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldDESCUENTOValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesDESCUENTO];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesDESCUENTO]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesDESCUENTO] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesDESCUENTO] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetFELICITACIONValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFELICITACION];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetFELICITACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFELICITACION]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldFELICITACIONValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFELICITACION];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldFELICITACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesFELICITACION]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetFELICITACIONValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFELICITACION] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetFELICITACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesFELICITACION] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetTIPO_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIPO_CLIENTE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetTIPO_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIPO_CLIENTE]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldTIPO_CLIENTEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTIPO_CLIENTE];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldTIPO_CLIENTEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesTIPO_CLIENTE]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetTIPO_CLIENTEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIPO_CLIENTE] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetTIPO_CLIENTEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesTIPO_CLIENTE] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetSEPAValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesSEPA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetSEPAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesSEPA]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldSEPAValue: SmallInt;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesSEPA];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldSEPAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesSEPA]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetSEPAValue(const aValue: SmallInt);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesSEPA] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetSEPAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesSEPA] := Null;
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_CENTRALValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CENTRAL];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetID_CENTRALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CENTRAL]);
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_CENTRALValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_CENTRAL];
|
|
end;
|
|
|
|
function TClientesSucursalesBusinessProcessorRules.GetOldID_CENTRALIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesSucursalesID_CENTRAL]);
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_CENTRALValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CENTRAL] := aValue;
|
|
end;
|
|
|
|
procedure TClientesSucursalesBusinessProcessorRules.SetID_CENTRALIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesSucursalesID_CENTRAL] := Null;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ClientesDelta, TClientesBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ProveedoresDelta, TProveedoresBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_EmpleadosDelta, TEmpleadosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_DatasetDelta, TDatasetBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ClientesDescuentosDelta, TClientesDescuentosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_GruposProveedorDelta, TGruposProveedorBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_GruposEmpleadoDelta, TGruposEmpleadoBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_Contactos_RefreshDelta, TContactos_RefreshBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ContratosEmpleadosDelta, TContratosEmpleadosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_DescripcionesProveedoresDelta, TDescripcionesProveedoresBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_Agentes_ComisionesDelta, TAgentes_ComisionesBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ListaAnosObjetivosAlbDelta, TListaAnosObjetivosAlbBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_AgentesDelta, TAgentesBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ClientesDescuentosArticulosDelta, TClientesDescuentosArticulosBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_Agentes_Objetivos_albaranesDelta, TAgentes_Objetivos_albaranesBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_Agentes_Objetivos_facturasDelta, TAgentes_Objetivos_facturasBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ListaAnosObjetivosFacDelta, TListaAnosObjetivosFacBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_IdiomasDelta, TIdiomasBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_TiposClienteDelta, TTiposClienteBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_ClientesSucursalesDelta, TClientesSucursalesBusinessProcessorRules);
|
|
|
|
end.
|