diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index fad65b67..632369c7 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -52,7 +52,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4000FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.0.0.0FactuGESFactuGES4.0.0.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse5000FalseFalseFalseFalseFalse30821252Rodax Software S.L.5.0.0.0FactuGESFactuGES5.0.0.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index ed07e0c0..0b6de9c2 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 4,0,0,0 -PRODUCTVERSION 4,0,0,0 +FILEVERSION 5,0,0,0 +PRODUCTVERSION 5,0,0,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "4.0.0.0\0" + VALUE "FileVersion", "5.0.0.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "4.0.0.0\0" + VALUE "ProductVersion", "5.0.0.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 96e35ec4..d6960213 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 4cf8df42..70a4e008 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,34 +58,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm index 8a577729..af7b9e8d 100644 --- a/Source/GUIBase/uEditorDBItem.dfm +++ b/Source/GUIBase/uEditorDBItem.dfm @@ -10,7 +10,7 @@ inherited fEditorDBItem: TfEditorDBItem TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader Width = 650 - ExplicitTop = 49 + ExplicitTop = 51 ExplicitWidth = 650 inherited Image1: TImage Left = 623 @@ -54,7 +54,7 @@ inherited fEditorDBItem: TfEditorDBItem Width = 650 ExplicitWidth = 650 inherited tbxMain: TTBXToolbar - ExplicitWidth = 605 + ExplicitWidth = 647 inherited TBXItem26: TTBXItem Visible = False end @@ -110,12 +110,14 @@ inherited fEditorDBItem: TfEditorDBItem object pgPaginas: TPageControl [3] AlignWithMargins = True Left = 3 - Top = 109 + Top = 111 Width = 644 - Height = 328 + Height = 326 ActivePage = pagGeneral Align = alClient TabOrder = 2 + ExplicitTop = 109 + ExplicitHeight = 328 object pagGeneral: TTabSheet Caption = 'General' ExplicitLeft = 0 @@ -126,7 +128,7 @@ inherited fEditorDBItem: TfEditorDBItem end object PnlComentario: TPanel [4] Left = 0 - Top = 76 + Top = 78 Width = 650 Height = 30 Align = alTop @@ -136,6 +138,7 @@ inherited fEditorDBItem: TfEditorDBItem ParentBackground = False TabOrder = 4 VerticalAlignment = taAlignTop + ExplicitTop = 76 object lbComentario: TLabel AlignWithMargins = True Left = 6 diff --git a/Source/GUIBase/uEditorGridBase.dfm b/Source/GUIBase/uEditorGridBase.dfm index 6dd00fa3..eb6f2c7a 100644 --- a/Source/GUIBase/uEditorGridBase.dfm +++ b/Source/GUIBase/uEditorGridBase.dfm @@ -5,8 +5,8 @@ inherited fEditorGridBase: TfEditorGridBase ClientHeight = 444 ClientWidth = 543 OnDestroy = CustomEditorDestroy - ExplicitWidth = 551 - ExplicitHeight = 478 + ExplicitWidth = 559 + ExplicitHeight = 482 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -22,10 +22,10 @@ inherited fEditorGridBase: TfEditorGridBase inherited TBXDock: TTBXDock Top = 27 Width = 543 - Height = 75 + Height = 78 ExplicitTop = 27 ExplicitWidth = 543 - ExplicitHeight = 75 + ExplicitHeight = 78 inherited tbxMain: TTBXToolbar DockPos = 0 DragHandleStyle = dhDouble @@ -76,7 +76,7 @@ inherited fEditorGridBase: TfEditorGridBase end object tbxFiltro: TTBXToolbar [1] Left = 0 - Top = 49 + Top = 51 Align = alRight CloseButton = False DefaultDock = TBXDock @@ -180,7 +180,7 @@ inherited fEditorGridBase: TfEditorGridBase end object TBXTMain2: TTBXToolbar Left = 334 - Top = 49 + Top = 51 Caption = 'tbxMain' ChevronHint = 'M'#225's botones|' DockMode = dmCannotFloatOrChangeDocks diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk index 4a63a5e5..4ce876d1 100644 Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk and b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk differ diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj index e8233a82..d32de40f 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj @@ -46,6 +46,9 @@ + + + JCL Debug IDE extension JCL Project Analyzer JCL Open and Save IDE dialogs with favorite folders @@ -56,28 +59,40 @@ MainSource - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + - - - @@ -86,11 +101,14 @@ + + + @@ -98,7 +116,6 @@ - diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dpk b/Source/Modulos/Contactos/Data/Contactos_data.dpk index ecfee8c9..a8e79cbb 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.dpk +++ b/Source/Modulos/Contactos/Data/Contactos_data.dpk @@ -30,12 +30,24 @@ requires Base, GUIBase, ApplicationBase, - Contactos_model; + Contactos_model, + dbrtl, + DataAbstract_Core_D11, + vcldb, + dsnap, + adortl, + RemObjects_Core_D11, + cxLibraryD11, + dxThemeD11, + dxGDIPlusD11, + dxCoreD11, + vclx; contains uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule}, uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes: TDAClientDataModule}, uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: TDAClientDataModule}, - uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule}; + uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule}, + uDataModuleInstaladores in 'uDataModuleInstaladores.pas' {DataModuleInstaladores: TDAClientDataModule}; end. diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dproj b/Source/Modulos/Contactos/Data/Contactos_data.dproj index 8087b682..2e78dd16 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.dproj +++ b/Source/Modulos/Contactos/Data/Contactos_data.dproj @@ -49,12 +49,23 @@ MainSource - - - - - - + + + + + + + + + + + + + + + + +
DataModuleClientes
TDAClientDataModule @@ -63,6 +74,10 @@
DataModuleContactos
TDAClientDataModule + +
DataModuleInstaladore
+ TDAClientDataModule +
DataModuleProveedores
TDAClientDataModule diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dpk b/Source/Modulos/Contactos/Model/Contactos_model.dpk index e89fa60d..3e87f687 100644 Binary files a/Source/Modulos/Contactos/Model/Contactos_model.dpk and b/Source/Modulos/Contactos/Model/Contactos_model.dpk differ diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dproj b/Source/Modulos/Contactos/Model/Contactos_model.dproj index e89e1189..1937be55 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.dproj +++ b/Source/Modulos/Contactos/Model/Contactos_model.dproj @@ -49,24 +49,25 @@ MainSource + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - + diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index cff72542..e5f8b3b2 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -9,22 +9,23 @@ const { Data table 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_DarEmpresasContacto = '{472CACD6-0E6A-41FE-9ED2-537C64ACA52C}'; - RID_PersonalContacto = '{E4677356-21EF-4ED1-8CB8-6E007EDC4768}'; - RID_DarTiendaDeUsuario = '{F51C8AFF-D2D5-4027-B7F1-4F2F18EE55DA}'; - RID_SubCuentasContacto = '{7386C05F-4BB8-4D5D-9840-421780DC9022}'; - RID_Contactos = '{904DED01-45A4-45B9-BD55-F4259DD90889}'; - RID_GruposCliente = '{6A6AF3F2-8FBC-40EE-BF53-F4FD0E8CD717}'; - RID_DatosBancarios = '{A5772889-F9BD-4947-8932-6F7537464FCA}'; - RID_ContactosDirecciones = '{1B5F181A-13BF-46E9-BAAE-0A86D07849F7}'; - RID_Clientes = '{517433C7-D932-4116-A80B-5F3FEF6C70AA}'; - RID_Proveedores = '{4A22961C-9423-43DF-A93F-46B2BD116C1B}'; - RID_Vendedores = '{1CBABDE6-D012-4FB9-A474-9258FCA38D25}'; - RID_DireccionesContacto = '{1E9A1687-E932-46C5-A964-59E06D2ADC6C}'; - RID_ClientesDescuentos = '{596AA9EC-5E5B-4049-BB5C-BA3375D822AB}'; - RID_ProcedenciasCliente = '{BD34109C-D29B-4E5B-8B19-BA583DF88C1A}'; - RID_GruposProveedor = '{24E55CF0-80E1-4754-87E4-440DFCDE8732}'; - RID_Contactos_Refresh = '{41366B21-52A6-4C32-82C7-A20158D2DDFC}'; + RID_DarEmpresasContacto = '{0B3821F2-C548-4B43-845B-3D1CDF9C3B70}'; + RID_PersonalContacto = '{2E283C66-8F8B-4F8E-9FDB-D04CB80D09B7}'; + RID_DarTiendaDeUsuario = '{21688B9F-EE79-4858-B579-96ED95F43A87}'; + RID_SubCuentasContacto = '{A661D8A2-33DE-4B5F-A0FD-AAC1B9464E56}'; + RID_Contactos = '{9A576AFA-6167-4F0B-B7B8-6E18969E4589}'; + RID_Instaladores = '{33F1D8A4-3A82-4626-B9EE-1B9F841A7766}'; + RID_GruposCliente = '{3FB10726-49A5-44BF-BEA4-C97B2A1E21AF}'; + RID_DatosBancarios = '{2FEA358D-2C14-4154-BCEF-F49236C9844E}'; + RID_ContactosDirecciones = '{01885E8E-C2BF-4C9E-8C77-0F21C8AF91DB}'; + RID_Clientes = '{505D8DE4-55E9-454A-A0C3-1D22AC6F19B3}'; + RID_Proveedores = '{32208DAB-B671-42A9-A827-EF79DACD9CB7}'; + RID_Vendedores = '{39C746E0-0985-4C46-96F1-AD263079DA44}'; + RID_DireccionesContacto = '{7364104E-ACE9-4A1E-B8C8-8FF87D60C5B0}'; + RID_ClientesDescuentos = '{5CDB88FE-778F-4C5B-BA77-2EA134390770}'; + RID_ProcedenciasCliente = '{43121A7C-900A-4650-8F89-6AAADA00413B}'; + RID_GruposProveedor = '{7781CE1B-9F79-4B95-B019-30ED40B1B60B}'; + RID_Contactos_Refresh = '{C28FDDE2-0FAB-482C-A2E7-3D0166FDE03E}'; { Data table names } nme_DarEmpresasContacto = 'DarEmpresasContacto'; @@ -32,6 +33,7 @@ const nme_DarTiendaDeUsuario = 'DarTiendaDeUsuario'; nme_SubCuentasContacto = 'SubCuentasContacto'; nme_Contactos = 'Contactos'; + nme_Instaladores = 'Instaladores'; nme_GruposCliente = 'GruposCliente'; nme_DatosBancarios = 'DatosBancarios'; nme_ContactosDirecciones = 'ContactosDirecciones'; @@ -150,6 +152,60 @@ const idx_ContactosID_TIENDA = 23; idx_ContactosTIENDA = 24; + { Instaladores fields } + fld_InstaladoresID = 'ID'; + fld_InstaladoresID_CATEGORIA = 'ID_CATEGORIA'; + fld_InstaladoresNIF_CIF = 'NIF_CIF'; + fld_InstaladoresNOMBRE = 'NOMBRE'; + fld_InstaladoresPERSONA_CONTACTO = 'PERSONA_CONTACTO'; + fld_InstaladoresCALLE = 'CALLE'; + fld_InstaladoresPOBLACION = 'POBLACION'; + fld_InstaladoresPROVINCIA = 'PROVINCIA'; + fld_InstaladoresCODIGO_POSTAL = 'CODIGO_POSTAL'; + fld_InstaladoresTELEFONO_1 = 'TELEFONO_1'; + fld_InstaladoresTELEFONO_2 = 'TELEFONO_2'; + fld_InstaladoresMOVIL_1 = 'MOVIL_1'; + fld_InstaladoresMOVIL_2 = 'MOVIL_2'; + fld_InstaladoresFAX = 'FAX'; + fld_InstaladoresEMAIL_1 = 'EMAIL_1'; + fld_InstaladoresEMAIL_2 = 'EMAIL_2'; + fld_InstaladoresPAGINA_WEB = 'PAGINA_WEB'; + fld_InstaladoresNOTAS = 'NOTAS'; + fld_InstaladoresFECHA_ALTA = 'FECHA_ALTA'; + fld_InstaladoresFECHA_MODIFICACION = 'FECHA_MODIFICACION'; + fld_InstaladoresUSUARIO = 'USUARIO'; + fld_InstaladoresID_EMPRESA = 'ID_EMPRESA'; + fld_InstaladoresREFERENCIA = 'REFERENCIA'; + fld_InstaladoresID_TIENDA = 'ID_TIENDA'; + fld_InstaladoresTIENDA = 'TIENDA'; + + { Instaladores field indexes } + idx_InstaladoresID = 0; + idx_InstaladoresID_CATEGORIA = 1; + idx_InstaladoresNIF_CIF = 2; + idx_InstaladoresNOMBRE = 3; + idx_InstaladoresPERSONA_CONTACTO = 4; + idx_InstaladoresCALLE = 5; + idx_InstaladoresPOBLACION = 6; + idx_InstaladoresPROVINCIA = 7; + idx_InstaladoresCODIGO_POSTAL = 8; + idx_InstaladoresTELEFONO_1 = 9; + idx_InstaladoresTELEFONO_2 = 10; + idx_InstaladoresMOVIL_1 = 11; + idx_InstaladoresMOVIL_2 = 12; + idx_InstaladoresFAX = 13; + idx_InstaladoresEMAIL_1 = 14; + idx_InstaladoresEMAIL_2 = 15; + idx_InstaladoresPAGINA_WEB = 16; + idx_InstaladoresNOTAS = 17; + idx_InstaladoresFECHA_ALTA = 18; + idx_InstaladoresFECHA_MODIFICACION = 19; + idx_InstaladoresUSUARIO = 20; + idx_InstaladoresID_EMPRESA = 21; + idx_InstaladoresREFERENCIA = 22; + idx_InstaladoresID_TIENDA = 23; + idx_InstaladoresTIENDA = 24; + { GruposCliente fields } fld_GruposClienteID = 'ID'; fld_GruposClienteDESCRIPCION = 'DESCRIPCION'; @@ -561,7 +617,7 @@ const type { IDarEmpresasContacto } IDarEmpresasContacto = interface(IDAStronglyTypedDataTable) - ['{8BB5E061-F364-4E04-9A15-3AF7CD963D9A}'] + ['{D95FEAEA-2251-4E56-9D7C-18220878E31F}'] { Property getters and setters } function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); @@ -596,7 +652,7 @@ type { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) - ['{751C15E3-B72F-45A3-ACA6-EE5536294AB2}'] + ['{92CA3A1F-CB6B-4204-849E-C209CD40C483}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -739,7 +795,7 @@ type { IDarTiendaDeUsuario } IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable) - ['{3FA2CF6E-3BD5-4061-8939-28C8FF90948F}'] + ['{A1E3D5E1-A53D-4297-A5A5-9EAC61DBE1A7}'] { Property getters and setters } function GetID_TIENDAValue: Integer; procedure SetID_TIENDAValue(const aValue: Integer); @@ -774,7 +830,7 @@ type { ISubCuentasContacto } ISubCuentasContacto = interface(IDAStronglyTypedDataTable) - ['{9B286C57-728E-4B5D-B2B5-155391D6FFFD}'] + ['{24E1DEBF-DA84-4F73-83AB-8F4929683E9D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -869,7 +925,7 @@ type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{069DC5F3-C775-4E5D-8F1B-0AB17E4A0D95}'] + ['{A2EA8D3D-986D-4886-B759-B7036A595476}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1190,9 +1246,332 @@ type end; + { IInstaladores } + IInstaladores = interface(IDAStronglyTypedDataTable) + ['{2BBF71CF-01EA-43B9-BAB1-774B8CD71455}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_CATEGORIAValue: Integer; + procedure SetID_CATEGORIAValue(const aValue: Integer); + function GetID_CATEGORIAIsNull: Boolean; + procedure SetID_CATEGORIAIsNull(const aValue: Boolean); + function GetNIF_CIFValue: String; + procedure SetNIF_CIFValue(const aValue: String); + function GetNIF_CIFIsNull: Boolean; + procedure SetNIF_CIFIsNull(const aValue: Boolean); + function GetNOMBREValue: String; + procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); + function GetPERSONA_CONTACTOValue: String; + procedure SetPERSONA_CONTACTOValue(const aValue: String); + function GetPERSONA_CONTACTOIsNull: Boolean; + procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); + function GetCALLEValue: String; + procedure SetCALLEValue(const aValue: String); + function GetCALLEIsNull: Boolean; + procedure SetCALLEIsNull(const aValue: Boolean); + function GetPOBLACIONValue: String; + procedure SetPOBLACIONValue(const aValue: String); + function GetPOBLACIONIsNull: Boolean; + procedure SetPOBLACIONIsNull(const aValue: Boolean); + function GetPROVINCIAValue: String; + procedure SetPROVINCIAValue(const aValue: String); + function GetPROVINCIAIsNull: Boolean; + procedure SetPROVINCIAIsNull(const aValue: Boolean); + function GetCODIGO_POSTALValue: String; + procedure SetCODIGO_POSTALValue(const aValue: String); + function GetCODIGO_POSTALIsNull: Boolean; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); + function GetTELEFONO_1Value: String; + procedure SetTELEFONO_1Value(const aValue: String); + function GetTELEFONO_1IsNull: Boolean; + procedure SetTELEFONO_1IsNull(const aValue: Boolean); + function GetTELEFONO_2Value: String; + procedure SetTELEFONO_2Value(const aValue: String); + function GetTELEFONO_2IsNull: Boolean; + procedure SetTELEFONO_2IsNull(const aValue: Boolean); + function GetMOVIL_1Value: String; + procedure SetMOVIL_1Value(const aValue: String); + function GetMOVIL_1IsNull: Boolean; + procedure SetMOVIL_1IsNull(const aValue: Boolean); + function GetMOVIL_2Value: String; + procedure SetMOVIL_2Value(const aValue: String); + function GetMOVIL_2IsNull: Boolean; + procedure SetMOVIL_2IsNull(const aValue: Boolean); + function GetFAXValue: String; + procedure SetFAXValue(const aValue: String); + function GetFAXIsNull: Boolean; + procedure SetFAXIsNull(const aValue: Boolean); + function GetEMAIL_1Value: String; + procedure SetEMAIL_1Value(const aValue: String); + function GetEMAIL_1IsNull: Boolean; + procedure SetEMAIL_1IsNull(const aValue: Boolean); + function GetEMAIL_2Value: String; + procedure SetEMAIL_2Value(const aValue: String); + function GetEMAIL_2IsNull: Boolean; + procedure SetEMAIL_2IsNull(const aValue: Boolean); + function GetPAGINA_WEBValue: String; + procedure SetPAGINA_WEBValue(const aValue: String); + function GetPAGINA_WEBIsNull: Boolean; + procedure SetPAGINA_WEBIsNull(const aValue: Boolean); + function GetNOTASValue: IROStrings; + function GetNOTASIsNull: Boolean; + procedure SetNOTASIsNull(const aValue: Boolean); + function GetFECHA_ALTAValue: DateTime; + procedure SetFECHA_ALTAValue(const aValue: DateTime); + function GetFECHA_ALTAIsNull: Boolean; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); + function GetFECHA_MODIFICACIONValue: DateTime; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); + function GetFECHA_MODIFICACIONIsNull: Boolean; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetID_TIENDAValue: Integer; + procedure SetID_TIENDAValue(const aValue: Integer); + function GetID_TIENDAIsNull: Boolean; + procedure SetID_TIENDAIsNull(const aValue: Boolean); + function GetTIENDAValue: String; + procedure SetTIENDAValue(const aValue: String); + function GetTIENDAIsNull: Boolean; + procedure SetTIENDAIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; + property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; + property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; + property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + property CALLE: String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; + property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; + property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; + property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; + property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; + property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; + property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; + property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; + property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; + property FAX: String read GetFAXValue write SetFAXValue; + property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; + property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; + property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; + property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; + property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; + property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; + property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; + property NOTAS: IROStrings read GetNOTASValue; + property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue; + property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; + property TIENDA: String read GetTIENDAValue write SetTIENDAValue; + property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; + end; + + { TInstaladoresDataTableRules } + TInstaladoresDataTableRules = class(TIntfObjectDADataTableRules, IInstaladores) + private + f_NOTAS: IROStrings; + procedure NOTAS_OnChange(Sender: TObject); + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_CATEGORIAValue: Integer; virtual; + procedure SetID_CATEGORIAValue(const aValue: Integer); virtual; + function GetID_CATEGORIAIsNull: Boolean; virtual; + procedure SetID_CATEGORIAIsNull(const aValue: Boolean); virtual; + function GetNIF_CIFValue: String; virtual; + procedure SetNIF_CIFValue(const aValue: String); virtual; + function GetNIF_CIFIsNull: Boolean; virtual; + procedure SetNIF_CIFIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + function GetPERSONA_CONTACTOValue: String; virtual; + procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; + function GetPERSONA_CONTACTOIsNull: Boolean; virtual; + procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; + function GetCALLEValue: String; virtual; + procedure SetCALLEValue(const aValue: String); virtual; + function GetCALLEIsNull: Boolean; virtual; + procedure SetCALLEIsNull(const aValue: Boolean); virtual; + function GetPOBLACIONValue: String; virtual; + procedure SetPOBLACIONValue(const aValue: String); virtual; + function GetPOBLACIONIsNull: Boolean; virtual; + procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual; + function GetPROVINCIAValue: String; virtual; + procedure SetPROVINCIAValue(const aValue: String); virtual; + function GetPROVINCIAIsNull: Boolean; virtual; + procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual; + function GetCODIGO_POSTALValue: String; virtual; + procedure SetCODIGO_POSTALValue(const aValue: String); virtual; + function GetCODIGO_POSTALIsNull: Boolean; virtual; + procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual; + function GetTELEFONO_1Value: String; virtual; + procedure SetTELEFONO_1Value(const aValue: String); virtual; + function GetTELEFONO_1IsNull: Boolean; virtual; + procedure SetTELEFONO_1IsNull(const aValue: Boolean); virtual; + function GetTELEFONO_2Value: String; virtual; + procedure SetTELEFONO_2Value(const aValue: String); virtual; + function GetTELEFONO_2IsNull: Boolean; virtual; + procedure SetTELEFONO_2IsNull(const aValue: Boolean); virtual; + function GetMOVIL_1Value: String; virtual; + procedure SetMOVIL_1Value(const aValue: String); virtual; + function GetMOVIL_1IsNull: Boolean; virtual; + procedure SetMOVIL_1IsNull(const aValue: Boolean); virtual; + function GetMOVIL_2Value: String; virtual; + procedure SetMOVIL_2Value(const aValue: String); virtual; + function GetMOVIL_2IsNull: Boolean; virtual; + procedure SetMOVIL_2IsNull(const aValue: Boolean); virtual; + function GetFAXValue: String; virtual; + procedure SetFAXValue(const aValue: String); virtual; + function GetFAXIsNull: Boolean; virtual; + procedure SetFAXIsNull(const aValue: Boolean); virtual; + function GetEMAIL_1Value: String; virtual; + procedure SetEMAIL_1Value(const aValue: String); virtual; + function GetEMAIL_1IsNull: Boolean; virtual; + procedure SetEMAIL_1IsNull(const aValue: Boolean); virtual; + function GetEMAIL_2Value: String; virtual; + procedure SetEMAIL_2Value(const aValue: String); virtual; + function GetEMAIL_2IsNull: Boolean; virtual; + procedure SetEMAIL_2IsNull(const aValue: Boolean); virtual; + function GetPAGINA_WEBValue: String; virtual; + procedure SetPAGINA_WEBValue(const aValue: String); virtual; + function GetPAGINA_WEBIsNull: Boolean; virtual; + procedure SetPAGINA_WEBIsNull(const aValue: Boolean); virtual; + function GetNOTASValue: IROStrings; virtual; + function GetNOTASIsNull: Boolean; virtual; + procedure SetNOTASIsNull(const aValue: Boolean); virtual; + function GetFECHA_ALTAValue: DateTime; virtual; + procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; + function GetFECHA_ALTAIsNull: Boolean; virtual; + procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual; + function GetFECHA_MODIFICACIONValue: DateTime; virtual; + procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; + function GetFECHA_MODIFICACIONIsNull: Boolean; virtual; + procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetID_TIENDAValue: Integer; virtual; + procedure SetID_TIENDAValue(const aValue: Integer); virtual; + function GetID_TIENDAIsNull: Boolean; virtual; + procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual; + function GetTIENDAValue: String; virtual; + procedure SetTIENDAValue(const aValue: String); virtual; + function GetTIENDAIsNull: Boolean; virtual; + procedure SetTIENDAIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_CATEGORIA: Integer read GetID_CATEGORIAValue write SetID_CATEGORIAValue; + property ID_CATEGORIAIsNull: Boolean read GetID_CATEGORIAIsNull write SetID_CATEGORIAIsNull; + property NIF_CIF: String read GetNIF_CIFValue write SetNIF_CIFValue; + property NIF_CIFIsNull: Boolean read GetNIF_CIFIsNull write SetNIF_CIFIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; + property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + property CALLE: String read GetCALLEValue write SetCALLEValue; + property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; + property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue; + property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull; + property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue; + property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull; + property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; + property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull; + property TELEFONO_1: String read GetTELEFONO_1Value write SetTELEFONO_1Value; + property TELEFONO_1IsNull: Boolean read GetTELEFONO_1IsNull write SetTELEFONO_1IsNull; + property TELEFONO_2: String read GetTELEFONO_2Value write SetTELEFONO_2Value; + property TELEFONO_2IsNull: Boolean read GetTELEFONO_2IsNull write SetTELEFONO_2IsNull; + property MOVIL_1: String read GetMOVIL_1Value write SetMOVIL_1Value; + property MOVIL_1IsNull: Boolean read GetMOVIL_1IsNull write SetMOVIL_1IsNull; + property MOVIL_2: String read GetMOVIL_2Value write SetMOVIL_2Value; + property MOVIL_2IsNull: Boolean read GetMOVIL_2IsNull write SetMOVIL_2IsNull; + property FAX: String read GetFAXValue write SetFAXValue; + property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull; + property EMAIL_1: String read GetEMAIL_1Value write SetEMAIL_1Value; + property EMAIL_1IsNull: Boolean read GetEMAIL_1IsNull write SetEMAIL_1IsNull; + property EMAIL_2: String read GetEMAIL_2Value write SetEMAIL_2Value; + property EMAIL_2IsNull: Boolean read GetEMAIL_2IsNull write SetEMAIL_2IsNull; + property PAGINA_WEB: String read GetPAGINA_WEBValue write SetPAGINA_WEBValue; + property PAGINA_WEBIsNull: Boolean read GetPAGINA_WEBIsNull write SetPAGINA_WEBIsNull; + property NOTAS: IROStrings read GetNOTASValue; + property NOTASIsNull: Boolean read GetNOTASIsNull write SetNOTASIsNull; + property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; + property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull; + property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; + property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue; + property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; + property TIENDA: String read GetTIENDAValue write SetTIENDAValue; + property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) - ['{ABBC4C99-5BB7-4AF5-A0E8-AC0330A292DB}'] + ['{CE22A8BC-0F68-4EED-9F9B-4E08CED88F8F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1239,7 +1618,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{E86958FB-3553-4826-92AD-E05BB763F327}'] + ['{DB3E70C8-C3E3-41CE-8036-E26901E9658D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1370,7 +1749,7 @@ type { IContactosDirecciones } IContactosDirecciones = interface(IDAStronglyTypedDataTable) - ['{7B0624ED-DAFE-4E73-8133-20B2F470DF6D}'] + ['{643E9C44-A65A-47D5-A44A-D9345ADF1E06}'] { Property getters and setters } function GetID_CONTACTOValue: Integer; procedure SetID_CONTACTOValue(const aValue: Integer); @@ -1549,7 +1928,7 @@ type { IClientes } IClientes = interface(IDAStronglyTypedDataTable) - ['{16982591-D076-457A-A0CF-96642B3A2A21}'] + ['{99092680-21DD-41C7-BAF1-8C68B0728906}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2076,7 +2455,7 @@ type { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) - ['{6F8A315F-FC5F-44A3-AC1E-1179292FD039}'] + ['{798ECA74-9DCA-43B8-86B2-A239B2399FCC}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2603,7 +2982,7 @@ type { IVendedores } IVendedores = interface(IDAStronglyTypedDataTable) - ['{CFAFE9D4-4031-4014-A6A2-8666FD35CBF0}'] + ['{1827B4C0-503E-4A5B-81C6-0F2E602C3833}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2950,7 +3329,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{C823E331-ED12-4669-B813-1C1F53612042}'] + ['{A51CA81E-6D5C-43CF-94C7-9762D4D17C25}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3177,7 +3556,7 @@ type { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) - ['{55FA6AE2-4570-49F3-8C7C-8AA2FB3E1ABA}'] + ['{D335185E-03BC-410F-BF86-F67FF06F445E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3260,7 +3639,7 @@ type { IProcedenciasCliente } IProcedenciasCliente = interface(IDAStronglyTypedDataTable) - ['{45E13CDC-38AE-4866-8BF1-3DEDEC2C0A0A}'] + ['{7C9CE2C6-2277-453C-9AEC-7E4DE89D3E62}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3307,7 +3686,7 @@ type { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) - ['{931D5150-8A05-4D86-890A-45F275BEE459}'] + ['{FFDB64FD-0732-4AEE-9044-0C23F65EDA14}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3354,7 +3733,7 @@ type { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) - ['{47929F64-100A-45C5-A6CD-2A57178A1818}'] + ['{E3771B3D-684B-477B-AF87-CACACA67F163}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -4601,6 +4980,550 @@ begin end; +{ TInstaladoresDataTableRules } +constructor TInstaladoresDataTableRules.Create(aDataTable: TDADataTable); +var + StrList: TStringList; +begin + inherited; + + StrList := TStringList.Create; + StrList.OnChange := NOTAS_OnChange; + f_NOTAS := NewROStrings(StrList,True); +end; + +destructor TInstaladoresDataTableRules.Destroy; +begin + inherited; +end; + +procedure TInstaladoresDataTableRules.NOTAS_OnChange(Sender: TObject); +begin + if DataTable.Editing then DataTable.Fields[idx_InstaladoresNOTAS].AsVariant := TStringList(Sender).Text; +end; + +function TInstaladoresDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_InstaladoresID].AsInteger; +end; + +procedure TInstaladoresDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_InstaladoresID].AsInteger := aValue; +end; + +function TInstaladoresDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresID].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresID].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetID_CATEGORIAValue: Integer; +begin + result := DataTable.Fields[idx_InstaladoresID_CATEGORIA].AsInteger; +end; + +procedure TInstaladoresDataTableRules.SetID_CATEGORIAValue(const aValue: Integer); +begin + DataTable.Fields[idx_InstaladoresID_CATEGORIA].AsInteger := aValue; +end; + +function TInstaladoresDataTableRules.GetID_CATEGORIAIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresID_CATEGORIA].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetID_CATEGORIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresID_CATEGORIA].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetNIF_CIFValue: String; +begin + result := DataTable.Fields[idx_InstaladoresNIF_CIF].AsString; +end; + +procedure TInstaladoresDataTableRules.SetNIF_CIFValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresNIF_CIF].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetNIF_CIFIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresNIF_CIF].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresNIF_CIF].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetNOMBREValue: String; +begin + result := DataTable.Fields[idx_InstaladoresNOMBRE].AsString; +end; + +procedure TInstaladoresDataTableRules.SetNOMBREValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresNOMBRE].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresNOMBRE].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresNOMBRE].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetPERSONA_CONTACTOValue: String; +begin + result := DataTable.Fields[idx_InstaladoresPERSONA_CONTACTO].AsString; +end; + +procedure TInstaladoresDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresPERSONA_CONTACTO].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetPERSONA_CONTACTOIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresPERSONA_CONTACTO].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresPERSONA_CONTACTO].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetCALLEValue: String; +begin + result := DataTable.Fields[idx_InstaladoresCALLE].AsString; +end; + +procedure TInstaladoresDataTableRules.SetCALLEValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresCALLE].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetCALLEIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresCALLE].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetCALLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresCALLE].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetPOBLACIONValue: String; +begin + result := DataTable.Fields[idx_InstaladoresPOBLACION].AsString; +end; + +procedure TInstaladoresDataTableRules.SetPOBLACIONValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresPOBLACION].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetPOBLACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresPOBLACION].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresPOBLACION].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetPROVINCIAValue: String; +begin + result := DataTable.Fields[idx_InstaladoresPROVINCIA].AsString; +end; + +procedure TInstaladoresDataTableRules.SetPROVINCIAValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresPROVINCIA].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetPROVINCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresPROVINCIA].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresPROVINCIA].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetCODIGO_POSTALValue: String; +begin + result := DataTable.Fields[idx_InstaladoresCODIGO_POSTAL].AsString; +end; + +procedure TInstaladoresDataTableRules.SetCODIGO_POSTALValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresCODIGO_POSTAL].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetCODIGO_POSTALIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresCODIGO_POSTAL].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresCODIGO_POSTAL].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetTELEFONO_1Value: String; +begin + result := DataTable.Fields[idx_InstaladoresTELEFONO_1].AsString; +end; + +procedure TInstaladoresDataTableRules.SetTELEFONO_1Value(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresTELEFONO_1].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetTELEFONO_1IsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresTELEFONO_1].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetTELEFONO_1IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresTELEFONO_1].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetTELEFONO_2Value: String; +begin + result := DataTable.Fields[idx_InstaladoresTELEFONO_2].AsString; +end; + +procedure TInstaladoresDataTableRules.SetTELEFONO_2Value(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresTELEFONO_2].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetTELEFONO_2IsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresTELEFONO_2].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetTELEFONO_2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresTELEFONO_2].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetMOVIL_1Value: String; +begin + result := DataTable.Fields[idx_InstaladoresMOVIL_1].AsString; +end; + +procedure TInstaladoresDataTableRules.SetMOVIL_1Value(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresMOVIL_1].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetMOVIL_1IsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresMOVIL_1].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetMOVIL_1IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresMOVIL_1].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetMOVIL_2Value: String; +begin + result := DataTable.Fields[idx_InstaladoresMOVIL_2].AsString; +end; + +procedure TInstaladoresDataTableRules.SetMOVIL_2Value(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresMOVIL_2].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetMOVIL_2IsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresMOVIL_2].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetMOVIL_2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresMOVIL_2].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetFAXValue: String; +begin + result := DataTable.Fields[idx_InstaladoresFAX].AsString; +end; + +procedure TInstaladoresDataTableRules.SetFAXValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresFAX].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetFAXIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresFAX].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetFAXIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresFAX].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetEMAIL_1Value: String; +begin + result := DataTable.Fields[idx_InstaladoresEMAIL_1].AsString; +end; + +procedure TInstaladoresDataTableRules.SetEMAIL_1Value(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresEMAIL_1].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetEMAIL_1IsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresEMAIL_1].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetEMAIL_1IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresEMAIL_1].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetEMAIL_2Value: String; +begin + result := DataTable.Fields[idx_InstaladoresEMAIL_2].AsString; +end; + +procedure TInstaladoresDataTableRules.SetEMAIL_2Value(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresEMAIL_2].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetEMAIL_2IsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresEMAIL_2].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetEMAIL_2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresEMAIL_2].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetPAGINA_WEBValue: String; +begin + result := DataTable.Fields[idx_InstaladoresPAGINA_WEB].AsString; +end; + +procedure TInstaladoresDataTableRules.SetPAGINA_WEBValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresPAGINA_WEB].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetPAGINA_WEBIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresPAGINA_WEB].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetPAGINA_WEBIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresPAGINA_WEB].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetNOTASValue: IROStrings; +begin + result := f_NOTAS; + result.Text := DataTable.Fields[idx_InstaladoresNOTAS].AsString; +end; + +function TInstaladoresDataTableRules.GetNOTASIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresNOTAS].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetNOTASIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresNOTAS].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetFECHA_ALTAValue: DateTime; +begin + result := DataTable.Fields[idx_InstaladoresFECHA_ALTA].AsDateTime; +end; + +procedure TInstaladoresDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_InstaladoresFECHA_ALTA].AsDateTime := aValue; +end; + +function TInstaladoresDataTableRules.GetFECHA_ALTAIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresFECHA_ALTA].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresFECHA_ALTA].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := DataTable.Fields[idx_InstaladoresFECHA_MODIFICACION].AsDateTime; +end; + +procedure TInstaladoresDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + DataTable.Fields[idx_InstaladoresFECHA_MODIFICACION].AsDateTime := aValue; +end; + +function TInstaladoresDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresFECHA_MODIFICACION].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresFECHA_MODIFICACION].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_InstaladoresUSUARIO].AsString; +end; + +procedure TInstaladoresDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresUSUARIO].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresUSUARIO].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresUSUARIO].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_InstaladoresID_EMPRESA].AsInteger; +end; + +procedure TInstaladoresDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_InstaladoresID_EMPRESA].AsInteger := aValue; +end; + +function TInstaladoresDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresID_EMPRESA].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresID_EMPRESA].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_InstaladoresREFERENCIA].AsString; +end; + +procedure TInstaladoresDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresREFERENCIA].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresREFERENCIA].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresREFERENCIA].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetID_TIENDAValue: Integer; +begin + result := DataTable.Fields[idx_InstaladoresID_TIENDA].AsInteger; +end; + +procedure TInstaladoresDataTableRules.SetID_TIENDAValue(const aValue: Integer); +begin + DataTable.Fields[idx_InstaladoresID_TIENDA].AsInteger := aValue; +end; + +function TInstaladoresDataTableRules.GetID_TIENDAIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresID_TIENDA].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresID_TIENDA].AsVariant := Null; +end; + +function TInstaladoresDataTableRules.GetTIENDAValue: String; +begin + result := DataTable.Fields[idx_InstaladoresTIENDA].AsString; +end; + +procedure TInstaladoresDataTableRules.SetTIENDAValue(const aValue: String); +begin + DataTable.Fields[idx_InstaladoresTIENDA].AsString := aValue; +end; + +function TInstaladoresDataTableRules.GetTIENDAIsNull: boolean; +begin + result := DataTable.Fields[idx_InstaladoresTIENDA].IsNull; +end; + +procedure TInstaladoresDataTableRules.SetTIENDAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InstaladoresTIENDA].AsVariant := Null; +end; + + { TGruposClienteDataTableRules } constructor TGruposClienteDataTableRules.Create(aDataTable: TDADataTable); begin @@ -8596,6 +9519,7 @@ initialization RegisterDataTableRules(RID_DarTiendaDeUsuario, TDarTiendaDeUsuarioDataTableRules); RegisterDataTableRules(RID_SubCuentasContacto, TSubCuentasContactoDataTableRules); RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); + RegisterDataTableRules(RID_Instaladores, TInstaladoresDataTableRules); RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules); RegisterDataTableRules(RID_DatosBancarios, TDatosBancariosDataTableRules); RegisterDataTableRules(RID_ContactosDirecciones, TContactosDireccionesDataTableRules); diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index 01ffb2eb..30c7c3bf 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas @@ -9,27 +9,28 @@ 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_DarEmpresasContactoDelta = '{CA69F10E-9B4E-4274-90F7-56E33D84418F}'; - RID_PersonalContactoDelta = '{A14FBDB3-92F5-40ED-986A-D4461994FB85}'; - RID_DarTiendaDeUsuarioDelta = '{5481F88A-73AA-4432-89D7-22FC3C3F3AE1}'; - RID_SubCuentasContactoDelta = '{8DA04B44-EFAA-423F-AA30-ECCCDB94CFD1}'; - RID_ContactosDelta = '{DC868481-1C6B-408A-B9D9-86DD141BEFD9}'; - RID_GruposClienteDelta = '{47223648-73F6-483B-971C-00C1AC17E65F}'; - RID_DatosBancariosDelta = '{777B1DE9-1D9B-4127-97C6-D605FDA37D0B}'; - RID_ContactosDireccionesDelta = '{9C86AA9E-70BA-40CE-B5A5-38CF4A3B0735}'; - RID_ClientesDelta = '{D7F24E5E-CD4A-4BC2-B98C-E0B8AA57835A}'; - RID_ProveedoresDelta = '{D73D96B2-53E6-477D-82CB-B2A69AEEF86B}'; - RID_VendedoresDelta = '{C12214F4-2ED0-4099-AECB-945D42A72EDC}'; - RID_DireccionesContactoDelta = '{CFF3C192-A3B8-43FF-9F98-B29B4C4447BC}'; - RID_ClientesDescuentosDelta = '{56F5AE71-33E1-4D3B-AE18-8C1F47582366}'; - RID_ProcedenciasClienteDelta = '{47DFCD94-B340-485F-90B1-C9E217F3810D}'; - RID_GruposProveedorDelta = '{7DBF3455-38E2-45DE-BABC-280D7B6309AF}'; - RID_Contactos_RefreshDelta = '{7A25AA92-54F4-4D92-AD08-3382DDC351B6}'; + RID_DarEmpresasContactoDelta = '{F3CD516A-615F-4195-826C-7EAEE58ED061}'; + RID_PersonalContactoDelta = '{27F0CB96-73F1-4568-8B0B-AC7686F4C13F}'; + RID_DarTiendaDeUsuarioDelta = '{476C03C9-D3DD-4CCA-9337-89875C499988}'; + RID_SubCuentasContactoDelta = '{EC7A4AA6-D86F-40D6-8027-F53840E3BB6A}'; + RID_ContactosDelta = '{C8520265-B97F-4126-BF92-6BEFB3D8C59D}'; + RID_InstaladoresDelta = '{E83F41A0-7AC1-4BBE-AB98-8DC1E4311589}'; + RID_GruposClienteDelta = '{470EF70D-BC7F-4496-BB54-92D6D0D38256}'; + RID_DatosBancariosDelta = '{AFFA113C-8FCE-4AC2-A33D-EAF26779D008}'; + RID_ContactosDireccionesDelta = '{8A83DDFD-823F-47B4-BCAC-089F5CE60FAA}'; + RID_ClientesDelta = '{6C0F08C0-AC4A-4F02-B201-EB4E7D7A506C}'; + RID_ProveedoresDelta = '{92A2ABCC-54BD-4307-9803-F2166A2FECF0}'; + RID_VendedoresDelta = '{65311CC7-416E-40F2-91D0-53C52A18E035}'; + RID_DireccionesContactoDelta = '{7A9695DE-9885-4EF7-8DF5-B71031669317}'; + RID_ClientesDescuentosDelta = '{6B8AA074-E55C-4097-8446-AD82BE5A3036}'; + RID_ProcedenciasClienteDelta = '{DB21F2BA-8FD7-49DE-9CF8-BD0450CF15CA}'; + RID_GruposProveedorDelta = '{D9BBEBF2-1F0F-42F5-A156-535CEFA06738}'; + RID_Contactos_RefreshDelta = '{F33EE88E-BF1A-49C7-A750-D1A6C5D8D60E}'; type { IDarEmpresasContactoDelta } IDarEmpresasContactoDelta = interface(IDarEmpresasContacto) - ['{CA69F10E-9B4E-4274-90F7-56E33D84418F}'] + ['{F3CD516A-615F-4195-826C-7EAEE58ED061}'] { Property getters and setters } function GetOldID_EMPRESAValue : Integer; @@ -63,7 +64,7 @@ type { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) - ['{A14FBDB3-92F5-40ED-986A-D4461994FB85}'] + ['{27F0CB96-73F1-4568-8B0B-AC7686F4C13F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -205,7 +206,7 @@ type { IDarTiendaDeUsuarioDelta } IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario) - ['{5481F88A-73AA-4432-89D7-22FC3C3F3AE1}'] + ['{476C03C9-D3DD-4CCA-9337-89875C499988}'] { Property getters and setters } function GetOldID_TIENDAValue : Integer; @@ -239,7 +240,7 @@ type { ISubCuentasContactoDelta } ISubCuentasContactoDelta = interface(ISubCuentasContacto) - ['{8DA04B44-EFAA-423F-AA30-ECCCDB94CFD1}'] + ['{EC7A4AA6-D86F-40D6-8027-F53840E3BB6A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_SUBCUENTAValue : String; @@ -333,7 +334,7 @@ type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{DC868481-1C6B-408A-B9D9-86DD141BEFD9}'] + ['{C8520265-B97F-4126-BF92-6BEFB3D8C59D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -654,9 +655,332 @@ type end; + { IInstaladoresDelta } + IInstaladoresDelta = interface(IInstaladores) + ['{E83F41A0-7AC1-4BBE-AB98-8DC1E4311589}'] + { 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_TIENDAValue : Integer; + function GetOldTIENDAValue : 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 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_TIENDA : Integer read GetOldID_TIENDAValue; + property OldTIENDA : String read GetOldTIENDAValue; + end; + + { TInstaladoresBusinessProcessorRules } + TInstaladoresBusinessProcessorRules = class(TDABusinessProcessorRules, IInstaladores, IInstaladoresDelta) + 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_TIENDAValue: Integer; virtual; + function GetID_TIENDAIsNull: Boolean; virtual; + function GetOldID_TIENDAValue: Integer; virtual; + function GetOldID_TIENDAIsNull: Boolean; virtual; + procedure SetID_TIENDAValue(const aValue: Integer); virtual; + procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual; + function GetTIENDAValue: String; virtual; + function GetTIENDAIsNull: Boolean; virtual; + function GetOldTIENDAValue: String; virtual; + function GetOldTIENDAIsNull: Boolean; virtual; + procedure SetTIENDAValue(const aValue: String); virtual; + procedure SetTIENDAIsNull(const aValue: Boolean); virtual; + + { 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_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue; + property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; + property OldID_TIENDA : Integer read GetOldID_TIENDAValue; + property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull; + property TIENDA : String read GetTIENDAValue write SetTIENDAValue; + property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull; + property OldTIENDA : String read GetOldTIENDAValue; + property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) - ['{47223648-73F6-483B-971C-00C1AC17E65F}'] + ['{470EF70D-BC7F-4496-BB54-92D6D0D38256}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -702,7 +1026,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{777B1DE9-1D9B-4127-97C6-D605FDA37D0B}'] + ['{AFFA113C-8FCE-4AC2-A33D-EAF26779D008}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -832,7 +1156,7 @@ type { IContactosDireccionesDelta } IContactosDireccionesDelta = interface(IContactosDirecciones) - ['{9C86AA9E-70BA-40CE-B5A5-38CF4A3B0735}'] + ['{8A83DDFD-823F-47B4-BCAC-089F5CE60FAA}'] { Property getters and setters } function GetOldID_CONTACTOValue : Integer; function GetOldID_DIRECCIONValue : Integer; @@ -1010,7 +1334,7 @@ type { IClientesDelta } IClientesDelta = interface(IClientes) - ['{D7F24E5E-CD4A-4BC2-B98C-E0B8AA57835A}'] + ['{6C0F08C0-AC4A-4F02-B201-EB4E7D7A506C}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1537,7 +1861,7 @@ type { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) - ['{D73D96B2-53E6-477D-82CB-B2A69AEEF86B}'] + ['{92A2ABCC-54BD-4307-9803-F2166A2FECF0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -2064,7 +2388,7 @@ type { IVendedoresDelta } IVendedoresDelta = interface(IVendedores) - ['{C12214F4-2ED0-4099-AECB-945D42A72EDC}'] + ['{65311CC7-416E-40F2-91D0-53C52A18E035}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -2411,7 +2735,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{CFF3C192-A3B8-43FF-9F98-B29B4C4447BC}'] + ['{7A9695DE-9885-4EF7-8DF5-B71031669317}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -2638,7 +2962,7 @@ type { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) - ['{56F5AE71-33E1-4D3B-AE18-8C1F47582366}'] + ['{6B8AA074-E55C-4097-8446-AD82BE5A3036}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; @@ -2720,7 +3044,7 @@ type { IProcedenciasClienteDelta } IProcedenciasClienteDelta = interface(IProcedenciasCliente) - ['{47DFCD94-B340-485F-90B1-C9E217F3810D}'] + ['{DB21F2BA-8FD7-49DE-9CF8-BD0450CF15CA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2766,7 +3090,7 @@ type { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) - ['{7DBF3455-38E2-45DE-BABC-280D7B6309AF}'] + ['{D9BBEBF2-1F0F-42F5-A156-535CEFA06738}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2812,7 +3136,7 @@ type { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) - ['{7A25AA92-54F4-4D92-AD08-3382DDC351B6}'] + ['{F33EE88E-BF1A-49C7-A750-D1A6C5D8D60E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -4491,6 +4815,801 @@ begin end; +{ TInstaladoresBusinessProcessorRules } +constructor TInstaladoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +var + StrList: TStringList; +begin + inherited; + + StrList := TStringList.Create; + StrList.OnChange := NOTAS_OnChange; + f_NOTAS := NewROStrings(StrList,True); +end; + +destructor TInstaladoresBusinessProcessorRules.Destroy; +begin + inherited; +end; + +procedure TInstaladoresBusinessProcessorRules.NOTAS_OnChange(Sender: TObject); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNOTAS] := TStringList(Sender).Text; +end; + +function TInstaladoresBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID]; +end; + +function TInstaladoresBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresID]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresID]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetID_CATEGORIAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_CATEGORIA]; +end; + +function TInstaladoresBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_CATEGORIA]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresID_CATEGORIA]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresID_CATEGORIA]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_CATEGORIA] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetID_CATEGORIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_CATEGORIA] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNIF_CIF]; +end; + +function TInstaladoresBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNIF_CIF]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldNIF_CIFValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresNIF_CIF]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresNIF_CIF]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNIF_CIF] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetNIF_CIFIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNIF_CIF] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNOMBRE]; +end; + +function TInstaladoresBusinessProcessorRules.GetNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNOMBRE]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresNOMBRE]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresNOMBRE]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetNOMBREValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNOMBRE] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNOMBRE] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetPERSONA_CONTACTOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPERSONA_CONTACTO]; +end; + +function TInstaladoresBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPERSONA_CONTACTO]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresPERSONA_CONTACTO]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresPERSONA_CONTACTO]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPERSONA_CONTACTO] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPERSONA_CONTACTO] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetCALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresCALLE]; +end; + +function TInstaladoresBusinessProcessorRules.GetCALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresCALLE]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldCALLEValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresCALLE]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresCALLE]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetCALLEValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresCALLE] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresCALLE] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetPOBLACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPOBLACION]; +end; + +function TInstaladoresBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPOBLACION]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldPOBLACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresPOBLACION]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresPOBLACION]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPOBLACION] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPOBLACION] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetPROVINCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPROVINCIA]; +end; + +function TInstaladoresBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPROVINCIA]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldPROVINCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresPROVINCIA]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresPROVINCIA]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPROVINCIA] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPROVINCIA] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetCODIGO_POSTALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresCODIGO_POSTAL]; +end; + +function TInstaladoresBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresCODIGO_POSTAL]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresCODIGO_POSTAL]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresCODIGO_POSTAL]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresCODIGO_POSTAL] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresCODIGO_POSTAL] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetTELEFONO_1Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTELEFONO_1]; +end; + +function TInstaladoresBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTELEFONO_1]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldTELEFONO_1Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresTELEFONO_1]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresTELEFONO_1]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTELEFONO_1] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetTELEFONO_1IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTELEFONO_1] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetTELEFONO_2Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTELEFONO_2]; +end; + +function TInstaladoresBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTELEFONO_2]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldTELEFONO_2Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresTELEFONO_2]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresTELEFONO_2]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTELEFONO_2] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetTELEFONO_2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTELEFONO_2] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetMOVIL_1Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresMOVIL_1]; +end; + +function TInstaladoresBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresMOVIL_1]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldMOVIL_1Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresMOVIL_1]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresMOVIL_1]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresMOVIL_1] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetMOVIL_1IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresMOVIL_1] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetMOVIL_2Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresMOVIL_2]; +end; + +function TInstaladoresBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresMOVIL_2]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldMOVIL_2Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresMOVIL_2]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresMOVIL_2]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresMOVIL_2] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetMOVIL_2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresMOVIL_2] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetFAXValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFAX]; +end; + +function TInstaladoresBusinessProcessorRules.GetFAXIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFAX]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldFAXValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresFAX]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldFAXIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresFAX]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetFAXValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFAX] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFAX] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetEMAIL_1Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresEMAIL_1]; +end; + +function TInstaladoresBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresEMAIL_1]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldEMAIL_1Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresEMAIL_1]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresEMAIL_1]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresEMAIL_1] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetEMAIL_1IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresEMAIL_1] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetEMAIL_2Value: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresEMAIL_2]; +end; + +function TInstaladoresBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresEMAIL_2]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldEMAIL_2Value: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresEMAIL_2]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresEMAIL_2]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresEMAIL_2] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetEMAIL_2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresEMAIL_2] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetPAGINA_WEBValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPAGINA_WEB]; +end; + +function TInstaladoresBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPAGINA_WEB]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresPAGINA_WEB]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresPAGINA_WEB]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPAGINA_WEB] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetPAGINA_WEBIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresPAGINA_WEB] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetNOTASValue: IROStrings; +begin + result := f_NOTAS; + result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNOTAS]; +end; + +function TInstaladoresBusinessProcessorRules.GetNOTASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNOTAS]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldNOTASValue: IROStrings; +begin + result := NewROStrings(); + result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresNOTAS]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldNOTASIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresNOTAS]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresNOTAS] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFECHA_ALTA]; +end; + +function TInstaladoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFECHA_ALTA]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresFECHA_ALTA]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresFECHA_ALTA]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFECHA_ALTA] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFECHA_ALTA] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFECHA_MODIFICACION]; +end; + +function TInstaladoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFECHA_MODIFICACION]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresFECHA_MODIFICACION]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresFECHA_MODIFICACION]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFECHA_MODIFICACION] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresFECHA_MODIFICACION] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresUSUARIO]; +end; + +function TInstaladoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresUSUARIO]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresUSUARIO]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresUSUARIO]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresUSUARIO] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresUSUARIO] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_EMPRESA]; +end; + +function TInstaladoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_EMPRESA]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresID_EMPRESA]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresID_EMPRESA]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_EMPRESA] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_EMPRESA] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresREFERENCIA]; +end; + +function TInstaladoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresREFERENCIA]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresREFERENCIA]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresREFERENCIA]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresREFERENCIA] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresREFERENCIA] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetID_TIENDAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_TIENDA]; +end; + +function TInstaladoresBusinessProcessorRules.GetID_TIENDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_TIENDA]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldID_TIENDAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresID_TIENDA]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresID_TIENDA]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_TIENDA] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresID_TIENDA] := Null; +end; + +function TInstaladoresBusinessProcessorRules.GetTIENDAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTIENDA]; +end; + +function TInstaladoresBusinessProcessorRules.GetTIENDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTIENDA]); +end; + +function TInstaladoresBusinessProcessorRules.GetOldTIENDAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresTIENDA]; +end; + +function TInstaladoresBusinessProcessorRules.GetOldTIENDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InstaladoresTIENDA]); +end; + +procedure TInstaladoresBusinessProcessorRules.SetTIENDAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTIENDA] := aValue; +end; + +procedure TInstaladoresBusinessProcessorRules.SetTIENDAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InstaladoresTIENDA] := Null; +end; + + { TGruposClienteBusinessProcessorRules } constructor TGruposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin @@ -10311,6 +11430,7 @@ initialization RegisterBusinessProcessorRules(RID_DarTiendaDeUsuarioDelta, TDarTiendaDeUsuarioBusinessProcessorRules); RegisterBusinessProcessorRules(RID_SubCuentasContactoDelta, TSubCuentasContactoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_InstaladoresDelta, TInstaladoresBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_DatosBancariosDelta, TDatosBancariosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContactosDireccionesDelta, TContactosDireccionesBusinessProcessorRules); diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index addcc168..e63e2c35 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/Source/Modulos/Contactos/Model/uBizContactos.pas @@ -12,6 +12,7 @@ const BIZ_CLIENT_CLIENTE = 'Client.Cliente'; BIZ_CLIENT_PROVEEDOR = 'Client.Proveedor'; BIZ_CLIENT_VENDEDOR = 'Client.Vendedor'; + BIZ_CLIENT_INSTALADOR = 'Client.Instalador'; CATEGORIA_CLIENTE = 1; CATEGORIA_PROVEEDOR = 2; @@ -204,6 +205,10 @@ type property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue; end; + IBizInstalador = interface (IBizContacto) + ['{3E3121B9-FE13-4A3D-B767-2890FB31E38A}'] + end; + TBizContacto = class(TContactosDataTableRules, IBizContacto, ISeleccionable) protected FDatosBancarios : IBizContactosDatosBancarios; @@ -413,6 +418,10 @@ type property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; end; + TBizInstalador = class(TBizContacto, IBizInstalador) + public + procedure IniciarValoresContactoNuevo; override; + end; TBizVendedor = class(TBizContacto, IBizVendedor) protected @@ -1001,12 +1010,21 @@ begin DataTable.Fields[idx_VendedoresID_USUARIO].AsInteger := aValue; end; +{ TBizInstalador } + +procedure TBizInstalador.IniciarValoresContactoNuevo; +begin + inherited; + ID_CATEGORIA := CATEGORIA_INSTALADOR; +end; + initialization RegisterDataTableRules(BIZ_CLIENT_CONTACTO, TBizContacto); RegisterDataTableRules(BIZ_CLIENT_CLIENTE, TBizCliente); RegisterDataTableRules(BIZ_CLIENT_PROVEEDOR, TBizProveedor); RegisterDataTableRules(BIZ_CLIENT_VENDEDOR, TBizVendedor); - + RegisterDataTableRules(BIZ_CLIENT_INSTALADOR, TBizInstalador); + finalization end. diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm index 573910b5..529dbbed 100644 --- a/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm +++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.dfm @@ -299,6 +299,12 @@ object PluginContactos: TPluginContactos ImageIndex = 6 OnExecute = actProcedenciasClienteExecute end + object actInstaladores: TAction + Category = 'Empresa' + Caption = 'Alba'#241'iles / Instaladores' + ImageIndex = 4 + OnExecute = actInstaladoresExecute + end end object MainMenu: TMainMenu Images = SmallImages @@ -311,6 +317,10 @@ object PluginContactos: TPluginContactos Action = actVendedores SubMenuImages = SmallImages end + object Instaladores1: TMenuItem + Tag = 103 + Action = actInstaladores + end end object Da1: TMenuItem Caption = 'Datos' diff --git a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas index 932ade0e..69f6424c 100644 --- a/Source/Modulos/Contactos/Plugin/uPluginContactos.pas +++ b/Source/Modulos/Contactos/Plugin/uPluginContactos.pas @@ -32,6 +32,8 @@ type actProcedenciasCliente: TAction; Procedenciasdecliente1: TMenuItem; Empresas1: TMenuItem; + actInstaladores: TAction; + Instaladores1: TMenuItem; procedure actClientesExecute(Sender: TObject); procedure actProveedoresExecute(Sender: TObject); procedure actVendedoresExecute(Sender: TObject); @@ -41,6 +43,7 @@ type function GetVistaConfiguracion : TClass; function GetEtiquetaConfiguracion : String; procedure actVendedoresUpdate(Sender: TObject); + procedure actInstaladoresExecute(Sender: TObject); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -56,7 +59,7 @@ uses uGruposClienteController, uProcedenciasClienteController, uBizGruposCliente, uGruposProveedorController, uBizGruposProveedor, uBizProcedenciasCliente, uContactosViewRegister, uBizContactos, uViewConfiguracionContactos, - uFactuGES_App; + uFactuGES_App, uInstaladoresController; function GetModule : TModuleController; begin @@ -104,6 +107,16 @@ begin AGruposProveedorController.VerTodos(AGruposProveedor); end; +procedure TPluginContactos.actInstaladoresExecute(Sender: TObject); +var + AInstaladoresController : IInstaladoresController; + AInstaladores : IBizInstalador; +begin + AInstaladoresController := TInstaladoresController.Create; + AInstaladores := (AInstaladoresController.BuscarTodos as IBizInstalador); + AInstaladoresController.VerTodos(AInstaladores); +end; + procedure TPluginContactos.actProcedenciasClienteExecute(Sender: TObject); var AProcedenciasClienteController : IProcedenciasClienteController; diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 07d4dcc3..9db80131 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -523,6 +523,266 @@ object srvContactos: TsrvContactos DictionaryEntry = 'Contactos_TIENDA' end> end + item + Params = <> + Statements = < + item + ConnectionType = 'Interbase' + Default = True + TargetTable = 'V_INSTALADORES' + Name = 'IBX' + StatementType = stAutoSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_CATEGORIA' + TableField = 'ID_CATEGORIA' + end + item + DatasetField = 'NIF_CIF' + TableField = 'NIF_CIF' + end + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end + item + DatasetField = 'PERSONA_CONTACTO' + TableField = 'PERSONA_CONTACTO' + end + item + DatasetField = 'CALLE' + TableField = 'CALLE' + end + item + DatasetField = 'POBLACION' + TableField = 'POBLACION' + end + item + DatasetField = 'PROVINCIA' + TableField = 'PROVINCIA' + end + item + DatasetField = 'CODIGO_POSTAL' + TableField = 'CODIGO_POSTAL' + end + item + DatasetField = 'TELEFONO_1' + TableField = 'TELEFONO_1' + end + item + DatasetField = 'TELEFONO_2' + TableField = 'TELEFONO_2' + end + item + DatasetField = 'MOVIL_1' + TableField = 'MOVIL_1' + end + item + DatasetField = 'MOVIL_2' + TableField = 'MOVIL_2' + end + item + DatasetField = 'FAX' + TableField = 'FAX' + end + item + DatasetField = 'EMAIL_1' + TableField = 'EMAIL_1' + end + item + DatasetField = 'EMAIL_2' + TableField = 'EMAIL_2' + end + item + DatasetField = 'PAGINA_WEB' + TableField = 'PAGINA_WEB' + end + item + DatasetField = 'NOTAS' + TableField = 'NOTAS' + end + item + DatasetField = 'FECHA_ALTA' + TableField = 'FECHA_ALTA' + end + item + DatasetField = 'FECHA_MODIFICACION' + TableField = 'FECHA_MODIFICACION' + end + item + DatasetField = 'USUARIO' + TableField = 'USUARIO' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'ID_TIENDA' + TableField = 'ID_TIENDA' + end + item + DatasetField = 'TIENDA' + TableField = 'TIENDA' + end> + end> + Name = 'Instaladores' + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_CONTACTOS_ID' + ServerAutoRefresh = True + DictionaryEntry = 'Instaladores_ID' + InPrimaryKey = True + end + item + Name = 'ID_CATEGORIA' + DataType = datInteger + DictionaryEntry = 'Instaladores_ID_CATEGORIA' + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + DictionaryEntry = 'Instaladores_NIF_CIF' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_NOMBRE' + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_PERSONA_CONTACTO' + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_CALLE' + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_POBLACION' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_PROVINCIA' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + DictionaryEntry = 'Instaladores_CODIGO_POSTAL' + end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + DictionaryEntry = 'Instaladores_TELEFONO_1' + end + item + Name = 'TELEFONO_2' + DataType = datString + Size = 25 + DictionaryEntry = 'Instaladores_TELEFONO_2' + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + DictionaryEntry = 'Instaladores_MOVIL_1' + end + item + Name = 'MOVIL_2' + DataType = datString + Size = 25 + DictionaryEntry = 'Instaladores_MOVIL_2' + end + item + Name = 'FAX' + DataType = datString + Size = 25 + DictionaryEntry = 'Instaladores_FAX' + end + item + Name = 'EMAIL_1' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_EMAIL_1' + end + item + Name = 'EMAIL_2' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_EMAIL_2' + end + item + Name = 'PAGINA_WEB' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_PAGINA_WEB' + end + item + Name = 'NOTAS' + DataType = datMemo + DictionaryEntry = 'Instaladores_NOTAS' + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + DictionaryEntry = 'Instaladores_FECHA_ALTA' + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + DictionaryEntry = 'Instaladores_FECHA_MODIFICACION' + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + DictionaryEntry = 'Instaladores_USUARIO' + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'Instaladores_ID_EMPRESA' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_REFERENCIA' + end + item + Name = 'ID_TIENDA' + DataType = datInteger + DictionaryEntry = 'Instaladores_ID_TIENDA' + end + item + Name = 'TIENDA' + DataType = datString + Size = 255 + DictionaryEntry = 'Instaladores_TIENDA' + end> + end item Params = <> Statements = < @@ -5059,6 +5319,127 @@ object srvContactos: TsrvContactos DataType = datString Size = 255 DisplayLabel = 'Persona de contacto' + end + item + Name = 'Instaladores_ID' + DataType = datAutoInc + GeneratorName = 'GEN_CONTACTOS_ID' + DisplayLabel = 'ID' + ServerAutoRefresh = True + end + item + Name = 'Instaladores_ID_CATEGORIA' + DataType = datInteger + end + item + Name = 'Instaladores_NIF_CIF' + DataType = datString + Size = 15 + end + item + Name = 'Instaladores_NOMBRE' + DataType = datString + Size = 255 + end + item + Name = 'Instaladores_PERSONA_CONTACTO' + DataType = datString + Size = 255 + end + item + Name = 'Instaladores_CALLE' + DataType = datString + Size = 255 + end + item + Name = 'Instaladores_POBLACION' + DataType = datString + Size = 255 + end + item + Name = 'Instaladores_PROVINCIA' + DataType = datString + Size = 255 + end + item + Name = 'Instaladores_CODIGO_POSTAL' + DataType = datString + Size = 10 + end + item + Name = 'Instaladores_TELEFONO_1' + DataType = datString + Size = 25 + end + item + Name = 'Instaladores_TELEFONO_2' + DataType = datString + Size = 25 + end + item + Name = 'Instaladores_MOVIL_1' + DataType = datString + Size = 25 + end + item + Name = 'Instaladores_MOVIL_2' + DataType = datString + Size = 25 + end + item + Name = 'Instaladores_FAX' + DataType = datString + Size = 25 + end + item + Name = 'Instaladores_EMAIL_1' + DataType = datString + Size = 255 + end + item + Name = 'Instaladores_EMAIL_2' + DataType = datString + Size = 255 + end + item + Name = 'Instaladores_PAGINA_WEB' + DataType = datString + Size = 255 + end + item + Name = 'Instaladores_NOTAS' + DataType = datMemo + end + item + Name = 'Instaladores_FECHA_ALTA' + DataType = datDateTime + end + item + Name = 'Instaladores_FECHA_MODIFICACION' + DataType = datDateTime + end + item + Name = 'Instaladores_USUARIO' + DataType = datString + Size = 30 + end + item + Name = 'Instaladores_ID_EMPRESA' + DataType = datInteger + end + item + Name = 'Instaladores_REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'Instaladores_ID_TIENDA' + DataType = datInteger + end + item + Name = 'Instaladores_TIENDA' + DataType = datString + Size = 255 end> Left = 126 Top = 14 @@ -5176,4 +5557,16 @@ object srvContactos: TsrvContactos Left = 224 Top = 143 end + object bpInstaladores: TDABusinessProcessor + Schema = schContactos + InsertCommandName = 'Insert_Contactos' + DeleteCommandName = 'Delete_Contactos' + UpdateCommandName = 'Update_Contactos' + RefreshDatasetName = 'Contactos_Refresh' + ReferencedDataset = 'Instaladores' + ProcessorOptions = [poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 88 + Top = 287 + end end diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas index 030a5b41..17bd9f9a 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas @@ -34,6 +34,7 @@ type bpSubCuentasContacto: TDABusinessProcessor; schContactos: TDASchema; DataDictionary: TDADataDictionary; + bpInstaladores: TDABusinessProcessor; procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); procedure DARemoteServiceCreate(Sender: TObject); @@ -53,7 +54,7 @@ uses uDataModuleServer, uDatabaseUtils, uUsersManager, schContactosClient_Intf, uBizVendedoresServer, uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils, - uRptListadosContactos_Server; + uBizInstaladoresServer, uRptListadosContactos_Server; procedure Create_srvContactos(out anInstance : IUnknown); begin @@ -83,6 +84,7 @@ begin bpVendedores.BusinessRulesID := BIZ_SERVER_VENDEDOR; bpClientes.BusinessRulesID := BIZ_SERVER_CLIENTE; bpProveedores.BusinessRulesID := BIZ_SERVER_PROVEEDOR; + bpInstaladores.BusinessRulesID := BIZ_SERVER_INSTALADOR; end; function TsrvContactos.DarTiendaDeUsuario(const ID_Empresa: Integer; diff --git a/Source/Modulos/Contactos/Views/Contactos_view.bdsproj b/Source/Modulos/Contactos/Views/Contactos_view.bdsproj deleted file mode 100644 index c1f237f8..00000000 --- a/Source/Modulos/Contactos/Views/Contactos_view.bdsproj +++ /dev/null @@ -1,543 +0,0 @@ - - - - - - - - - - - - Contactos_view.dpk - - - 7.0 - - - 8 - 0 - 1 - 1 - 0 - 0 - 1 - 1 - 1 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - 0 - 0 - 0 - 0 - 0 - 1 - 0 - 1 - 1 - 1 - True - True - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - True - False - False - False - True - True - True - True - True - True - - - - 3 - 0 - False - 1 - False - False - False - 16384 - 1048576 - 4194304 - - - - - .\ - ..\..\..\..\Output\Debug\Cliente - ..\..\Lib - ..\..\..\Lib;..\..\Lib - - - - False - - - - - - False - - - True - False - - - - $00000000 - - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - ExpressBars extended items by Developer Express Inc. - ExpressCommonLibrary by Developer Express Inc. - ExpressBars by Developer Express Inc. - Express Cross Platform Library by Developer Express Inc. - Express XP Theme Manager by Developer Express Inc. - ExpressEditors Library 5 by Developer Express Inc. - ExpressDataController by Developer Express Inc. - ExpressExtendedEditors Library 5 by Developer Express Inc. - ExpressQuantumGrid 5 by Developer Express Inc. - Express Cross Platform PageControl by Developer Express Inc. - Express Cross Platform Export Library by Developer Express Inc. - ExpressScheduler 2 by Developer Express Inc. - ExpressQuantumTreeList 4 by Developer Express Inc. - ExpressVerticalGrid by Developer Express Inc. - ExpressBars DBNavigator by Developer Express Inc. - ExpressBars extended DB items by Developer Express Inc. - ExpressDocking Library by Developer Express Inc. - ExpressLayout Control by Developer Express Inc. - ExpressNavBar by Developer Express Inc. - ExpressPrinting System by Developer Express Inc. - ExpressSideBar by Developer Express Inc. - JVCL Application and Form Components Runtime Package - JVCL Core Runtime Package - JEDI Code Library RTL package - JEDI Code Library VCL package - JVCL System Runtime Package - JVCL Standard Controls Runtime Package - JVCL Band Objects Runtime Package - JVCL BDE Components Runtime Package - JVCL Controls Runtime Package - JVCL Components Runtime Package - JVCL DotNet Controls Runtime Package - JVCL EDI Components - JVCL Globus Components - JVCL HMI Controls runtime package - JVCL Interpreter Components Runtime Package - JVCL Jans Components - JVCL Managed Threads - runtime package - JVCL Multimedia and Image Components Runtime Package - JVCL Network Components Runtime Package - JVCL Page Style Components Runtime Package - JVCL Plugin Components Runtime Package - JVCL Print Preview Components - JVCL Runtime Design Components Runtime Package - JVCL Time Framework - JVCL Validators and Error Indicator Components - JVCL Wizard Run Time Package - JVCL XP Controls Runtime Package - (untitled) - ExpressGDI+ Library by Developer Express Inc. - - - - diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dpk b/Source/Modulos/Contactos/Views/Contactos_view.dpk index 0d950ce2..2e030226 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dpk +++ b/Source/Modulos/Contactos/Views/Contactos_view.dpk @@ -59,7 +59,29 @@ requires designide, xmlrtl, vclactnband, - GestorInformes_controller; + GestorInformes_controller, + dxCoreD11, + cxGridD11, + cxPageControlD11, + cxExtEditorsD11, + cxExportD11, + dxPSCoreD11, + dxComnD11, + dxPScxCommonD11, + dxPSLnksD11, + vclshlctrls, + dxPScxGrid6LnkD11, + dclcxLibraryD11, + dcldxCoreD11, + PngComponentsD10, + PNG_D10, + tb2k_d10, + tbx_d10, + dxLayoutControlD11, + JSDialog100, + JvStdCtrlsD11R, + JvPageCompsD11R, + JvCtrlsD11R; contains uContactosViewRegister in 'uContactosViewRegister.pas', @@ -99,6 +121,12 @@ contains uViewConfiguracionContactos in 'uViewConfiguracionContactos.pas' {frViewConfiguracionContactos}, uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: TCustomEditor}, uEditorElegirPersonaContacto in 'uEditorElegirPersonaContacto.pas' {fEditorElegirPersonaContacto: TCustomEditor}, - uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor}; + uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor}, + uViewInstaladores in 'uViewInstaladores.pas' {frViewInstaladores: TFrame}, + uViewInstalador in 'uViewInstalador.pas' {frViewInstalador: TFrame}, + uEditorInstaladores in 'uEditorInstaladores.pas' {fEditorInstaladores: TCustomEditor}, + uEditorInstalador in 'uEditorInstalador.pas' {fEditorInstalador: TCustomEditor}, + uEditorElegirInstaladores in 'uEditorElegirInstaladores.pas' {fEditorElegirInstaladores: TCustomEditor}, + uViewDatosYSeleccionInstalador in 'uViewDatosYSeleccionInstalador.pas' {frViewDatosYSeleccionInstalador: TFrame}; end. diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index b90793b7..9d0981e1 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -47,41 +47,63 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorCliente
@@ -110,6 +132,10 @@
fEditorElegirDireccionEntrega
TCustomEditor + +
fEditorElegirInstaladores
+ TCustomEditor +
fEditorElegirPersonaContacto
TCustomEditor @@ -130,6 +156,14 @@
fEditorGruposProveedor
TCustomEditor + +
fEditorInstalador
+ TCustomEditor + + +
fEditorInstaladores
+ TCustomEditor +
fEditorListadosContactosPreview
TCustomEditor @@ -193,6 +227,10 @@
frViewDatosYSeleccionCliente
TFrame + +
frViewInstalador
+ TFrame +
frViewDatosYSeleccionProveedor
TFrame @@ -201,6 +239,14 @@
frViewDireccionesEntrega
TFrame + +
frViewInstalador
+ TFrame + + +
frViewInstaladores
+ TFrame +
frViewPersonalContacto
TFrame diff --git a/Source/Modulos/Contactos/Views/uContactosViewRegister.pas b/Source/Modulos/Contactos/Views/uContactosViewRegister.pas index 5c3a1af5..a140a8b4 100644 --- a/Source/Modulos/Contactos/Views/uContactosViewRegister.pas +++ b/Source/Modulos/Contactos/Views/uContactosViewRegister.pas @@ -16,21 +16,24 @@ uses uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente, uEditorGruposProveedor, uEditorListadosContactosReport, uViewConfiguracionContactos, uEditorPersonal, uEditorElegirPersonaContacto, - uEditorElegirDireccionEntrega; + uEditorElegirDireccionEntrega, uEditorInstaladores, uEditorInstalador, uEditorElegirInstaladores; procedure RegisterViews; begin EditorRegistry.RegisterClass(TfEditorClientes, 'EditorClientes'); EditorRegistry.RegisterClass(TfEditorProveedores, 'EditorProveedores'); EditorRegistry.RegisterClass(TfEditorVendedores, 'EditorVendedores'); + EditorRegistry.RegisterClass(TfEditorInstaladores, 'EditorInstaladores'); EditorRegistry.RegisterClass(TfEditorCliente, 'EditorCliente'); EditorRegistry.RegisterClass(TfEditorProveedor, 'EditorProveedor'); EditorRegistry.RegisterClass(TfEditorVendedor, 'EditorVendedor'); + EditorRegistry.RegisterClass(TfEditorInstalador, 'EditorInstalador'); EditorRegistry.RegisterClass(TfEditorElegirClientes, 'EditorElegirClientes'); EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores'); EditorRegistry.RegisterClass(TfEditorElegirVendedores, 'EditorElegirVendedores'); + EditorRegistry.RegisterClass(TfEditorElegirInstaladores, 'EditorElegirInstaladores'); EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion'); EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega'); diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.dfm b/Source/Modulos/Contactos/Views/uEditorContacto.dfm index 45be8f65..0ac56a02 100644 --- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm +++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm @@ -19,12 +19,18 @@ inherited fEditorContacto: TfEditorContacto Left = 922 ExplicitLeft = 607 end + inherited lblDesbloquear: TcxLabel + Left = 824 + ExplicitLeft = 824 + AnchorX = 869 + AnchorY = 14 + end end inherited TBXDock: TTBXDock Width = 949 ExplicitWidth = 949 inherited tbxMain: TTBXToolbar - ExplicitWidth = 423 + ExplicitWidth = 347 inherited TBXItem2: TTBXItem Visible = False end @@ -86,17 +92,17 @@ inherited fEditorContacto: TfEditorContacto end inherited pgPaginas: TPageControl Width = 943 - Height = 599 + Height = 606 ExplicitWidth = 943 ExplicitHeight = 599 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 ExplicitWidth = 935 - ExplicitHeight = 571 + ExplicitHeight = 578 inline frViewPersonalContacto1: TfrViewPersonalContacto Left = 0 - Top = 368 + Top = 375 Width = 935 Height = 203 Align = alBottom @@ -108,7 +114,7 @@ inherited fEditorContacto: TfEditorContacto ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitTop = 368 + ExplicitTop = 375 ExplicitWidth = 935 ExplicitHeight = 203 inherited cxGrid: TcxGrid @@ -120,6 +126,18 @@ inherited fEditorContacto: TfEditorContacto inherited ToolBar1: TToolBar Width = 935 ExplicitWidth = 935 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end end end end @@ -130,7 +148,7 @@ inherited fEditorContacto: TfEditorContacto Left = 0 Top = 0 Width = 935 - Height = 571 + Height = 578 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -141,7 +159,7 @@ inherited fEditorContacto: TfEditorContacto TabOrder = 0 ReadOnly = False ExplicitWidth = 935 - ExplicitHeight = 571 + ExplicitHeight = 578 inherited dxLayoutControl1: TdxLayoutControl Width = 935 LookAndFeel = dxLayoutOfficeLookAndFeel @@ -182,6 +200,10 @@ inherited fEditorContacto: TfEditorContacto object pagPersonal: TTabSheet Caption = 'Observaciones' ImageIndex = 2 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object memObservaciones22: TcxDBMemo Left = 0 Top = 0 @@ -194,7 +216,7 @@ inherited fEditorContacto: TfEditorContacto StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 - Height = 571 + Height = 578 Width = 935 end end @@ -202,10 +224,6 @@ inherited fEditorContacto: TfEditorContacto inherited PnlComentario: TPanel Width = 949 ExplicitWidth = 949 - inherited lbComentario: TLabel - Width = 939 - Height = 25 - end end inherited dsDataTable: TDADataSource [5] Left = 168 diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.pas b/Source/Modulos/Contactos/Views/uEditorContacto.pas index aeb07273..7e3275a3 100644 --- a/Source/Modulos/Contactos/Views/uEditorContacto.pas +++ b/Source/Modulos/Contactos/Views/uEditorContacto.pas @@ -15,7 +15,7 @@ uses uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel, uDAInterfaces, uViewPersonalContacto, uViewDetallesGenerico, cxControls, - cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit; + cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxLabel; type TfEditorContacto = class(TfEditorDBItem, IEditorContacto) diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.dfm b/Source/Modulos/Contactos/Views/uEditorContactos.dfm index 2021f8c1..430b8efa 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.dfm +++ b/Source/Modulos/Contactos/Views/uEditorContactos.dfm @@ -10,11 +10,8 @@ inherited fEditorContactos: TfEditorContactos Caption = 'Lista de contactos' end inherited TBXDock: TTBXDock - inherited tbxMain: TTBXToolbar - ExplicitWidth = 543 - end inherited tbxFiltro: TTBXToolbar - ExplicitWidth = 194 + ExplicitWidth = 195 inherited tbxEditFiltro: TTBXEditItem EditOptions = [tboUseEditWhenVertical] end diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index 077370be..f9b53ac9 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas @@ -8,7 +8,7 @@ uses uControllerBase, uIDataModuleContratosCliente, uClientesController, uDetallesContratoClienteController, uGestorDocumentosController, uBizContratosCliente, uBizDireccionesContacto, uBizDetallesContratoCliente, - uIntegerListUtils; + uIntegerListUtils, uBizContactos; type TEnumTiposContrato = (teCocina, teArmario, teBano, teElectrodomestico, teObra, teVarios); @@ -63,6 +63,7 @@ type function DarListaAnosContratos: TStringList; procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); + procedure FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String); procedure VerListadoBeneficios; procedure VerPedidosProveedor(AContrato : IBizContratoCliente); procedure VerFacturasProveedor(AContrato : IBizContratoCliente); @@ -70,6 +71,7 @@ type procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente); procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente); + function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean; end; TContratosClienteController = class(TControllerBase, IContratosClienteController) @@ -137,19 +139,22 @@ type procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false); procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false); - procedure GenerarPDF(AContrato : IBizContratoCliente; AllItems: Boolean = false; AFirmado: Boolean = False); + procedure GenerarPDF(AContrato : IBizContratoCliente; AllItems: Boolean = false; AFirmado: Boolean = False); procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente); function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; function DarListaAnosContratos: TStringList; procedure FiltrarAno(AContrato: IBizContratoCliente; ADynWhereDataTable: WideString; const Ano: String); + procedure FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String); procedure VerListadoBeneficios; procedure VerPedidosProveedor(AContrato : IBizContratoCliente); procedure VerFacturasProveedor(AContrato : IBizContratoCliente); procedure VerBeneficio(const ID: Integer); procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente); - procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente); + procedure FechaUltimaActualizacionToday (AContrato: IBizContratoCliente); + + function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean; end; implementation @@ -157,7 +162,7 @@ implementation uses Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils, uIEditorContratosCliente, uDataModuleContratosCliente, Variants, - uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, + uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente, uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente, schContactosClient_Intf, uContratosClienteReportController, FactuGES_Intf, @@ -254,6 +259,32 @@ begin end; end; +function TContratosClienteController.CambiarInstalador(AContrato: IBizContratoCliente; AInstalador: IBizInstalador): Boolean; +var + bEnEdicion : Boolean; + +begin + if not Assigned(AContrato) then + raise Exception.Create ('AContrato no asignado'); + + ShowHourglassCursor; + try + bEnEdicion := (AContrato.DataTable.State in dsEditModes); + if not bEnEdicion then + AContrato.Edit; + + AContrato.DataTable.Edit; + AContrato.ID_INSTALADOR := AInstalador.ID; + AContrato.NOMBRE_INSTALADOR := AInstalador.NOMBRE; + + if not bEnEdicion then + AContrato.Post; + + finally + HideHourglassCursor; + end; +end; + function TContratosClienteController.CambiarSituacion(AContrato: IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean): Boolean; // En el caso de cambiar almenos un elemento del conjunto se devuelve true @@ -431,6 +462,8 @@ begin // ID_FACTURAIsNull := True; REFERENCIA := ''; SITUACION := SITUACION_CONTRATO_PENDIENTE; + ID_INSTALADORIsNull := True; + NOMBRE_INSTALADORIsNull := True; end; Result.AsignarVendedor; Result.Post; @@ -1049,6 +1082,35 @@ begin end; end; +procedure TContratosClienteController.FiltrarAnoBeneficios(AContrato: IBizContratosClienteBeneficios; ADynWhereDataTable: WideString; const Ano: String); +var + Condicion: TDAWhereExpression; + FechaIni: String; + FechaFin: String; + +begin + AContrato.DataTable.DynamicWhere.Clear; + AContrato.DataTable.DynamicWhere.Xml := ADynWhereDataTable; + + if (Ano <> 'Todos') then + begin + // Filtrar las facturas actuales por empresa + FechaIni := '01/01/' + Ano; + FechaFin := '31/12/' + Ano; + with AContrato.DataTable.DynamicWhere do + begin + // (FECHA_INICIO between FECHA_FIN) + Condicion := NewBinaryExpression(NewField('', fld_ContratosClienteFECHA_CONTRATO), NewConstant(FechaIni, datString), dboGreaterOrEqual); + Condicion := NewBinaryExpression(NewBinaryExpression(NewField('', fld_ContratosClienteFECHA_CONTRATO), NewConstant(FechaFin, datString), dboLessOrEqual), Condicion, dboAnd); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Condicion, Expression, dboAnd); + end; + end; +end; + procedure TContratosClienteController.FiltrarEmpresa(AContrato: IBizContratoCliente); var Condicion: TDAWhereExpression; diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm index 4fa6bdd9..8ae6e96a 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm @@ -350,6 +350,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente item Name = 'FECHA_ULT_PRESENTACION_CLIENTE' DataType = datDateTime + end + item + Name = 'ID_INSTALADOR' + DataType = datInteger + end + item + Name = 'NOMBRE_INSTALADOR' + DataType = datString + Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas index 77edca9c..acb755ce 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas @@ -9,14 +9,14 @@ const { Data table 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_Valores = '{07040A27-DD19-4D93-B5DA-C9C49C1822CA}'; - RID_Propiedades = '{3006A5CE-2DB4-46FD-97B3-65E9CBA7AD2A}'; - RID_ListaAnosContratos = '{09600C3F-3F5A-4DB6-87A9-12C67B9AC2F1}'; - RID_ContratosClienteBeneficios = '{B58A588F-6D51-43FB-B318-5F9ABE371CBE}'; - RID_ContratosCliente = '{AFEF7F44-F9AD-4DCC-82CE-A441F94C7B6E}'; - RID_TiposCapitulos = '{C4F51BD4-AB1F-4564-8370-E83BDA635D61}'; - RID_ContratosCliente_Detalles = '{E45B94F9-C284-41CE-A73F-69E835616CBC}'; - RID_ContratoClienteFacturasProv = '{4884E75F-7CFE-4300-B53A-7F8F87745F99}'; + RID_Valores = '{20F4DF5F-38DB-4AA6-B17F-5192ED36BC0D}'; + RID_Propiedades = '{10A019F3-E795-413B-AE1A-8075665936C4}'; + RID_ListaAnosContratos = '{B706B31A-572A-44D7-815A-11028E17F3F0}'; + RID_ContratosClienteBeneficios = '{F9036DB4-7264-4B53-B7B7-A33F1FA4F72C}'; + RID_ContratosCliente = '{210D5B45-17D3-4EA9-82CC-FD40936C848C}'; + RID_TiposCapitulos = '{6781118D-1743-4A35-AD55-9C426656C662}'; + RID_ContratosCliente_Detalles = '{DC6E8B1B-AEEE-4CBC-A18D-5B7AB6B693FC}'; + RID_ContratoClienteFacturasProv = '{9F92B050-F8CB-4D0B-8C98-53D93B2F93D3}'; { Data table names } nme_Valores = 'Valores'; @@ -141,6 +141,8 @@ const fld_ContratosClienteREFERENCIA_CLIENTE = 'REFERENCIA_CLIENTE'; fld_ContratosClienteLISTA_NOMBRES = 'LISTA_NOMBRES'; fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 'FECHA_ULT_PRESENTACION_CLIENTE'; + fld_ContratosClienteID_INSTALADOR = 'ID_INSTALADOR'; + fld_ContratosClienteNOMBRE_INSTALADOR = 'NOMBRE_INSTALADOR'; { ContratosCliente field indexes } idx_ContratosClienteID = 0; @@ -193,6 +195,8 @@ const idx_ContratosClienteREFERENCIA_CLIENTE = 47; idx_ContratosClienteLISTA_NOMBRES = 48; idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE = 49; + idx_ContratosClienteID_INSTALADOR = 50; + idx_ContratosClienteNOMBRE_INSTALADOR = 51; { TiposCapitulos fields } fld_TiposCapitulosID = 'ID'; @@ -269,7 +273,7 @@ const type { IValores } IValores = interface(IDAStronglyTypedDataTable) - ['{72662564-0D03-463E-94DA-D8D703FC7FFD}'] + ['{90B6AEAB-CA86-415A-9867-AE6DDF147292}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -328,7 +332,7 @@ type { IPropiedades } IPropiedades = interface(IDAStronglyTypedDataTable) - ['{F1B345B8-6699-4700-8097-BFC5BDFD8537}'] + ['{D75A4B85-BBF5-495B-81BD-D8423BEB8878}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -387,7 +391,7 @@ type { IListaAnosContratos } IListaAnosContratos = interface(IDAStronglyTypedDataTable) - ['{36FADA3D-628F-480A-B077-EA8D6676A7C1}'] + ['{A58F3174-AAB8-42A5-9F76-CD538099B39D}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -422,7 +426,7 @@ type { IContratosClienteBeneficios } IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable) - ['{BBC61983-3B64-4845-A47B-F8511BBF7A73}'] + ['{443426BE-76C1-459F-B040-945933103153}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -637,7 +641,7 @@ type { IContratosCliente } IContratosCliente = interface(IDAStronglyTypedDataTable) - ['{5ECD7363-96C7-4393-AADE-B82526538C1E}'] + ['{E5FEBD8B-4FA0-4E95-B596-969808CA3467}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -833,6 +837,14 @@ type procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); + function GetID_INSTALADORValue: Integer; + procedure SetID_INSTALADORValue(const aValue: Integer); + function GetID_INSTALADORIsNull: Boolean; + procedure SetID_INSTALADORIsNull(const aValue: Boolean); + function GetNOMBRE_INSTALADORValue: String; + procedure SetNOMBRE_INSTALADORValue(const aValue: String); + function GetNOMBRE_INSTALADORIsNull: Boolean; + procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); { Properties } @@ -936,6 +948,10 @@ type property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue; property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull; + property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue; + property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull; + property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue; + property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull; end; { TContratosClienteDataTableRules } @@ -1149,6 +1165,14 @@ type procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual; function GetFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual; procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetID_INSTALADORValue: Integer; virtual; + procedure SetID_INSTALADORValue(const aValue: Integer); virtual; + function GetID_INSTALADORIsNull: Boolean; virtual; + procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_INSTALADORValue: String; virtual; + procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual; + function GetNOMBRE_INSTALADORIsNull: Boolean; virtual; + procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1251,6 +1275,10 @@ type property LISTA_NOMBRESIsNull: Boolean read GetLISTA_NOMBRESIsNull write SetLISTA_NOMBRESIsNull; property FECHA_ULT_PRESENTACION_CLIENTE: DateTime read GetFECHA_ULT_PRESENTACION_CLIENTEValue write SetFECHA_ULT_PRESENTACION_CLIENTEValue; property FECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull; + property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue; + property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull; + property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue; + property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1263,7 +1291,7 @@ type } { ITiposCapitulos } ITiposCapitulos = interface(IDAStronglyTypedDataTable) - ['{9303AF23-576A-4218-A01D-460C960EE4B3}'] + ['{42253827-AA15-492F-AFAC-257EB0C0F6D7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1358,7 +1386,7 @@ type { IContratosCliente_Detalles } IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{7DA1AFC7-EB2B-4195-8CC5-0AB9E9B72906}'] + ['{4654E368-8185-40CF-AAD9-9233379440E5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1609,7 +1637,7 @@ type { IContratoClienteFacturasProv } IContratoClienteFacturasProv = interface(IDAStronglyTypedDataTable) - ['{92725D42-6696-45DF-9DB5-D9606DF194DD}'] + ['{B6845872-92DB-4F81-8768-8FD56B3FD473}'] { Property getters and setters } function GetID_CONTRATOValue: Integer; procedure SetID_CONTRATOValue(const aValue: Integer); @@ -3318,6 +3346,48 @@ begin DataTable.Fields[idx_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE].AsVariant := Null; end; +function TContratosClienteDataTableRules.GetID_INSTALADORValue: Integer; +begin + result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger; +end; + +procedure TContratosClienteDataTableRules.SetID_INSTALADORValue(const aValue: Integer); +begin + DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger := aValue; +end; + +function TContratosClienteDataTableRules.GetID_INSTALADORIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].IsNull; +end; + +procedure TContratosClienteDataTableRules.SetID_INSTALADORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsVariant := Null; +end; + +function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORValue: String; +begin + result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString; +end; + +procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORValue(const aValue: String); +begin + DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString := aValue; +end; + +function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORIsNull: boolean; +begin + result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].IsNull; +end; + +procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsVariant := Null; +end; + { TTiposCapitulosDataTableRules } constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas index c6c38d6c..fd752b7d 100644 --- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas +++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas @@ -9,19 +9,19 @@ 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_ValoresDelta = '{D65A1140-B47F-4E5C-9F78-5E23024E699F}'; - RID_PropiedadesDelta = '{6F61B397-916F-47F9-8B1F-143BBE4D8761}'; - RID_ListaAnosContratosDelta = '{E49B48FF-2E1A-4370-9CA7-31E903528445}'; - RID_ContratosClienteBeneficiosDelta = '{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}'; - RID_ContratosClienteDelta = '{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}'; - RID_TiposCapitulosDelta = '{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}'; - RID_ContratosCliente_DetallesDelta = '{8CE89C32-E498-4B5A-9083-8C056ABE340F}'; - RID_ContratoClienteFacturasProvDelta = '{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}'; + RID_ValoresDelta = '{3B7D377E-AB81-4975-8494-9821E0FC6AA4}'; + RID_PropiedadesDelta = '{7ECA25E4-73C2-49A4-AD97-52951A70F8BB}'; + RID_ListaAnosContratosDelta = '{AD1A22B8-9535-49EE-AB3D-9CCAFA231A5E}'; + RID_ContratosClienteBeneficiosDelta = '{703EB6BB-27C5-4E04-AB28-7253E5724A2F}'; + RID_ContratosClienteDelta = '{9DE64986-EE28-44BE-BE23-11127CD3AFB0}'; + RID_TiposCapitulosDelta = '{7D66353C-5A18-40C0-8523-6DEB3A54899C}'; + RID_ContratosCliente_DetallesDelta = '{3451CA78-2E5A-4DA1-A8D2-50CA06D86BDD}'; + RID_ContratoClienteFacturasProvDelta = '{95667A5A-0FA5-4E92-A851-F3D3E7C98260}'; type { IValoresDelta } IValoresDelta = interface(IValores) - ['{D65A1140-B47F-4E5C-9F78-5E23024E699F}'] + ['{3B7D377E-AB81-4975-8494-9821E0FC6AA4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_PROPIEDADValue : Integer; @@ -79,7 +79,7 @@ type { IPropiedadesDelta } IPropiedadesDelta = interface(IPropiedades) - ['{6F61B397-916F-47F9-8B1F-143BBE4D8761}'] + ['{7ECA25E4-73C2-49A4-AD97-52951A70F8BB}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -137,7 +137,7 @@ type { IListaAnosContratosDelta } IListaAnosContratosDelta = interface(IListaAnosContratos) - ['{E49B48FF-2E1A-4370-9CA7-31E903528445}'] + ['{AD1A22B8-9535-49EE-AB3D-9CCAFA231A5E}'] { Property getters and setters } function GetOldANOValue : String; @@ -171,7 +171,7 @@ type { IContratosClienteBeneficiosDelta } IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios) - ['{9F4F1DC8-CE07-49F0-93A6-E6780C53CC11}'] + ['{703EB6BB-27C5-4E04-AB28-7253E5724A2F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREFERENCIAValue : String; @@ -385,7 +385,7 @@ type { IContratosClienteDelta } IContratosClienteDelta = interface(IContratosCliente) - ['{CEB5EB7A-F6D6-45BF-82B3-F538011FC1F6}'] + ['{9DE64986-EE28-44BE-BE23-11127CD3AFB0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -437,6 +437,8 @@ type function GetOldREFERENCIA_CLIENTEValue : String; function GetOldLISTA_NOMBRESValue : String; function GetOldFECHA_ULT_PRESENTACION_CLIENTEValue : DateTime; + function GetOldID_INSTALADORValue : Integer; + function GetOldNOMBRE_INSTALADORValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -489,6 +491,8 @@ type property OldREFERENCIA_CLIENTE : String read GetOldREFERENCIA_CLIENTEValue; property OldLISTA_NOMBRES : String read GetOldLISTA_NOMBRESValue; property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue; + property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue; + property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue; end; { TContratosClienteBusinessProcessorRules } @@ -802,6 +806,18 @@ type function GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull: Boolean; virtual; procedure SetFECHA_ULT_PRESENTACION_CLIENTEValue(const aValue: DateTime); virtual; procedure SetFECHA_ULT_PRESENTACION_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetID_INSTALADORValue: Integer; virtual; + function GetID_INSTALADORIsNull: Boolean; virtual; + function GetOldID_INSTALADORValue: Integer; virtual; + function GetOldID_INSTALADORIsNull: Boolean; virtual; + procedure SetID_INSTALADORValue(const aValue: Integer); virtual; + procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual; + function GetNOMBRE_INSTALADORValue: String; virtual; + function GetNOMBRE_INSTALADORIsNull: Boolean; virtual; + function GetOldNOMBRE_INSTALADORValue: String; virtual; + function GetOldNOMBRE_INSTALADORIsNull: Boolean; virtual; + procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual; + procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -1004,6 +1020,14 @@ type property FECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetFECHA_ULT_PRESENTACION_CLIENTEIsNull write SetFECHA_ULT_PRESENTACION_CLIENTEIsNull; property OldFECHA_ULT_PRESENTACION_CLIENTE : DateTime read GetOldFECHA_ULT_PRESENTACION_CLIENTEValue; property OldFECHA_ULT_PRESENTACION_CLIENTEIsNull : Boolean read GetOldFECHA_ULT_PRESENTACION_CLIENTEIsNull; + property ID_INSTALADOR : Integer read GetID_INSTALADORValue write SetID_INSTALADORValue; + property ID_INSTALADORIsNull : Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull; + property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue; + property OldID_INSTALADORIsNull : Boolean read GetOldID_INSTALADORIsNull; + property NOMBRE_INSTALADOR : String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue; + property NOMBRE_INSTALADORIsNull : Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull; + property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue; + property OldNOMBRE_INSTALADORIsNull : Boolean read GetOldNOMBRE_INSTALADORIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -1013,7 +1037,7 @@ type { ITiposCapitulosDelta } ITiposCapitulosDelta = interface(ITiposCapitulos) - ['{7D7EDE09-5AD4-40F0-A2D9-DFB899D5EE0E}'] + ['{7D66353C-5A18-40C0-8523-6DEB3A54899C}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldPOSICIONValue : Integer; @@ -1107,7 +1131,7 @@ type { IContratosCliente_DetallesDelta } IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles) - ['{8CE89C32-E498-4B5A-9083-8C056ABE340F}'] + ['{3451CA78-2E5A-4DA1-A8D2-50CA06D86BDD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTRATOValue : Integer; @@ -1357,7 +1381,7 @@ type { IContratoClienteFacturasProvDelta } IContratoClienteFacturasProvDelta = interface(IContratoClienteFacturasProv) - ['{5C24C33D-2EA7-495D-B98B-546E7EDA1C19}'] + ['{95667A5A-0FA5-4E92-A851-F3D3E7C98260}'] { Property getters and setters } function GetOldID_CONTRATOValue : Integer; function GetOldREFERENCIAValue : String; @@ -3802,6 +3826,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteFECHA_ULT_PRESENTACION_CLIENTE] := Null; end; +function TContratosClienteBusinessProcessorRules.GetID_INSTALADORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR]; +end; + +function TContratosClienteBusinessProcessorRules.GetID_INSTALADORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR]); +end; + +function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR]; +end; + +function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR]); +end; + +procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := aValue; +end; + +procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := Null; +end; + +function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]; +end; + +function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]); +end; + +function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]; +end; + +function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]); +end; + +procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := aValue; +end; + +procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := Null; +end; + { TTiposCapitulosBusinessProcessorRules } constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm index c6365958..44e5161a 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm @@ -491,6 +491,14 @@ object srvContratosCliente: TsrvContratosCliente item DatasetField = 'FECHA_ULT_PRESENTACION_CLIENTE' TableField = 'FECHA_ULT_PRESENTACION_CLIENTE' + end + item + DatasetField = 'ID_INSTALADOR' + TableField = 'ID_INSTALADOR' + end + item + DatasetField = 'NOMBRE_INSTALADOR' + TableField = 'NOMBRE_INSTALADOR' end> end> Name = 'ContratosCliente' @@ -769,6 +777,15 @@ object srvContratosCliente: TsrvContratosCliente item Name = 'FECHA_ULT_PRESENTACION_CLIENTE' DataType = datDateTime + end + item + Name = 'ID_INSTALADOR' + DataType = datInteger + end + item + Name = 'NOMBRE_INSTALADOR' + DataType = datString + Size = 255 end> end item @@ -1321,6 +1338,17 @@ object srvContratosCliente: TsrvContratosCliente Name = 'FECHA_ULT_PRESENTACION_CLIENTE' DataType = datDateTime Value = '' + end + item + Name = 'ID_INSTALADOR' + DataType = datInteger + Value = '' + end + item + Name = 'NOMBRE_INSTALADOR' + DataType = datString + Size = 255 + Value = '' end> Statements = < item @@ -1337,18 +1365,19 @@ object srvContratosCliente: TsrvContratosCliente '_IVA,'#10' IMPORTE_TOTAL, ID_FORMA_PAGO, ID_TIENDA, ID_VENDEDOR,' + ' PERSONA_CONTACTO,'#10' RE, IMPORTE_RE, RECARGO_EQUIVALENCIA, TE' + 'LEFONO, MOVIL, TIPO_CONTRATO, CONDICIONES,'#10' CALIDADES, REFER' + - 'ENCIA_CLIENTE, ID_EMPRESA, FECHA_ULT_PRESENTACION_CLIENTE)'#10' VAL' + - 'UES'#10' (:ID, :ID_CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CA' + - 'LLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_POSTAL, :REFERENCIA, :' + - 'FECHA_CONTRATO, :SITUACION, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :O' + - 'BSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMEST' + - 'AMP,'#10' :USUARIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :' + - 'IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IM' + - 'PORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_' + - 'VENDEDOR, :PERSONA_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALE' + - 'NCIA,'#10' :TELEFONO, :MOVIL, :TIPO_CONTRATO, :CONDICIONES, :CAL' + - 'IDADES, :REFERENCIA_CLIENTE, :ID_EMPRESA, :FECHA_ULT_PRESENTACIO' + - 'N_CLIENTE)'#10#10 + 'ENCIA_CLIENTE, ID_EMPRESA, FECHA_ULT_PRESENTACION_CLIENTE,'#10' ' + + 'ID_INSTALADOR, NOMBRE_INSTALADOR)'#10' VALUES'#10' (:ID, :ID_CLIENTE' + + ', :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINC' + + 'IA,'#10' :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACIO' + + 'N, :FORMA_PAGO,'#10' :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIA' + + 'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPO' + + 'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :' + + 'BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL' + + ', :ID_FORMA_PAGO,'#10' :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTAC' + + 'TO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10' :TELEFONO, :MO' + + 'VIL, :TIPO_CONTRATO, :CONDICIONES, :CALIDADES, :REFERENCIA_CLIEN' + + 'TE, :ID_EMPRESA, :FECHA_ULT_PRESENTACION_CLIENTE,'#10' :ID_INSTA' + + 'LADOR, :NOMBRE_INSTALADOR)'#10#10 StatementType = stSQL ColumnMappings = <> end> @@ -1598,6 +1627,17 @@ object srvContratosCliente: TsrvContratosCliente DataType = datDateTime Value = '' end + item + Name = 'ID_INSTALADOR' + DataType = datInteger + Value = '' + end + item + Name = 'NOMBRE_INSTALADOR' + DataType = datString + Size = 255 + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -1629,7 +1669,9 @@ object srvContratosCliente: TsrvContratosCliente 'NTRATO,'#10' CONDICIONES = :CONDICIONES,'#10' CALIDADES = :CALIDAD' + 'ES,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' ID_EMPRESA' + ' = :ID_EMPRESA,'#10' FECHA_ULT_PRESENTACION_CLIENTE = :FECHA_ULT_' + - 'PRESENTACION_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10#10 + 'PRESENTACION_CLIENTE,'#10' ID_INSTALADOR = :ID_INSTALADOR,'#10' NO' + + 'MBRE_INSTALADOR = :NOMBRE_INSTALADOR'#10' WHERE'#10' (ID = :OLD_ID)'#10 + + #10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj index 90bbb812..1576049d 100644 --- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj +++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj @@ -49,61 +49,68 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorPresupuestoCliente
TfEditorPedidoCliente -
fEditorContratoClienteBeneficios
+
fEditorContratoClienteBeneficio
TFrame @@ -162,13 +169,6 @@
frViewElegirArticulosContratosCliente
TFrame - - - - - - -