From 66719618154b28ad2babfc22131eae37e491b46f Mon Sep 17 00:00:00 2001 From: Andreu Date: Sat, 24 Oct 2020 10:54:20 +0200 Subject: [PATCH 1/3] Test BC17 Add ToolTips Sort Variables, Properties & Procedures --- .vscode/picazin.ruleset.json | 10 - Translations/Extension Manager.es-ES.g.xlf | 804 +++++++++++++++++- Translations/Extension Manager.g.xlf | 676 ++++++++++++++- src/codeunit/EXMAssistedSetup.Codeunit.al | 60 +- .../EXMExtensionManagement.Codeunit.al | 218 ++--- src/codeunit/EXMInstallSetup.Codeunit.al | 20 +- .../EXMRCHeadlinesPageCommon.Codeunit.al | 72 +- src/page/EXMEnumExtValues.Page.al | 11 +- src/page/EXMEnumValues.Page.al | 58 +- src/page/EXMExtensionDepFactbox.Page.al | 7 +- src/page/EXMExtensionDependencies.Page.al | 6 +- src/page/EXMExtensionFactBox.Page.al | 23 +- src/page/EXMExtensionHeader.Page.al | 17 +- src/page/EXMExtensionLines.Page.al | 24 +- src/page/EXMExtensionList.Page.al | 26 +- src/page/EXMExtensionManagerSetup.Page.al | 18 +- src/page/EXMExtensionTreeView.Page.al | 28 +- src/page/EXMExtensionsActivities.Page.al | 2 +- src/page/EXMFieldList.Page.al | 99 ++- src/page/EXMHeadlineRCExtManager.Page.al | 2 +- src/page/EXMObjectDetail.Page.al | 36 +- src/page/EXMRelatedData.Page.al | 3 +- src/page/EXMRelatedDataList.Page.al | 8 +- src/page/EXMRelatedLines.Page.al | 5 +- src/page/EXMRoleCenter.Page.al | 32 +- src/page/EXMSetupWizard.Page.al | 82 +- src/page/EXMTableExtFieldList.Page.al | 18 +- src/page/EXMTableFieldDetail.Page.al | 26 +- src/pageextension/EXMCustomerCard.PageExt.al | 2 +- src/pageextension/EXMCustomerList.PageExt.al | 2 +- src/profile/EXMManager.Profile.al | 6 +- src/table/EXMEnumValues.Table.al | 18 +- src/table/EXMExtensionDependencies.Table.al | 14 +- src/table/EXMExtensionHeader.Table.al | 74 +- src/table/EXMExtensionLines.Table.al | 158 ++-- src/table/EXMExtensionManagerCue.Table.al | 12 +- src/table/EXMExtensionSetup.Table.al | 2 +- src/table/EXMRelatedGroups.Table.al | 2 +- src/table/EXMRelatedLines.Table.al | 2 +- src/table/EXMTableFields.Table.al | 18 +- 40 files changed, 2096 insertions(+), 605 deletions(-) diff --git a/.vscode/picazin.ruleset.json b/.vscode/picazin.ruleset.json index 78719b6..0ddb2d9 100644 --- a/.vscode/picazin.ruleset.json +++ b/.vscode/picazin.ruleset.json @@ -2,11 +2,6 @@ "name": "picazin", "description": "picazin rules", "rules": [ - { - "id": "AA0218", - "action": "Hidden", - "justification": "No efficient - You must write a tooltip in the Tooltip property for all controls of type Action and Field that exist on page objects. See the style guide for more information." - }, { "id": "AA0072", "action": "Hidden", @@ -16,11 +11,6 @@ "id": "AW0006", "action": "Hidden", "justification": "No need all objects to be searchable." - }, - { - "id": "AL0604", - "action": "Hidden", - "justification": "Under Review" } ] } \ No newline at end of file diff --git a/Translations/Extension Manager.es-ES.g.xlf b/Translations/Extension Manager.es-ES.g.xlf index 3437ff5..0e6eb49 100644 --- a/Translations/Extension Manager.es-ES.g.xlf +++ b/Translations/Extension Manager.es-ES.g.xlf @@ -81,18 +81,84 @@ Page EXM Enum Values - Property Caption Enum + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Cód. extensión." + Page EXM Enum Values - Control Extension Code - Property ToolTip + Especifica el valor del campo Cód. extensión. + + + Specifies the value of the Source Line No. field + ESP="Especifica el valor del campo Nº línea origen" + Page EXM Enum Values - Control Source Line No. - Property ToolTip + Especifica el valor del campo Nº línea origen + + + Specifies the value of the Source Type field + ESP="Especifica el valor del campo Tipo origen" + Page EXM Enum Values - Control Source Type - Property ToolTip + Especifica el valor del campo Tipo origen + + + Specifies the value of the Source Enum ID field + ESP="Especifica el valor del campo Id. Enum origen" + Page EXM Enum Values - Control Source Enum ID - Property ToolTip + Especifica el valor del campo Id. Enum origen + + + Specifies the value of the Enum ID field + ESP="Especifica el valor del campo Id. Enum" + Page EXM Enum Values - Control Enum ID - Property ToolTip + Especifica el valor del campo Id. Enum + + + Specifies the value of the Ordinal ID field + ESP="Especifica el valor del campo Id. ordinal" + Page EXM Enum Values - Control Ordinal ID - Property ToolTip + Especifica el valor del campo Id. ordinal + + + Specifies the value of the Enum Value field + ESP="Especifica el valor del campo Valor Enum" + Page EXM Enum Values - Control Enum Value - Property ToolTip + Especifica el valor del campo Valor Enum + + + Specifies the value of the Created by field + ESP="Especifica el valor del campo Creado por" + Page EXM Enum Values - Control Created by - Property ToolTip + Especifica el valor del campo Creado por + + + Specifies the value of the Creation Date field + ESP="Especifica el valor del campo Fecha creación" + Page EXM Enum Values - Control Creation Date - Property ToolTip + Especifica el valor del campo Fecha creación + View / Hide values ESP="Ver / ocultar valores" Page EXM Enum Values - Action AllEnumValues - Property Caption Ver / ocultar valores + + Executes the View / Hide values action to view other values for same table on other extensions. + ESP="Ver / ocultar valores del resto de extensiones para la misma tabla." + Page EXM Enum Values - Action AllEnumValues - Property ToolTip + Ver / ocultar valores del resto de extensiones para la misma tabla. + View source Enum ESP="Ver Enum origen" Page EXM Enum Values - Action ViewSourceEnum - Property Caption Ver Enum origen + + View source Enum values + ESP="Ver valores de Enum origen" + Page EXM Enum Values - Action ViewSourceEnum - Property ToolTip + Ver valores de Enum origen + Extension Dependencies ESP="Dependencias extensión" @@ -101,8 +167,9 @@ Extensión Code - + ESP="Cód. extensión" Table EXM Extension Dependencies - Field Extensión Code - Property Caption + Cód. extensión Customer No. @@ -112,18 +179,21 @@ Line No. - + ESP="Nº línea" Table EXM Extension Dependencies - Field Line No. - Property Caption + Nº línea Dependent Ext. Code - + ESP="Cód. extensión dependiente" Table EXM Extension Dependencies - Field Dependent Ext. Code - Property Caption + Cód. extensión dependiente Dependent Ext. Name - + ESP="Nombre extensión dependiente" Table EXM Extension Dependencies - Field Dependent Ext. Name - Property Caption + Nombre extensión dependiente EXM Extension Dependencies @@ -131,6 +201,18 @@ Page EXM Extension Dependencies - Property Caption Dependencias extensión + + Specifies the value of the Dependent Ext. Code field + ESP="Especifica el valor del campo Cód. extensión dependiente" + Page EXM Extension Dependencies - Control Dependent Ext. Code - Property ToolTip + Especifica el valor del campo Cód. extensión dependiente + + + Specifies the value of the Dependent Ext. Name field + ESP="Especifica el valor del campo Nombre extensión dependiente" + Page EXM Extension Dependencies - Control Dependent Ext. Name - Property ToolTip + Especifica el valor del campo Nombre extensión dependiente + Extension ESP="Extensión" @@ -317,12 +399,6 @@ Table EXM Extension Header - Field GIT Repository URL - Property Caption URL repositorio GIT - - Already exist objects outside range %1 - %2. - ESP="Existen objetos fuera del rango %1 - %2." - Table EXM Extension Header - Method CheckObjectRange - NamedType ObjectIDRangeErr - Existen objetos fuera del rango %1 - %2. - Already exist field IDs on TableExtensions outside range %1 - %2. ESP="Existen IDs de campo en TableExtension fuera del rango %1 - %2." @@ -335,6 +411,12 @@ Table EXM Extension Header - Method CheckObjectRange - NamedType OrdinalIDRangeErr Existen IDs en EnumExtension fuera del rango %1 - %2. + + Already exist objects outside range %1 - %2. + ESP="Existen objetos fuera del rango %1 - %2." + Table EXM Extension Header - Method CheckObjectRange - NamedType ObjectIDRangeErr + Existen objetos fuera del rango %1 - %2. + You cannot rename an %1. ESP="No se puede renombrar una %1" @@ -353,6 +435,48 @@ Page EXM Extension Header - Control Header - Property Caption Información + + Specifies the value of the Code field + ESP="Especifica el valor del campo Código" + Page EXM Extension Header - Control Code - Property ToolTip + Especifica el valor del campo Código + + + Specifies the value of the Description field + ESP="Especifica el valor del campo Descripción" + Page EXM Extension Header - Control Description - Property ToolTip + Especifica el valor del campo Descripción + + + Specifies the value of the App Version field + ESP="Especifica el valor del campo Versión App" + Page EXM Extension Header - Control App Version - Property ToolTip + Especifica el valor del campo Versión App + + + Specifies the value of the Dependencies field + ESP="Especifica el valor del campo Dependencias" + Page EXM Extension Header - Control Dependencies - Property ToolTip + Especifica el valor del campo Dependencias + + + Specifies the value of the Type field + ESP="Especifica el valor del campo Tipo" + Page EXM Extension Header - Control Type - Property ToolTip + Especifica el valor del campo Tipo + + + Specifies the value of the Customer No. field + ESP="Especifica el valor del campo Nº Cliente" + Page EXM Extension Header - Control Customer No. - Property ToolTip + Especifica el valor del campo Nº Cliente + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension Header - Control Customer Name - Property ToolTip + Especifica el valor del campo Nombre + Object Range ESP="Rango objetos" @@ -365,12 +489,30 @@ Page EXM Extension Header - Control Object Starting ID - Property Caption Nº inicial + + Specifies the value of the Starting No. field + ESP="Especifica el valor del campo Nº inicial" + Page EXM Extension Header - Control Object Starting ID - Property ToolTip + Especifica el valor del campo Nº inicial + Ending No. ESP="Nº final" Page EXM Extension Header - Control Object Ending ID - Property Caption Nº final + + Specifies the value of the Ending No. field + ESP="Especifica el valor del campo Nº final" + Page EXM Extension Header - Control Object Ending ID - Property ToolTip + Especifica el valor del campo Nº final + + + Specifies the value of the GIT Repository URL field + ESP="Especifica el valor del campo URL repositorio GIT" + Page EXM Extension Header - Control GIT Repository URL - Property ToolTip + Especifica el valor del campo URL repositorio GIT + %1 should have value. ESP="%1 deberia tener valor." @@ -497,6 +639,65 @@ Page EXM Extension Lines - Property Caption Objetos + + Specifies the value of the Object Type field + ESP="Especifica el valor del campo Tipo objeto" + Page EXM Extension Lines - Control Object Type - Property ToolTip + Especifica el valor del campo Tipo objeto + + + Specifies the value of the Object ID field + ESP="Especifica el valor del campo ID objeto" + Page EXM Extension Lines - Control Object ID - Property ToolTip + Especifica el valor del campo ID objeto + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension Lines - Control Name - Property ToolTip + Especifica el valor del campo Nombre + + + Specifies the value of the Source Object Type field + ESP="Especifica el valor del campo Tipo objeto origen" + Page EXM Extension Lines - Control Source Object Type - Property ToolTip + Especifica el valor del campo Tipo objeto origen + + + Specifies the value of the Source Object ID field + ESP="Especifica el valor del campo ID objeto origen" + Page EXM Extension Lines - Control Source Object ID - Property ToolTip + Especifica el valor del campo ID objeto origen + + + Specifies the value of the Source Name field + ESP="Especifica el valor del campo Nombre Origen" + Page EXM Extension Lines - Control Source Name - Property ToolTip + Especifica el valor del campo Nombre Origen + + + Shows Total related fields', Comment = 'ESP="Muestra el total de Campos relacionados" + + Page EXM Extension Lines - Control Total Fields - Property ToolTip + + + Specifies the value of the Obsolete field + ESP="Especifica el valor del campo Obsoleto" + Page EXM Extension Lines - Control Obsolete - Property ToolTip + Especifica el valor del campo Obsoleto + + + Specifies the value of the Created by field + ESP="Especifica el valor del campo Creado por" + Page EXM Extension Lines - Control Created by - Property ToolTip + Especifica el valor del campo Creado por + + + Specifies the value of the Creation Date field + ESP="Especifica el valor del campo Fecha creación" + Page EXM Extension Lines - Control Creation Date - Property ToolTip + Especifica el valor del campo Fecha creación + View detail ESP="Ver detalle" @@ -655,6 +856,18 @@ Page EXM Related Lines - Property Caption + + Specifies the value of the Table ID field + ESP="Especifica el valor del campo ID Tabla" + Page EXM Related Lines - Control Table ID - Property ToolTip + Especifica el valor del campo ID Tabla + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Related Lines - Control Name - Property ToolTip + Especifica el valor del campo Nombre + Extension Fields ESP="Campos extensión" @@ -775,11 +988,11 @@ Table EXM Table Fields - Method ValidateData - NamedType SelectDataTypeErr Debe seleccionar un tipo de datos. - - Set up Extension Manager - ESP="Configurar Gestor Extensiones" - Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType SetupWizardTxt - Configurar Gestor Extensiones + + Setup is already set up. To change settings for it, go to the setup again. Do you want go there now ? + ESP="La configuración se ha realizado. Desea ejecutar nuevamente?" + Codeunit EXM Assisted Setup - Method OnReRunOfCompletedSetup - NamedType AlreadySetUpQst + La configuración se ha realizado. Desea ejecutar nuevamente? EXM need some amazing information from you to make everything works fine! @@ -787,11 +1000,11 @@ Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType InitialEXMSetupDescTxt EXM necesita pedirte información para funcionar correctamente, Será rápido!! - - Setup is already set up. To change settings for it, go to the setup again. Do you want go there now ? - ESP="La configuración se ha realizado. Desea ejecutar nuevamente?" - Codeunit EXM Assisted Setup - Method OnReRunOfCompletedSetup - NamedType AlreadySetUpQst - La configuración se ha realizado. Desea ejecutar nuevamente? + + Set up Extension Manager + ESP="Configurar Gestor Extensiones" + Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType SetupWizardTxt + Configurar Gestor Extensiones Acording to Microsoft guides, current ID not allowed.Check guide: @@ -804,18 +1017,18 @@ Codeunit EXM Extension Management - Method AllowedObjectsID - NamedType URLLbl - - ID must be on definid object range %1 - %2 - ESP="ID debe estar dentro del rango definido %1 - %2" - Codeunit EXM Extension Management - Method ValidateExtensionRangeID - NamedType IDRangeErr - ID debe estar dentro del rango definido %1 - %2 - %1 used on %2 extension. ESP="%1 usado en extensión %2" Codeunit EXM Extension Management - Method ChechManualObjectID - NamedType ObjectIDErr %1 usado en extensión %2 + + ID must be on definid object range %1 - %2 + ESP="ID debe estar dentro del rango definido %1 - %2" + Codeunit EXM Extension Management - Method ValidateExtensionRangeID - NamedType IDRangeErr + ID debe estar dentro del rango definido %1 - %2 + Want to learn more about EXM? ESP="Desea más información sobre EXM (Extension Manager)?" @@ -828,30 +1041,183 @@ Page EXM EnumExt Values - Property Caption Valores EnumExt + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Código Extensión" + Page EXM EnumExt Values - Control Extension Code - Property ToolTip + Especifica el valor del campo Código Extensión + + + Specifies the value of the Ordinal ID field + ESP="Especifica el valor del campo ID Ordinal" + Page EXM EnumExt Values - Control Ordinal ID - Property ToolTip + Especifica el valor del campo ID Ordinal + + + Specifies the value of the Enum Value field + ESP="Especifica el valor del campo valor Enum" + Page EXM EnumExt Values - Control Enum Value - Property ToolTip + Especifica el valor del campo valor Enum + + + Specifies the value of the Created by field + ESP="Especifica quién creo el registro." + Page EXM EnumExt Values - Control Created by - Property ToolTip + Especifica quién creo el registro. + + + Specifies the value of the Creation Date field + ESP="Especifica la fecha de creación del registro." + Page EXM EnumExt Values - Control Creation Date - Property ToolTip + Especifica la fecha de creación del registro. + Extension dependencies ESP="Dependencias extensión" Page EXM Extension Dep. Factbox - Property Caption Dependencias extensión + + Specifies the value of the Dependent Ext. Code field + ESP="Especifica el valor del campo Cód. extensión dependiente" + Page EXM Extension Dep. Factbox - Control Dependent Ext. Code - Property ToolTip + Especifica el valor del campo Cód. extensión dependiente + + + Specifies the value of the Dependent Ext. Name field + ESP="Especifica el valor del campo Nombre extensión dependiente" + Page EXM Extension Dep. Factbox - Control Dependent Ext. Name - Property ToolTip + Especifica el valor del campo Nombre extensión dependiente + Extension objects detail ESP="Detalle objetos extensión" Page EXM Extension FactBox - Property Caption Detalle objetos extensión + + Shows the No. of Tables in the extension + ESP="Muestra el Nº Tablas en la extensión" + Page EXM Extension FactBox - Control No. of Tables - Property ToolTip + Muestra el Nº Tablas en la extensión + + + Shows the No. of TableExtensions in the extension + ESP="Muestra el Nº TableExtensions en la extensión" + Page EXM Extension FactBox - Control No. of TableExtensions - Property ToolTip + Muestra el Nº TableExtensions en la extensión + + + Shows the No. of Pages in the extension + ESP="Muestra el Nº Pages en la extensión" + Page EXM Extension FactBox - Control No. of Page - Property ToolTip + Muestra el Nº Pages en la extensión + + + Shows the No. of PageExtensions in the extension + ESP ="Muestra el Nº PageExtensions en la extensión" + Page EXM Extension FactBox - Control No. of PageExtensions - Property ToolTip + + + Shows the No. of Codeunits in the extension + ESP ="Muestra el Nº Codeunits en la extensión" + Page EXM Extension FactBox - Control No. of Codeunits - Property ToolTip + + + Shows the No. of Reports in the extension + ESP ="Muestra el Nº Informes en la extensión" + Page EXM Extension FactBox - Control No. of Reports - Property ToolTip + + + Shows the No. of Querys in the extension + ESP ="Muestra el Nº Querys en la extensión" + Page EXM Extension FactBox - Control No. of Querys - Property ToolTip + + + Shows the No. of XMLports in the extension + ESP ="Muestra el Nº XMLports en la extensión" + Page EXM Extension FactBox - Control No. of XMLports - Property ToolTip + + + Shows the No. of Enums in the extension + ESP ="Muestra el Nº Enums en la extensión" + Page EXM Extension FactBox - Control No. of Enums - Property ToolTip + + + Shows the No. of EnumExtensions in the extension + ESP ="Muestra el Nº EnumExtensions en la extensión" + Page EXM Extension FactBox - Control No. of EnumExtensions - Property ToolTip + + + Shows the No. of Profiles in the extension + ESP ="Muestra el Nº Profiles en la extensión" + Page EXM Extension FactBox - Control No. of Profiles - Property ToolTip + + + Shows the No. of ProfileExtensions in the extension + ESP ="Muestra el Nº ProfileExtensions en la extensión" + Page EXM Extension FactBox - Control No. of ProfileExtensions - Property ToolTip + Extension Manager ESP="Gestor Extensiones" Page EXM Extension List - Property Caption Gestor Extensiones + + Specifies the value of the Code field + ESP="Especifica el valor del campo Código" + Page EXM Extension List - Control Code - Property ToolTip + Especifica el valor del campo Código + + + Specifies the value of the Description field + ESP="Especifica el valor del campo Descripción" + Page EXM Extension List - Control Description - Property ToolTip + Especifica el valor del campo Descripción + + + Specifies the value of the Type + ESP="Especifica el valor del campo Tipo" + Page EXM Extension List - Control Type - Property ToolTip + Especifica el valor del campo Tipo + + + Specifies the value of the Customer No. field + ESP="Especifica el valor del campo Nº Cliente" + Page EXM Extension List - Control Customer No. - Property ToolTip + Especifica el valor del campo Nº Cliente + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension List - Control Customer Name - Property ToolTip + Especifica el valor del campo Nombre + + + Specifies the value of the Object Starting ID field + ESP="Especifica el valor del campo Inicio ID objetos" + Page EXM Extension List - Control Object Starting ID - Property ToolTip + Especifica el valor del campo Inicio ID objetos + + + Specifies the value of the Object Ending ID field + ESP="Especifica el valor del campo Final ID objetos" + Page EXM Extension List - Control Object Ending ID - Property ToolTip + Especifica el valor del campo Final ID objetos + Tree view ESP="Vista arbol" Page EXM Extension List - Action TreeView - Property Caption Vista arbol + + Executes the Tree view action + ESP="Ver objectos en Vista arbol" + Page EXM Extension List - Action TreeView - Property ToolTip + Ver objectos en Vista arbol + All,Selected ESP="Todos,Seleccionado" @@ -870,6 +1236,30 @@ Page EXM Extension Manager Setup - Control General - Property Caption General + + Specifies the value of the Extension Nos. field + ESP="Especifica el valor del campo Nº série extensión" + Page EXM Extension Manager Setup - Control Extension Nos. - Property ToolTip + Especifica el valor del campo Nº série extensión + + + Specifies the value of the Object Names field + ESP="Especifica el valor del campo Nombre objetos" + Page EXM Extension Manager Setup - Control Object Names - Property ToolTip + Especifica el valor del campo Nombre objetos + + + Specifies the value of the Default Starting Range field + ESP="Especifica el valor del campo Rango inicial por defecto." + Page EXM Extension Manager Setup - Control Default Object Starting ID - Property ToolTip + Especifica el valor del campo Rango inicial por defecto. + + + Specifies the value of the Default Ending Range field + ESP="Especifica el valor del campo Rango final por defecto" + Page EXM Extension Manager Setup - Control Default Object Ending ID - Property ToolTip + Especifica el valor del campo Rango final por defecto + Always find for possible gaps between IDs. ESP="Buscar siempre huecos entre los ID." @@ -882,6 +1272,18 @@ Page EXM Extension Manager Setup - Control Advanced - Property Caption Opciones avanzadas + + Allow to disable automatic ID assginment for Objects + ESP="Permite deshabilitar la asignación de ID a los objetos" + Page EXM Extension Manager Setup - Control Disable Auto. Objects ID - Property ToolTip + Permite deshabilitar la asignación de ID a los objetos + + + Allow to disable automatic ID assginment for Fields + ESP="Permite deshabilitar la asignación del ID a los campos" + Page EXM Extension Manager Setup - Control Disable Auto. Field ID - Property ToolTip + Permite deshabilitar la asignación del ID a los campos + Donate ESP="Donar" @@ -941,30 +1343,186 @@ Page EXM Extension TreeView - Property Caption + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Cód. extensión" + Page EXM Extension TreeView - Control Extension Code - Property ToolTip + Especifica el valor del campo Cód. extensión + + + Specifies the value of the Object Type field + ESP="Especifica el valor del campo Tipo objeto" + Page EXM Extension TreeView - Control Object Type - Property ToolTip + Especifica el valor del campo Tipo objeto + + + Specifies the value of the Object ID field + ESP="Especifica el valor del campo ID objeto" + Page EXM Extension TreeView - Control Object ID - Property ToolTip + Especifica el valor del campo ID objeto + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension TreeView - Control Name - Property ToolTip + Especifica el valor del campo Nombre + + + Specifies the value of the Source Object ID field + ESP="Especifica el valor del campo ID objeto origen" + Page EXM Extension TreeView - Control Source Object ID - Property ToolTip + Especifica el valor del campo ID objeto origen + + + Specifies the value of the Source Object Type field + ESP="Especifica el valor del campo Tipo objeto origen" + Page EXM Extension TreeView - Control Source Object Type - Property ToolTip + Especifica el valor del campo Tipo objeto origen + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension TreeView - Control Source Name - Property ToolTip + Especifica el valor del campo Nombre + Level ESP="Nivel" Page EXM Extension TreeView - Control Total Fields - Property Caption Nivel + + Specifies the value of the Level field + ESP="Especifica el valor del campo Nivel" + Page EXM Extension TreeView - Control Total Fields - Property ToolTip + Especifica el valor del campo Nivel + + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Cód. extensión" + Page EXM Field List - Control Extension Code - Property ToolTip + Especifica el valor del campo Cód. extensión + + + Specifies the value of the Source Line No. field + ESP="Especifica el valor del campo Nº línea origen" + Page EXM Field List - Control Source Line No. - Property ToolTip + Especifica el valor del campo Nº línea origen + + + Specifies the value of the Source Object Type field + ESP="Especifica el valor del campo Tipo objeto origen" + Page EXM Field List - Control Table Source Type - Property ToolTip + Especifica el valor del campo Tipo objeto origen + + + Specifies the value of the Source Table ID field + ESP="Especifica el valor del campo Id. tabla origen" + Page EXM Field List - Control Source Table ID - Property ToolTip + Especifica el valor del campo Id. tabla origen + + + Specifies the value of the Table ID field + ESP="Especifica el valor del campo Id. tabla" + Page EXM Field List - Control Table ID - Property ToolTip + Especifica el valor del campo Id. tabla + + + Specifies the value of the Is Part Of Primary Key field + ESP="Especifica el valor del campo Forma parte clave primária" + Page EXM Field List - Control IsPK - Property ToolTip + Especifica el valor del campo Forma parte clave primária + + + Specifies the value of the Field ID field + ESP="Especifica el valor del campo Id. campo" + Page EXM Field List - Control Field ID - Property ToolTip + Especifica el valor del campo Id. campo + + + Specifies the value of the Field Name field + ESP="Especifica el valor del campo Nombre de campo" + Page EXM Field List - Control Field Name - Property ToolTip + Especifica el valor del campo Nombre de campo + + + Specifies the value of the Data Type field + ESP="Especifica el valor del campo Tipo datos" + Page EXM Field List - Control Data Type - Property ToolTip + Especifica el valor del campo Tipo datos + + + Specifies the value of the Lenght field + ESP="Especifica el valor del campo Longitud" + Page EXM Field List - Control Lenght - Property ToolTip + Especifica el valor del campo Longitud + + + Specifies the value of the Field Class field + ESP="Especifica el valor del campo Clase campo" + Page EXM Field List - Control Field Class - Property ToolTip + Especifica el valor del campo Clase campo + + + Specifies the value of the Option String field + ESP="Especifica el valor del campo Texto opciones" + Page EXM Field List - Control Option String - Property ToolTip + Especifica el valor del campo Texto opciones + + + Specifies the value of the Obsolete field + ESP="Especifica el valor del campo Obsoleto" + Page EXM Field List - Control Obsolete - Property ToolTip + Especifica el valor del campo Obsoleto + + + Specifies the value of the Created by field + ESP="Especifica el valor del campo Creado por" + Page EXM Field List - Control Created by - Property ToolTip + Especifica el valor del campo Creado por + + + Specifies the value of the Creation Date field + ESP="Especifica el valor del campo Fecha creación" + Page EXM Field List - Control Creation Date - Property ToolTip + Especifica el valor del campo Fecha creación + View / Hide fields ESP="Ver / ocultar campos" Page EXM Field List - Action AllFields - Property Caption Ver / ocultar campos + + View / Hide fields of selected table for other extensions + ESP="Ver / ocultar campos de tabla en otras extensiones" + Page EXM Field List - Action AllFields - Property ToolTip + Ver / ocultar campos de tabla en otras extensiones + View source table ESP="Ver tabla origen" Page EXM Field List - Action ViewSourceTable - Property Caption Ver tabla origen + + View source table fields + ESP="Muestra los campos de la tabla de origen" + Page EXM Field List - Action ViewSourceTable - Property ToolTip + Muestra los campos de la tabla de origen + Add to Related Tables ESP="Añadir a tablas relacionadas" Page EXM Field List - Action AddRelField - Property Caption Añadir a tablas relacionadas + + Add current field to defined related tables + ESP="Añade campo actual a tablas relacionadas definidas" + Page EXM Field List - Action AddRelField - Property ToolTip + Añade campo actual a tablas relacionadas definidas + Primary key must be set. ESP="Se debe indicar clave primária" @@ -984,7 +1542,7 @@ Bienvenida! - Welcome message. If pressed go to picazin.dev website + Welcome message. If pressed opens picazin.dev website ESP="Mensaje de bienvenida. Visitar picazin.dev si pulsamos." Page EXM Headline RC Ext. Manager - Control GreetingText - Property ToolTip Mensaje de bienvenida. Visitar picazin.dev si pulsamos. @@ -1007,12 +1565,66 @@ Page EXM Object Detail - Property Caption Detalle Objetos + + Specifies the value of the Object Type field + ESP="Especifica el valor del campo Tipo objeto" + Page EXM Object Detail - Control Object Type - Property ToolTip + Especifica el valor del campo Tipo objeto + + + Specifies the value of the Object ID field + ESP="Especifica el valor del campo ID objeto" + Page EXM Object Detail - Control Object ID - Property ToolTip + Especifica el valor del campo ID objeto + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Object Detail - Control Name - Property ToolTip + Especifica el valor del campo Nombre + + + Specifies the value of the Source Object Type field + ESP="Especifica el valor del campo Tipo objeto origen" + Page EXM Object Detail - Control Source Object Type - Property ToolTip + Especifica el valor del campo Tipo objeto origen + + + Specifies the value of the Source Object ID field + ESP="Especifica el valor del campo ID objeto origen" + Page EXM Object Detail - Control Source Object ID - Property ToolTip + Especifica el valor del campo ID objeto origen + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre Origen" + Page EXM Object Detail - Control Source Name - Property ToolTip + "Especifica el valor del campo Nombre Origen" + + + Shows the value of the Total fields field + ESP="Especifica el valor del campo Campos relacionados" + Page EXM Object Detail - Control Total Fields - Property ToolTip + Especifica el valor del campo Campos relacionados + EXM - Create fields on related tables ESP="EXM - Crear campos en tablas relacionadas" Page EXM Related Data - Property Caption EXM - Crear campos en tablas relacionadas + + Specifies the value of the Code field + ESP="Especifica el valor del campo Código" + Page EXM Related Data - Control Code - Property ToolTip + Especifica el valor del campo Código + + + Specifies the value of the Description field + ESP="Especifica el valor del campo Descripción" + Page EXM Related Data - Control Description - Property ToolTip + Especifica el valor del campo Descripción + Related tables ESP="Tablas relacionadas" @@ -1025,6 +1637,24 @@ Page EXM Related Data List - Property Caption EXM Campos tablas relacionadas + + Specifies the value of the Code field + ESP="Especifica el valor del campo Código" + Page EXM Related Data List - Control Code - Property ToolTip + Especifica el valor del campo Código + + + Specifies the value of the Description field + ESP="Especifica el valor del campo Descripción" + Page EXM Related Data List - Control Description - Property ToolTip + Especifica el valor del campo Descripción + + + Specifies the value of the Related Tables No. field + ESP="Muestra el Nº tablas relacionadas" + Page EXM Related Data List - Control Related Tables No. - Property ToolTip + Muestra el Nº tablas relacionadas + EXtension Manager ESP="Gestor Extensiones" @@ -1361,12 +1991,132 @@ Page EXM TableExt Field List - Property Caption Campos TableExtensions + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Cód. extensión" + Page EXM TableExt Field List - Control Extension Code - Property ToolTip + Especifica el valor del campo Cód. extensión + + + Specifies the value of the Source Table ID field + ESP="Especifica el valor del campo Id. tabla origen" + Page EXM TableExt Field List - Control Source Table ID - Property ToolTip + Especifica el valor del campo Id. tabla origen + + + Specifies the value of the Table ID field + ESP="Especifica el valor del campo Id. tabla" + Page EXM TableExt Field List - Control Table ID - Property ToolTip + Especifica el valor del campo Id. tabla + + + Specifies the value of the Field ID field + ESP="Especifica el valor del campo Id. campo" + Page EXM TableExt Field List - Control Field ID - Property ToolTip + Especifica el valor del campo Id. campo + + + Specifies the value of the Field Name field + ESP="Especifica el valor del campo Nombre de campo" + Page EXM TableExt Field List - Control Field Name - Property ToolTip + Especifica el valor del campo Nombre de campo + + + Specifies the value of the Data Type field + ESP="Especifica el valor del campo Tipo datos" + Page EXM TableExt Field List - Control Data Type - Property ToolTip + Especifica el valor del campo Tipo datos + + + Specifies the value of the Lenght field + ESP="Especifica el valor del campo Longitud" + Page EXM TableExt Field List - Control Lenght - Property ToolTip + Especifica el valor del campo Longitud + + + Specifies the value of the Field Class field + ESP="Especifica el valor del campo Clase campo" + Page EXM TableExt Field List - Control Field Class - Property ToolTip + Especifica el valor del campo Clase campo + + + Specifies the value of the Option String field + ESP="Especifica el valor del campo Texto opciones" + Page EXM TableExt Field List - Control Option String - Property ToolTip + Especifica el valor del campo Texto opciones + + + Specifies the value of the Obsolete field + ESP="Especifica el valor del campo Obsoleto" + Page EXM TableExt Field List - Control Obsolete - Property ToolTip + Especifica el valor del campo Obsoleto + + + Specifies the value of the Created by field + ESP="Especifica el valor del campo Creado por" + Page EXM TableExt Field List - Control Created by - Property ToolTip + Especifica el valor del campo Creado por + + + Specifies the value of the Creation Date field + ESP="Especifica el valor del campo Fecha creación" + Page EXM TableExt Field List - Control Creation Date - Property ToolTip + Especifica el valor del campo Fecha creación + Table Fields ESP="Campos Tabla" Page EXM Table Field Detail - Property Caption Campos Tabla + + Specifies the value of the Field ID field + ESP="Especifica el valor del campo Id. campo" + Page EXM Table Field Detail - Control Field ID - Property ToolTip + Especifica el valor del campo Id. campo + + + Specifies the value of the Field Name field + ESP="Especifica el valor del campo Nombre de campo" + Page EXM Table Field Detail - Control Field Name - Property ToolTip + Especifica el valor del campo Nombre de campo + + + Specifies the value of the Field Caption field + ESP="Especifica el valor del campo Título campo" + Page EXM Table Field Detail - Control Field Caption - Property ToolTip + Especifica el valor del campo Título campo + + + Specifies the value of the Data Type field + ESP="Especifica el valor del campo Tipo datos" + Page EXM Table Field Detail - Control Data Type - Property ToolTip + Especifica el valor del campo Tipo datos + + + Specifies the value of the Lenght field + ESP="Especifica el valor del campo Longitud" + Page EXM Table Field Detail - Control Lenght - Property ToolTip + Especifica el valor del campo Longitud + + + Specifies the value of the Field Class field + ESP="Especifica el valor del campo Clase campo" + Page EXM Table Field Detail - Control Field Class - Property ToolTip + Especifica el valor del campo Clase campo + + + Specifies the value of the Option String field + ESP="Especifica el valor del campo Texto opciones" + Page EXM Table Field Detail - Control Option String - Property ToolTip + Especifica el valor del campo Texto opciones + + + Specifies the value of the Obsolete field + ESP="Especifica el valor del campo Obsoleto" + Page EXM Table Field Detail - Control Obsolete - Property ToolTip + Especifica el valor del campo Obsoleto + Extensions ESP="Extensiones" diff --git a/Translations/Extension Manager.g.xlf b/Translations/Extension Manager.g.xlf index 1561d79..ab7d913 100644 --- a/Translations/Extension Manager.g.xlf +++ b/Translations/Extension Manager.g.xlf @@ -68,16 +68,71 @@ ESP="Enum" Page EXM Enum Values - Property Caption + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Cód. extensión." + Page EXM Enum Values - Control Extension Code - Property ToolTip + + + Specifies the value of the Source Line No. field + ESP="Especifica el valor del campo Nº línea origen" + Page EXM Enum Values - Control Source Line No. - Property ToolTip + + + Specifies the value of the Source Type field + ESP="Especifica el valor del campo Tipo origen" + Page EXM Enum Values - Control Source Type - Property ToolTip + + + Specifies the value of the Source Enum ID field + ESP="Especifica el valor del campo Id. Enum origen" + Page EXM Enum Values - Control Source Enum ID - Property ToolTip + + + Specifies the value of the Enum ID field + ESP="Especifica el valor del campo Id. Enum" + Page EXM Enum Values - Control Enum ID - Property ToolTip + + + Specifies the value of the Ordinal ID field + ESP="Especifica el valor del campo Id. ordinal" + Page EXM Enum Values - Control Ordinal ID - Property ToolTip + + + Specifies the value of the Enum Value field + ESP="Especifica el valor del campo Valor Enum" + Page EXM Enum Values - Control Enum Value - Property ToolTip + + + Specifies the value of the Created by field + ESP="Especifica el valor del campo Creado por" + Page EXM Enum Values - Control Created by - Property ToolTip + + + Specifies the value of the Creation Date field + ESP="Especifica el valor del campo Fecha creación" + Page EXM Enum Values - Control Creation Date - Property ToolTip + View / Hide values ESP="Ver / ocultar valores" Page EXM Enum Values - Action AllEnumValues - Property Caption + + Executes the View / Hide values action to view other values for same table on other extensions. + ESP="Ver / ocultar valores del resto de extensiones para la misma tabla." + Page EXM Enum Values - Action AllEnumValues - Property ToolTip + View source Enum ESP="Ver Enum origen" Page EXM Enum Values - Action ViewSourceEnum - Property Caption + + View source Enum values + ESP="Ver valores de Enum origen" + Page EXM Enum Values - Action ViewSourceEnum - Property ToolTip + Extension Dependencies ESP="Dependencias extensión" @@ -85,7 +140,7 @@ Extensión Code - + ESP="Cód. extensión" Table EXM Extension Dependencies - Field Extensión Code - Property Caption @@ -95,17 +150,17 @@ Line No. - + ESP="Nº línea" Table EXM Extension Dependencies - Field Line No. - Property Caption Dependent Ext. Code - + ESP="Cód. extensión dependiente" Table EXM Extension Dependencies - Field Dependent Ext. Code - Property Caption Dependent Ext. Name - + ESP="Nombre extensión dependiente" Table EXM Extension Dependencies - Field Dependent Ext. Name - Property Caption @@ -113,6 +168,16 @@ ESP="Dependencias extensión" Page EXM Extension Dependencies - Property Caption + + Specifies the value of the Dependent Ext. Code field + ESP="Especifica el valor del campo Cód. extensión dependiente" + Page EXM Extension Dependencies - Control Dependent Ext. Code - Property ToolTip + + + Specifies the value of the Dependent Ext. Name field + ESP="Especifica el valor del campo Nombre extensión dependiente" + Page EXM Extension Dependencies - Control Dependent Ext. Name - Property ToolTip + Extension ESP="Extensión" @@ -268,11 +333,6 @@ ESP="URL repositorio GIT" Table EXM Extension Header - Field GIT Repository URL - Property Caption - - Already exist objects outside range %1 - %2. - ESP="Existen objetos fuera del rango %1 - %2." - Table EXM Extension Header - Method CheckObjectRange - NamedType ObjectIDRangeErr - Already exist field IDs on TableExtensions outside range %1 - %2. ESP="Existen IDs de campo en TableExtension fuera del rango %1 - %2." @@ -283,6 +343,11 @@ ESP="Existen IDs en EnumExtension fuera del rango %1 - %2." Table EXM Extension Header - Method CheckObjectRange - NamedType OrdinalIDRangeErr + + Already exist objects outside range %1 - %2. + ESP="Existen objetos fuera del rango %1 - %2." + Table EXM Extension Header - Method CheckObjectRange - NamedType ObjectIDRangeErr + You cannot rename an %1. ESP="No se puede renombrar una %1" @@ -298,11 +363,46 @@ ESP="Información" Page EXM Extension Header - Control Header - Property Caption + + Specifies the value of the Code field + ESP="Especifica el valor del campo Código" + Page EXM Extension Header - Control Code - Property ToolTip + + + Specifies the value of the Description field + ESP="Especifica el valor del campo Descripción" + Page EXM Extension Header - Control Description - Property ToolTip + + + Specifies the value of the App Version field + ESP="Especifica el valor del campo Versión App" + Page EXM Extension Header - Control App Version - Property ToolTip + + + Specifies the value of the Dependencies field + ESP="Especifica el valor del campo Dependencias" + Page EXM Extension Header - Control Dependencies - Property ToolTip + Target Destino Page EXM Extension Header - Control Target - Property Caption + + Specifies the value of the Type field + ESP="Especifica el valor del campo Tipo" + Page EXM Extension Header - Control Type - Property ToolTip + + + Specifies the value of the Customer No. field + ESP="Especifica el valor del campo Nº Cliente" + Page EXM Extension Header - Control Customer No. - Property ToolTip + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension Header - Control Customer Name - Property ToolTip + Object Range ESP="Rango objetos" @@ -313,11 +413,26 @@ ESP="Nº inicial" Page EXM Extension Header - Control Object Starting ID - Property Caption + + Specifies the value of the Starting No. field + ESP="Especifica el valor del campo Nº inicial" + Page EXM Extension Header - Control Object Starting ID - Property ToolTip + Ending No. ESP="Nº final" Page EXM Extension Header - Control Object Ending ID - Property Caption + + Specifies the value of the Ending No. field + ESP="Especifica el valor del campo Nº final" + Page EXM Extension Header - Control Object Ending ID - Property ToolTip + + + Specifies the value of the GIT Repository URL field + ESP="Especifica el valor del campo URL repositorio GIT" + Page EXM Extension Header - Control GIT Repository URL - Property ToolTip + %1 should have value. ESP="%1 deberia tener valor." @@ -423,6 +538,56 @@ ESP="Objetos" Page EXM Extension Lines - Property Caption + + Specifies the value of the Object Type field + ESP="Especifica el valor del campo Tipo objeto" + Page EXM Extension Lines - Control Object Type - Property ToolTip + + + Specifies the value of the Object ID field + ESP="Especifica el valor del campo ID objeto" + Page EXM Extension Lines - Control Object ID - Property ToolTip + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension Lines - Control Name - Property ToolTip + + + Specifies the value of the Source Object Type field + ESP="Especifica el valor del campo Tipo objeto origen" + Page EXM Extension Lines - Control Source Object Type - Property ToolTip + + + Specifies the value of the Source Object ID field + ESP="Especifica el valor del campo ID objeto origen" + Page EXM Extension Lines - Control Source Object ID - Property ToolTip + + + Specifies the value of the Source Name field + ESP="Especifica el valor del campo Nombre Origen" + Page EXM Extension Lines - Control Source Name - Property ToolTip + + + Shows Total related fields', Comment = 'ESP="Muestra el total de Campos relacionados" + + Page EXM Extension Lines - Control Total Fields - Property ToolTip + + + Specifies the value of the Obsolete field + ESP="Especifica el valor del campo Obsoleto" + Page EXM Extension Lines - Control Obsolete - Property ToolTip + + + Specifies the value of the Created by field + ESP="Especifica el valor del campo Creado por" + Page EXM Extension Lines - Control Created by - Property ToolTip + + + Specifies the value of the Creation Date field + ESP="Especifica el valor del campo Fecha creación" + Page EXM Extension Lines - Control Creation Date - Property ToolTip + View detail ESP="Ver detalle" @@ -558,6 +723,16 @@ Page EXM Related Lines - Property Caption + + Specifies the value of the Table ID field + ESP="Especifica el valor del campo ID Tabla" + Page EXM Related Lines - Control Table ID - Property ToolTip + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Related Lines - Control Name - Property ToolTip + Extension Fields ESP="Campos extensión" @@ -658,20 +833,20 @@ ESP="Debe seleccionar un tipo de datos." Table EXM Table Fields - Method ValidateData - NamedType SelectDataTypeErr - - Set up Extension Manager - ESP="Configurar Gestor Extensiones" - Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType SetupWizardTxt + + Setup is already set up. To change settings for it, go to the setup again. Do you want go there now ? + ESP="La configuración se ha realizado. Desea ejecutar nuevamente?" + Codeunit EXM Assisted Setup - Method OnReRunOfCompletedSetup - NamedType AlreadySetUpQst EXM need some amazing information from you to make everything works fine! ESP="EXM necesita pedirte información para funcionar correctamente, Será rápido!!" Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType InitialEXMSetupDescTxt - - Setup is already set up. To change settings for it, go to the setup again. Do you want go there now ? - ESP="La configuración se ha realizado. Desea ejecutar nuevamente?" - Codeunit EXM Assisted Setup - Method OnReRunOfCompletedSetup - NamedType AlreadySetUpQst + + Set up Extension Manager + ESP="Configurar Gestor Extensiones" + Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType SetupWizardTxt Acording to Microsoft guides, current ID not allowed.Check guide: @@ -683,16 +858,16 @@ Codeunit EXM Extension Management - Method AllowedObjectsID - NamedType URLLbl - - ID must be on definid object range %1 - %2 - ESP="ID debe estar dentro del rango definido %1 - %2" - Codeunit EXM Extension Management - Method ValidateExtensionRangeID - NamedType IDRangeErr - %1 used on %2 extension. ESP="%1 usado en extensión %2" Codeunit EXM Extension Management - Method ChechManualObjectID - NamedType ObjectIDErr + + ID must be on definid object range %1 - %2 + ESP="ID debe estar dentro del rango definido %1 - %2" + Codeunit EXM Extension Management - Method ValidateExtensionRangeID - NamedType IDRangeErr + Want to learn more about EXM? ESP="Desea más información sobre EXM (Extension Manager)?" @@ -703,26 +878,161 @@ ESP="Valores EnumExt" Page EXM EnumExt Values - Property Caption + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Código Extensión" + Page EXM EnumExt Values - Control Extension Code - Property ToolTip + + + Specifies the value of the Ordinal ID field + ESP="Especifica el valor del campo ID Ordinal" + Page EXM EnumExt Values - Control Ordinal ID - Property ToolTip + + + Specifies the value of the Enum Value field + ESP="Especifica el valor del campo valor Enum" + Page EXM EnumExt Values - Control Enum Value - Property ToolTip + + + Specifies the value of the Created by field + ESP="Especifica quién creo el registro." + Page EXM EnumExt Values - Control Created by - Property ToolTip + + + Specifies the value of the Creation Date field + ESP="Especifica la fecha de creación del registro." + Page EXM EnumExt Values - Control Creation Date - Property ToolTip + Extension dependencies ESP="Dependencias extensión" Page EXM Extension Dep. Factbox - Property Caption + + Specifies the value of the Dependent Ext. Code field + ESP="Especifica el valor del campo Cód. extensión dependiente" + Page EXM Extension Dep. Factbox - Control Dependent Ext. Code - Property ToolTip + + + Specifies the value of the Dependent Ext. Name field + ESP="Especifica el valor del campo Nombre extensión dependiente" + Page EXM Extension Dep. Factbox - Control Dependent Ext. Name - Property ToolTip + Extension objects detail ESP="Detalle objetos extensión" Page EXM Extension FactBox - Property Caption + + Shows the No. of Tables in the extension + ESP="Muestra el Nº Tablas en la extensión" + Page EXM Extension FactBox - Control No. of Tables - Property ToolTip + + + Shows the No. of TableExtensions in the extension + ESP="Muestra el Nº TableExtensions en la extensión" + Page EXM Extension FactBox - Control No. of TableExtensions - Property ToolTip + + + Shows the No. of Pages in the extension + ESP="Muestra el Nº Pages en la extensión" + Page EXM Extension FactBox - Control No. of Page - Property ToolTip + + + Shows the No. of PageExtensions in the extension + ESP ="Muestra el Nº PageExtensions en la extensión" + Page EXM Extension FactBox - Control No. of PageExtensions - Property ToolTip + + + Shows the No. of Codeunits in the extension + ESP ="Muestra el Nº Codeunits en la extensión" + Page EXM Extension FactBox - Control No. of Codeunits - Property ToolTip + + + Shows the No. of Reports in the extension + ESP ="Muestra el Nº Informes en la extensión" + Page EXM Extension FactBox - Control No. of Reports - Property ToolTip + + + Shows the No. of Querys in the extension + ESP ="Muestra el Nº Querys en la extensión" + Page EXM Extension FactBox - Control No. of Querys - Property ToolTip + + + Shows the No. of XMLports in the extension + ESP ="Muestra el Nº XMLports en la extensión" + Page EXM Extension FactBox - Control No. of XMLports - Property ToolTip + + + Shows the No. of Enums in the extension + ESP ="Muestra el Nº Enums en la extensión" + Page EXM Extension FactBox - Control No. of Enums - Property ToolTip + + + Shows the No. of EnumExtensions in the extension + ESP ="Muestra el Nº EnumExtensions en la extensión" + Page EXM Extension FactBox - Control No. of EnumExtensions - Property ToolTip + + + Shows the No. of Profiles in the extension + ESP ="Muestra el Nº Profiles en la extensión" + Page EXM Extension FactBox - Control No. of Profiles - Property ToolTip + + + Shows the No. of ProfileExtensions in the extension + ESP ="Muestra el Nº ProfileExtensions en la extensión" + Page EXM Extension FactBox - Control No. of ProfileExtensions - Property ToolTip + Extension Manager ESP="Gestor Extensiones" Page EXM Extension List - Property Caption + + Specifies the value of the Code field + ESP="Especifica el valor del campo Código" + Page EXM Extension List - Control Code - Property ToolTip + + + Specifies the value of the Description field + ESP="Especifica el valor del campo Descripción" + Page EXM Extension List - Control Description - Property ToolTip + + + Specifies the value of the Type + ESP="Especifica el valor del campo Tipo" + Page EXM Extension List - Control Type - Property ToolTip + + + Specifies the value of the Customer No. field + ESP="Especifica el valor del campo Nº Cliente" + Page EXM Extension List - Control Customer No. - Property ToolTip + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension List - Control Customer Name - Property ToolTip + + + Specifies the value of the Object Starting ID field + ESP="Especifica el valor del campo Inicio ID objetos" + Page EXM Extension List - Control Object Starting ID - Property ToolTip + + + Specifies the value of the Object Ending ID field + ESP="Especifica el valor del campo Final ID objetos" + Page EXM Extension List - Control Object Ending ID - Property ToolTip + Tree view ESP="Vista arbol" Page EXM Extension List - Action TreeView - Property Caption + + Executes the Tree view action + ESP="Ver objectos en Vista arbol" + Page EXM Extension List - Action TreeView - Property ToolTip + All,Selected ESP="Todos,Seleccionado" @@ -738,6 +1048,26 @@ ESP="General" Page EXM Extension Manager Setup - Control General - Property Caption + + Specifies the value of the Extension Nos. field + ESP="Especifica el valor del campo Nº série extensión" + Page EXM Extension Manager Setup - Control Extension Nos. - Property ToolTip + + + Specifies the value of the Object Names field + ESP="Especifica el valor del campo Nombre objetos" + Page EXM Extension Manager Setup - Control Object Names - Property ToolTip + + + Specifies the value of the Default Starting Range field + ESP="Especifica el valor del campo Rango inicial por defecto." + Page EXM Extension Manager Setup - Control Default Object Starting ID - Property ToolTip + + + Specifies the value of the Default Ending Range field + ESP="Especifica el valor del campo Rango final por defecto" + Page EXM Extension Manager Setup - Control Default Object Ending ID - Property ToolTip + Always find for possible gaps between IDs. ESP="Buscar siempre huecos entre los ID." @@ -748,6 +1078,16 @@ ESP="Opciones avanzadas" Page EXM Extension Manager Setup - Control Advanced - Property Caption + + Allow to disable automatic ID assginment for Objects + ESP="Permite deshabilitar la asignación de ID a los objetos" + Page EXM Extension Manager Setup - Control Disable Auto. Objects ID - Property ToolTip + + + Allow to disable automatic ID assginment for Fields + ESP="Permite deshabilitar la asignación del ID a los campos" + Page EXM Extension Manager Setup - Control Disable Auto. Field ID - Property ToolTip + Donate ESP="Donar" @@ -798,26 +1138,156 @@ Page EXM Extension TreeView - Property Caption + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Cód. extensión" + Page EXM Extension TreeView - Control Extension Code - Property ToolTip + + + Specifies the value of the Object Type field + ESP="Especifica el valor del campo Tipo objeto" + Page EXM Extension TreeView - Control Object Type - Property ToolTip + + + Specifies the value of the Object ID field + ESP="Especifica el valor del campo ID objeto" + Page EXM Extension TreeView - Control Object ID - Property ToolTip + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension TreeView - Control Name - Property ToolTip + + + Specifies the value of the Source Object ID field + ESP="Especifica el valor del campo ID objeto origen" + Page EXM Extension TreeView - Control Source Object ID - Property ToolTip + + + Specifies the value of the Source Object Type field + ESP="Especifica el valor del campo Tipo objeto origen" + Page EXM Extension TreeView - Control Source Object Type - Property ToolTip + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Extension TreeView - Control Source Name - Property ToolTip + Level ESP="Nivel" Page EXM Extension TreeView - Control Total Fields - Property Caption + + Specifies the value of the Level field + ESP="Especifica el valor del campo Nivel" + Page EXM Extension TreeView - Control Total Fields - Property ToolTip + + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Cód. extensión" + Page EXM Field List - Control Extension Code - Property ToolTip + + + Specifies the value of the Source Line No. field + ESP="Especifica el valor del campo Nº línea origen" + Page EXM Field List - Control Source Line No. - Property ToolTip + + + Specifies the value of the Source Object Type field + ESP="Especifica el valor del campo Tipo objeto origen" + Page EXM Field List - Control Table Source Type - Property ToolTip + + + Specifies the value of the Source Table ID field + ESP="Especifica el valor del campo Id. tabla origen" + Page EXM Field List - Control Source Table ID - Property ToolTip + + + Specifies the value of the Table ID field + ESP="Especifica el valor del campo Id. tabla" + Page EXM Field List - Control Table ID - Property ToolTip + + + Specifies the value of the Is Part Of Primary Key field + ESP="Especifica el valor del campo Forma parte clave primária" + Page EXM Field List - Control IsPK - Property ToolTip + + + Specifies the value of the Field ID field + ESP="Especifica el valor del campo Id. campo" + Page EXM Field List - Control Field ID - Property ToolTip + + + Specifies the value of the Field Name field + ESP="Especifica el valor del campo Nombre de campo" + Page EXM Field List - Control Field Name - Property ToolTip + + + Specifies the value of the Data Type field + ESP="Especifica el valor del campo Tipo datos" + Page EXM Field List - Control Data Type - Property ToolTip + + + Specifies the value of the Lenght field + ESP="Especifica el valor del campo Longitud" + Page EXM Field List - Control Lenght - Property ToolTip + + + Specifies the value of the Field Class field + ESP="Especifica el valor del campo Clase campo" + Page EXM Field List - Control Field Class - Property ToolTip + + + Specifies the value of the Option String field + ESP="Especifica el valor del campo Texto opciones" + Page EXM Field List - Control Option String - Property ToolTip + + + Specifies the value of the Obsolete field + ESP="Especifica el valor del campo Obsoleto" + Page EXM Field List - Control Obsolete - Property ToolTip + + + Specifies the value of the Created by field + ESP="Especifica el valor del campo Creado por" + Page EXM Field List - Control Created by - Property ToolTip + + + Specifies the value of the Creation Date field + ESP="Especifica el valor del campo Fecha creación" + Page EXM Field List - Control Creation Date - Property ToolTip + View / Hide fields ESP="Ver / ocultar campos" Page EXM Field List - Action AllFields - Property Caption + + View / Hide fields of selected table for other extensions + ESP="Ver / ocultar campos de tabla en otras extensiones" + Page EXM Field List - Action AllFields - Property ToolTip + View source table ESP="Ver tabla origen" Page EXM Field List - Action ViewSourceTable - Property Caption + + View source table fields + ESP="Muestra los campos de la tabla de origen" + Page EXM Field List - Action ViewSourceTable - Property ToolTip + Add to Related Tables ESP="Añadir a tablas relacionadas" Page EXM Field List - Action AddRelField - Property Caption + + Add current field to defined related tables + ESP="Añade campo actual a tablas relacionadas definidas" + Page EXM Field List - Action AddRelField - Property ToolTip + Primary key must be set. ESP="Se debe indicar clave primária" @@ -834,7 +1304,7 @@ Page EXM Headline RC Ext. Manager - Control GreetingText - Property Caption - Welcome message. If pressed go to picazin.dev website + Welcome message. If pressed opens picazin.dev website ESP="Mensaje de bienvenida. Visitar picazin.dev si pulsamos." Page EXM Headline RC Ext. Manager - Control GreetingText - Property ToolTip @@ -853,11 +1323,56 @@ ESP="Detalle Objetos" Page EXM Object Detail - Property Caption + + Specifies the value of the Object Type field + ESP="Especifica el valor del campo Tipo objeto" + Page EXM Object Detail - Control Object Type - Property ToolTip + + + Specifies the value of the Object ID field + ESP="Especifica el valor del campo ID objeto" + Page EXM Object Detail - Control Object ID - Property ToolTip + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre" + Page EXM Object Detail - Control Name - Property ToolTip + + + Specifies the value of the Source Object Type field + ESP="Especifica el valor del campo Tipo objeto origen" + Page EXM Object Detail - Control Source Object Type - Property ToolTip + + + Specifies the value of the Source Object ID field + ESP="Especifica el valor del campo ID objeto origen" + Page EXM Object Detail - Control Source Object ID - Property ToolTip + + + Specifies the value of the Name field + ESP="Especifica el valor del campo Nombre Origen" + Page EXM Object Detail - Control Source Name - Property ToolTip + + + Shows the value of the Total fields field + ESP="Especifica el valor del campo Campos relacionados" + Page EXM Object Detail - Control Total Fields - Property ToolTip + EXM - Create fields on related tables ESP="EXM - Crear campos en tablas relacionadas" Page EXM Related Data - Property Caption + + Specifies the value of the Code field + ESP="Especifica el valor del campo Código" + Page EXM Related Data - Control Code - Property ToolTip + + + Specifies the value of the Description field + ESP="Especifica el valor del campo Descripción" + Page EXM Related Data - Control Description - Property ToolTip + Related tables ESP="Tablas relacionadas" @@ -868,6 +1383,21 @@ ESP="EXM Campos tablas relacionadas" Page EXM Related Data List - Property Caption + + Specifies the value of the Code field + ESP="Especifica el valor del campo Código" + Page EXM Related Data List - Control Code - Property ToolTip + + + Specifies the value of the Description field + ESP="Especifica el valor del campo Descripción" + Page EXM Related Data List - Control Description - Property ToolTip + + + Specifies the value of the Related Tables No. field + ESP="Muestra el Nº tablas relacionadas" + Page EXM Related Data List - Control Related Tables No. - Property ToolTip + EXtension Manager ESP="Gestor Extensiones" @@ -1153,11 +1683,111 @@ ESP="Campos TableExtensions" Page EXM TableExt Field List - Property Caption + + Specifies the value of the Extension Code field + ESP="Especifica el valor del campo Cód. extensión" + Page EXM TableExt Field List - Control Extension Code - Property ToolTip + + + Specifies the value of the Source Table ID field + ESP="Especifica el valor del campo Id. tabla origen" + Page EXM TableExt Field List - Control Source Table ID - Property ToolTip + + + Specifies the value of the Table ID field + ESP="Especifica el valor del campo Id. tabla" + Page EXM TableExt Field List - Control Table ID - Property ToolTip + + + Specifies the value of the Field ID field + ESP="Especifica el valor del campo Id. campo" + Page EXM TableExt Field List - Control Field ID - Property ToolTip + + + Specifies the value of the Field Name field + ESP="Especifica el valor del campo Nombre de campo" + Page EXM TableExt Field List - Control Field Name - Property ToolTip + + + Specifies the value of the Data Type field + ESP="Especifica el valor del campo Tipo datos" + Page EXM TableExt Field List - Control Data Type - Property ToolTip + + + Specifies the value of the Lenght field + ESP="Especifica el valor del campo Longitud" + Page EXM TableExt Field List - Control Lenght - Property ToolTip + + + Specifies the value of the Field Class field + ESP="Especifica el valor del campo Clase campo" + Page EXM TableExt Field List - Control Field Class - Property ToolTip + + + Specifies the value of the Option String field + ESP="Especifica el valor del campo Texto opciones" + Page EXM TableExt Field List - Control Option String - Property ToolTip + + + Specifies the value of the Obsolete field + ESP="Especifica el valor del campo Obsoleto" + Page EXM TableExt Field List - Control Obsolete - Property ToolTip + + + Specifies the value of the Created by field + ESP="Especifica el valor del campo Creado por" + Page EXM TableExt Field List - Control Created by - Property ToolTip + + + Specifies the value of the Creation Date field + ESP="Especifica el valor del campo Fecha creación" + Page EXM TableExt Field List - Control Creation Date - Property ToolTip + Table Fields ESP="Campos Tabla" Page EXM Table Field Detail - Property Caption + + Specifies the value of the Field ID field + ESP="Especifica el valor del campo Id. campo" + Page EXM Table Field Detail - Control Field ID - Property ToolTip + + + Specifies the value of the Field Name field + ESP="Especifica el valor del campo Nombre de campo" + Page EXM Table Field Detail - Control Field Name - Property ToolTip + + + Specifies the value of the Field Caption field + ESP="Especifica el valor del campo Título campo" + Page EXM Table Field Detail - Control Field Caption - Property ToolTip + + + Specifies the value of the Data Type field + ESP="Especifica el valor del campo Tipo datos" + Page EXM Table Field Detail - Control Data Type - Property ToolTip + + + Specifies the value of the Lenght field + ESP="Especifica el valor del campo Longitud" + Page EXM Table Field Detail - Control Lenght - Property ToolTip + + + Specifies the value of the Field Class field + ESP="Especifica el valor del campo Clase campo" + Page EXM Table Field Detail - Control Field Class - Property ToolTip + + + Specifies the value of the Option String field + ESP="Especifica el valor del campo Texto opciones" + Page EXM Table Field Detail - Control Option String - Property ToolTip + + + Specifies the value of the Obsolete field + ESP="Especifica el valor del campo Obsoleto" + Page EXM Table Field Detail - Control Obsolete - Property ToolTip + Extensions ESP="Extensiones" diff --git a/src/codeunit/EXMAssistedSetup.Codeunit.al b/src/codeunit/EXMAssistedSetup.Codeunit.al index fc90a82..e26fadb 100644 --- a/src/codeunit/EXMAssistedSetup.Codeunit.al +++ b/src/codeunit/EXMAssistedSetup.Codeunit.al @@ -3,24 +3,24 @@ codeunit 83203 "EXM Assisted Setup" var AssistedSetup: Codeunit "Assisted Setup"; - [EventSubscriber(ObjectType::Codeunit, Codeunit::"Assisted Setup", 'OnRegister', '', false, false)] - local procedure SetupInitialize() + procedure WizardComplete() + begin + AssistedSetup.Complete(Page::"EXM Setup Wizard"); + end; + + local procedure GetAppId(): Guid var - Language: Codeunit Language; - AssistedSetupGroup: Enum "Assisted Setup Group"; - VideoCategory: Enum "Video Category"; - CurrentGlobalLanguage: Integer; - SetupWizardLinkTxt: Label 'https://www.picazin.dev', Locked = true; - SetupWizardTxt: Label 'Set up Extension Manager', Comment = 'ESP="Configurar Gestor Extensiones"'; - InitialEXMSetupDescTxt: Label 'EXM need some amazing information from you to make everything works fine!', Comment = 'ESP="EXM necesita pedirte información para funcionar correctamente, Será rápido!!"'; + EmptyGuid: Guid; + Info: ModuleInfo; begin - CurrentGlobalLanguage := GlobalLanguage(); - AssistedSetup.Add(GetAppId(), Page::"EXM Setup Wizard", SetupWizardTxt, AssistedSetupGroup::Extensions, '', VideoCategory::Extensions, SetupWizardLinkTxt, InitialEXMSetupDescTxt); - GlobalLanguage(Language.GetDefaultApplicationLanguageId()); + if Info.Id() = EmptyGuid then + NavApp.GetCurrentModuleInfo(Info); + exit(Info.Id()); + end; - AssistedSetup.AddTranslation(Page::"EXM Setup Wizard", Language.GetDefaultApplicationLanguageId(), SetupWizardTxt); - GlobalLanguage(CurrentGlobalLanguage); - GetInformationSetupStatus(); + local procedure GetInformationSetupStatus() + begin + AssistedSetup.IsComplete(Page::"EXM Setup Wizard"); end; [EventSubscriber(ObjectType::Codeunit, Codeunit::"Assisted Setup", 'OnReRunOfCompletedSetup', '', false, false)] @@ -41,23 +41,23 @@ codeunit 83203 "EXM Assisted Setup" end; end; - local procedure GetAppId(): Guid + [EventSubscriber(ObjectType::Codeunit, Codeunit::"Assisted Setup", 'OnRegister', '', false, false)] + local procedure SetupInitialize() var - Info: ModuleInfo; - EmptyGuid: Guid; - begin - if Info.Id() = EmptyGuid then - NavApp.GetCurrentModuleInfo(Info); - exit(Info.Id()); - end; - - procedure WizardComplete() + Language: Codeunit Language; + AssistedSetupGroup: Enum "Assisted Setup Group"; + VideoCategory: Enum "Video Category"; + CurrentGlobalLanguage: Integer; + InitialEXMSetupDescTxt: Label 'EXM need some amazing information from you to make everything works fine!', Comment = 'ESP="EXM necesita pedirte información para funcionar correctamente, Será rápido!!"'; + SetupWizardLinkTxt: Label 'https://www.picazin.dev', Locked = true; + SetupWizardTxt: Label 'Set up Extension Manager', Comment = 'ESP="Configurar Gestor Extensiones"'; begin - AssistedSetup.Complete(Page::"EXM Setup Wizard"); - end; + CurrentGlobalLanguage := GlobalLanguage(); + AssistedSetup.Add(GetAppId(), Page::"EXM Setup Wizard", SetupWizardTxt, AssistedSetupGroup::Extensions, '', VideoCategory::Extensions, SetupWizardLinkTxt, InitialEXMSetupDescTxt); + GlobalLanguage(Language.GetDefaultApplicationLanguageId()); - local procedure GetInformationSetupStatus() - begin - AssistedSetup.IsComplete(Page::"EXM Setup Wizard"); + AssistedSetup.AddTranslation(Page::"EXM Setup Wizard", Language.GetDefaultApplicationLanguageId(), SetupWizardTxt); + GlobalLanguage(CurrentGlobalLanguage); + GetInformationSetupStatus(); end; } \ No newline at end of file diff --git a/src/codeunit/EXMExtensionManagement.Codeunit.al b/src/codeunit/EXMExtensionManagement.Codeunit.al index 9a95e50..bbda9be 100644 --- a/src/codeunit/EXMExtensionManagement.Codeunit.al +++ b/src/codeunit/EXMExtensionManagement.Codeunit.al @@ -14,38 +14,79 @@ codeunit 83200 "EXM Extension Management" end; end; - procedure ValidateExtensionRangeID(ExtCode: code[20]; ObjectID: Integer); + procedure ChechManualObjectID(ExtLine: Record "EXM Extension Lines") var EXMExtHeader: Record "EXM Extension Header"; - IDRangeErr: Label 'ID must be on definid object range %1 - %2', Comment = 'ESP="ID debe estar dentro del rango definido %1 - %2"'; + EXMExtLine: Record "EXM Extension Lines"; + ObjectIDErr: Label '%1 used on %2 extension.', comment = 'ESP="%1 usado en extensión %2"'; begin - EXMExtHeader.Get(ExtCode); - if not ((ObjectID >= EXMExtHeader."Object Starting ID") and (ObjectID <= EXMExtHeader."Object Ending ID")) then - Error(IDRangeErr, EXMExtHeader."Object Starting ID", EXMExtHeader."Object Ending ID"); + EXMExtHeader.Get(ExtLine."Extension Code"); + EXMExtLine.SetCurrentKey("Extension Code", "Object Type", "Object ID"); + if EXMExtHeader."Customer No." <> '' then + EXMExtLine.SetFilter("Extension Code", GetCustomerExtensions(EXMExtHeader."Customer No.")) + else + EXMExtLine.SetFilter("Extension Code", GetInternalExtensions()); + + EXMExtLine.SetRange("Object Type", ExtLine."Object Type"); + EXMExtLine.SetRange("Object ID", ExtLine."Object ID"); + if EXMExtLine.FindFirst() then + Error(ObjectIDErr, ExtLine."Object ID", EXMExtLine."Extension Code"); end; - procedure GetCustomerExtensions(CustNo: Code[20]) ExtFilter: Text + procedure CreateRelatedFields(ExtField: Record "EXM Table Fields") var - EXMExtHeader: Record "EXM Extension Header"; + ExtLine: Record "EXM Extension Lines"; + NewExtLine: Record "EXM Extension Lines"; + RelHeader: Record "EXM Related Groups"; + RelLines: Record "EXM Related Lines"; + NewExtField: Record "EXM Table Fields"; + RelData: Page "EXM Related Data List"; begin - EXMExtHeader.SetCurrentKey(Type, "Customer No.", Code); - EXMExtHeader.SetRange(Type, EXMExtHeader.Type::External); - EXMExtHeader.SetRange("Customer No.", CustNo); - if EXMExtHeader.FindSet() then - repeat - if ExtFilter = '' then - ExtFilter := EXMExtHeader.Code - else - ExtFilter += '|' + EXMExtHeader.Code; - until EXMExtHeader.Next() = 0; + ExtLine.Get(ExtField."Extension Code", ExtField."Source Line No."); + GetAvailableRelData(ExtLine."Source Object ID", RelHeader); + RelData.SetTableView(RelHeader); + RelData.LookupMode(true); + if RelData.RunModal() = Action::LookupOK then begin + RelData.GetRecord(RelHeader); + RelLines.SetRange(Code, RelHeader.Code); + RelLines.SetFilter("Table ID", '<>%1', ExtLine."Source Object ID"); + if RelLines.FindSet() then + repeat + Clear(NewExtLine); + NewExtLine.SetRange("Extension Code", ExtLine."Extension Code"); + NewExtLine.SetRange("Object Type", NewExtLine."Object Type"::"TableExtension"); + NewExtLine.SetRange("Source Object Type", NewExtLine."Source Object Type"::Table); + NewExtLine.SetRange("Source Object ID", RelLines."Table ID"); + if not NewExtLine.FindSet() then begin + NewExtLine.Init(); + NewExtLine."Extension Code" := ExtLine."Extension Code"; + NewExtLine."Line No." := ExtLine.GetLineNo(); + NewExtLine.Validate("Object Type", ExtLine."Object Type"); + NewExtLine.Name := CopyStr(ExtLine."Extension Code" + ' ' + RelLines.Name, 1, MaxStrLen(NewExtLine.Name)); + NewExtLine.Validate("Source Object Type", ExtLine."Source Object Type"); + NewExtLine.Validate("Source Object ID", RelLines."Table ID"); + NewExtLine.Insert(true); + end; + + if not NewExtField.Get(ExtField."Extension Code", NewExtLine."Line No.", ExtField."Table Source Type", NewExtLine."Source Object ID", NewExtLine."Object ID", ExtField."Field ID") then begin + NewExtField.Init(); + NewExtField := ExtField; + NewExtField."Source Line No." := NewExtLine."Line No."; + NewExtField."Source Table ID" := NewExtLine."Source Object ID"; + NewExtField."Table ID" := NewExtLine."Object ID"; + NewExtField.Insert(true); + end; + until RelLines.Next() = 0; + end; end; - procedure GetInternalExtensions() ExtFilter: Text + procedure GetCustomerExtensions(CustNo: Code[20]) ExtFilter: Text var EXMExtHeader: Record "EXM Extension Header"; begin - EXMExtHeader.SetCurrentKey(Type, Code); - EXMExtHeader.SetRange(Type, EXMExtHeader.Type::Internal); + EXMExtHeader.SetCurrentKey(Type, "Customer No.", Code); + EXMExtHeader.SetRange(Type, EXMExtHeader.Type::External); + EXMExtHeader.SetRange("Customer No.", CustNo); if EXMExtHeader.FindSet() then repeat if ExtFilter = '' then @@ -55,46 +96,13 @@ codeunit 83200 "EXM Extension Management" until EXMExtHeader.Next() = 0; end; - procedure GetTableFieldData(TableNo: Integer) - var - FieldData: Record Field; - TempEXMFields: Record "EXM Table Fields" temporary; - intType: Integer; - begin - FieldData.SetRange(TableNo, TableNo); - if FieldData.FindSet() then - repeat - TempEXMFields.Init(); - TempEXMFields."Extension Code" := Format(SessionId()); - TempEXMFields."Source Line No." := FieldData."No."; - TempEXMFields."Table Source Type" := TempEXMFields."Table Source Type"::Table; - TempEXMFields."Table ID" := TableNo; - TempEXMFields."Field ID" := FieldData."No."; - TempEXMFields."Field Name" := FieldData.FieldName; - TempEXMFields."Field Caption" := FieldData."Field Caption"; - intType := FieldData.Type; - TempEXMFields."Data Type" := intType; - TempEXMFields.Lenght := FieldData.Len; - TempEXMFields."Field Class" := FieldData.Class; - TempEXMFields."Option String" := CopyStr(FieldData.OptionString, 1, MaxStrLen(TempEXMFields."Option String")); - TempEXMFields.Obsolete := (FieldData.ObsoleteState <> FieldData.ObsoleteState::No); - TempEXMFields.IsPK := FieldData.IsPartOfPrimaryKey; - TempEXMFields.Insert(); - until FieldData.Next() = 0; - - if not TempEXMFields.IsEmpty() then begin - TempEXMFields.FindFirst(); - Page.Run(Page::"EXM Table Field Detail", TempEXMFields); - end; - end; - procedure GetEnumValues(EnumID: Integer) var TempEXMEnums: Record "EXM Enum Values" temporary; EnumRec: RecordRef; EnumRef: FieldRef; - TotalValues: Integer; Counter: Integer; + TotalValues: Integer; begin EnumRec.Open(EnumID); EnumRef := EnumRec.Field(1); @@ -116,23 +124,19 @@ codeunit 83200 "EXM Extension Management" end; end; - procedure ChechManualObjectID(ExtLine: Record "EXM Extension Lines") + procedure GetInternalExtensions() ExtFilter: Text var EXMExtHeader: Record "EXM Extension Header"; - EXMExtLine: Record "EXM Extension Lines"; - ObjectIDErr: Label '%1 used on %2 extension.', comment = 'ESP="%1 usado en extensión %2"'; begin - EXMExtHeader.Get(ExtLine."Extension Code"); - EXMExtLine.SetCurrentKey("Extension Code", "Object Type", "Object ID"); - if EXMExtHeader."Customer No." <> '' then - EXMExtLine.SetFilter("Extension Code", GetCustomerExtensions(EXMExtHeader."Customer No.")) - else - EXMExtLine.SetFilter("Extension Code", GetInternalExtensions()); - - EXMExtLine.SetRange("Object Type", ExtLine."Object Type"); - EXMExtLine.SetRange("Object ID", ExtLine."Object ID"); - if EXMExtLine.FindFirst() then - Error(ObjectIDErr, ExtLine."Object ID", EXMExtLine."Extension Code"); + EXMExtHeader.SetCurrentKey(Type, Code); + EXMExtHeader.SetRange(Type, EXMExtHeader.Type::Internal); + if EXMExtHeader.FindSet() then + repeat + if ExtFilter = '' then + ExtFilter := EXMExtHeader.Code + else + ExtFilter += '|' + EXMExtHeader.Code; + until EXMExtHeader.Next() = 0; end; procedure GetObjectName(SourceObjectType: Integer; ObjectID: Integer): Text[249] @@ -157,53 +161,49 @@ codeunit 83200 "EXM Extension Management" end; end; - procedure CreateRelatedFields(ExtField: Record "EXM Table Fields") + procedure GetTableFieldData(TableNo: Integer) var - RelHeader: Record "EXM Related Groups"; - RelLines: Record "EXM Related Lines"; - ExtLine: Record "EXM Extension Lines"; - NewExtLine: Record "EXM Extension Lines"; - NewExtField: Record "EXM Table Fields"; - RelData: Page "EXM Related Data List"; + TempEXMFields: Record "EXM Table Fields" temporary; + FieldData: Record Field; + intType: Integer; begin - ExtLine.Get(ExtField."Extension Code", ExtField."Source Line No."); - GetAvailableRelData(ExtLine."Source Object ID", RelHeader); - RelData.SetTableView(RelHeader); - RelData.LookupMode(true); - if RelData.RunModal() = Action::LookupOK then begin - RelData.GetRecord(RelHeader); - RelLines.SetRange(Code, RelHeader.Code); - RelLines.SetFilter("Table ID", '<>%1', ExtLine."Source Object ID"); - if RelLines.FindSet() then - repeat - Clear(NewExtLine); - NewExtLine.SetRange("Extension Code", ExtLine."Extension Code"); - NewExtLine.SetRange("Object Type", NewExtLine."Object Type"::"TableExtension"); - NewExtLine.SetRange("Source Object Type", NewExtLine."Source Object Type"::Table); - NewExtLine.SetRange("Source Object ID", RelLines."Table ID"); - if not NewExtLine.FindSet() then begin - NewExtLine.Init(); - NewExtLine."Extension Code" := ExtLine."Extension Code"; - NewExtLine."Line No." := ExtLine.GetLineNo(); - NewExtLine.Validate("Object Type", ExtLine."Object Type"); - NewExtLine.Name := CopyStr(ExtLine."Extension Code" + ' ' + RelLines.Name, 1, MaxStrLen(NewExtLine.Name)); - NewExtLine.Validate("Source Object Type", ExtLine."Source Object Type"); - NewExtLine.Validate("Source Object ID", RelLines."Table ID"); - NewExtLine.Insert(true); - end; + FieldData.SetRange(TableNo, TableNo); + if FieldData.FindSet() then + repeat + TempEXMFields.Init(); + TempEXMFields."Extension Code" := Format(SessionId()); + TempEXMFields."Source Line No." := FieldData."No."; + TempEXMFields."Table Source Type" := TempEXMFields."Table Source Type"::Table; + TempEXMFields."Table ID" := TableNo; + TempEXMFields."Field ID" := FieldData."No."; + TempEXMFields."Field Name" := FieldData.FieldName; + TempEXMFields."Field Caption" := FieldData."Field Caption"; + intType := FieldData.Type; + TempEXMFields."Data Type" := intType; + TempEXMFields.Lenght := FieldData.Len; + TempEXMFields."Field Class" := FieldData.Class; + TempEXMFields."Option String" := CopyStr(FieldData.OptionString, 1, MaxStrLen(TempEXMFields."Option String")); + TempEXMFields.Obsolete := (FieldData.ObsoleteState <> FieldData.ObsoleteState::No); + TempEXMFields.IsPK := FieldData.IsPartOfPrimaryKey; + TempEXMFields.Insert(); + until FieldData.Next() = 0; - if not NewExtField.Get(ExtField."Extension Code", NewExtLine."Line No.", ExtField."Table Source Type", NewExtLine."Source Object ID", NewExtLine."Object ID", ExtField."Field ID") then begin - NewExtField.Init(); - NewExtField := ExtField; - NewExtField."Source Line No." := NewExtLine."Line No."; - NewExtField."Source Table ID" := NewExtLine."Source Object ID"; - NewExtField."Table ID" := NewExtLine."Object ID"; - NewExtField.Insert(true); - end; - until RelLines.Next() = 0; + if not TempEXMFields.IsEmpty() then begin + TempEXMFields.FindFirst(); + Page.Run(Page::"EXM Table Field Detail", TempEXMFields); end; end; + procedure ValidateExtensionRangeID(ExtCode: code[20]; ObjectID: Integer); + var + EXMExtHeader: Record "EXM Extension Header"; + IDRangeErr: Label 'ID must be on definid object range %1 - %2', Comment = 'ESP="ID debe estar dentro del rango definido %1 - %2"'; + begin + EXMExtHeader.Get(ExtCode); + if not ((ObjectID >= EXMExtHeader."Object Starting ID") and (ObjectID <= EXMExtHeader."Object Ending ID")) then + Error(IDRangeErr, EXMExtHeader."Object Starting ID", EXMExtHeader."Object Ending ID"); + end; + local procedure GetAvailableRelData(TableID: Integer; var RelHeader: Record "EXM Related Groups") var RelLines: Record "EXM Related Lines"; diff --git a/src/codeunit/EXMInstallSetup.Codeunit.al b/src/codeunit/EXMInstallSetup.Codeunit.al index a3daece..77dad08 100644 --- a/src/codeunit/EXMInstallSetup.Codeunit.al +++ b/src/codeunit/EXMInstallSetup.Codeunit.al @@ -4,8 +4,8 @@ codeunit 83201 "EXM Install Setup" trigger OnInstallAppPerCompany() var - EXMExtSetup: Record "EXM Extension Setup"; ExtHeader: Record "EXM Extension Header"; + EXMExtSetup: Record "EXM Extension Setup"; begin if not EXMExtSetup.Get() then begin EXMExtSetup.Init(); @@ -21,10 +21,12 @@ codeunit 83201 "EXM Install Setup" end; end; - local procedure CheckUpdateCustomerNoData(): Boolean + procedure GetCurrentlyInstalledVersionNo(): Text + var + AppInfo: ModuleInfo; begin - //"version": "0.2.9.0" set customer no. to lines. Must update data if installed version is lower version - Exit((GetInstallingVersionNo() >= '0.2.9.0') and (GetCurrentlyInstalledVersionNo() < '0.2.9.0')); + NavApp.GetCurrentModuleInfo(AppInfo); + exit(Format(AppInfo.DataVersion())); end; procedure GetInstallingVersionNo(): Text @@ -35,19 +37,17 @@ codeunit 83201 "EXM Install Setup" exit(Format(AppInfo.AppVersion())); end; - procedure GetCurrentlyInstalledVersionNo(): Text - var - AppInfo: ModuleInfo; + local procedure CheckUpdateCustomerNoData(): Boolean begin - NavApp.GetCurrentModuleInfo(AppInfo); - exit(Format(AppInfo.DataVersion())); + //"version": "0.2.9.0" set customer no. to lines. Must update data if installed version is lower version + Exit((GetInstallingVersionNo() >= '0.2.9.0') and (GetCurrentlyInstalledVersionNo() < '0.2.9.0')); end; local procedure SetCustomerData(ExtHeader: Record "EXM Extension Header") var + ExtEnum: Record "EXM Enum Values"; ExtLine: Record "EXM Extension Lines"; ExtField: Record "EXM Table Fields"; - ExtEnum: Record "EXM Enum Values"; begin ExtLine.SetRange("Extension Code", ExtHeader.Code); ExtLine.ModifyAll("Customer No.", ExtHeader."Customer No."); diff --git a/src/codeunit/EXMRCHeadlinesPageCommon.Codeunit.al b/src/codeunit/EXMRCHeadlinesPageCommon.Codeunit.al index 4447422..23200bc 100644 --- a/src/codeunit/EXMRCHeadlinesPageCommon.Codeunit.al +++ b/src/codeunit/EXMRCHeadlinesPageCommon.Codeunit.al @@ -5,10 +5,39 @@ codeunit 83202 "EXM RC Headlines Page Common" Headlines: Codeunit Headlines; RCHeadlinesExecutor: Codeunit "RC Headlines Executor"; DefaultFieldsVisible: Boolean; + UserGreetingVisible: Boolean; DocumentationTxt: Label 'Want to learn more about EXM?', Comment = 'ESP="Desea más información sobre EXM (Extension Manager)?"'; - GreetingText: Text[250]; DocumentationText: Text[250]; - UserGreetingVisible: Boolean; + GreetingText: Text[250]; + + procedure AreDefaultFieldsVisible(): Boolean + begin + exit(DefaultFieldsVisible); + end; + + procedure ComputeDefaultFieldsVisibility(RoleCenterPageID: Integer) + var + ExtensionHeadlinesVisible: Boolean; + begin + OnIsAnyExtensionHeadlineVisible(ExtensionHeadlinesVisible, RoleCenterPageID); + DefaultFieldsVisible := not ExtensionHeadlinesVisible; + UserGreetingVisible := Headlines.ShouldUserGreetingBeVisible(); + end; + + procedure DocumentationUrlTxt(): Text + begin + exit('https://picazin.dev'); + end; + + procedure GetDocumentationText(): Text + begin + exit(DocumentationText); + end; + + procedure GetGreetingText(): Text + begin + exit(GreetingText); + end; procedure HeadlineOnOpenPage(RoleCenterPageID: Integer) var @@ -36,6 +65,11 @@ codeunit 83202 "EXM RC Headlines Page Common" Commit(); // not to mess up the other page parts that may do IF CODEUNIT.RUN() end; + procedure IsUserGreetingVisible(): Boolean + begin + exit(UserGreetingVisible); + end; + local procedure ShouldCreateAComputeJob(RCHeadlinesUserData: Record "RC Headlines User Data"): Boolean var OneHour: Duration; @@ -46,40 +80,6 @@ codeunit 83202 "EXM RC Headlines Page Common" exit(CurrentDateTime() - RCHeadlinesUserData."Last Computed" > OneHour); end; - procedure ComputeDefaultFieldsVisibility(RoleCenterPageID: Integer) - var - ExtensionHeadlinesVisible: Boolean; - begin - OnIsAnyExtensionHeadlineVisible(ExtensionHeadlinesVisible, RoleCenterPageID); - DefaultFieldsVisible := not ExtensionHeadlinesVisible; - UserGreetingVisible := Headlines.ShouldUserGreetingBeVisible(); - end; - - procedure DocumentationUrlTxt(): Text - begin - exit('https://picazin.dev'); - end; - - procedure IsUserGreetingVisible(): Boolean - begin - exit(UserGreetingVisible); - end; - - procedure GetGreetingText(): Text - begin - exit(GreetingText); - end; - - procedure AreDefaultFieldsVisible(): Boolean - begin - exit(DefaultFieldsVisible); - end; - - procedure GetDocumentationText(): Text - begin - exit(DocumentationText); - end; - [IntegrationEvent(false, false)] local procedure OnIsAnyExtensionHeadlineVisible(var ExtensionHeadlinesVisible: Boolean; RoleCenterPageID: Integer) begin diff --git a/src/page/EXMEnumExtValues.Page.al b/src/page/EXMEnumExtValues.Page.al index fd3fbd4..3c79d14 100644 --- a/src/page/EXMEnumExtValues.Page.al +++ b/src/page/EXMEnumExtValues.Page.al @@ -1,12 +1,12 @@ page 83211 "EXM EnumExt Values" { Caption = 'EnumExt Values', Comment = 'ESP="Valores EnumExt"'; - PageType = ListPart; - SourceTable = "EXM Enum Values"; + DeleteAllowed = false; InsertAllowed = false; ModifyAllowed = false; - DeleteAllowed = false; + PageType = ListPart; ShowFilter = false; + SourceTable = "EXM Enum Values"; layout { @@ -17,22 +17,27 @@ page 83211 "EXM EnumExt Values" field("Extension Code"; "Extension Code") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Código Extensión"'; } field("Ordinal ID"; "Ordinal ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Ordinal ID field', Comment = 'ESP="Especifica el valor del campo ID Ordinal"'; } field("Enum Value"; "Enum Value") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Enum Value field', Comment = 'ESP="Especifica el valor del campo valor Enum"'; } field("Created by"; "Created by") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica quién creo el registro."'; } field("Creation Date"; "Creation Date") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Creation Date field', Comment = 'ESP="Especifica la fecha de creación del registro."'; } } } diff --git a/src/page/EXMEnumValues.Page.al b/src/page/EXMEnumValues.Page.al index 645b697..02d4db3 100644 --- a/src/page/EXMEnumValues.Page.al +++ b/src/page/EXMEnumValues.Page.al @@ -1,11 +1,11 @@ page 83210 "EXM Enum Values" { Caption = 'Enum', Comment = 'ESP="Enum"'; - PageType = List; - SourceTable = "EXM Enum Values"; + DataCaptionExpression = GetDesc(); DelayedInsert = true; Editable = true; - DataCaptionExpression = GetDesc(); + PageType = List; + SourceTable = "EXM Enum Values"; layout { @@ -16,59 +16,68 @@ page 83210 "EXM Enum Values" field("Extension Code"; "Extension Code") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Cód. extensión."'; Visible = false; } field("Source Line No."; "Source Line No.") { ApplicationArea = All; Editable = false; + ToolTip = 'Specifies the value of the Source Line No. field', Comment = 'ESP="Especifica el valor del campo Nº línea origen"'; Visible = false; } field("Source Type"; "Source Type") { ApplicationArea = All; Editable = false; + ToolTip = 'Specifies the value of the Source Type field', Comment = 'ESP="Especifica el valor del campo Tipo origen"'; Visible = false; } field("Source Enum ID"; "Source Enum ID") { ApplicationArea = All; Editable = false; + ToolTip = 'Specifies the value of the Source Enum ID field', Comment = 'ESP="Especifica el valor del campo Id. Enum origen"'; Visible = false; } field("Enum ID"; "Enum ID") { ApplicationArea = All; Editable = false; + ToolTip = 'Specifies the value of the Enum ID field', Comment = 'ESP="Especifica el valor del campo Id. Enum"'; Visible = false; } field("Ordinal ID"; "Ordinal ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Ordinal ID field', Comment = 'ESP="Especifica el valor del campo Id. ordinal"'; } field("Enum Value"; "Enum Value") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Enum Value field', Comment = 'ESP="Especifica el valor del campo Valor Enum"'; } field("Created by"; "Created by") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica el valor del campo Creado por"'; Visible = IsVisible; } field("Creation Date"; "Creation Date") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Creation Date field', Comment = 'ESP="Especifica el valor del campo Fecha creación"'; Visible = IsVisible; } } part(ExtEnumDetail; "EXM EnumExt Values") { ApplicationArea = All; + Editable = false; + ShowFilter = false; SubPageLink = "Source Type" = filter("EnumExtension"), "Source Enum ID" = field("Source Enum ID"); SubPageView = sorting("Source Enum ID", "Ordinal ID"); Visible = ViewEnumExtDetail; - Editable = false; - ShowFilter = false; } } } @@ -78,14 +87,15 @@ page 83210 "EXM Enum Values" { action(AllEnumValues) { - Caption = 'View / Hide values', Comment = 'ESP="Ver / ocultar valores"'; ApplicationArea = All; + Caption = 'View / Hide values', Comment = 'ESP="Ver / ocultar valores"'; + Enabled = ("Source Type" = "Source Type"::"EnumExtension"); + Image = ResetStatus; Promoted = true; PromotedCategory = Process; PromotedIsBig = true; PromotedOnly = true; - Image = ResetStatus; - Enabled = ("Source Type" = "Source Type"::"EnumExtension"); + ToolTip = 'Executes the View / Hide values action to view other values for same table on other extensions.', Comment = 'ESP="Ver / ocultar valores del resto de extensiones para la misma tabla."'; trigger OnAction() begin @@ -97,14 +107,15 @@ page 83210 "EXM Enum Values" } action(ViewSourceEnum) { - Caption = 'View source Enum', Comment = 'ESP="Ver Enum origen"'; ApplicationArea = All; + Caption = 'View source Enum', Comment = 'ESP="Ver Enum origen"'; + Enabled = ("Source Type" = "Source Type"::"EnumExtension"); + Image = Table; Promoted = true; PromotedCategory = Process; PromotedIsBig = true; PromotedOnly = true; - Image = Table; - Enabled = ("Source Type" = "Source Type"::"EnumExtension"); + ToolTip = 'View source Enum values', Comment = 'ESP="Ver valores de Enum origen"'; Visible = IsVisible; trigger OnAction() @@ -116,6 +127,19 @@ page 83210 "EXM Enum Values" } } } + + trigger OnOpenPage() + begin + IsVisible := not IsTemporary; + if not IsVisible then + CurrPage.Editable(false); + end; + + var + ViewEnumExtDetail: Boolean; + [InDataSet] + IsVisible: Boolean; + local procedure GetDesc(): Text var AllObject: Record AllObj; @@ -133,16 +157,4 @@ page 83210 "EXM Enum Values" end else exit(Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); end; - - trigger OnOpenPage() - begin - IsVisible := not IsTemporary; - if not IsVisible then - CurrPage.Editable(false); - end; - - var - ViewEnumExtDetail: Boolean; - [InDataSet] - IsVisible: Boolean; } \ No newline at end of file diff --git a/src/page/EXMExtensionDepFactbox.Page.al b/src/page/EXMExtensionDepFactbox.Page.al index 2fb9542..0bc0bdd 100644 --- a/src/page/EXMExtensionDepFactbox.Page.al +++ b/src/page/EXMExtensionDepFactbox.Page.al @@ -1,9 +1,9 @@ page 83220 "EXM Extension Dep. Factbox" { - PageType = ListPart; - SourceTable = "EXM Extension Dependencies"; Caption = 'Extension dependencies', Comment = 'ESP="Dependencias extensión"'; Editable = false; + PageType = ListPart; + SourceTable = "EXM Extension Dependencies"; layout { @@ -11,14 +11,15 @@ page 83220 "EXM Extension Dep. Factbox" { repeater(Control1) { - field("Dependent Ext. Code"; "Dependent Ext. Code") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Dependent Ext. Code field', comment = 'ESP="Especifica el valor del campo Cód. extensión dependiente"'; } field("Dependent Ext. Name"; "Dependent Ext. Name") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Dependent Ext. Name field', comment = 'ESP="Especifica el valor del campo Nombre extensión dependiente"'; } } } diff --git a/src/page/EXMExtensionDependencies.Page.al b/src/page/EXMExtensionDependencies.Page.al index 3566308..3fef23d 100644 --- a/src/page/EXMExtensionDependencies.Page.al +++ b/src/page/EXMExtensionDependencies.Page.al @@ -1,10 +1,10 @@ page 83219 "EXM Extension Dependencies" { + AutoSplitKey = true; Caption = 'EXM Extension Dependencies', comment = 'ESP="Dependencias extensión"'; + DelayedInsert = true; PageType = List; SourceTable = "EXM Extension Dependencies"; - DelayedInsert = true; - AutoSplitKey = true; layout { @@ -15,10 +15,12 @@ page 83219 "EXM Extension Dependencies" field("Dependent Ext. Code"; "Dependent Ext. Code") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Dependent Ext. Code field', comment = 'ESP="Especifica el valor del campo Cód. extensión dependiente"'; } field("Dependent Ext. Name"; "Dependent Ext. Name") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Dependent Ext. Name field', comment = 'ESP="Especifica el valor del campo Nombre extensión dependiente"'; } } } diff --git a/src/page/EXMExtensionFactBox.Page.al b/src/page/EXMExtensionFactBox.Page.al index df97226..ef24638 100644 --- a/src/page/EXMExtensionFactBox.Page.al +++ b/src/page/EXMExtensionFactBox.Page.al @@ -1,9 +1,9 @@ page 83213 "EXM Extension FactBox" { - PageType = CardPart; - SourceTable = "EXM Extension Header"; Caption = 'Extension objects detail', Comment = 'ESP="Detalle objetos extensión"'; Editable = false; + PageType = CardPart; + SourceTable = "EXM Extension Header"; layout { @@ -14,6 +14,7 @@ page 83213 "EXM Extension FactBox" field("No. of Tables"; "No. of Tables") { ApplicationArea = All; + ToolTip = 'Shows the No. of Tables in the extension', Comment = 'ESP="Muestra el Nº Tablas en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::Table) @@ -22,6 +23,7 @@ page 83213 "EXM Extension FactBox" field("No. of TableExtensions"; "No. of TableExtensions") { ApplicationArea = All; + ToolTip = 'Shows the No. of TableExtensions in the extension', Comment = 'ESP="Muestra el Nº TableExtensions en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::"TableExtension") @@ -30,6 +32,7 @@ page 83213 "EXM Extension FactBox" field("No. of Page"; "No. of Page") { ApplicationArea = All; + ToolTip = 'Shows the No. of Pages in the extension', Comment = 'ESP="Muestra el Nº Pages en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::Page) @@ -38,6 +41,7 @@ page 83213 "EXM Extension FactBox" field("No. of PageExtensions"; "No. of PageExtensions") { ApplicationArea = All; + ToolTip = 'Shows the No. of PageExtensions in the extension', Comment = 'ESP ="Muestra el Nº PageExtensions en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::"PageExtension") @@ -46,6 +50,7 @@ page 83213 "EXM Extension FactBox" field("No. of Codeunits"; "No. of Codeunits") { ApplicationArea = All; + ToolTip = 'Shows the No. of Codeunits in the extension', Comment = 'ESP ="Muestra el Nº Codeunits en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::Codeunit) @@ -54,6 +59,7 @@ page 83213 "EXM Extension FactBox" field("No. of Reports"; "No. of Reports") { ApplicationArea = All; + ToolTip = 'Shows the No. of Reports in the extension', Comment = 'ESP ="Muestra el Nº Informes en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::Report) @@ -62,6 +68,7 @@ page 83213 "EXM Extension FactBox" field("No. of Querys"; "No. of Querys") { ApplicationArea = All; + ToolTip = 'Shows the No. of Querys in the extension', Comment = 'ESP ="Muestra el Nº Querys en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::Query) @@ -70,6 +77,7 @@ page 83213 "EXM Extension FactBox" field("No. of XMLports"; "No. of XMLports") { ApplicationArea = All; + ToolTip = 'Shows the No. of XMLports in the extension', Comment = 'ESP ="Muestra el Nº XMLports en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::XMLport) @@ -78,6 +86,7 @@ page 83213 "EXM Extension FactBox" field("No. of Enums"; "No. of Enums") { ApplicationArea = All; + ToolTip = 'Shows the No. of Enums in the extension', Comment = 'ESP ="Muestra el Nº Enums en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::Enum) @@ -86,6 +95,7 @@ page 83213 "EXM Extension FactBox" field("No. of EnumExtensions"; "No. of EnumExtensions") { ApplicationArea = All; + ToolTip = 'Shows the No. of EnumExtensions in the extension', Comment = 'ESP ="Muestra el Nº EnumExtensions en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::EnumExtension) @@ -94,6 +104,7 @@ page 83213 "EXM Extension FactBox" field("No. of Profiles"; "No. of Profiles") { ApplicationArea = All; + ToolTip = 'Shows the No. of Profiles in the extension', Comment = 'ESP ="Muestra el Nº Profiles en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::Profile) @@ -102,6 +113,7 @@ page 83213 "EXM Extension FactBox" field("No. of ProfileExtensions"; "No. of ProfileExtensions") { ApplicationArea = All; + ToolTip = 'Shows the No. of ProfileExtensions in the extension', Comment = 'ESP ="Muestra el Nº ProfileExtensions en la extensión"'; trigger OnDrillDown() begin ViewObjectDetail(Objects::"ProfileExtension") @@ -110,6 +122,10 @@ page 83213 "EXM Extension FactBox" } } } + + var + Objects: Option "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; + local procedure ViewObjectDetail(ObjType: Integer); var EXMExtLine: Record "EXM Extension Lines"; @@ -125,7 +141,4 @@ page 83213 "EXM Extension FactBox" EXMObjectDetail.SetTableView(EXMExtLine); EXMObjectDetail.RunModal(); end; - - var - Objects: Option "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; } diff --git a/src/page/EXMExtensionHeader.Page.al b/src/page/EXMExtensionHeader.Page.al index 24434c7..4e0120c 100644 --- a/src/page/EXMExtensionHeader.Page.al +++ b/src/page/EXMExtensionHeader.Page.al @@ -1,10 +1,9 @@ page 83201 "EXM Extension Header" { Caption = 'Extension Card', Comment = 'ESP="Ficha extensión"'; + DataCaptionFields = Code, Description; PageType = Document; SourceTable = "EXM Extension Header"; - DataCaptionFields = Code, Description; - layout { @@ -16,18 +15,22 @@ page 83201 "EXM Extension Header" field("Code"; "Code") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Code field', Comment = 'ESP="Especifica el valor del campo Código"'; } field(Description; "Description") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Description field', Comment = 'ESP="Especifica el valor del campo Descripción"'; } field("App Version"; "App Version") { ApplicationArea = All; + ToolTip = 'Specifies the value of the App Version field', Comment = 'ESP="Especifica el valor del campo Versión App"'; } field(Dependencies; Dependencies) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Dependencies field', Comment = 'ESP="Especifica el valor del campo Dependencias"'; } group(Target) { @@ -35,15 +38,18 @@ page 83201 "EXM Extension Header" field(Type; "Type") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Type field', Comment = 'ESP="Especifica el valor del campo Tipo"'; } field("Customer No."; "Customer No.") { ApplicationArea = All; Editable = (Type = Type::External); + ToolTip = 'Specifies the value of the Customer No. field', Comment = 'ESP="Especifica el valor del campo Nº Cliente"'; } field("Customer Name"; "Customer Name") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } } @@ -52,8 +58,9 @@ page 83201 "EXM Extension Header" Caption = 'Object Range', Comment = 'ESP="Rango objetos"'; field("Object Starting ID"; "Object Starting ID") { - Caption = 'Starting No.', Comment = 'ESP="Nº inicial"'; ApplicationArea = All; + Caption = 'Starting No.', Comment = 'ESP="Nº inicial"'; + ToolTip = 'Specifies the value of the Starting No. field', Comment = 'ESP="Especifica el valor del campo Nº inicial"'; trigger OnValidate() begin if xRec."Object Starting ID" <> "Object Starting ID" then @@ -62,8 +69,9 @@ page 83201 "EXM Extension Header" } field("Object Ending ID"; "Object Ending ID") { - Caption = 'Ending No.', Comment = 'ESP="Nº final"'; ApplicationArea = All; + Caption = 'Ending No.', Comment = 'ESP="Nº final"'; + ToolTip = 'Specifies the value of the Ending No. field', Comment = 'ESP="Especifica el valor del campo Nº final"'; trigger OnValidate() begin if xRec."Object Ending ID" <> "Object Ending ID" then @@ -83,6 +91,7 @@ page 83201 "EXM Extension Header" { ApplicationArea = All; ExtendedDatatype = URL; + ToolTip = 'Specifies the value of the GIT Repository URL field', Comment = 'ESP="Especifica el valor del campo URL repositorio GIT"'; } } } diff --git a/src/page/EXMExtensionLines.Page.al b/src/page/EXMExtensionLines.Page.al index 80e98c4..e8b67ad 100644 --- a/src/page/EXMExtensionLines.Page.al +++ b/src/page/EXMExtensionLines.Page.al @@ -1,12 +1,10 @@ page 83202 "EXM Extension Lines" { + AutoSplitKey = true; Caption = ' Objects', Comment = 'ESP="Objetos"'; + DelayedInsert = true; PageType = ListPart; SourceTable = "EXM Extension Lines"; - //SourceTableView = sorting("Extension Code", "Object Type", "Object ID", "Source Object Type", "Source Object ID"); - DelayedInsert = true; - AutoSplitKey = true; - layout { @@ -18,10 +16,12 @@ page 83202 "EXM Extension Lines" field("Object Type"; "Object Type") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto"'; } field("Object ID"; "Object ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto"'; trigger OnValidate() var EXMExtMgt: Codeunit "EXM Extension Management"; @@ -33,25 +33,30 @@ page 83202 "EXM Extension Lines" field(Name; "Name") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } field("Source Object Type"; "Source Object Type") { ApplicationArea = All; Editable = false; + ToolTip = 'Specifies the value of the Source Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto origen"'; } field("Source Object ID"; "Source Object ID") { ApplicationArea = All; Editable = ("Source Object Type" = "Source Object Type"::Table) or ("Source Object Type" = "Source Object Type"::Page) or ("Source Object Type" = "Source Object Type"::Enum) or ("Source Object Type" = "Source Object Type"::Profile); + ToolTip = 'Specifies the value of the Source Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto origen"'; } field("Source Name"; "Source Name") { ApplicationArea = All; Editable = false; + ToolTip = 'Specifies the value of the Source Name field', Comment = 'ESP="Especifica el valor del campo Nombre Origen"'; } field("Total Fields"; "Total Fields") { ApplicationArea = All; + ToolTip = 'Shows Total related fields'', Comment = ''ESP="Muestra el total de Campos relacionados"'; trigger OnAssistEdit() begin ViewRelatedFields(); @@ -60,14 +65,17 @@ page 83202 "EXM Extension Lines" field(Obsolete; Obsolete) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Obsolete field', Comment = 'ESP="Especifica el valor del campo Obsoleto"'; } field("Created by"; "Created by") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica el valor del campo Creado por"'; } field("Creation Date"; "Creation Date") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Creation Date field', Comment = 'ESP="Especifica el valor del campo Fecha creación"'; } } } @@ -78,13 +86,13 @@ page 83202 "EXM Extension Lines" { action(ViewField) { - Caption = 'View detail', Comment = 'ESP="Ver detalle"'; ApplicationArea = All; + Caption = 'View detail', Comment = 'ESP="Ver detalle"'; Image = ViewPage; Promoted = true; PromotedCategory = Process; - PromotedOnly = true; PromotedIsBig = true; + PromotedOnly = true; ToolTip = 'View object detail.', Comment = 'ESP="Ver detalle objeto."'; trigger OnAction() @@ -106,10 +114,10 @@ page 83202 "EXM Extension Lines" local procedure ViewRelatedFields() var - EXMTableFields: Record "EXM Table Fields"; EXMEnumValues: Record "EXM Enum Values"; - EXMFieldList: Page "EXM Field List"; + EXMTableFields: Record "EXM Table Fields"; EXMEnumVal: Page "EXM Enum Values"; + EXMFieldList: Page "EXM Field List"; begin case "Object Type" of "Object Type"::"Table", "Object Type"::"TableExtension": diff --git a/src/page/EXMExtensionList.Page.al b/src/page/EXMExtensionList.Page.al index 3d1e31e..d32c246 100644 --- a/src/page/EXMExtensionList.Page.al +++ b/src/page/EXMExtensionList.Page.al @@ -1,14 +1,14 @@ page 83200 "EXM Extension List" { - Caption = 'Extension Manager', Comment = 'ESP="Gestor Extensiones"'; - PageType = List; ApplicationArea = All; - UsageCategory = Lists; - SourceTable = "EXM Extension Header"; - Editable = false; + Caption = 'Extension Manager', Comment = 'ESP="Gestor Extensiones"'; CardPageId = "EXM Extension Header"; - RefreshOnActivate = true; DataCaptionFields = Description; + Editable = false; + PageType = List; + RefreshOnActivate = true; + SourceTable = "EXM Extension Header"; + UsageCategory = Lists; layout { @@ -19,30 +19,37 @@ page 83200 "EXM Extension List" field("Code"; "Code") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Code field', Comment = 'ESP="Especifica el valor del campo Código"'; } field(Description; "Description") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Description field', Comment = 'ESP="Especifica el valor del campo Descripción"'; } field(Type; "Type") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Type', Comment = 'ESP="Especifica el valor del campo Tipo"'; } field("Customer No."; "Customer No.") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Customer No. field', Comment = 'ESP="Especifica el valor del campo Nº Cliente"'; } field("Customer Name"; "Customer Name") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } field("Object Starting ID"; "Object Starting ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Object Starting ID field', Comment = 'ESP="Especifica el valor del campo Inicio ID objetos"'; } field("Object Ending ID"; "Object Ending ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Object Ending ID field', Comment = 'ESP="Especifica el valor del campo Final ID objetos"'; } } } @@ -66,19 +73,20 @@ page 83200 "EXM Extension List" { action(TreeView) { + ApplicationArea = All; Caption = 'Tree view', Comment = 'ESP="Vista arbol"'; - ApplicationArea = All; Image = Trendscape; Promoted = true; PromotedCategory = Process; - PromotedOnly = true; PromotedIsBig = true; + PromotedOnly = true; + ToolTip = 'Executes the Tree view action', Comment = 'ESP="Ver objectos en Vista arbol"'; trigger OnAction() var EXMExtTreeView: Page "EXM Extension TreeView"; - OptionsQst: Label 'All,Selected', Comment = 'ESP="Todos,Seleccionado"'; SelOption: Integer; + OptionsQst: Label 'All,Selected', Comment = 'ESP="Todos,Seleccionado"'; begin SelOption := StrMenu(OptionsQst); diff --git a/src/page/EXMExtensionManagerSetup.Page.al b/src/page/EXMExtensionManagerSetup.Page.al index a42666b..0d26b20 100644 --- a/src/page/EXMExtensionManagerSetup.Page.al +++ b/src/page/EXMExtensionManagerSetup.Page.al @@ -1,12 +1,12 @@ page 83205 "EXM Extension Manager Setup" { + ApplicationArea = All; Caption = 'Extension Manager Setup', Comment = 'ESP="Conf. gestor extensiones"'; + DeleteAllowed = false; + InsertAllowed = false; PageType = Card; - ApplicationArea = All; - UsageCategory = Administration; SourceTable = "EXM Extension Setup"; - InsertAllowed = false; - DeleteAllowed = false; + UsageCategory = Administration; layout { @@ -18,18 +18,22 @@ page 83205 "EXM Extension Manager Setup" field("Extension Nos."; "Extension Nos.") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Extension Nos. field', Comment = 'ESP="Especifica el valor del campo Nº série extensión"'; } field("Object Names"; "Object Names") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Object Names field', Comment = 'ESP="Especifica el valor del campo Nombre objetos"'; } field("Default Object Starting ID"; "Default Object Starting ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Default Starting Range field', Comment = 'ESP="Especifica el valor del campo Rango inicial por defecto."'; } field("Default Object Ending ID"; "Default Object Ending ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Default Ending Range field', Comment = 'ESP="Especifica el valor del campo Rango final por defecto"'; } field("Find Object ID Gaps"; "Find Object ID Gaps") { @@ -44,10 +48,12 @@ page 83205 "EXM Extension Manager Setup" field("Disable Auto. Objects ID"; "Disable Auto. Objects ID") { ApplicationArea = All; + ToolTip = 'Allow to disable automatic ID assginment for Objects', Comment = 'ESP="Permite deshabilitar la asignación de ID a los objetos"'; } field("Disable Auto. Field ID"; "Disable Auto. Field ID") { ApplicationArea = All; + ToolTip = 'Allow to disable automatic ID assginment for Fields', Comment = 'ESP="Permite deshabilitar la asignación del ID a los campos"'; } } } @@ -58,13 +64,13 @@ page 83205 "EXM Extension Manager Setup" { action(Donate) { - Caption = 'Donate', Comment = 'ESP="Donar"'; ApplicationArea = All; + Caption = 'Donate', Comment = 'ESP="Donar"'; Image = Payment; Promoted = true; PromotedCategory = Process; - PromotedOnly = true; PromotedIsBig = true; + PromotedOnly = true; ToolTip = 'Thanks developer with an small tip.', Comment = 'ESP="Agradece al desarrollador con una propina."'; trigger OnAction() diff --git a/src/page/EXMExtensionTreeView.Page.al b/src/page/EXMExtensionTreeView.Page.al index d7441df..708a282 100644 --- a/src/page/EXMExtensionTreeView.Page.al +++ b/src/page/EXMExtensionTreeView.Page.al @@ -1,12 +1,12 @@ page 83215 "EXM Extension TreeView" { - PageType = List; Caption = 'EXM Extension TreeView'; - SourceTable = "EXM Extension Lines"; - SourceTableTemporary = true; + DeleteAllowed = false; InsertAllowed = false; ModifyAllowed = false; - DeleteAllowed = false; + PageType = List; + SourceTable = "EXM Extension Lines"; + SourceTableTemporary = true; layout { @@ -23,44 +23,52 @@ page 83215 "EXM Extension TreeView" { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Cód. extensión"'; } field("Object Type"; "Object Type") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto"'; } field("Object ID"; "Object ID") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto"'; } field(Name; Name) { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } field("Source Object ID"; "Source Object ID") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Source Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto origen"'; } field("Source Object Type"; "Source Object Type") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Source Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto origen"'; } field("Source Name"; "Source Name") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } field("Total Fields"; "Total Fields") { ApplicationArea = All; Caption = 'Level', Comment = 'ESP="Nivel"'; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Level field', Comment = 'ESP="Especifica el valor del campo Nivel"'; Visible = false; } } @@ -154,16 +162,16 @@ page 83215 "EXM Extension TreeView" StyleExp := 'standardaccent'; end; + var + StyleExp: Text; + ExtCode: Code[20]; + ViewCustNoExt: Code[20]; + ExtType: Integer; + internal procedure SetFilters(SetExtType: Integer; SetExtCode: Code[20]; SetCustNo: Code[20]) begin ExtType := SetExtType; ExtCode := SetExtCode; ViewCustNoExt := SetCustNo; end; - - var - StyleExp: Text; - ExtCode: Code[20]; - ViewCustNoExt: Code[20]; - ExtType: Integer; } \ No newline at end of file diff --git a/src/page/EXMExtensionsActivities.Page.al b/src/page/EXMExtensionsActivities.Page.al index b4890fb..54e4e4d 100644 --- a/src/page/EXMExtensionsActivities.Page.al +++ b/src/page/EXMExtensionsActivities.Page.al @@ -3,8 +3,8 @@ page 83209 "EXM Extensions Activities" Caption = 'Activities', Comment = 'ESP="Actividades"'; PageType = CardPart; RefreshOnActivate = true; - SourceTable = "EXM Extension Manager Cue"; ShowFilter = false; + SourceTable = "EXM Extension Manager Cue"; layout { diff --git a/src/page/EXMFieldList.Page.al b/src/page/EXMFieldList.Page.al index 67a17ff..bce5b5b 100644 --- a/src/page/EXMFieldList.Page.al +++ b/src/page/EXMFieldList.Page.al @@ -1,10 +1,10 @@ page 83203 "EXM Field List" { - PageType = List; - SourceTable = "EXM Table Fields"; + DataCaptionExpression = GetDesc(); DelayedInsert = true; Editable = true; - DataCaptionExpression = GetDesc(); + PageType = List; + SourceTable = "EXM Table Fields"; layout { @@ -15,44 +15,50 @@ page 83203 "EXM Field List" field("Extension Code"; "Extension Code") { ApplicationArea = All; - Visible = false; Editable = false; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Cód. extensión"'; + Visible = false; } field("Source Line No."; "Source Line No.") { ApplicationArea = All; Editable = false; - Visible = false; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Source Line No. field', Comment = 'ESP="Especifica el valor del campo Nº línea origen"'; + Visible = false; } field("Table Source Type"; "Table Source Type") { ApplicationArea = All; Editable = false; - Visible = false; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Source Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto origen"'; + Visible = false; } field("Source Table ID"; "Source Table ID") { ApplicationArea = All; Editable = false; - Visible = false; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Source Table ID field', Comment = 'ESP="Especifica el valor del campo Id. tabla origen"'; + Visible = false; } field("Table ID"; "Table ID") { ApplicationArea = All; Editable = false; - Visible = false; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Table ID field', Comment = 'ESP="Especifica el valor del campo Id. tabla"'; + Visible = false; } field(IsPK; IsPK) { ApplicationArea = All; - Visible = PKVisible; Enabled = ("Source Table ID" = 0); StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Is Part Of Primary Key field', Comment = 'ESP="Especifica el valor del campo Forma parte clave primária"'; + Visible = PKVisible; trigger OnValidate() begin if xRec.IsPK <> IsPK then @@ -63,58 +69,67 @@ page 83203 "EXM Field List" { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field ID field', Comment = 'ESP="Especifica el valor del campo Id. campo"'; } field("Field Name"; "Field Name") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field Name field', Comment = 'ESP="Especifica el valor del campo Nombre de campo"'; } field("Data Type"; "Data Type") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Data Type field', Comment = 'ESP="Especifica el valor del campo Tipo datos"'; } field(Lenght; Lenght) { ApplicationArea = All; Editable = (("Data Type" = "Data Type"::Text) or ("Data Type" = "Data Type"::Code)); StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Lenght field', Comment = 'ESP="Especifica el valor del campo Longitud"'; } field("Field Class"; "Field Class") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field Class field', Comment = 'ESP="Especifica el valor del campo Clase campo"'; } field("Option String"; "Option String") { ApplicationArea = All; Editable = ("Data Type" = "Data Type"::Option); StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Option String field', Comment = 'ESP="Especifica el valor del campo Texto opciones"'; } field(Obsolete; Obsolete) { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Obsolete field', Comment = 'ESP="Especifica el valor del campo Obsoleto"'; } field("Created by"; "Created by") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica el valor del campo Creado por"'; } field("Creation Date"; "Creation Date") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Creation Date field', Comment = 'ESP="Especifica el valor del campo Fecha creación"'; } } part(ExtTableExtDetail; "EXM TableExt Field List") { ApplicationArea = All; + Editable = false; + ShowFilter = false; SubPageLink = "Table Source Type" = filter("TableExtension"), "Source Table ID" = field("Source Table ID"); SubPageView = sorting("Source Table ID", "Field ID"); Visible = ViewTableExtDetail; - Editable = false; - ShowFilter = false; } } } @@ -124,14 +139,15 @@ page 83203 "EXM Field List" { action(AllFields) { - Caption = 'View / Hide fields', Comment = 'ESP="Ver / ocultar campos"'; ApplicationArea = All; + Caption = 'View / Hide fields', Comment = 'ESP="Ver / ocultar campos"'; + Enabled = ("Table Source Type" = "Table Source Type"::"TableExtension"); + Image = ResetStatus; Promoted = true; PromotedCategory = Process; PromotedIsBig = true; PromotedOnly = true; - Image = ResetStatus; - Enabled = ("Table Source Type" = "Table Source Type"::"TableExtension"); + ToolTip = 'View / Hide fields of selected table for other extensions', Comment = 'ESP="Ver / ocultar campos de tabla en otras extensiones"'; trigger OnAction() begin @@ -143,14 +159,15 @@ page 83203 "EXM Field List" } action(ViewSourceTable) { - Caption = 'View source table', Comment = 'ESP="Ver tabla origen"'; ApplicationArea = All; + Caption = 'View source table', Comment = 'ESP="Ver tabla origen"'; + Enabled = ("Table Source Type" = "Table Source Type"::"TableExtension"); + Image = Table; Promoted = true; PromotedCategory = Process; PromotedIsBig = true; PromotedOnly = true; - Image = Table; - Enabled = ("Table Source Type" = "Table Source Type"::"TableExtension"); + ToolTip = 'View source table fields', Comment = 'ESP="Muestra los campos de la tabla de origen"'; trigger OnAction() var @@ -161,13 +178,14 @@ page 83203 "EXM Field List" } action(AddRelField) { - Caption = 'Add to Related Tables', Comment = 'ESP="Añadir a tablas relacionadas"'; ApplicationArea = All; + Caption = 'Add to Related Tables', Comment = 'ESP="Añadir a tablas relacionadas"'; Image = Add; Promoted = true; PromotedCategory = Process; - PromotedOnly = true; PromotedIsBig = true; + PromotedOnly = true; + ToolTip = 'Add current field to defined related tables', Comment = 'ESP="Añade campo actual a tablas relacionadas definidas"'; Visible = ("Table Source Type" = "Table Source Type"::"TableExtension"); trigger OnAction() @@ -181,27 +199,6 @@ page 83203 "EXM Field List" } } - local procedure GetDesc(): Text - var - AllObject: Record AllObj; - EXMExtLine: Record "EXM Extension Lines"; - begin - EXMExtLine.Get("Extension Code", "Source Line No."); - if Rec."Table Source Type" = Rec."Table Source Type"::"TableExtension" then begin - AllObject.Get(AllObject."Object Type"::Table, "Source Table ID"); - exit(Format("Source Table ID") + ' ' + AllObject."Object Name" + ' - ' + Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); - end else - exit(Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); - end; - - local procedure GetPKStyle() - begin - PKVisible := ("Source Table ID" = 0); - StyleExp := 'standard'; - if IsPK then - StyleExp := 'strong'; - end; - trigger OnAfterGetRecord() begin GetPKStyle(); @@ -234,8 +231,28 @@ page 83203 "EXM Field List" end; var - ViewTableExtDetail: Boolean; PKVisible: Boolean; + ViewTableExtDetail: Boolean; StyleExp: Text; + local procedure GetDesc(): Text + var + AllObject: Record AllObj; + EXMExtLine: Record "EXM Extension Lines"; + begin + EXMExtLine.Get("Extension Code", "Source Line No."); + if Rec."Table Source Type" = Rec."Table Source Type"::"TableExtension" then begin + AllObject.Get(AllObject."Object Type"::Table, "Source Table ID"); + exit(Format("Source Table ID") + ' ' + AllObject."Object Name" + ' - ' + Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); + end else + exit(Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); + end; + + local procedure GetPKStyle() + begin + PKVisible := ("Source Table ID" = 0); + StyleExp := 'standard'; + if IsPK then + StyleExp := 'strong'; + end; } \ No newline at end of file diff --git a/src/page/EXMHeadlineRCExtManager.Page.al b/src/page/EXMHeadlineRCExtManager.Page.al index e9ede03..6aeed24 100644 --- a/src/page/EXMHeadlineRCExtManager.Page.al +++ b/src/page/EXMHeadlineRCExtManager.Page.al @@ -17,7 +17,7 @@ page 83208 "EXM Headline RC Ext. Manager" ApplicationArea = Basic, Suite; Caption = 'Greeting headline', Comment = 'ESP="Bienvenida!"'; Editable = false; - ToolTip = 'Welcome message. If pressed go to picazin.dev website', Comment = 'ESP="Mensaje de bienvenida. Visitar picazin.dev si pulsamos."'; + ToolTip = 'Welcome message. If pressed opens picazin.dev website', Comment = 'ESP="Mensaje de bienvenida. Visitar picazin.dev si pulsamos."'; } } group(Control2) diff --git a/src/page/EXMObjectDetail.Page.al b/src/page/EXMObjectDetail.Page.al index 1f9d644..89ab1bd 100644 --- a/src/page/EXMObjectDetail.Page.al +++ b/src/page/EXMObjectDetail.Page.al @@ -1,9 +1,9 @@ page 83214 "EXM Object Detail" { - PageType = List; - SourceTable = "EXM Extension Lines"; Caption = 'Objects Detail', Comment = 'ESP="Detalle Objetos"'; Editable = false; + PageType = List; + SourceTable = "EXM Extension Lines"; layout { @@ -14,33 +14,40 @@ page 83214 "EXM Object Detail" field("Object Type"; "Object Type") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto"'; } field("Object ID"; "Object ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto"'; } field(Name; Name) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } field("Source Object Type"; "Source Object Type") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Source Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto origen"'; Visible = SourceVisible; } field("Source Object ID"; "Source Object ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Source Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto origen"'; Visible = SourceVisible; } field("Source Name"; "Source Name") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre Origen" '; Visible = SourceVisible; } field("Total Fields"; "Total Fields") { ApplicationArea = All; + ToolTip = 'Shows the value of the Total fields field', Comment = 'ESP="Especifica el valor del campo Campos relacionados"'; Visible = FieldsVisible; trigger OnAssistEdit() begin @@ -50,12 +57,23 @@ page 83214 "EXM Object Detail" } } } + + trigger OnAfterGetRecord() + begin + SourceVisible := ("Source Object Type" <> "Source Object Type"::" "); + FieldsVisible := "Object Type" in ["Object Type"::Table, "Object Type"::"TableExtension", "Object Type"::Enum, "Object Type"::EnumExtension] + end; + + var + FieldsVisible: Boolean; + SourceVisible: Boolean; + local procedure ViewRelatedFields() var - EXMTableFields: Record "EXM Table Fields"; EXMEnumValues: Record "EXM Enum Values"; - EXMFieldList: Page "EXM Field List"; + EXMTableFields: Record "EXM Table Fields"; EXMEnumVal: Page "EXM Enum Values"; + EXMFieldList: Page "EXM Field List"; begin case "Object Type" of "Object Type"::"Table", "Object Type"::"TableExtension": @@ -94,14 +112,4 @@ page 83214 "EXM Object Detail" exit; end; end; - - trigger OnAfterGetRecord() - begin - SourceVisible := ("Source Object Type" <> "Source Object Type"::" "); - FieldsVisible := "Object Type" in ["Object Type"::Table, "Object Type"::"TableExtension", "Object Type"::Enum, "Object Type"::EnumExtension] - end; - - var - FieldsVisible: Boolean; - SourceVisible: Boolean; } diff --git a/src/page/EXMRelatedData.Page.al b/src/page/EXMRelatedData.Page.al index 286e891..792c284 100644 --- a/src/page/EXMRelatedData.Page.al +++ b/src/page/EXMRelatedData.Page.al @@ -1,6 +1,5 @@ page 83217 "EXM Related Data" { - Caption = 'EXM - Create fields on related tables', comment = 'ESP="EXM - Crear campos en tablas relacionadas"'; PageType = Document; SourceTable = "EXM Related Groups"; @@ -14,10 +13,12 @@ page 83217 "EXM Related Data" field("Code"; Code) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Code field', comment = 'ESP="Especifica el valor del campo Código"'; } field(Description; Description) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Description field', comment = 'ESP="Especifica el valor del campo Descripción"'; } } part(Lines; "EXM Related Lines") diff --git a/src/page/EXMRelatedDataList.Page.al b/src/page/EXMRelatedDataList.Page.al index 3f66b32..1448309 100644 --- a/src/page/EXMRelatedDataList.Page.al +++ b/src/page/EXMRelatedDataList.Page.al @@ -1,13 +1,12 @@ page 83216 "EXM Related Data List" { - ApplicationArea = All; Caption = 'EXM Related tables fields', comment = 'ESP="EXM Campos tablas relacionadas"'; + CardPageId = "EXM Related Data"; + Editable = false; PageType = List; SourceTable = "EXM Related Groups"; UsageCategory = Administration; - Editable = false; - CardPageId = "EXM Related Data"; layout { @@ -18,14 +17,17 @@ page 83216 "EXM Related Data List" field("Code"; Code) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Code field', comment = 'ESP="Especifica el valor del campo Código"'; } field(Description; Description) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Description field', comment = 'ESP="Especifica el valor del campo Descripción"'; } field("Related Tables No."; "Related Tables No.") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Related Tables No. field', comment = 'ESP="Muestra el Nº tablas relacionadas"'; } } } diff --git a/src/page/EXMRelatedLines.Page.al b/src/page/EXMRelatedLines.Page.al index 2da09d0..188a628 100644 --- a/src/page/EXMRelatedLines.Page.al +++ b/src/page/EXMRelatedLines.Page.al @@ -1,10 +1,9 @@ page 83218 "EXM Related Lines" { - Caption = 'EXM Related Lines'; + DelayedInsert = true; PageType = ListPart; SourceTable = "EXM Related Lines"; - DelayedInsert = true; layout { @@ -15,10 +14,12 @@ page 83218 "EXM Related Lines" field("Table ID"; "Table ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Table ID field', comment = 'ESP="Especifica el valor del campo ID Tabla"'; } field(Name; Name) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Name field', comment = 'ESP="Especifica el valor del campo Nombre"'; } } } diff --git a/src/page/EXMRoleCenter.Page.al b/src/page/EXMRoleCenter.Page.al index 3d77a8b..30e4ae9 100644 --- a/src/page/EXMRoleCenter.Page.al +++ b/src/page/EXMRoleCenter.Page.al @@ -1,7 +1,7 @@ page 83207 "EXM Role Center" { - PageType = RoleCenter; Caption = 'EXtension Manager', Comment = 'ESP="Gestor Extensiones"'; + PageType = RoleCenter; layout { @@ -37,31 +37,31 @@ page 83207 "EXM Role Center" { action(EXMExtensionCard) { - RunPageMode = Create; + ApplicationArea = Basic, Suite; Caption = 'New extension', Comment = 'ESP="Nueva extensión"'; - ToolTip = 'Create new extension', Comment = 'ESP="Crear nueva extensión"'; Image = New; RunObject = Page "EXM Extension Header"; - ApplicationArea = Basic, Suite; + RunPageMode = Create; + ToolTip = 'Create new extension', Comment = 'ESP="Crear nueva extensión"'; } action(RelatedTables) { - RunPageMode = Create; + ApplicationArea = Basic, Suite; Caption = 'New table group', Comment = 'ESP="Nuevo grupo de tablas"'; - ToolTip = 'Create new table group where fields will be replicated when one selected', Comment = 'ESP="Crear nuevo grupo de tablas donde replicar campos."'; Image = New; RunObject = Page "EXM Related Data"; - ApplicationArea = Basic, Suite; + RunPageMode = Create; + ToolTip = 'Create new table group where fields will be replicated when one selected', Comment = 'ESP="Crear nuevo grupo de tablas donde replicar campos."'; } } area(Embedding) { action(EXMExtensionList) { + ApplicationArea = Basic, Suite; Caption = 'Extensions', Comment = 'ESP="Extensiones"'; - ToolTip = 'View all extensions', Comment = 'ESP="Ver extensiones"'; RunObject = Page "EXM Extension List"; - ApplicationArea = Basic, Suite; + ToolTip = 'View all extensions', Comment = 'ESP="Ver extensiones"'; } action(Customers) { @@ -85,30 +85,30 @@ page 83207 "EXM Role Center" group(Setup) { Caption = 'Setup', Comment = 'ESP="Configuración"'; - ToolTip = 'Overview and change system and application settings', Comment = 'ESP="Modificar parámetros aplicación"'; Image = Setup; + ToolTip = 'Overview and change system and application settings', Comment = 'ESP="Modificar parámetros aplicación"'; action(EXMSetup) { + ApplicationArea = Basic, Suite; Caption = 'Setup EXM', Comment = 'ESP="Configuración EXM"'; - ToolTip = 'Setup EXM', Comment = 'ESP="Configuración EXM"'; RunObject = Page "EXM Extension Manager Setup"; - ApplicationArea = Basic, Suite; + ToolTip = 'Setup EXM', Comment = 'ESP="Configuración EXM"'; } action("Assisted Setup") { + ApplicationArea = Basic, Suite; Caption = 'Assisted Setup', Comment = 'ESP="Asistente de configuración"'; - ToolTip = 'Setup EXM using an assisted wizard', Comment = 'ESP="Configurar mediante asistente"'; RunObject = Page "EXM Setup Wizard"; - ApplicationArea = Basic, Suite; + ToolTip = 'Setup EXM using an assisted wizard', Comment = 'ESP="Configurar mediante asistente"'; } action("Related Table Fields") { + ApplicationArea = Basic, Suite; Caption = 'Related Table Fields', Comment = 'ESP="Campos tablas relacionadas"'; - ToolTip = 'Set tables to create same fields as selected one.', Comment = 'ESP="Definir tablas donde crear copias de campo seleccionado."'; RunObject = Page "EXM Related Data List"; - ApplicationArea = Basic, Suite; + ToolTip = 'Set tables to create same fields as selected one.', Comment = 'ESP="Definir tablas donde crear copias de campo seleccionado."'; } } } diff --git a/src/page/EXMSetupWizard.Page.al b/src/page/EXMSetupWizard.Page.al index 3347550..b150900 100644 --- a/src/page/EXMSetupWizard.Page.al +++ b/src/page/EXMSetupWizard.Page.al @@ -1,13 +1,13 @@ page 83212 "EXM Setup Wizard" { - PageType = NavigatePage; Caption = 'Extension Manager assisted setup guide', Comment = 'ESP="Asistente configuración gestor extensiones"'; ContextSensitiveHelpPage = 'README.md'; - SourceTable = "EXM Extension Setup"; DeleteAllowed = false; InsertAllowed = false; LinksAllowed = false; + PageType = NavigatePage; ShowFilter = false; + SourceTable = "EXM Extension Setup"; layout { @@ -17,8 +17,8 @@ page 83212 "EXM Setup Wizard" { Caption = ''; Editable = false; - Visible = TopBannerVisible; ShowCaption = false; + Visible = TopBannerVisible; field(MediaRef; MediaResourcesStandard."Media Reference") { ApplicationArea = Basic, Suite; @@ -157,10 +157,10 @@ page 83212 "EXM Setup Wizard" ApplicationArea = All; Caption = 'Donate', Comment = 'ESP="Donar"'; Enabled = FinalPageVisible; - Visible = FinalPageVisible; Image = Check; InFooterBar = true; ToolTip = 'Thanks developer with an small tip.', Comment = 'ESP="Agradece al desarrollador con una propina."'; + Visible = FinalPageVisible; trigger OnAction(); var @@ -175,10 +175,10 @@ page 83212 "EXM Setup Wizard" ApplicationArea = All; Caption = 'Back', Comment = 'ESP="Atrás"'; Enabled = BackEnabled; - Visible = BackEnabled; Image = PreviousRecord; InFooterBar = true; ToolTip = 'Go Back', Comment = 'ESP="Volver atrás"'; + Visible = BackEnabled; trigger OnAction(); begin @@ -191,10 +191,10 @@ page 83212 "EXM Setup Wizard" ApplicationArea = All; Caption = 'Next', Comment = 'ESP="Siguiente"'; Enabled = NextEnabled; - Visible = NextEnabled; Image = NextRecord; InFooterBar = true; ToolTip = 'Move to next page', Comment = 'ESP="Ver siguiente página"'; + Visible = NextEnabled; trigger OnAction(); begin @@ -230,6 +230,12 @@ page 83212 "EXM Setup Wizard" EnableControls(); end; + var + MediaRepositoryStandard: Record "Media Repository"; + MediaResourcesStandard: Record "Media Resources"; + TopBannerVisible, FirstPageVisible, SecondPageVisible, ThirdPageVisible, FinalPageVisible, BackEnabled, NextEnabled : Boolean; + Step: Option First,Second,Third,Finish; + local procedure EnableControls(); begin ResetControls(); @@ -249,6 +255,21 @@ page 83212 "EXM Setup Wizard" end; end; + local procedure Finish(); + var + EXMAssistedSetup: Codeunit "EXM Assisted Setup"; + begin + EXMAssistedSetup.WizardComplete(); + CurrPage.Close(); + end; + + local procedure LoadTopBanners(); + begin + if MediaRepositoryStandard.Get('AssistedSetup-NoText-400px.png', Format(CurrentClientType)) then + if MediaResourcesStandard.Get(MediaRepositoryStandard."Media Resources Ref") then + TopBannerVisible := MediaResourcesStandard."Media Reference".HasValue; + end; + local procedure NextStep(Backwards: Boolean); begin if Backwards then @@ -258,12 +279,21 @@ page 83212 "EXM Setup Wizard" EnableControls(); end; - local procedure Finish(); - var - EXMAssistedSetup: Codeunit "EXM Assisted Setup"; + local procedure ResetControls(); begin - EXMAssistedSetup.WizardComplete(); - CurrPage.Close(); + BackEnabled := true; + NextEnabled := true; + FirstPageVisible := false; + SecondPageVisible := false; + ThirdPageVisible := false; + FinalPageVisible := false; + end; + + local procedure ShowFinalPage(); + begin + FinalPageVisible := true; + BackEnabled := true; + NextEnabled := false; end; local procedure ShowFirstPage(); @@ -292,35 +322,5 @@ page 83212 "EXM Setup Wizard" BackEnabled := true; NextEnabled := true; end; - - local procedure ShowFinalPage(); - begin - FinalPageVisible := true; - BackEnabled := true; - NextEnabled := false; - end; - - local procedure ResetControls(); - begin - BackEnabled := true; - NextEnabled := true; - FirstPageVisible := false; - SecondPageVisible := false; - ThirdPageVisible := false; - FinalPageVisible := false; - end; - - local procedure LoadTopBanners(); - begin - if MediaRepositoryStandard.Get('AssistedSetup-NoText-400px.png', Format(CurrentClientType)) then - if MediaResourcesStandard.Get(MediaRepositoryStandard."Media Resources Ref") then - TopBannerVisible := MediaResourcesStandard."Media Reference".HasValue; - end; - - var - MediaRepositoryStandard: Record "Media Repository"; - MediaResourcesStandard: Record "Media Resources"; - Step: Option First,Second,Third,Finish; - TopBannerVisible, FirstPageVisible, SecondPageVisible, ThirdPageVisible, FinalPageVisible, BackEnabled, NextEnabled : Boolean; } diff --git a/src/page/EXMTableExtFieldList.Page.al b/src/page/EXMTableExtFieldList.Page.al index 37e264c..9759682 100644 --- a/src/page/EXMTableExtFieldList.Page.al +++ b/src/page/EXMTableExtFieldList.Page.al @@ -1,12 +1,12 @@ page 83204 "EXM TableExt Field List" { Caption = 'TableExtensions Fields', Comment = 'ESP="Campos TableExtensions"'; - PageType = ListPart; - SourceTable = "EXM Table Fields"; + DeleteAllowed = false; InsertAllowed = false; ModifyAllowed = false; - DeleteAllowed = false; + PageType = ListPart; ShowFilter = false; + SourceTable = "EXM Table Fields"; layout { area(Content) @@ -16,52 +16,64 @@ page 83204 "EXM TableExt Field List" field("Extension Code"; "Extension Code") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Cód. extensión"'; } field("Source Table ID"; "Source Table ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Source Table ID field', Comment = 'ESP="Especifica el valor del campo Id. tabla origen"'; Visible = false; } field("Table ID"; "Table ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Table ID field', Comment = 'ESP="Especifica el valor del campo Id. tabla"'; Visible = false; } field("Field ID"; "Field ID") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Field ID field', Comment = 'ESP="Especifica el valor del campo Id. campo"'; } field("Field Name"; "Field Name") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Field Name field', Comment = 'ESP="Especifica el valor del campo Nombre de campo"'; } field("Data Type"; "Data Type") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Data Type field', Comment = 'ESP="Especifica el valor del campo Tipo datos"'; } field(Lenght; Lenght) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Lenght field', Comment = 'ESP="Especifica el valor del campo Longitud"'; } field("Field Class"; "Field Class") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Field Class field', Comment = 'ESP="Especifica el valor del campo Clase campo"'; } field("Option String"; "Option String") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Option String field', Comment = 'ESP="Especifica el valor del campo Texto opciones"'; } field(Obsolete; Obsolete) { ApplicationArea = All; + ToolTip = 'Specifies the value of the Obsolete field', Comment = 'ESP="Especifica el valor del campo Obsoleto"'; } field("Created by"; "Created by") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica el valor del campo Creado por"'; } field("Creation Date"; "Creation Date") { ApplicationArea = All; + ToolTip = 'Specifies the value of the Creation Date field', Comment = 'ESP="Especifica el valor del campo Fecha creación"'; } } } diff --git a/src/page/EXMTableFieldDetail.Page.al b/src/page/EXMTableFieldDetail.Page.al index 415caa5..032fb4a 100644 --- a/src/page/EXMTableFieldDetail.Page.al +++ b/src/page/EXMTableFieldDetail.Page.al @@ -1,14 +1,14 @@ page 83206 "EXM Table Field Detail" { Caption = 'Table Fields', Comment = 'ESP="Campos Tabla"'; - PageType = List; - SourceTable = "EXM Table Fields"; + DataCaptionExpression = GetTableDesc(); + DeleteAllowed = false; + Editable = false; InsertAllowed = false; ModifyAllowed = false; - DeleteAllowed = false; + PageType = List; ShowFilter = false; - Editable = false; - DataCaptionExpression = GetTableDesc(); + SourceTable = "EXM Table Fields"; layout { @@ -20,42 +20,50 @@ page 83206 "EXM Table Field Detail" { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field ID field', Comment = 'ESP="Especifica el valor del campo Id. campo"'; } field("Field Name"; "Field Name") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field Name field', Comment = 'ESP="Especifica el valor del campo Nombre de campo"'; } - + field("Field Caption"; "Field Caption") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field Caption field', Comment = 'ESP="Especifica el valor del campo Título campo"'; } field("Data Type"; "Data Type") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Data Type field', Comment = 'ESP="Especifica el valor del campo Tipo datos"'; } field(Lenght; Lenght) { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Lenght field', Comment = 'ESP="Especifica el valor del campo Longitud"'; } field("Field Class"; "Field Class") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field Class field', Comment = 'ESP="Especifica el valor del campo Clase campo"'; } field("Option String"; "Option String") { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Option String field', Comment = 'ESP="Especifica el valor del campo Texto opciones"'; } field(Obsolete; Obsolete) { ApplicationArea = All; StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Obsolete field', Comment = 'ESP="Especifica el valor del campo Obsoleto"'; } } } @@ -68,6 +76,9 @@ page 83206 "EXM Table Field Detail" StyleExp := 'strong'; end; + var + StyleExp: Text; + local procedure GetTableDesc(): Text var AllObject: Record AllObj; @@ -75,7 +86,4 @@ page 83206 "EXM Table Field Detail" AllObject.Get(AllObject."Object Type"::Table, "Table ID"); exit(Format("Table ID") + ' ' + AllObject."Object Name") end; - - var - StyleExp: Text; } \ No newline at end of file diff --git a/src/pageextension/EXMCustomerCard.PageExt.al b/src/pageextension/EXMCustomerCard.PageExt.al index 42e1a42..4665b3d 100644 --- a/src/pageextension/EXMCustomerCard.PageExt.al +++ b/src/pageextension/EXMCustomerCard.PageExt.al @@ -6,8 +6,8 @@ pageextension 83201 "EXM Customer Card" extends "Customer Card" { action(EXMALExtensions) { - Caption = 'Extensions', Comment = 'ESP="Extensiones"'; ApplicationArea = All; + Caption = 'Extensions', Comment = 'ESP="Extensiones"'; Image = Design; Promoted = true; PromotedCategory = Category9; diff --git a/src/pageextension/EXMCustomerList.PageExt.al b/src/pageextension/EXMCustomerList.PageExt.al index a65236a..7442d51 100644 --- a/src/pageextension/EXMCustomerList.PageExt.al +++ b/src/pageextension/EXMCustomerList.PageExt.al @@ -6,8 +6,8 @@ pageextension 83200 "EXM Customer List" extends "Customer List" { action(EXMALExtensions) { - Caption = 'Extensions', Comment = 'ESP="Extensiones"'; ApplicationArea = All; + Caption = 'Extensions', Comment = 'ESP="Extensiones"'; Image = Design; Promoted = true; PromotedCategory = Category7; diff --git a/src/profile/EXMManager.Profile.al b/src/profile/EXMManager.Profile.al index c28b5e3..5efc10e 100644 --- a/src/profile/EXMManager.Profile.al +++ b/src/profile/EXMManager.Profile.al @@ -1,9 +1,9 @@ profile "EXM Manager" { - Description = 'EXM Manager by picazin.dev'; Caption = 'EXM - Extension Manager', Comment = 'EXM - Gestor extensiones'; - ProfileDescription = 'Manage all your extensions, related objects and IDs', Comment = 'Gestione todas sus extensiones, objectos y IDs'; - RoleCenter = "EXM Role Center"; + Description = 'EXM Manager by picazin.dev'; Enabled = true; + ProfileDescription = 'Manage all your extensions, related objects and IDs', Comment = 'Gestione todas sus extensiones, objectos y IDs'; Promoted = true; + RoleCenter = "EXM Role Center"; } \ No newline at end of file diff --git a/src/table/EXMEnumValues.Table.al b/src/table/EXMEnumValues.Table.al index cdc673e..5717a63 100644 --- a/src/table/EXMEnumValues.Table.al +++ b/src/table/EXMEnumValues.Table.al @@ -1,8 +1,8 @@ table 83205 "EXM Enum Values" { Caption = 'Enums values', Comment = 'ESP="Valores Enum"'; - LookupPageId = "EXM Enum Values"; DataClassification = OrganizationIdentifiableInformation; + LookupPageId = "EXM Enum Values"; fields { @@ -28,14 +28,14 @@ table 83205 "EXM Enum Values" { Caption = 'Source Type', Comment = 'ESP="Tipo origen"'; DataClassification = OrganizationIdentifiableInformation; - OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; OptionCaption = ',,,,,,,,,,,,,,,,Enum,EnumExtension,,,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",,,,,,,,,,,,,,,,Enum,EnumExtension,,,,,,,,,,,,,,,,,,,,, "'; + OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; } field(4; "Source Enum ID"; Integer) { + BlankZero = true; Caption = 'Source Enum ID', Comment = 'ESP="Id. Enum origen"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; trigger OnValidate() var @@ -47,9 +47,9 @@ table 83205 "EXM Enum Values" } field(5; "Enum ID"; Integer) { + BlankZero = true; Caption = 'Enum ID', Comment = 'ESP="Id. Enum"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; trigger OnValidate() var @@ -119,11 +119,11 @@ table 83205 "EXM Enum Values" //TODO Improvement - Look for empty ID local procedure SetEnumID(SourceEnumID: Integer; EnumID: Integer; CustNo: Code[20]) EnumValueID: Integer var - EXMSetup: Record "EXM Extension Setup"; - EXMExtHeader: Record "EXM Extension Header"; EXMEnumValues: Record "EXM Enum Values"; - ExpectedId: Integer; + EXMExtHeader: Record "EXM Extension Header"; + EXMSetup: Record "EXM Extension Setup"; IsHandled: Boolean; + ExpectedId: Integer; begin EXMSetup.Get(); If EXMSetup."Disable Auto. Field ID" then @@ -200,12 +200,12 @@ table 83205 "EXM Enum Values" end; [IntegrationEvent(false, false)] - local procedure OnBeforeCalculateEnumValueID(SourceEnumID: Integer; EnumID: Integer; CustNo: Code[20]; var EnumValueID: Integer; var IsHandled: Boolean) + local procedure OnAfterAssignEnumID(SourceEnumID: Integer; EnumID: Integer; CustNo: Code[20]; var EnumValueID: Integer) begin end; [IntegrationEvent(false, false)] - local procedure OnAfterAssignEnumID(SourceEnumID: Integer; EnumID: Integer; CustNo: Code[20]; var EnumValueID: Integer) + local procedure OnBeforeCalculateEnumValueID(SourceEnumID: Integer; EnumID: Integer; CustNo: Code[20]; var EnumValueID: Integer; var IsHandled: Boolean) begin end; } \ No newline at end of file diff --git a/src/table/EXMExtensionDependencies.Table.al b/src/table/EXMExtensionDependencies.Table.al index 8eabd67..22eee3e 100644 --- a/src/table/EXMExtensionDependencies.Table.al +++ b/src/table/EXMExtensionDependencies.Table.al @@ -2,14 +2,14 @@ table 83208 "EXM Extension Dependencies" { Caption = 'Extension Dependencies', comment = 'ESP="Dependencias extensión"'; DataClassification = SystemMetadata; - LookupPageId = "EXM Extension Dependencies"; DrillDownPageId = "EXM Extension Dependencies"; + LookupPageId = "EXM Extension Dependencies"; fields { field(1; "Extensión Code"; Code[20]) { - Caption = 'Extensión Code'; + Caption = 'Extensión Code', comment = 'ESP="Cód. extensión"'; DataClassification = SystemMetadata; TableRelation = "EXM Extension Header"; } @@ -17,17 +17,17 @@ table 83208 "EXM Extension Dependencies" { Caption = 'Customer No.', Comment = 'ESP="Nº Cliente"'; DataClassification = SystemMetadata; - TableRelation = Customer; Editable = false; + TableRelation = Customer; } field(5; "Line No."; Integer) { - Caption = 'Line No.'; + Caption = 'Line No.', comment = 'ESP="Nº línea"'; DataClassification = SystemMetadata; } field(10; "Dependent Ext. Code"; Code[20]) { - Caption = 'Dependent Ext. Code'; + Caption = 'Dependent Ext. Code', comment = 'ESP="Cód. extensión dependiente"'; DataClassification = SystemMetadata; TableRelation = "EXM Extension Header"; @@ -46,8 +46,8 @@ table 83208 "EXM Extension Dependencies" trigger OnLookup() var - ExtHeader: Record "EXM Extension Header"; AvailableExt: Record "EXM Extension Header"; + ExtHeader: Record "EXM Extension Header"; ExtHeaderList: Page "EXM Extension List"; begin ExtHeader.Get("Extensión Code"); @@ -69,7 +69,7 @@ table 83208 "EXM Extension Dependencies" } field(15; "Dependent Ext. Name"; Text[100]) { - Caption = 'Dependent Ext. Name'; + Caption = 'Dependent Ext. Name', comment = 'ESP="Nombre extensión dependiente"'; DataClassification = SystemMetadata; Editable = false; } diff --git a/src/table/EXMExtensionHeader.Table.al b/src/table/EXMExtensionHeader.Table.al index 062a9a2..b693f5c 100644 --- a/src/table/EXMExtensionHeader.Table.al +++ b/src/table/EXMExtensionHeader.Table.al @@ -1,7 +1,7 @@ table 83201 "EXM Extension Header" { - DataClassification = OrganizationIdentifiableInformation; Caption = 'Extension', Comment = 'ESP="Extensión"'; + DataClassification = OrganizationIdentifiableInformation; fields { @@ -19,8 +19,8 @@ table 83201 "EXM Extension Header" { Caption = 'Type', Comment = 'ESP="Tipo"'; DataClassification = OrganizationIdentifiableInformation; - OptionMembers = Internal,External; OptionCaption = 'Internal,External', Comment = 'ESP="Interna,Externa"'; + OptionMembers = Internal,External; trigger OnValidate() begin if (xRec.Type <> Rec.Type) and (Rec.Type = Rec.Type::Internal) then begin @@ -32,9 +32,9 @@ table 83201 "EXM Extension Header" } field(4; "Object Starting ID"; Integer) { + BlankZero = true; Caption = 'Object Starting ID', Comment = 'ESP="Inicio ID objetos"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; trigger OnValidate() var EXMExtMgt: Codeunit "EXM Extension Management"; @@ -51,9 +51,9 @@ table 83201 "EXM Extension Header" } field(5; "Object Ending ID"; Integer) { + BlankZero = true; Caption = 'Object Ending ID', Comment = 'ESP="Final ID objetos"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; trigger OnValidate() var EXMExtMgt: Codeunit "EXM Extension Management"; @@ -108,10 +108,10 @@ table 83201 "EXM Extension Header" } field(10; Dependencies; Integer) { - Caption = 'Dependencies', Comment = 'ESP="Dependencias"'; - FieldClass = FlowField; CalcFormula = Count("EXM Extension Dependencies" where("Extensión Code" = field(Code))); + Caption = 'Dependencies', Comment = 'ESP="Dependencias"'; Editable = false; + FieldClass = FlowField; } field(20; Price; Decimal) @@ -133,9 +133,9 @@ table 83201 "EXM Extension Header" { Caption = 'Installations', Comment = 'ESP="Instalaciones"'; - OptionMembers = " ",Account,Item; - OptionCaption = ' ,Account,Item', Comment = 'ESP=" ,Cuenta,Producto"'; DataClassification = OrganizationIdentifiableInformation; + OptionCaption = ' ,Account,Item', Comment = 'ESP=" ,Cuenta,Producto"'; + OptionMembers = " ",Account,Item; trigger OnValidate() begin if "Sell-Type" = "Sell-Type"::" " then @@ -151,87 +151,87 @@ table 83201 "EXM Extension Header" } field(25; "No. of Tables"; Integer) { - Caption = 'No. of Tables', Comment = 'ESP="Nº Tablas"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter(Table))); + Caption = 'No. of Tables', Comment = 'ESP="Nº Tablas"'; Editable = false; + FieldClass = FlowField; } field(26; "No. of Reports"; Integer) { - Caption = 'No. of Reports', Comment = 'ESP="Nº Informes"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter(Report))); + Caption = 'No. of Reports', Comment = 'ESP="Nº Informes"'; Editable = false; + FieldClass = FlowField; } field(27; "No. of Codeunits"; Integer) { - Caption = 'No. of Codeunits', Comment = 'ESP="Nº Codeunits"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter(Codeunit))); + Caption = 'No. of Codeunits', Comment = 'ESP="Nº Codeunits"'; Editable = false; + FieldClass = FlowField; } field(28; "No. of XMLports"; Integer) { - Caption = 'No. of XMLports', Comment = 'ESP="Nº XMLports"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter(XMLport))); + Caption = 'No. of XMLports', Comment = 'ESP="Nº XMLports"'; Editable = false; + FieldClass = FlowField; } field(29; "No. of Page"; Integer) { - Caption = 'No. of Pages', Comment = 'ESP="Nº Pages"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter(Page))); + Caption = 'No. of Pages', Comment = 'ESP="Nº Pages"'; Editable = false; + FieldClass = FlowField; } field(30; "No. of Querys"; Integer) { - Caption = 'No. of Querys', Comment = 'ESP="Nº Querys"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter(Query))); + Caption = 'No. of Querys', Comment = 'ESP="Nº Querys"'; Editable = false; + FieldClass = FlowField; } field(31; "No. of PageExtensions"; Integer) { - Caption = 'No. of PageExtensions', Comment = 'ESP="Nº PageExtensions"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter("PageExtension"))); + Caption = 'No. of PageExtensions', Comment = 'ESP="Nº PageExtensions"'; Editable = false; + FieldClass = FlowField; } field(32; "No. of TableExtensions"; Integer) { - Caption = 'No. of TableExtensions', Comment = 'ESP="Nº TableExtensions"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter("TableExtension"))); + Caption = 'No. of TableExtensions', Comment = 'ESP="Nº TableExtensions"'; Editable = false; + FieldClass = FlowField; } field(33; "No. of Enums"; Integer) { - Caption = 'No. of Enums', Comment = 'ESP="Nº Enums"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter(Enum))); + Caption = 'No. of Enums', Comment = 'ESP="Nº Enums"'; Editable = false; + FieldClass = FlowField; } field(34; "No. of EnumExtensions"; Integer) { - Caption = 'No. of EnumExtensions', Comment = 'ESP="Nº EnumExtensions"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter(EnumExtension))); + Caption = 'No. of EnumExtensions', Comment = 'ESP="Nº EnumExtensions"'; Editable = false; + FieldClass = FlowField; } field(35; "No. of Profiles"; Integer) { - Caption = 'No. of Profiles', Comment = 'ESP="Nº Profiles"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter(Profile))); + Caption = 'No. of Profiles', Comment = 'ESP="Nº Profiles"'; Editable = false; + FieldClass = FlowField; } field(36; "No. of ProfileExtensions"; Integer) { - Caption = 'No. of ProfileExtensions', Comment = 'ESP="Nº ProfileExtensions"'; - FieldClass = FlowField; CalcFormula = count("EXM Extension Lines" where("Extension Code" = field(Code), "Object Type" = filter("ProfileExtension"))); + Caption = 'No. of ProfileExtensions', Comment = 'ESP="Nº ProfileExtensions"'; Editable = false; + FieldClass = FlowField; } field(50; "GIT Repository URL"; Text[2048]) { @@ -252,14 +252,14 @@ table 83201 "EXM Extension Header" } local procedure CheckObjectRange(); var + ExtEnum: Record "EXM Enum Values"; ExtLine: Record "EXM Extension Lines"; ExtField: Record "EXM Table Fields"; - ExtEnum: Record "EXM Enum Values"; - ErrorMsg: Text; ShowError: Boolean; - ObjectIDRangeErr: Label 'Already exist objects outside range %1 - %2.', comment = 'ESP="Existen objetos fuera del rango %1 - %2."'; FieldIDRangeErr: Label 'Already exist field IDs on TableExtensions outside range %1 - %2.', comment = 'ESP="Existen IDs de campo en TableExtension fuera del rango %1 - %2."'; OrdinalIDRangeErr: Label 'Already exist IDs on EnumExtensions outside range %1 - %2.', comment = 'ESP="Existen IDs en EnumExtension fuera del rango %1 - %2."'; + ObjectIDRangeErr: Label 'Already exist objects outside range %1 - %2.', comment = 'ESP="Existen objetos fuera del rango %1 - %2."'; + ErrorMsg: Text; begin //Check Objects ID fits current range ExtLine.SetRange("Extension Code", Code); @@ -325,9 +325,9 @@ table 83201 "EXM Extension Header" local procedure SetRelLines() var + ExtEnum: Record "EXM Enum Values"; ExtLine: Record "EXM Extension Lines"; ExtField: Record "EXM Table Fields"; - ExtEnum: Record "EXM Enum Values"; begin ExtLine.SetRange("Extension Code", Code); ExtLine.ModifyAll("Customer No.", "Customer No."); @@ -355,9 +355,9 @@ table 83201 "EXM Extension Header" trigger OnDelete() var + EXMEnumValues: Record "EXM Enum Values"; EXMExtLines: Record "EXM Extension Lines"; EXMFields: Record "EXM Table Fields"; - EXMEnumValues: Record "EXM Enum Values"; begin EXMExtLines.SetRange("Extension Code", Code); EXMExtLines.DeleteAll(); diff --git a/src/table/EXMExtensionLines.Table.al b/src/table/EXMExtensionLines.Table.al index 7a04520..8120f9e 100644 --- a/src/table/EXMExtensionLines.Table.al +++ b/src/table/EXMExtensionLines.Table.al @@ -26,9 +26,9 @@ table 83202 "EXM Extension Lines" { Caption = 'Object Type', Comment = 'ESP="Tipo objeto"'; DataClassification = OrganizationIdentifiableInformation; - OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; - OptionCaption = ',Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, "'; InitValue = " "; + OptionCaption = ',Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, "'; + OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; trigger OnValidate() var @@ -53,9 +53,9 @@ table 83202 "EXM Extension Lines" } field(4; "Object ID"; Integer) { + BlankZero = true; Caption = 'Object ID', Comment = 'ESP="ID objeto"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; NotBlank = true; trigger OnValidate() @@ -73,9 +73,9 @@ table 83202 "EXM Extension Lines" { Caption = 'Source Object Type', Comment = 'ESP="Tipo objeto origen"'; DataClassification = OrganizationIdentifiableInformation; - OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; - OptionCaption = ',Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, "'; InitValue = " "; + OptionCaption = ',Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, "'; + OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; trigger OnValidate() var @@ -97,14 +97,14 @@ table 83202 "EXM Extension Lines" } field(7; "Source Object ID"; Integer) { + BlankZero = true; Caption = 'Source Object ID', Comment = 'ESP="ID objeto origen"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; trigger OnValidate() var - AllProfile: Record "All Profile"; AllObjects: Record AllObjWithCaption; + AllProfile: Record "All Profile"; ExtMngt: Codeunit "EXM Extension Management"; ProfileNotFoundErr: Label 'Profile with %1 %2 not found.', Comment = 'ESP="Perfil con %1 %2 no encontrado."'; begin @@ -126,10 +126,10 @@ table 83202 "EXM Extension Lines" trigger OnLookup() var - AllProfile: Record "All Profile"; AllObjects: Record AllObjWithCaption; - ProfileList: Page "Profile List"; + AllProfile: Record "All Profile"; AllObjList: Page "All Objects with Caption"; + ProfileList: Page "Profile List"; begin case "Object Type" of "Object Type"::"ProfileExtension": @@ -179,9 +179,9 @@ table 83202 "EXM Extension Lines" field(10; "Total Fields"; Integer) { + BlankZero = true; Caption = 'Total fields', Comment = 'ESP="Campos relacionados"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; Editable = false; } field(11; Obsolete; Boolean) @@ -240,8 +240,8 @@ table 83202 "EXM Extension Lines" trigger OnDelete() var - EXMFields: Record "EXM Table Fields"; EXMEnumValues: Record "EXM Enum Values"; + EXMFields: Record "EXM Table Fields"; begin EXMFields.SetRange("Extension Code", "Extension Code"); EXMFields.SetRange("Source Line No.", "Line No."); @@ -251,61 +251,52 @@ table 83202 "EXM Extension Lines" EXMEnumValues.SetRange("Source Line No.", "Line No."); EXMEnumValues.DeleteAll(); end; - //#endregion Triggers - local procedure UpdateRelated() + procedure GetLineNo(): Integer var - TableFields: Record "EXM Table Fields"; - NewTableFields: Record "EXM Table Fields"; - EnumValues: Record "EXM Enum Values"; - NewEnumValues: Record "EXM Enum Values"; + ExtLine: Record "EXM Extension Lines"; + begin + ExtLine.SetRange("Extension Code", "Extension Code"); + if ExtLine.FindLast() then + exit(ExtLine."Line No." + 10000); + exit(10000); + end; + + procedure GetTotalFields(): Integer + var + EXMEnumValues: Record "EXM Enum Values"; + EXMTableFields: Record "EXM Table Fields"; begin case "Object Type" of - "Object Type"::Table, "Object Type"::"TableExtension": + "Object Type"::"Table", "Object Type"::"TableExtension": begin - TableFields.SetRange("Extension Code", "Extension Code"); - TableFields.SetRange("Source Line No.", "Line No."); - TableFields.SetRange("Table Source Type", xRec."Object Type"); - TableFields.SetRange("Source Table ID", xRec."Source Object ID"); - TableFields.SetRange("Table ID", xRec."Object ID"); - if TableFields.FindSet() then - repeat - NewTableFields.Init(); - NewTableFields := TableFields; - NewTableFields."Table Source Type" := "Object Type"; - NewTableFields."Source Table ID" := "Source Object ID"; - NewTableFields."Table ID" := "Object ID"; - NewTableFields.Insert(); - TableFields.Delete(); - until TableFields.Next() = 0; + EXMTableFields.SetRange("Extension Code", "Extension Code"); + EXMTableFields.SetRange("Source Line No.", "Line No."); + EXMTableFields.SetRange("Table Source Type", "Object Type"); + EXMTableFields.SetRange("Table ID", "Object ID"); + EXMTableFields.SetRange("Source Table ID", "Source Object ID"); + exit(EXMTableFields.Count()); end; "Object Type"::Enum, "Object Type"::EnumExtension: begin - EnumValues.SetRange("Extension Code", "Extension Code"); - EnumValues.SetRange("Source Line No.", "Line No."); - EnumValues.SetRange("Source Type", xRec."Object Type"); - EnumValues.SetRange("Source Enum ID", xRec."Object ID"); - EnumValues.SetRange("Enum ID", xRec."Object ID"); - if EnumValues.FindSet() then - repeat - NewEnumValues.Init(); - NewEnumValues := EnumValues; - NewEnumValues."Source Type" := "Object Type"; - NewEnumValues."Source Enum ID" := "Source Object ID"; - NewEnumValues."Enum ID" := "Object ID"; - NewEnumValues.Insert(); - EnumValues.Delete(); - until EnumValues.Next() = 0; + EXMEnumValues.SetRange("Extension Code", "Extension Code"); + EXMEnumValues.SetRange("Source Line No.", "Line No."); + EXMEnumValues.SetRange("Source Type", "Object Type"); + EXMEnumValues.SetRange("Enum ID", "Object ID"); + EXMEnumValues.SetRange("Source Enum ID", "Source Object ID"); + exit(EXMEnumValues.Count()); end; + else + exit(0); end; end; procedure SetObjectID(ObjectType: Integer; CustNo: Code[20]) ObjectID: Integer var - EXMSetup: Record "EXM Extension Setup"; EXMExtHeader: Record "EXM Extension Header"; EXMExtLine: Record "EXM Extension Lines"; + EXMSetup: Record "EXM Extension Setup"; IsHandled: Boolean; ExpectedId: Integer; ObjectIdErr: Label 'Next object ID (%1) is bigger than extension ending id (%2).', comment = 'ESP="Propuesta ID objeto (%1) es superior al id final de la extensión (%2)."'; @@ -352,54 +343,63 @@ table 83202 "EXM Extension Lines" exit(ObjectID) end; + //#endregion Triggers - procedure GetTotalFields(): Integer + local procedure UpdateRelated() var - EXMTableFields: Record "EXM Table Fields"; - EXMEnumValues: Record "EXM Enum Values"; + EnumValues: Record "EXM Enum Values"; + NewEnumValues: Record "EXM Enum Values"; + NewTableFields: Record "EXM Table Fields"; + TableFields: Record "EXM Table Fields"; begin case "Object Type" of - "Object Type"::"Table", "Object Type"::"TableExtension": + "Object Type"::Table, "Object Type"::"TableExtension": begin - EXMTableFields.SetRange("Extension Code", "Extension Code"); - EXMTableFields.SetRange("Source Line No.", "Line No."); - EXMTableFields.SetRange("Table Source Type", "Object Type"); - EXMTableFields.SetRange("Table ID", "Object ID"); - EXMTableFields.SetRange("Source Table ID", "Source Object ID"); - exit(EXMTableFields.Count()); + TableFields.SetRange("Extension Code", "Extension Code"); + TableFields.SetRange("Source Line No.", "Line No."); + TableFields.SetRange("Table Source Type", xRec."Object Type"); + TableFields.SetRange("Source Table ID", xRec."Source Object ID"); + TableFields.SetRange("Table ID", xRec."Object ID"); + if TableFields.FindSet() then + repeat + NewTableFields.Init(); + NewTableFields := TableFields; + NewTableFields."Table Source Type" := "Object Type"; + NewTableFields."Source Table ID" := "Source Object ID"; + NewTableFields."Table ID" := "Object ID"; + NewTableFields.Insert(); + TableFields.Delete(); + until TableFields.Next() = 0; end; "Object Type"::Enum, "Object Type"::EnumExtension: begin - EXMEnumValues.SetRange("Extension Code", "Extension Code"); - EXMEnumValues.SetRange("Source Line No.", "Line No."); - EXMEnumValues.SetRange("Source Type", "Object Type"); - EXMEnumValues.SetRange("Enum ID", "Object ID"); - EXMEnumValues.SetRange("Source Enum ID", "Source Object ID"); - exit(EXMEnumValues.Count()); + EnumValues.SetRange("Extension Code", "Extension Code"); + EnumValues.SetRange("Source Line No.", "Line No."); + EnumValues.SetRange("Source Type", xRec."Object Type"); + EnumValues.SetRange("Source Enum ID", xRec."Object ID"); + EnumValues.SetRange("Enum ID", xRec."Object ID"); + if EnumValues.FindSet() then + repeat + NewEnumValues.Init(); + NewEnumValues := EnumValues; + NewEnumValues."Source Type" := "Object Type"; + NewEnumValues."Source Enum ID" := "Source Object ID"; + NewEnumValues."Enum ID" := "Object ID"; + NewEnumValues.Insert(); + EnumValues.Delete(); + until EnumValues.Next() = 0; end; - else - exit(0); end; end; - procedure GetLineNo(): Integer - var - ExtLine: Record "EXM Extension Lines"; - begin - ExtLine.SetRange("Extension Code", "Extension Code"); - if ExtLine.FindLast() then - exit(ExtLine."Line No." + 10000); - exit(10000); - end; - [IntegrationEvent(false, false)] - local procedure OnBeforeCalculateObjectID(ObjectType: Integer; CustNo: Code[20]; var ObjectID: Integer; var IsHandled: Boolean) + local procedure OnAfterAssignObjectID(ObjectType: Integer; CustNo: Code[20]; var ObjectID: Integer) begin end; [IntegrationEvent(false, false)] - local procedure OnAfterAssignObjectID(ObjectType: Integer; CustNo: Code[20]; var ObjectID: Integer) + local procedure OnBeforeCalculateObjectID(ObjectType: Integer; CustNo: Code[20]; var ObjectID: Integer; var IsHandled: Boolean) begin end; } \ No newline at end of file diff --git a/src/table/EXMExtensionManagerCue.Table.al b/src/table/EXMExtensionManagerCue.Table.al index 83f8e39..2a624e9 100644 --- a/src/table/EXMExtensionManagerCue.Table.al +++ b/src/table/EXMExtensionManagerCue.Table.al @@ -8,24 +8,24 @@ table 83204 "EXM Extension Manager Cue" } field(10; Extensions; Integer) { + CalcFormula = Count("EXM Extension Header"); Caption = 'Extensions', Comment = 'ESP="Extensiones"'; - FieldClass = FlowField; - CalcFormula = Count ("EXM Extension Header"); Editable = false; + FieldClass = FlowField; } field(15; "Internal Extensions"; Integer) { + CalcFormula = Count("EXM Extension Header" where(Type = filter(Internal))); Caption = 'Internal Extensions', Comment = 'ESP="Extensiones internas"'; - FieldClass = FlowField; - CalcFormula = Count ("EXM Extension Header" where(Type = filter(Internal))); Editable = false; + FieldClass = FlowField; } field(20; "External Extensions"; Integer) { + CalcFormula = Count("EXM Extension Header" where(Type = filter(External))); Caption = 'External Extensions', Comment = 'ESP="Extensiones externas"'; - FieldClass = FlowField; - CalcFormula = Count ("EXM Extension Header" where(Type = filter(External))); Editable = false; + FieldClass = FlowField; } } diff --git a/src/table/EXMExtensionSetup.Table.al b/src/table/EXMExtensionSetup.Table.al index 62c02ee..7dabbd9 100644 --- a/src/table/EXMExtensionSetup.Table.al +++ b/src/table/EXMExtensionSetup.Table.al @@ -42,8 +42,8 @@ table 83200 "EXM Extension Setup" { Caption = 'Object Names', Comment = 'ESP="Nombre objetos"'; DataClassification = OrganizationIdentifiableInformation; - OptionMembers = Caption,Name; OptionCaption = 'Caption,Name', Comment = 'ESP="Traducción,Original"'; + OptionMembers = Caption,Name; } field(6; "Disable Auto. Objects ID"; Boolean) { diff --git a/src/table/EXMRelatedGroups.Table.al b/src/table/EXMRelatedGroups.Table.al index 597bc33..7e513b2 100644 --- a/src/table/EXMRelatedGroups.Table.al +++ b/src/table/EXMRelatedGroups.Table.al @@ -17,10 +17,10 @@ table 83206 "EXM Related Groups" } field(3; "Related Tables No."; Integer) { + CalcFormula = Count("EXM Related Lines" where(Code = field(Code))); Caption = 'Related Tables No.', comment = 'ESP="Nº tablas relacionadas"'; Editable = false; FieldClass = FlowField; - CalcFormula = Count ("EXM Related Lines" where(Code = field(Code))); } } keys diff --git a/src/table/EXMRelatedLines.Table.al b/src/table/EXMRelatedLines.Table.al index 6c5b562..cff9a5f 100644 --- a/src/table/EXMRelatedLines.Table.al +++ b/src/table/EXMRelatedLines.Table.al @@ -15,8 +15,8 @@ table 83207 "EXM Related Lines" { Caption = 'Table ID', comment = 'ESP="ID Tabla"'; DataClassification = OrganizationIdentifiableInformation; - TableRelation = AllObjWithCaption."Object ID" where("Object Type" = const(Table)); NotBlank = true; + TableRelation = AllObjWithCaption."Object ID" where("Object Type" = const(Table)); trigger OnValidate() var diff --git a/src/table/EXMTableFields.Table.al b/src/table/EXMTableFields.Table.al index abafdbc..976a703 100644 --- a/src/table/EXMTableFields.Table.al +++ b/src/table/EXMTableFields.Table.al @@ -1,8 +1,8 @@ table 83203 "EXM Table Fields" { Caption = 'Extension Fields', Comment = 'ESP="Campos extensión"'; - LookupPageId = "EXM Field List"; DataClassification = OrganizationIdentifiableInformation; + LookupPageId = "EXM Field List"; fields { @@ -28,14 +28,14 @@ table 83203 "EXM Table Fields" { Caption = 'Source Object Type', Comment = 'ESP="Tipo objeto origen"'; DataClassification = OrganizationIdentifiableInformation; - OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; OptionCaption = ',Table,,,,,,,,,,,,,,TableExt,,,,,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,,,,,,,,,,,,,TableExt,,,,,,,,,,,,,,,,,,,,,,, "'; + OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; } field(4; "Source Table ID"; Integer) { + BlankZero = true; Caption = 'Source Table ID', Comment = 'ESP="Id. tabla origen"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; trigger OnValidate() var @@ -47,9 +47,9 @@ table 83203 "EXM Table Fields" } field(5; "Table ID"; Integer) { + BlankZero = true; Caption = 'Table ID', Comment = 'ESP="Id. tabla"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; trigger OnValidate() var @@ -61,9 +61,9 @@ table 83203 "EXM Table Fields" } field(6; "Field ID"; Integer) { + BlankZero = true; Caption = 'Field ID', Comment = 'ESP="Id. campo"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; } field(7; "Field Name"; Text[30]) { @@ -79,14 +79,14 @@ table 83203 "EXM Table Fields" { Caption = 'Data Type', Comment = 'ESP="Tipo datos"'; DataClassification = OrganizationIdentifiableInformation; - OptionMembers = TableFilter,RecordID,OemText,Date,Time,DateFormula,Decimal,Media,MediaSet,Text,Code,Binary,BLOB,Boolean,Integer,OemCode,Option,BigInteger,Duration,GUID,DateTime," "; InitValue = " "; + OptionMembers = TableFilter,RecordID,OemText,Date,Time,DateFormula,Decimal,Media,MediaSet,Text,Code,Binary,BLOB,Boolean,Integer,OemCode,Option,BigInteger,Duration,GUID,DateTime," "; } field(10; Lenght; Integer) { + BlankZero = true; Caption = 'Lenght', Comment = 'ESP="Longitud"'; DataClassification = OrganizationIdentifiableInformation; - BlankZero = true; } field(11; "Field Class"; Option) { @@ -151,11 +151,11 @@ table 83203 "EXM Table Fields" local procedure SetFieldID(SourceTableID: Integer; TableID: Integer; CustNo: Code[20]) FieldID: Integer var - EXMSetup: Record "EXM Extension Setup"; EXMExtHeader: Record "EXM Extension Header"; + EXMSetup: Record "EXM Extension Setup"; EXMFields: Record "EXM Table Fields"; - ExpectedId: Integer; IsHandled: Boolean; + ExpectedId: Integer; begin EXMSetup.Get(); If EXMSetup."Disable Auto. Field ID" then From c1a4d5046e7817ba986642aa3ffff7a35810c254 Mon Sep 17 00:00:00 2001 From: Andreu Date: Sat, 7 Nov 2020 12:38:17 +0100 Subject: [PATCH 2/3] Update Tree View Add ToolTips to all pages Add Rec to implicit records --- src/table/{EXMExtensionLines.Table.al => EXMTreeView.Table.al} | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename src/table/{EXMExtensionLines.Table.al => EXMTreeView.Table.al} (100%) diff --git a/src/table/EXMExtensionLines.Table.al b/src/table/EXMTreeView.Table.al similarity index 100% rename from src/table/EXMExtensionLines.Table.al rename to src/table/EXMTreeView.Table.al From 16b858a5204f79858b1389e8aff0cb0dfbbfbf3d Mon Sep 17 00:00:00 2001 From: Andreu Date: Sat, 7 Nov 2020 12:48:03 +0100 Subject: [PATCH 3/3] Update Tree View Add ToolTips to all pages Add Rec to implicit records --- Translations/Extension Manager.es-ES.g.xlf | 156 +++++++- Translations/Extension Manager.g.xlf | 132 ++++++- app.json | 2 +- extensionsPermissionSet.xml | 84 ++-- src/page/EXMEnumExtValues.Page.al | 10 +- src/page/EXMEnumValues.Page.al | 28 +- src/page/EXMExtensionDepFactbox.Page.al | 4 +- src/page/EXMExtensionDependencies.Page.al | 4 +- src/page/EXMExtensionFactBox.Page.al | 26 +- src/page/EXMExtensionHeader.Page.al | 72 +++- src/page/EXMExtensionLines.Page.al | 74 ++-- src/page/EXMExtensionList.Page.al | 36 +- src/page/EXMExtensionManagerSetup.Page.al | 23 +- src/page/EXMExtensionTreeView.Page.al | 129 ++++--- src/page/EXMExtensionsActivities.Page.al | 7 +- src/page/EXMFieldList.Page.al | 62 +-- src/page/EXMObjectDetail.Page.al | 46 +-- src/page/EXMRelatedData.Page.al | 6 +- src/page/EXMRelatedDataList.Page.al | 6 +- src/page/EXMRelatedLines.Page.al | 4 +- src/page/EXMSetupWizard.Page.al | 14 +- src/page/EXMTableExtFieldList.Page.al | 24 +- src/page/EXMTableFieldDetail.Page.al | 22 +- src/table/EXMEnumValues.Table.al | 42 +- src/table/EXMExtensionDependencies.Table.al | 14 +- src/table/EXMExtensionHeader.Table.al | 84 ++-- src/table/EXMExtensionLines.Table.al | 405 ++++++++++++++++++++ src/table/EXMExtensionSetup.Table.al | 8 +- src/table/EXMRelatedGroups.Table.al | 2 +- src/table/EXMRelatedLines.Table.al | 4 +- src/table/EXMTableFields.Table.al | 46 +-- src/table/EXMTreeView.Table.al | 357 +---------------- 32 files changed, 1200 insertions(+), 733 deletions(-) create mode 100644 src/table/EXMExtensionLines.Table.al diff --git a/Translations/Extension Manager.es-ES.g.xlf b/Translations/Extension Manager.es-ES.g.xlf index 0e6eb49..09b394e 100644 --- a/Translations/Extension Manager.es-ES.g.xlf +++ b/Translations/Extension Manager.es-ES.g.xlf @@ -513,6 +513,30 @@ Page EXM Extension Header - Control GIT Repository URL - Property ToolTip Especifica el valor del campo URL repositorio GIT + + Tree view + ESP="Vista arbol" + Page EXM Extension Header - Action TreeView - Property Caption + Vista arbol + + + Executes the Tree view action + ESP="Ver objectos en Vista arbol" + Page EXM Extension Header - Action TreeView - Property ToolTip + Ver objectos en Vista arbol + + + Dependencies + ESP="Dependencias" + Page EXM Extension Header - Action ViewDependencies - Property Caption + Dependencias + + + View extension dependencies + ESP="Ver dependencias extensión" + Page EXM Extension Header - Action ViewDependencies - Property ToolTip + Ver dependencias extensión + %1 should have value. ESP="%1 deberia tener valor." @@ -988,6 +1012,96 @@ Table EXM Table Fields - Method ValidateData - NamedType SelectDataTypeErr Debe seleccionar un tipo de datos. + + Extension Objects Tree View + ESP="Vista arbol objetos" + Table EXM Tree View - Property Caption + Vista arbol objetos + + + Extension Code + ESP="Cód. extensión" + Table EXM Tree View - Field Extension Code - Property Caption + Cód. extensión + + + Line No. + ESP="Nº línea" + Table EXM Tree View - Field Line No. - Property Caption + Nº línea + + + Object Type + ESP="Tipo objeto" + Table EXM Tree View - Field Object Type - Property Caption + Tipo objeto + + + ,Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, + ESP=",Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, " + Table EXM Tree View - Field Object Type - Property OptionCaption + ,Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, + + + Object ID + ESP="ID objeto" + Table EXM Tree View - Field Object ID - Property Caption + ID objeto + + + Name + ESP="Nombre" + Table EXM Tree View - Field Object Name - Property Caption + Nombre + + + Field ID + ESP="Id. campo" + Table EXM Tree View - Field Field ID - Property Caption + Id. campo + + + Field Name + ESP="Nombre de campo" + Table EXM Tree View - Field Field Name - Property Caption + Nombre de campo + + + Field Data Type + ESP="Tipo datos" + Table EXM Tree View - Field Field Data Type - Property Caption + Tipo datos + + + Source Object Type + ESP="Tipo objeto origen" + Table EXM Tree View - Field Source Object Type - Property Caption + Tipo objeto origen + + + ,Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, + ESP=",Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, " + Table EXM Tree View - Field Source Object Type - Property OptionCaption + ,Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, + + + Source Object ID + ESP="ID objeto origen" + Table EXM Tree View - Field Source Object ID - Property Caption + ID objeto origen + + + Name + ESP="Nombre" + Table EXM Tree View - Field Source Name - Property Caption + Nombre + + + Indentation + ESP="Indentación" + Table EXM Tree View - Field Indentation - Property Caption + Indentación + Setup is already set up. To change settings for it, go to the setup again. Do you want go there now ? ESP="La configuración se ha realizado. Desea ejecutar nuevamente?" @@ -1224,6 +1338,18 @@ Page EXM Extension List - Action TreeView - Method OnAction - NamedType OptionsQst Todos,Seleccionado + + Dependencies + ESP="Dependencias" + Page EXM Extension List - Action ViewDependencies - Property Caption + Dependencias + + + View extension dependencies + ESP="Ver dependencias extensión" + Page EXM Extension List - Action ViewDependencies - Property ToolTip + Ver dependencias extensión + Extension Manager Setup ESP="Conf. gestor extensiones" @@ -1361,12 +1487,30 @@ Page EXM Extension TreeView - Control Object ID - Property ToolTip Especifica el valor del campo ID objeto - + Specifies the value of the Name field ESP="Especifica el valor del campo Nombre" - Page EXM Extension TreeView - Control Name - Property ToolTip + Page EXM Extension TreeView - Control Object Name - Property ToolTip Especifica el valor del campo Nombre + + Specifies the value of the Field Id field + ESP="Especifica el valor del campo ID Campo" + Page EXM Extension TreeView - Control Field ID - Property ToolTip + Especifica el valor del campo ID Campo + + + Specifies the value of the Field Name field + ESP="Especifica el valor del campo Nombre Campo" + Page EXM Extension TreeView - Control Field Name - Property ToolTip + Especifica el valor del campo Nombre Campo + + + Specifies the value of the Field Data Type field + ESP="Especifica el valor del campo Tipo Dato Campo" + Page EXM Extension TreeView - Control Field Data Type - Property ToolTip + Especifica el valor del campo Tipo Dato Campo + Specifies the value of the Source Object ID field ESP="Especifica el valor del campo ID objeto origen" @@ -1385,16 +1529,16 @@ Page EXM Extension TreeView - Control Source Name - Property ToolTip Especifica el valor del campo Nombre - + Level ESP="Nivel" - Page EXM Extension TreeView - Control Total Fields - Property Caption + Page EXM Extension TreeView - Control Indentation - Property Caption Nivel - + Specifies the value of the Level field ESP="Especifica el valor del campo Nivel" - Page EXM Extension TreeView - Control Total Fields - Property ToolTip + Page EXM Extension TreeView - Control Indentation - Property ToolTip Especifica el valor del campo Nivel diff --git a/Translations/Extension Manager.g.xlf b/Translations/Extension Manager.g.xlf index ab7d913..1e007cc 100644 --- a/Translations/Extension Manager.g.xlf +++ b/Translations/Extension Manager.g.xlf @@ -433,6 +433,26 @@ ESP="Especifica el valor del campo URL repositorio GIT" Page EXM Extension Header - Control GIT Repository URL - Property ToolTip + + Tree view + ESP="Vista arbol" + Page EXM Extension Header - Action TreeView - Property Caption + + + Executes the Tree view action + ESP="Ver objectos en Vista arbol" + Page EXM Extension Header - Action TreeView - Property ToolTip + + + Dependencies + ESP="Dependencias" + Page EXM Extension Header - Action ViewDependencies - Property Caption + + + View extension dependencies + ESP="Ver dependencias extensión" + Page EXM Extension Header - Action ViewDependencies - Property ToolTip + %1 should have value. ESP="%1 deberia tener valor." @@ -833,6 +853,81 @@ ESP="Debe seleccionar un tipo de datos." Table EXM Table Fields - Method ValidateData - NamedType SelectDataTypeErr + + Extension Objects Tree View + ESP="Vista arbol objetos" + Table EXM Tree View - Property Caption + + + Extension Code + ESP="Cód. extensión" + Table EXM Tree View - Field Extension Code - Property Caption + + + Line No. + ESP="Nº línea" + Table EXM Tree View - Field Line No. - Property Caption + + + Object Type + ESP="Tipo objeto" + Table EXM Tree View - Field Object Type - Property Caption + + + ,Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, + ESP=",Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, " + Table EXM Tree View - Field Object Type - Property OptionCaption + + + Object ID + ESP="ID objeto" + Table EXM Tree View - Field Object ID - Property Caption + + + Name + ESP="Nombre" + Table EXM Tree View - Field Object Name - Property Caption + + + Field ID + ESP="Id. campo" + Table EXM Tree View - Field Field ID - Property Caption + + + Field Name + ESP="Nombre de campo" + Table EXM Tree View - Field Field Name - Property Caption + + + Field Data Type + ESP="Tipo datos" + Table EXM Tree View - Field Field Data Type - Property Caption + + + Source Object Type + ESP="Tipo objeto origen" + Table EXM Tree View - Field Source Object Type - Property Caption + + + ,Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, + ESP=",Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, " + Table EXM Tree View - Field Source Object Type - Property OptionCaption + + + Source Object ID + ESP="ID objeto origen" + Table EXM Tree View - Field Source Object ID - Property Caption + + + Name + ESP="Nombre" + Table EXM Tree View - Field Source Name - Property Caption + + + Indentation + ESP="Indentación" + Table EXM Tree View - Field Indentation - Property Caption + Setup is already set up. To change settings for it, go to the setup again. Do you want go there now ? ESP="La configuración se ha realizado. Desea ejecutar nuevamente?" @@ -1038,6 +1133,16 @@ ESP="Todos,Seleccionado" Page EXM Extension List - Action TreeView - Method OnAction - NamedType OptionsQst + + Dependencies + ESP="Dependencias" + Page EXM Extension List - Action ViewDependencies - Property Caption + + + View extension dependencies + ESP="Ver dependencias extensión" + Page EXM Extension List - Action ViewDependencies - Property ToolTip + Extension Manager Setup ESP="Conf. gestor extensiones" @@ -1153,10 +1258,25 @@ ESP="Especifica el valor del campo ID objeto" Page EXM Extension TreeView - Control Object ID - Property ToolTip - + Specifies the value of the Name field ESP="Especifica el valor del campo Nombre" - Page EXM Extension TreeView - Control Name - Property ToolTip + Page EXM Extension TreeView - Control Object Name - Property ToolTip + + + Specifies the value of the Field Id field + ESP="Especifica el valor del campo ID Campo" + Page EXM Extension TreeView - Control Field ID - Property ToolTip + + + Specifies the value of the Field Name field + ESP="Especifica el valor del campo Nombre Campo" + Page EXM Extension TreeView - Control Field Name - Property ToolTip + + + Specifies the value of the Field Data Type field + ESP="Especifica el valor del campo Tipo Dato Campo" + Page EXM Extension TreeView - Control Field Data Type - Property ToolTip Specifies the value of the Source Object ID field @@ -1173,15 +1293,15 @@ ESP="Especifica el valor del campo Nombre" Page EXM Extension TreeView - Control Source Name - Property ToolTip - + Level ESP="Nivel" - Page EXM Extension TreeView - Control Total Fields - Property Caption + Page EXM Extension TreeView - Control Indentation - Property Caption - + Specifies the value of the Level field ESP="Especifica el valor del campo Nivel" - Page EXM Extension TreeView - Control Total Fields - Property ToolTip + Page EXM Extension TreeView - Control Indentation - Property ToolTip Specifies the value of the Extension Code field diff --git a/app.json b/app.json index c880187..6ec589d 100644 --- a/app.json +++ b/app.json @@ -2,7 +2,7 @@ "id": "b9954c96-ee6b-44ff-9b0d-3d8146fc034a", "name": "Extension Manager", "publisher": "picazin dev", - "version": "0.3.0.0", + "version": "0.3.1.0", "brief": "Manager for developing extensions.", "description": "Manage your extension data. Development status. Customers, invoicing and all related data.", "privacyStatement": "http://www.picazin.dev", diff --git a/extensionsPermissionSet.xml b/extensionsPermissionSet.xml index f47f906..0c506e5 100644 --- a/extensionsPermissionSet.xml +++ b/extensionsPermissionSet.xml @@ -2,7 +2,7 @@ - 83205 + 83208 0 1 1 @@ -12,7 +12,27 @@ - 83205 + 83208 + 1 + 0 + 0 + 0 + 0 + 1 + + + + 83204 + 0 + 1 + 1 + 1 + 1 + 0 + + + + 83204 1 0 0 @@ -62,7 +82,7 @@ - 83204 + 83207 0 1 1 @@ -72,7 +92,7 @@ - 83204 + 83207 1 0 0 @@ -82,7 +102,7 @@ - 83200 + 83203 0 1 1 @@ -92,7 +112,7 @@ - 83200 + 83203 1 0 0 @@ -102,7 +122,7 @@ - 83206 + 83200 0 1 1 @@ -112,7 +132,7 @@ - 83206 + 83200 1 0 0 @@ -122,7 +142,7 @@ - 83207 + 83206 0 1 1 @@ -132,7 +152,7 @@ - 83207 + 83206 1 0 0 @@ -142,7 +162,7 @@ - 83203 + 83205 0 1 1 @@ -152,7 +172,7 @@ - 83203 + 83205 1 0 0 @@ -162,7 +182,7 @@ - 83208 + 83209 0 1 1 @@ -172,7 +192,7 @@ - 83208 + 83209 1 0 0 @@ -192,7 +212,7 @@ - 83200 + 83202 5 0 0 @@ -202,7 +222,7 @@ - 83201 + 83200 5 0 0 @@ -212,7 +232,7 @@ - 83202 + 83201 5 0 0 @@ -282,7 +302,7 @@ - 83202 + 83200 8 0 0 @@ -292,7 +312,7 @@ - 83200 + 83205 8 0 0 @@ -302,7 +322,7 @@ - 83205 + 83209 8 0 0 @@ -312,7 +332,7 @@ - 83209 + 83203 8 0 0 @@ -322,7 +342,7 @@ - 83215 + 83208 8 0 0 @@ -332,7 +352,7 @@ - 83203 + 83214 8 0 0 @@ -342,7 +362,7 @@ - 83208 + 83217 8 0 0 @@ -352,7 +372,7 @@ - 83214 + 83216 8 0 0 @@ -362,7 +382,7 @@ - 83217 + 83218 8 0 0 @@ -372,7 +392,7 @@ - 83216 + 83207 8 0 0 @@ -382,7 +402,7 @@ - 83218 + 83212 8 0 0 @@ -392,7 +412,7 @@ - 83207 + 83204 8 0 0 @@ -402,7 +422,7 @@ - 83212 + 83206 8 0 0 @@ -412,7 +432,7 @@ - 83204 + 83215 8 0 0 @@ -422,7 +442,7 @@ - 83206 + 83202 8 0 0 diff --git a/src/page/EXMEnumExtValues.Page.al b/src/page/EXMEnumExtValues.Page.al index 3c79d14..7591533 100644 --- a/src/page/EXMEnumExtValues.Page.al +++ b/src/page/EXMEnumExtValues.Page.al @@ -14,27 +14,27 @@ page 83211 "EXM EnumExt Values" { repeater(Fields) { - field("Extension Code"; "Extension Code") + field("Extension Code"; Rec."Extension Code") { ApplicationArea = All; ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Código Extensión"'; } - field("Ordinal ID"; "Ordinal ID") + field("Ordinal ID"; Rec."Ordinal ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Ordinal ID field', Comment = 'ESP="Especifica el valor del campo ID Ordinal"'; } - field("Enum Value"; "Enum Value") + field("Enum Value"; Rec."Enum Value") { ApplicationArea = All; ToolTip = 'Specifies the value of the Enum Value field', Comment = 'ESP="Especifica el valor del campo valor Enum"'; } - field("Created by"; "Created by") + field("Created by"; Rec."Created by") { ApplicationArea = All; ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica quién creo el registro."'; } - field("Creation Date"; "Creation Date") + field("Creation Date"; Rec."Creation Date") { ApplicationArea = All; ToolTip = 'Specifies the value of the Creation Date field', Comment = 'ESP="Especifica la fecha de creación del registro."'; diff --git a/src/page/EXMEnumValues.Page.al b/src/page/EXMEnumValues.Page.al index 02d4db3..9bf27a5 100644 --- a/src/page/EXMEnumValues.Page.al +++ b/src/page/EXMEnumValues.Page.al @@ -13,57 +13,57 @@ page 83210 "EXM Enum Values" { repeater(Fields) { - field("Extension Code"; "Extension Code") + field("Extension Code"; Rec."Extension Code") { ApplicationArea = All; ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Cód. extensión."'; Visible = false; } - field("Source Line No."; "Source Line No.") + field("Source Line No."; Rec."Source Line No.") { ApplicationArea = All; Editable = false; ToolTip = 'Specifies the value of the Source Line No. field', Comment = 'ESP="Especifica el valor del campo Nº línea origen"'; Visible = false; } - field("Source Type"; "Source Type") + field("Source Type"; Rec."Source Type") { ApplicationArea = All; Editable = false; ToolTip = 'Specifies the value of the Source Type field', Comment = 'ESP="Especifica el valor del campo Tipo origen"'; Visible = false; } - field("Source Enum ID"; "Source Enum ID") + field("Source Enum ID"; Rec."Source Enum ID") { ApplicationArea = All; Editable = false; ToolTip = 'Specifies the value of the Source Enum ID field', Comment = 'ESP="Especifica el valor del campo Id. Enum origen"'; Visible = false; } - field("Enum ID"; "Enum ID") + field("Enum ID"; Rec."Enum ID") { ApplicationArea = All; Editable = false; ToolTip = 'Specifies the value of the Enum ID field', Comment = 'ESP="Especifica el valor del campo Id. Enum"'; Visible = false; } - field("Ordinal ID"; "Ordinal ID") + field("Ordinal ID"; Rec."Ordinal ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Ordinal ID field', Comment = 'ESP="Especifica el valor del campo Id. ordinal"'; } - field("Enum Value"; "Enum Value") + field("Enum Value"; Rec."Enum Value") { ApplicationArea = All; ToolTip = 'Specifies the value of the Enum Value field', Comment = 'ESP="Especifica el valor del campo Valor Enum"'; } - field("Created by"; "Created by") + field("Created by"; Rec."Created by") { ApplicationArea = All; ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica el valor del campo Creado por"'; Visible = IsVisible; } - field("Creation Date"; "Creation Date") + field("Creation Date"; Rec."Creation Date") { ApplicationArea = All; ToolTip = 'Specifies the value of the Creation Date field', Comment = 'ESP="Especifica el valor del campo Fecha creación"'; @@ -122,7 +122,7 @@ page 83210 "EXM Enum Values" var EXMExtMgt: Codeunit "EXM Extension Management"; begin - EXMExtMgt.GetEnumValues("Source Enum ID"); + EXMExtMgt.GetEnumValues(Rec."Source Enum ID"); end; } } @@ -146,14 +146,14 @@ page 83210 "EXM Enum Values" EXMExtLine: Record "EXM Extension Lines"; begin if IsTemporary then begin - AllObject.Get(AllObject."Object Type"::Enum, "Enum ID"); + AllObject.Get(AllObject."Object Type"::Enum, Rec."Enum ID"); exit(Format("Enum ID") + ' ' + AllObject."Object Name"); end; - EXMExtLine.Get("Extension Code", "Source Line No."); + EXMExtLine.Get(Rec."Extension Code", Rec."Source Line No."); if Rec."Source Type" = Rec."Source Type"::"EnumExtension" then begin - AllObject.Get(AllObject."Object Type"::Enum, "Source Enum ID"); - exit(Format("Source Enum ID") + ' ' + AllObject."Object Name" + ' - ' + Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); + AllObject.Get(AllObject."Object Type"::Enum, Rec."Source Enum ID"); + exit(Format(Rec."Source Enum ID") + ' ' + AllObject."Object Name" + ' - ' + Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); end else exit(Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); end; diff --git a/src/page/EXMExtensionDepFactbox.Page.al b/src/page/EXMExtensionDepFactbox.Page.al index 0bc0bdd..95fed43 100644 --- a/src/page/EXMExtensionDepFactbox.Page.al +++ b/src/page/EXMExtensionDepFactbox.Page.al @@ -11,12 +11,12 @@ page 83220 "EXM Extension Dep. Factbox" { repeater(Control1) { - field("Dependent Ext. Code"; "Dependent Ext. Code") + field("Dependent Ext. Code"; Rec."Dependent Ext. Code") { ApplicationArea = All; ToolTip = 'Specifies the value of the Dependent Ext. Code field', comment = 'ESP="Especifica el valor del campo Cód. extensión dependiente"'; } - field("Dependent Ext. Name"; "Dependent Ext. Name") + field("Dependent Ext. Name"; Rec."Dependent Ext. Name") { ApplicationArea = All; ToolTip = 'Specifies the value of the Dependent Ext. Name field', comment = 'ESP="Especifica el valor del campo Nombre extensión dependiente"'; diff --git a/src/page/EXMExtensionDependencies.Page.al b/src/page/EXMExtensionDependencies.Page.al index 3fef23d..bc81858 100644 --- a/src/page/EXMExtensionDependencies.Page.al +++ b/src/page/EXMExtensionDependencies.Page.al @@ -12,12 +12,12 @@ page 83219 "EXM Extension Dependencies" { repeater(General) { - field("Dependent Ext. Code"; "Dependent Ext. Code") + field("Dependent Ext. Code"; Rec."Dependent Ext. Code") { ApplicationArea = All; ToolTip = 'Specifies the value of the Dependent Ext. Code field', comment = 'ESP="Especifica el valor del campo Cód. extensión dependiente"'; } - field("Dependent Ext. Name"; "Dependent Ext. Name") + field("Dependent Ext. Name"; Rec."Dependent Ext. Name") { ApplicationArea = All; ToolTip = 'Specifies the value of the Dependent Ext. Name field', comment = 'ESP="Especifica el valor del campo Nombre extensión dependiente"'; diff --git a/src/page/EXMExtensionFactBox.Page.al b/src/page/EXMExtensionFactBox.Page.al index ef24638..965c985 100644 --- a/src/page/EXMExtensionFactBox.Page.al +++ b/src/page/EXMExtensionFactBox.Page.al @@ -11,7 +11,7 @@ page 83213 "EXM Extension FactBox" { cuegroup(General) { - field("No. of Tables"; "No. of Tables") + field("No. of Tables"; Rec."No. of Tables") { ApplicationArea = All; ToolTip = 'Shows the No. of Tables in the extension', Comment = 'ESP="Muestra el Nº Tablas en la extensión"'; @@ -20,7 +20,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::Table) end; } - field("No. of TableExtensions"; "No. of TableExtensions") + field("No. of TableExtensions"; Rec."No. of TableExtensions") { ApplicationArea = All; ToolTip = 'Shows the No. of TableExtensions in the extension', Comment = 'ESP="Muestra el Nº TableExtensions en la extensión"'; @@ -29,7 +29,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::"TableExtension") end; } - field("No. of Page"; "No. of Page") + field("No. of Page"; Rec."No. of Page") { ApplicationArea = All; ToolTip = 'Shows the No. of Pages in the extension', Comment = 'ESP="Muestra el Nº Pages en la extensión"'; @@ -38,7 +38,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::Page) end; } - field("No. of PageExtensions"; "No. of PageExtensions") + field("No. of PageExtensions"; Rec."No. of PageExtensions") { ApplicationArea = All; ToolTip = 'Shows the No. of PageExtensions in the extension', Comment = 'ESP ="Muestra el Nº PageExtensions en la extensión"'; @@ -47,7 +47,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::"PageExtension") end; } - field("No. of Codeunits"; "No. of Codeunits") + field("No. of Codeunits"; Rec."No. of Codeunits") { ApplicationArea = All; ToolTip = 'Shows the No. of Codeunits in the extension', Comment = 'ESP ="Muestra el Nº Codeunits en la extensión"'; @@ -56,7 +56,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::Codeunit) end; } - field("No. of Reports"; "No. of Reports") + field("No. of Reports"; Rec."No. of Reports") { ApplicationArea = All; ToolTip = 'Shows the No. of Reports in the extension', Comment = 'ESP ="Muestra el Nº Informes en la extensión"'; @@ -65,7 +65,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::Report) end; } - field("No. of Querys"; "No. of Querys") + field("No. of Querys"; Rec."No. of Querys") { ApplicationArea = All; ToolTip = 'Shows the No. of Querys in the extension', Comment = 'ESP ="Muestra el Nº Querys en la extensión"'; @@ -74,7 +74,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::Query) end; } - field("No. of XMLports"; "No. of XMLports") + field("No. of XMLports"; Rec."No. of XMLports") { ApplicationArea = All; ToolTip = 'Shows the No. of XMLports in the extension', Comment = 'ESP ="Muestra el Nº XMLports en la extensión"'; @@ -83,7 +83,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::XMLport) end; } - field("No. of Enums"; "No. of Enums") + field("No. of Enums"; Rec."No. of Enums") { ApplicationArea = All; ToolTip = 'Shows the No. of Enums in the extension', Comment = 'ESP ="Muestra el Nº Enums en la extensión"'; @@ -92,7 +92,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::Enum) end; } - field("No. of EnumExtensions"; "No. of EnumExtensions") + field("No. of EnumExtensions"; Rec."No. of EnumExtensions") { ApplicationArea = All; ToolTip = 'Shows the No. of EnumExtensions in the extension', Comment = 'ESP ="Muestra el Nº EnumExtensions en la extensión"'; @@ -101,7 +101,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::EnumExtension) end; } - field("No. of Profiles"; "No. of Profiles") + field("No. of Profiles"; Rec."No. of Profiles") { ApplicationArea = All; ToolTip = 'Shows the No. of Profiles in the extension', Comment = 'ESP ="Muestra el Nº Profiles en la extensión"'; @@ -110,7 +110,7 @@ page 83213 "EXM Extension FactBox" ViewObjectDetail(Objects::Profile) end; } - field("No. of ProfileExtensions"; "No. of ProfileExtensions") + field("No. of ProfileExtensions"; Rec."No. of ProfileExtensions") { ApplicationArea = All; ToolTip = 'Shows the No. of ProfileExtensions in the extension', Comment = 'ESP ="Muestra el Nº ProfileExtensions en la extensión"'; @@ -132,7 +132,7 @@ page 83213 "EXM Extension FactBox" EXMObjectDetail: Page "EXM Object Detail"; begin EXMExtLine.FilterGroup(2); - EXMExtLine.SetRange("Extension Code", Code); + EXMExtLine.SetRange("Extension Code", Rec."Code"); EXMExtLine.SetRange("Object Type", ObjType); EXMExtLine.FilterGroup(0); diff --git a/src/page/EXMExtensionHeader.Page.al b/src/page/EXMExtensionHeader.Page.al index 4e0120c..345ebac 100644 --- a/src/page/EXMExtensionHeader.Page.al +++ b/src/page/EXMExtensionHeader.Page.al @@ -12,22 +12,22 @@ page 83201 "EXM Extension Header" group(Header) { Caption = 'Information', Comment = 'ESP="Información"'; - field("Code"; "Code") + field("Code"; Rec."Code") { ApplicationArea = All; ToolTip = 'Specifies the value of the Code field', Comment = 'ESP="Especifica el valor del campo Código"'; } - field(Description; "Description") + field(Description; Rec."Description") { ApplicationArea = All; ToolTip = 'Specifies the value of the Description field', Comment = 'ESP="Especifica el valor del campo Descripción"'; } - field("App Version"; "App Version") + field("App Version"; Rec."App Version") { ApplicationArea = All; ToolTip = 'Specifies the value of the App Version field', Comment = 'ESP="Especifica el valor del campo Versión App"'; } - field(Dependencies; Dependencies) + field(Dependencies; Rec.Dependencies) { ApplicationArea = All; ToolTip = 'Specifies the value of the Dependencies field', Comment = 'ESP="Especifica el valor del campo Dependencias"'; @@ -35,18 +35,18 @@ page 83201 "EXM Extension Header" group(Target) { Caption = 'Target', Comment = 'Destino'; - field(Type; "Type") + field(Type; Rec."Type") { ApplicationArea = All; ToolTip = 'Specifies the value of the Type field', Comment = 'ESP="Especifica el valor del campo Tipo"'; } - field("Customer No."; "Customer No.") + field("Customer No."; Rec."Customer No.") { ApplicationArea = All; - Editable = (Type = Type::External); + Editable = (Rec.Type = Rec.Type::External); ToolTip = 'Specifies the value of the Customer No. field', Comment = 'ESP="Especifica el valor del campo Nº Cliente"'; } - field("Customer Name"; "Customer Name") + field("Customer Name"; Rec."Customer Name") { ApplicationArea = All; ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; @@ -56,25 +56,25 @@ page 83201 "EXM Extension Header" group(ObjectRange) { Caption = 'Object Range', Comment = 'ESP="Rango objetos"'; - field("Object Starting ID"; "Object Starting ID") + field("Object Starting ID"; Rec."Object Starting ID") { ApplicationArea = All; Caption = 'Starting No.', Comment = 'ESP="Nº inicial"'; ToolTip = 'Specifies the value of the Starting No. field', Comment = 'ESP="Especifica el valor del campo Nº inicial"'; trigger OnValidate() begin - if xRec."Object Starting ID" <> "Object Starting ID" then + if xRec."Object Starting ID" <> Rec."Object Starting ID" then CurrPage.Update(true); end; } - field("Object Ending ID"; "Object Ending ID") + field("Object Ending ID"; Rec."Object Ending ID") { ApplicationArea = All; Caption = 'Ending No.', Comment = 'ESP="Nº final"'; ToolTip = 'Specifies the value of the Ending No. field', Comment = 'ESP="Especifica el valor del campo Nº final"'; trigger OnValidate() begin - if xRec."Object Ending ID" <> "Object Ending ID" then + if xRec."Object Ending ID" <> Rec."Object Ending ID" then CurrPage.Update(true); end; } @@ -83,11 +83,11 @@ page 83201 "EXM Extension Header" part(ExtLines; "EXM Extension Lines") { ApplicationArea = All; - SubPageLink = "Extension Code" = field(Code); + SubPageLink = "Extension Code" = field("Code"); } group(GIT) { - field("GIT Repository URL"; "GIT Repository URL") + field("GIT Repository URL"; Rec."GIT Repository URL") { ApplicationArea = All; ExtendedDatatype = URL; @@ -100,12 +100,52 @@ page 83201 "EXM Extension Header" part(EXMExtDetail; "EXM Extension FactBox") { ApplicationArea = Basic, Suite; - SubPageLink = Code = field(Code); + SubPageLink = Code = field("Code"); } part(EXMExtDep; "EXM Extension Dep. Factbox") { ApplicationArea = Basic, Suite; - SubPageLink = "Extensión Code" = field(Code); + SubPageLink = "Extensión Code" = field("Code"); + } + } + } + + actions + { + area(Navigation) + { + action(TreeView) + { + ApplicationArea = All; + + Caption = 'Tree view', Comment = 'ESP="Vista arbol"'; + Image = Trendscape; + Promoted = true; + PromotedCategory = Process; + PromotedIsBig = true; + PromotedOnly = true; + ToolTip = 'Executes the Tree view action', Comment = 'ESP="Ver objectos en Vista arbol"'; + trigger OnAction() + var + EXMExtTreeView: Page "EXM Extension TreeView"; + begin + EXMExtTreeView.SetFilters(Rec."Type", Rec."Code", Rec."Customer No."); + EXMExtTreeView.Run(); + end; + } + action(ViewDependencies) + { + ApplicationArea = All; + + Caption = 'Dependencies', Comment = 'ESP="Dependencias"'; + Image = AssemblyBOM; + Promoted = true; + PromotedCategory = Process; + PromotedIsBig = true; + PromotedOnly = true; + RunObject = Page "EXM Extension Dependencies"; + RunPageLink = "Extensión Code" = field("Code"); + ToolTip = 'View extension dependencies', Comment = 'ESP="Ver dependencias extensión"'; } } } diff --git a/src/page/EXMExtensionLines.Page.al b/src/page/EXMExtensionLines.Page.al index e8b67ad..b842b3a 100644 --- a/src/page/EXMExtensionLines.Page.al +++ b/src/page/EXMExtensionLines.Page.al @@ -13,12 +13,12 @@ page 83202 "EXM Extension Lines" repeater(Lines) { FreezeColumn = Name; - field("Object Type"; "Object Type") + field("Object Type"; Rec."Object Type") { ApplicationArea = All; ToolTip = 'Specifies the value of the Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto"'; } - field("Object ID"; "Object ID") + field("Object ID"; Rec."Object ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto"'; @@ -26,34 +26,34 @@ page 83202 "EXM Extension Lines" var EXMExtMgt: Codeunit "EXM Extension Management"; begin - if (xRec."Object ID" <> "Object ID") then + if (xRec."Object ID" <> Rec."Object ID") then EXMExtMgt.ChechManualObjectID(Rec); end; } - field(Name; "Name") + field(Name; Rec."Name") { ApplicationArea = All; ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } - field("Source Object Type"; "Source Object Type") + field("Source Object Type"; Rec."Source Object Type") { ApplicationArea = All; Editable = false; ToolTip = 'Specifies the value of the Source Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto origen"'; } - field("Source Object ID"; "Source Object ID") + field("Source Object ID"; Rec."Source Object ID") { ApplicationArea = All; Editable = ("Source Object Type" = "Source Object Type"::Table) or ("Source Object Type" = "Source Object Type"::Page) or ("Source Object Type" = "Source Object Type"::Enum) or ("Source Object Type" = "Source Object Type"::Profile); ToolTip = 'Specifies the value of the Source Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto origen"'; } - field("Source Name"; "Source Name") + field("Source Name"; Rec."Source Name") { ApplicationArea = All; Editable = false; ToolTip = 'Specifies the value of the Source Name field', Comment = 'ESP="Especifica el valor del campo Nombre Origen"'; } - field("Total Fields"; "Total Fields") + field("Total Fields"; Rec."Total Fields") { ApplicationArea = All; ToolTip = 'Shows Total related fields'', Comment = ''ESP="Muestra el total de Campos relacionados"'; @@ -62,17 +62,17 @@ page 83202 "EXM Extension Lines" ViewRelatedFields(); end; } - field(Obsolete; Obsolete) + field(Obsolete; Rec.Obsolete) { ApplicationArea = All; ToolTip = 'Specifies the value of the Obsolete field', Comment = 'ESP="Especifica el valor del campo Obsoleto"'; } - field("Created by"; "Created by") + field("Created by"; Rec."Created by") { ApplicationArea = All; ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica el valor del campo Creado por"'; } - field("Creation Date"; "Creation Date") + field("Creation Date"; Rec."Creation Date") { ApplicationArea = All; ToolTip = 'Specifies the value of the Creation Date field', Comment = 'ESP="Especifica el valor del campo Fecha creación"'; @@ -104,12 +104,12 @@ page 83202 "EXM Extension Lines" } trigger OnAfterGetRecord() begin - "Total Fields" := GetTotalFields(); + Rec."Total Fields" := GetTotalFields(); end; trigger OnNewRecord(BelowxRec: Boolean) begin - Validate("Object Type", xRec."Object Type"); + Rec.Validate("Object Type", xRec."Object Type"); end; local procedure ViewRelatedFields() @@ -119,25 +119,25 @@ page 83202 "EXM Extension Lines" EXMEnumVal: Page "EXM Enum Values"; EXMFieldList: Page "EXM Field List"; begin - case "Object Type" of - "Object Type"::"Table", "Object Type"::"TableExtension": + case Rec."Object Type" of + Rec."Object Type"::"Table", Rec."Object Type"::"TableExtension": begin CurrPage.SaveRecord(); Commit(); - if ("Object Type" = "Object Type"::Table) and ("Source Object ID" = 0) then begin - EXMTableFields.SetRange("Extension Code", "Extension Code"); - EXMTableFields.SetRange("Source Line No.", "Line No."); - EXMTableFields.SetRange("Table Source Type", "Object Type"); - EXMTableFields.SetRange("Table ID", "Object ID"); - EXMTableFields.SetRange("Source Table ID", "Source Object ID"); + if (Rec."Object Type" = Rec."Object Type"::Table) and (Rec."Source Object ID" = 0) then begin + EXMTableFields.SetRange("Extension Code", Rec."Extension Code"); + EXMTableFields.SetRange("Source Line No.", Rec."Line No."); + EXMTableFields.SetRange("Table Source Type", Rec."Object Type"); + EXMTableFields.SetRange("Table ID", Rec."Object ID"); + EXMTableFields.SetRange("Source Table ID", Rec."Source Object ID"); if EXMTableFields.IsEmpty() then begin EXMTableFields.Init(); - EXMTableFields."Extension Code" := "Extension Code"; - EXMTableFields."Source Line No." := "Line No."; - EXMTableFields."Table Source Type" := "Object Type"; - EXMTableFields."Table ID" := "Object ID"; - EXMTableFields."Source Table ID" := "Source Object ID"; + EXMTableFields."Extension Code" := Rec."Extension Code"; + EXMTableFields."Source Line No." := Rec."Line No."; + EXMTableFields."Table Source Type" := Rec."Object Type"; + EXMTableFields."Table ID" := Rec."Object ID"; + EXMTableFields."Source Table ID" := Rec."Source Object ID"; EXMTableFields."Field ID" := 1; EXMTableFields.IsPK := true; EXMTableFields."Created by" := CopyStr(UserId(), 1, MaxStrLen(EXMTableFields."Created by")); @@ -147,27 +147,27 @@ page 83202 "EXM Extension Lines" end; end; - EXMTableFields.SetRange("Extension Code", "Extension Code"); - EXMTableFields.SetRange("Source Line No.", "Line No."); - EXMTableFields.SetRange("Table Source Type", "Object Type"); - EXMTableFields.SetRange("Table ID", "Object ID"); - EXMTableFields.SetRange("Source Table ID", "Source Object ID"); + EXMTableFields.SetRange("Extension Code", Rec."Extension Code"); + EXMTableFields.SetRange("Source Line No.", Rec."Line No."); + EXMTableFields.SetRange("Table Source Type", Rec."Object Type"); + EXMTableFields.SetRange("Table ID", Rec."Object ID"); + EXMTableFields.SetRange("Source Table ID", Rec."Source Object ID"); EXMFieldList.SetTableView(EXMTableFields); EXMFieldList.Editable(true); EXMFieldList.RunModal(); end; - "Object Type"::Enum, "Object Type"::EnumExtension: + Rec."Object Type"::Enum, Rec."Object Type"::EnumExtension: begin CurrPage.SaveRecord(); Commit(); - EXMEnumValues.SetRange("Extension Code", "Extension Code"); - EXMEnumValues.SetRange("Source Line No.", "Line No."); - EXMEnumValues.SetRange("Source Type", "Object Type"); - EXMEnumValues.SetRange("Enum ID", "Object ID"); - EXMEnumValues.SetRange("Source Enum ID", "Source Object ID"); + EXMEnumValues.SetRange("Extension Code", Rec."Extension Code"); + EXMEnumValues.SetRange("Source Line No.", Rec."Line No."); + EXMEnumValues.SetRange("Source Type", Rec."Object Type"); + EXMEnumValues.SetRange("Enum ID", Rec."Object ID"); + EXMEnumValues.SetRange("Source Enum ID", Rec."Source Object ID"); EXMEnumVal.SetTableView(EXMEnumValues); EXMEnumVal.RunModal(); diff --git a/src/page/EXMExtensionList.Page.al b/src/page/EXMExtensionList.Page.al index d32c246..b06b089 100644 --- a/src/page/EXMExtensionList.Page.al +++ b/src/page/EXMExtensionList.Page.al @@ -16,37 +16,37 @@ page 83200 "EXM Extension List" { repeater(General) { - field("Code"; "Code") + field("Code"; Rec."Code") { ApplicationArea = All; ToolTip = 'Specifies the value of the Code field', Comment = 'ESP="Especifica el valor del campo Código"'; } - field(Description; "Description") + field(Description; Rec."Description") { ApplicationArea = All; ToolTip = 'Specifies the value of the Description field', Comment = 'ESP="Especifica el valor del campo Descripción"'; } - field(Type; "Type") + field(Type; Rec."Type") { ApplicationArea = All; ToolTip = 'Specifies the value of the Type', Comment = 'ESP="Especifica el valor del campo Tipo"'; } - field("Customer No."; "Customer No.") + field("Customer No."; Rec."Customer No.") { ApplicationArea = All; ToolTip = 'Specifies the value of the Customer No. field', Comment = 'ESP="Especifica el valor del campo Nº Cliente"'; } - field("Customer Name"; "Customer Name") + field("Customer Name"; Rec."Customer Name") { ApplicationArea = All; ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } - field("Object Starting ID"; "Object Starting ID") + field("Object Starting ID"; Rec."Object Starting ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Object Starting ID field', Comment = 'ESP="Especifica el valor del campo Inicio ID objetos"'; } - field("Object Ending ID"; "Object Ending ID") + field("Object Ending ID"; Rec."Object Ending ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Object Ending ID field', Comment = 'ESP="Especifica el valor del campo Final ID objetos"'; @@ -58,12 +58,12 @@ page 83200 "EXM Extension List" part(EXMExtDetail; "EXM Extension FactBox") { ApplicationArea = Basic, Suite; - SubPageLink = Code = field(Code); + SubPageLink = Code = field("Code"); } part(EXMExtDep; "EXM Extension Dep. Factbox") { ApplicationArea = Basic, Suite; - SubPageLink = "Extensión Code" = field(Code); + SubPageLink = "Extensión Code" = field("Code"); } } } @@ -92,9 +92,9 @@ page 83200 "EXM Extension List" case SelOption of 1: - EXMExtTreeView.SetFilters(Type, '', "Customer No."); + EXMExtTreeView.SetFilters(Rec."Type", '', Rec."Customer No."); 2: - EXMExtTreeView.SetFilters(Type, Code, "Customer No."); + EXMExtTreeView.SetFilters(Rec."Type", Rec."Code", Rec."Customer No."); else exit; end; @@ -102,6 +102,20 @@ page 83200 "EXM Extension List" EXMExtTreeView.Run(); end; } + action(ViewDependencies) + { + ApplicationArea = All; + + Caption = 'Dependencies', Comment = 'ESP="Dependencias"'; + Image = AssemblyBOM; + Promoted = true; + PromotedCategory = Process; + PromotedIsBig = true; + PromotedOnly = true; + RunObject = Page "EXM Extension Dependencies"; + RunPageLink = "Extensión Code" = field("Code"); + ToolTip = 'View extension dependencies', Comment = 'ESP="Ver dependencias extensión"'; + } } } } \ No newline at end of file diff --git a/src/page/EXMExtensionManagerSetup.Page.al b/src/page/EXMExtensionManagerSetup.Page.al index 0d26b20..ab81c99 100644 --- a/src/page/EXMExtensionManagerSetup.Page.al +++ b/src/page/EXMExtensionManagerSetup.Page.al @@ -15,42 +15,41 @@ page 83205 "EXM Extension Manager Setup" group(General) { Caption = 'General', Comment = 'ESP="General"'; - field("Extension Nos."; "Extension Nos.") + field("Extension Nos."; Rec."Extension Nos.") { ApplicationArea = All; ToolTip = 'Specifies the value of the Extension Nos. field', Comment = 'ESP="Especifica el valor del campo Nº série extensión"'; } - field("Object Names"; "Object Names") + field("Object Names"; Rec."Object Names") { ApplicationArea = All; ToolTip = 'Specifies the value of the Object Names field', Comment = 'ESP="Especifica el valor del campo Nombre objetos"'; } - field("Default Object Starting ID"; "Default Object Starting ID") + field("Default Object Starting ID"; Rec."Default Object Starting ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Default Starting Range field', Comment = 'ESP="Especifica el valor del campo Rango inicial por defecto."'; } - field("Default Object Ending ID"; "Default Object Ending ID") + field("Default Object Ending ID"; Rec."Default Object Ending ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Default Ending Range field', Comment = 'ESP="Especifica el valor del campo Rango final por defecto"'; } - field("Find Object ID Gaps"; "Find Object ID Gaps") + field("Find Object ID Gaps"; Rec."Find Object ID Gaps") { ApplicationArea = All; ToolTip = 'Always find for possible gaps between IDs.', comment = 'ESP="Buscar siempre huecos entre los ID."'; } - } group(Advanced) { Caption = 'Advanced Options', Comment = 'ESP="Opciones avanzadas"'; - field("Disable Auto. Objects ID"; "Disable Auto. Objects ID") + field("Disable Auto. Objects ID"; Rec."Disable Auto. Objects ID") { ApplicationArea = All; ToolTip = 'Allow to disable automatic ID assginment for Objects', Comment = 'ESP="Permite deshabilitar la asignación de ID a los objetos"'; } - field("Disable Auto. Field ID"; "Disable Auto. Field ID") + field("Disable Auto. Field ID"; Rec."Disable Auto. Field ID") { ApplicationArea = All; ToolTip = 'Allow to disable automatic ID assginment for Fields', Comment = 'ESP="Permite deshabilitar la asignación del ID a los campos"'; @@ -86,10 +85,10 @@ page 83205 "EXM Extension Manager Setup" trigger OnOpenPage() begin - Reset(); - if not Get() then begin - Init(); - Insert(); + Rec.Reset(); + if not Rec.Get() then begin + Rec.Init(); + Rec.Insert(); end; end; } \ No newline at end of file diff --git a/src/page/EXMExtensionTreeView.Page.al b/src/page/EXMExtensionTreeView.Page.al index 708a282..3b64fac 100644 --- a/src/page/EXMExtensionTreeView.Page.al +++ b/src/page/EXMExtensionTreeView.Page.al @@ -5,7 +5,7 @@ page 83215 "EXM Extension TreeView" InsertAllowed = false; ModifyAllowed = false; PageType = List; - SourceTable = "EXM Extension Lines"; + SourceTable = "EXM Tree View"; SourceTableTemporary = true; layout @@ -14,56 +14,73 @@ page 83215 "EXM Extension TreeView" { repeater(Content1) { - IndentationColumn = "Total Fields"; + IndentationColumn = Rec."Indentation"; IndentationControls = "Object Type"; ShowAsTree = true; TreeInitialState = ExpandAll; - field("Extension Code"; "Extension Code") + field("Extension Code"; Rec."Extension Code") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Cód. extensión"'; } - field("Object Type"; "Object Type") + field("Object Type"; Rec."Object Type") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto"'; } - field("Object ID"; "Object ID") + field("Object ID"; Rec."Object ID") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto"'; } - field(Name; Name) + field("Object Name"; Rec."Object Name") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } - - field("Source Object ID"; "Source Object ID") + field("Field ID"; Rec."Field ID") + { + ApplicationArea = All; + StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field Id field', Comment = 'ESP="Especifica el valor del campo ID Campo"'; + } + field("Field Name"; Rec."Field Name") + { + ApplicationArea = All; + StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field Name field', Comment = 'ESP="Especifica el valor del campo Nombre Campo"'; + } + field("Field Data Type"; Rec."Field Data Type") + { + ApplicationArea = All; + StyleExpr = StyleExp; + ToolTip = 'Specifies the value of the Field Data Type field', Comment = 'ESP="Especifica el valor del campo Tipo Dato Campo"'; + } + field("Source Object ID"; Rec."Source Object ID") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Source Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto origen"'; } - field("Source Object Type"; "Source Object Type") + field("Source Object Type"; Rec."Source Object Type") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Source Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto origen"'; } - field("Source Name"; "Source Name") + field("Source Name"; Rec."Source Name") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } - field("Total Fields"; "Total Fields") + field(Indentation; Rec.Indentation) { ApplicationArea = All; Caption = 'Level', Comment = 'ESP="Nivel"'; @@ -94,37 +111,49 @@ page 83215 "EXM Extension TreeView" repeat ObjType := -1; - Init(); + //Extension Header LineNo += 1; - "Line No." := LineNo; - "Extension Code" := EXMExtHeader.Code; - Name := EXMExtHeader.Description; - "Total Fields" := 0; - "Object Type" := EXMExtLine."Object Type"::" "; - Insert(); + + Rec.Init(); + Rec."Line No." := LineNo; + Rec.Indentation := 0; + Rec."Extension Code" := EXMExtHeader.Code; + Rec."Object Name" := EXMExtHeader.Description; + Rec."Object Type" := EXMExtLine."Object Type"::" "; + Rec.Insert(); EXMExtLine.SetCurrentKey("Extension Code", "Object Type"); EXMExtLine.SetRange("Extension Code", EXMExtHeader.Code); if EXMExtLine.FindSet() then repeat + //Extension object type header if EXMExtLine."Object Type" <> ObjType then begin - Init(); LineNo += 1; - "Line No." := LineNo; - "Extension Code" := EXMExtLine."Extension Code"; - "Object Type" := EXMExtLine."Object Type"; - "Total Fields" := 1; - Insert(); + + Rec.Init(); + Rec."Line No." := LineNo; + Rec.Indentation := 1; + Rec."Extension Code" := EXMExtLine."Extension Code"; + Rec."Object Type" := EXMExtLine."Object Type"; + Rec.Insert(); + ObjType := "Object Type"; end; LineNo += 1; - Init(); - Rec := EXMExtLine; - "Line No." := LineNo; - "Total Fields" := 2; - Insert(); + //Extension objects + Rec.Init(); + Rec."Line No." := LineNo; + Rec.Indentation := 2; + Rec."Extension Code" := EXMExtLine."Extension Code"; + Rec."Object Type" := EXMExtLine."Object Type"; + Rec."Object ID" := EXMExtLine."Object ID"; + Rec."Object Name" := EXMExtLine.Name; + Rec."Source Object Type" := EXMExtLine."Source Object Type"; + Rec."Source Object ID" := EXMExtLine."Source Object ID"; + Rec."Source Name" := EXMExtLine."Source Name"; + Rec.Insert(); if EXMExtLine."Object Type" in [EXMExtLine."Object Type"::Table, EXMExtLine."Object Type"::"TableExtension"] then begin EXMFields.SetRange("Extension Code", EXMExtHeader.Code); @@ -133,40 +162,52 @@ page 83215 "EXM Extension TreeView" repeat LineNo += 1; - Init(); - "Extension Code" := EXMExtLine."Extension Code"; - "Object Type" := EXMExtLine."Object Type"; - "Object ID" := EXMExtLine."Object ID"; - "Source Object ID" := EXMFields."Field ID"; - Name := EXMFields."Field Name"; - "Line No." := LineNo; - "Total Fields" := 3; - Insert(); + //Extension fields + Rec.Init(); + Rec."Line No." := LineNo; + Rec.Indentation := 3; + + Rec."Extension Code" := EXMExtLine."Extension Code"; + Rec."Object Type" := EXMExtLine."Object Type"; + Rec."Object ID" := EXMExtLine."Object ID"; + Rec."Object Name" := EXMExtLine.Name; + + Rec."Field ID" := EXMFields."Field ID"; + Rec."Field Name" := EXMFields."Field Name"; + if EXMFields.Lenght <> 0 then + Rec."Field Data Type" := Format(EXMFields."Data Type") + '[' + Format(EXMFields.Lenght) + ']' + else + Rec."Field Data Type" := Format(EXMFields."Data Type"); + + Rec."Source Object Type" := EXMExtLine."Source Object Type"; + Rec."Source Object ID" := EXMExtLine."Source Object ID"; + Rec."Source Name" := EXMExtLine."Source Name"; + Rec.Insert(); until EXMFields.Next() = 0; end; until EXMExtLine.Next() = 0; until EXMExtHeader.Next() = 0; - SetCurrentKey("Extension Code", "Line No."); - if FindFirst() then; + Rec.SetCurrentKey("Extension Code", "Line No."); + if Rec.FindFirst() then; end; trigger OnAfterGetRecord() begin StyleExp := 'standard'; - if "Total Fields" = 0 then + if Rec.Indentation = 0 then StyleExp := 'favorable'; - if "Total Fields" = 1 then + if Rec.Indentation = 1 then StyleExp := 'strong'; - if "Total Fields" = 3 then + if Rec.Indentation = 3 then StyleExp := 'standardaccent'; end; var - StyleExp: Text; ExtCode: Code[20]; ViewCustNoExt: Code[20]; ExtType: Integer; + StyleExp: Text; internal procedure SetFilters(SetExtType: Integer; SetExtCode: Code[20]; SetCustNo: Code[20]) begin diff --git a/src/page/EXMExtensionsActivities.Page.al b/src/page/EXMExtensionsActivities.Page.al index 54e4e4d..ee17c5a 100644 --- a/src/page/EXMExtensionsActivities.Page.al +++ b/src/page/EXMExtensionsActivities.Page.al @@ -14,7 +14,7 @@ page 83209 "EXM Extensions Activities" { Caption = 'Extensions', Comment = 'ESP="Extensiones"'; CuegroupLayout = Wide; - field(Extensions; Extensions) + field(Extensions; Rec.Extensions) { ApplicationArea = Basic, Suite; DrillDownPageId = "EXM Extension List"; @@ -24,14 +24,13 @@ page 83209 "EXM Extensions Activities" cuegroup(Detail) { Caption = 'Extensions per type', Comment = 'ESP="Extensiones por tipo"'; - field("Internal Extensions"; "Internal Extensions") + field("Internal Extensions"; Rec."Internal Extensions") { ApplicationArea = Basic, Suite; DrillDownPageId = "EXM Extension List"; ToolTip = 'View Internal Extensions list', Comment = 'ESP="Muestra todas las extensiones internas"'; } - - field("External Extensions"; "External Extensions") + field("External Extensions"; Rec."External Extensions") { ApplicationArea = Basic, Suite; DrillDownPageId = "EXM Extension List"; diff --git a/src/page/EXMFieldList.Page.al b/src/page/EXMFieldList.Page.al index bce5b5b..2d468ba 100644 --- a/src/page/EXMFieldList.Page.al +++ b/src/page/EXMFieldList.Page.al @@ -12,7 +12,7 @@ page 83203 "EXM Field List" { repeater(Fields) { - field("Extension Code"; "Extension Code") + field("Extension Code"; Rec."Extension Code") { ApplicationArea = All; Editable = false; @@ -20,7 +20,7 @@ page 83203 "EXM Field List" ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Cód. extensión"'; Visible = false; } - field("Source Line No."; "Source Line No.") + field("Source Line No."; Rec."Source Line No.") { ApplicationArea = All; Editable = false; @@ -28,7 +28,7 @@ page 83203 "EXM Field List" ToolTip = 'Specifies the value of the Source Line No. field', Comment = 'ESP="Especifica el valor del campo Nº línea origen"'; Visible = false; } - field("Table Source Type"; "Table Source Type") + field("Table Source Type"; Rec."Table Source Type") { ApplicationArea = All; Editable = false; @@ -36,7 +36,7 @@ page 83203 "EXM Field List" ToolTip = 'Specifies the value of the Source Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto origen"'; Visible = false; } - field("Source Table ID"; "Source Table ID") + field("Source Table ID"; Rec."Source Table ID") { ApplicationArea = All; Editable = false; @@ -44,7 +44,7 @@ page 83203 "EXM Field List" ToolTip = 'Specifies the value of the Source Table ID field', Comment = 'ESP="Especifica el valor del campo Id. tabla origen"'; Visible = false; } - field("Table ID"; "Table ID") + field("Table ID"; Rec."Table ID") { ApplicationArea = All; Editable = false; @@ -52,7 +52,7 @@ page 83203 "EXM Field List" ToolTip = 'Specifies the value of the Table ID field', Comment = 'ESP="Especifica el valor del campo Id. tabla"'; Visible = false; } - field(IsPK; IsPK) + field(IsPK; Rec.IsPK) { ApplicationArea = All; Enabled = ("Source Table ID" = 0); @@ -61,61 +61,61 @@ page 83203 "EXM Field List" Visible = PKVisible; trigger OnValidate() begin - if xRec.IsPK <> IsPK then + if xRec.IsPK <> Rec.IsPK then CurrPage.Update(true); end; } - field("Field ID"; "Field ID") + field("Field ID"; Rec."Field ID") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Field ID field', Comment = 'ESP="Especifica el valor del campo Id. campo"'; } - field("Field Name"; "Field Name") + field("Field Name"; Rec."Field Name") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Field Name field', Comment = 'ESP="Especifica el valor del campo Nombre de campo"'; } - field("Data Type"; "Data Type") + field("Data Type"; Rec."Data Type") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Data Type field', Comment = 'ESP="Especifica el valor del campo Tipo datos"'; } - field(Lenght; Lenght) + field(Lenght; Rec.Lenght) { ApplicationArea = All; Editable = (("Data Type" = "Data Type"::Text) or ("Data Type" = "Data Type"::Code)); StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Lenght field', Comment = 'ESP="Especifica el valor del campo Longitud"'; } - field("Field Class"; "Field Class") + field("Field Class"; Rec."Field Class") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Field Class field', Comment = 'ESP="Especifica el valor del campo Clase campo"'; } - field("Option String"; "Option String") + field("Option String"; Rec."Option String") { ApplicationArea = All; - Editable = ("Data Type" = "Data Type"::Option); + Editable = (Rec."Data Type" = Rec."Data Type"::Option); StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Option String field', Comment = 'ESP="Especifica el valor del campo Texto opciones"'; } - field(Obsolete; Obsolete) + field(Obsolete; Rec.Obsolete) { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Obsolete field', Comment = 'ESP="Especifica el valor del campo Obsoleto"'; } - field("Created by"; "Created by") + field("Created by"; Rec."Created by") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica el valor del campo Creado por"'; } - field("Creation Date"; "Creation Date") + field("Creation Date"; Rec."Creation Date") { ApplicationArea = All; StyleExpr = StyleExp; @@ -141,7 +141,7 @@ page 83203 "EXM Field List" { ApplicationArea = All; Caption = 'View / Hide fields', Comment = 'ESP="Ver / ocultar campos"'; - Enabled = ("Table Source Type" = "Table Source Type"::"TableExtension"); + Enabled = (Rec."Table Source Type" = Rec."Table Source Type"::"TableExtension"); Image = ResetStatus; Promoted = true; PromotedCategory = Process; @@ -161,7 +161,7 @@ page 83203 "EXM Field List" { ApplicationArea = All; Caption = 'View source table', Comment = 'ESP="Ver tabla origen"'; - Enabled = ("Table Source Type" = "Table Source Type"::"TableExtension"); + Enabled = (Rec."Table Source Type" = Rec."Table Source Type"::"TableExtension"); Image = Table; Promoted = true; PromotedCategory = Process; @@ -173,7 +173,7 @@ page 83203 "EXM Field List" var EXMExtMgt: Codeunit "EXM Extension Management"; begin - EXMExtMgt.GetTableFieldData("Source Table ID"); + EXMExtMgt.GetTableFieldData(Rec."Source Table ID"); end; } action(AddRelField) @@ -186,13 +186,13 @@ page 83203 "EXM Field List" PromotedIsBig = true; PromotedOnly = true; ToolTip = 'Add current field to defined related tables', Comment = 'ESP="Añade campo actual a tablas relacionadas definidas"'; - Visible = ("Table Source Type" = "Table Source Type"::"TableExtension"); + Visible = (Rec."Table Source Type" = Rec."Table Source Type"::"TableExtension"); trigger OnAction() var ExtMngt: Codeunit "EXM Extension Management"; begin - TestField("Table Source Type", "Table Source Type"::"TableExtension"); + Rec.TestField("Table Source Type", Rec."Table Source Type"::"TableExtension"); ExtMngt.CreateRelatedFields(Rec); end; } @@ -220,10 +220,10 @@ page 83203 "EXM Field List" PKErr: Label 'Primary key must be set.', Comment = 'ESP="Se debe indicar clave primária"'; begin if CloseAction = CloseAction::LookupOK then - if "Source Table ID" = 0 then begin - EXMTableFields.SetRange("Extension Code", "Extension Code"); - EXMTableFields.SetRange("Source Line No.", "Source Line No."); - EXMTableFields.SetRange("Table Source Type", "Table Source Type"::Table); + if Rec."Source Table ID" = 0 then begin + EXMTableFields.SetRange("Extension Code", Rec."Extension Code"); + EXMTableFields.SetRange("Source Line No.", Rec."Source Line No."); + EXMTableFields.SetRange("Table Source Type", Rec."Table Source Type"::Table); EXMTableFields.SetRange(IsPK, true); if EXMTableFields.IsEmpty then Error(PKErr); @@ -240,19 +240,19 @@ page 83203 "EXM Field List" AllObject: Record AllObj; EXMExtLine: Record "EXM Extension Lines"; begin - EXMExtLine.Get("Extension Code", "Source Line No."); + EXMExtLine.Get(Rec."Extension Code", Rec."Source Line No."); if Rec."Table Source Type" = Rec."Table Source Type"::"TableExtension" then begin - AllObject.Get(AllObject."Object Type"::Table, "Source Table ID"); - exit(Format("Source Table ID") + ' ' + AllObject."Object Name" + ' - ' + Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); + AllObject.Get(AllObject."Object Type"::Table, Rec."Source Table ID"); + exit(Format(Rec."Source Table ID") + ' ' + AllObject."Object Name" + ' - ' + Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); end else exit(Format(EXMExtLine."Object ID") + ' ' + EXMExtLine.Name); end; local procedure GetPKStyle() begin - PKVisible := ("Source Table ID" = 0); + PKVisible := (Rec."Source Table ID" = 0); StyleExp := 'standard'; - if IsPK then + if Rec.IsPK then StyleExp := 'strong'; end; } \ No newline at end of file diff --git a/src/page/EXMObjectDetail.Page.al b/src/page/EXMObjectDetail.Page.al index 89ab1bd..5c631b4 100644 --- a/src/page/EXMObjectDetail.Page.al +++ b/src/page/EXMObjectDetail.Page.al @@ -11,12 +11,12 @@ page 83214 "EXM Object Detail" { repeater(General) { - field("Object Type"; "Object Type") + field("Object Type"; Rec."Object Type") { ApplicationArea = All; ToolTip = 'Specifies the value of the Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto"'; } - field("Object ID"; "Object ID") + field("Object ID"; Rec."Object ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto"'; @@ -26,25 +26,25 @@ page 83214 "EXM Object Detail" ApplicationArea = All; ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre"'; } - field("Source Object Type"; "Source Object Type") + field("Source Object Type"; Rec."Source Object Type") { ApplicationArea = All; ToolTip = 'Specifies the value of the Source Object Type field', Comment = 'ESP="Especifica el valor del campo Tipo objeto origen"'; Visible = SourceVisible; } - field("Source Object ID"; "Source Object ID") + field("Source Object ID"; Rec."Source Object ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Source Object ID field', Comment = 'ESP="Especifica el valor del campo ID objeto origen"'; Visible = SourceVisible; } - field("Source Name"; "Source Name") + field("Source Name"; Rec."Source Name") { ApplicationArea = All; ToolTip = 'Specifies the value of the Name field', Comment = 'ESP="Especifica el valor del campo Nombre Origen" '; Visible = SourceVisible; } - field("Total Fields"; "Total Fields") + field("Total Fields"; Rec."Total Fields") { ApplicationArea = All; ToolTip = 'Shows the value of the Total fields field', Comment = 'ESP="Especifica el valor del campo Campos relacionados"'; @@ -60,8 +60,8 @@ page 83214 "EXM Object Detail" trigger OnAfterGetRecord() begin - SourceVisible := ("Source Object Type" <> "Source Object Type"::" "); - FieldsVisible := "Object Type" in ["Object Type"::Table, "Object Type"::"TableExtension", "Object Type"::Enum, "Object Type"::EnumExtension] + SourceVisible := (Rec."Source Object Type" <> Rec."Source Object Type"::" "); + FieldsVisible := Rec."Object Type" in [Rec."Object Type"::Table, Rec."Object Type"::"TableExtension", Rec."Object Type"::Enum, Rec."Object Type"::EnumExtension] end; var @@ -75,36 +75,36 @@ page 83214 "EXM Object Detail" EXMEnumVal: Page "EXM Enum Values"; EXMFieldList: Page "EXM Field List"; begin - case "Object Type" of - "Object Type"::"Table", "Object Type"::"TableExtension": + case Rec."Object Type" of + Rec."Object Type"::"Table", Rec."Object Type"::"TableExtension": begin - EXMTableFields.SetRange("Extension Code", "Extension Code"); - EXMTableFields.SetRange("Source Line No.", "Line No."); - EXMTableFields.SetRange("Table Source Type", "Object Type"); - EXMTableFields.SetRange("Table ID", "Object ID"); - EXMTableFields.SetRange("Source Table ID", "Source Object ID"); + EXMTableFields.SetRange("Extension Code", Rec."Extension Code"); + EXMTableFields.SetRange("Source Line No.", Rec."Line No."); + EXMTableFields.SetRange("Table Source Type", Rec."Object Type"); + EXMTableFields.SetRange("Table ID", Rec."Object ID"); + EXMTableFields.SetRange("Source Table ID", Rec."Source Object ID"); EXMFieldList.SetTableView(EXMTableFields); EXMFieldList.LookupMode(true); if EXMFieldList.RunModal() = Action::LookupOK then begin - "Total Fields" := GetTotalFields(); + Rec."Total Fields" := GetTotalFields(); CurrPage.Update(true); end; end; - "Object Type"::Enum, "Object Type"::EnumExtension: + Rec."Object Type"::Enum, Rec."Object Type"::EnumExtension: begin - EXMEnumValues.SetRange("Extension Code", "Extension Code"); - EXMEnumValues.SetRange("Source Line No.", "Line No."); - EXMEnumValues.SetRange("Source Type", "Object Type"); - EXMEnumValues.SetRange("Enum ID", "Object ID"); - EXMEnumValues.SetRange("Source Enum ID", "Source Object ID"); + EXMEnumValues.SetRange("Extension Code", Rec."Extension Code"); + EXMEnumValues.SetRange("Source Line No.", Rec."Line No."); + EXMEnumValues.SetRange("Source Type", Rec."Object Type"); + EXMEnumValues.SetRange("Enum ID", Rec."Object ID"); + EXMEnumValues.SetRange("Source Enum ID", Rec."Source Object ID"); EXMEnumVal.SetTableView(EXMEnumValues); EXMEnumVal.LookupMode(true); if EXMEnumVal.RunModal() = Action::LookupOK then begin - "Total Fields" := GetTotalFields(); + Rec."Total Fields" := GetTotalFields(); CurrPage.Update(true); end; end; diff --git a/src/page/EXMRelatedData.Page.al b/src/page/EXMRelatedData.Page.al index 792c284..d4677e9 100644 --- a/src/page/EXMRelatedData.Page.al +++ b/src/page/EXMRelatedData.Page.al @@ -10,12 +10,12 @@ page 83217 "EXM Related Data" { group(General) { - field("Code"; Code) + field("Code"; Rec."Code") { ApplicationArea = All; ToolTip = 'Specifies the value of the Code field', comment = 'ESP="Especifica el valor del campo Código"'; } - field(Description; Description) + field(Description; Rec.Description) { ApplicationArea = All; ToolTip = 'Specifies the value of the Description field', comment = 'ESP="Especifica el valor del campo Descripción"'; @@ -25,7 +25,7 @@ page 83217 "EXM Related Data" { ApplicationArea = All; Caption = 'Related tables', comment = 'ESP="Tablas relacionadas"'; - SubPageLink = Code = field(Code); + SubPageLink = Code = field("Code"); } } } diff --git a/src/page/EXMRelatedDataList.Page.al b/src/page/EXMRelatedDataList.Page.al index 1448309..0858725 100644 --- a/src/page/EXMRelatedDataList.Page.al +++ b/src/page/EXMRelatedDataList.Page.al @@ -14,17 +14,17 @@ page 83216 "EXM Related Data List" { repeater(General) { - field("Code"; Code) + field("Code"; Rec."Code") { ApplicationArea = All; ToolTip = 'Specifies the value of the Code field', comment = 'ESP="Especifica el valor del campo Código"'; } - field(Description; Description) + field(Description; Rec.Description) { ApplicationArea = All; ToolTip = 'Specifies the value of the Description field', comment = 'ESP="Especifica el valor del campo Descripción"'; } - field("Related Tables No."; "Related Tables No.") + field("Related Tables No."; Rec."Related Tables No.") { ApplicationArea = All; ToolTip = 'Specifies the value of the Related Tables No. field', comment = 'ESP="Muestra el Nº tablas relacionadas"'; diff --git a/src/page/EXMRelatedLines.Page.al b/src/page/EXMRelatedLines.Page.al index 188a628..184a9b8 100644 --- a/src/page/EXMRelatedLines.Page.al +++ b/src/page/EXMRelatedLines.Page.al @@ -11,12 +11,12 @@ page 83218 "EXM Related Lines" { repeater(General) { - field("Table ID"; "Table ID") + field("Table ID"; Rec."Table ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Table ID field', comment = 'ESP="Especifica el valor del campo ID Tabla"'; } - field(Name; Name) + field(Name; Rec.Name) { ApplicationArea = All; ToolTip = 'Specifies the value of the Name field', comment = 'ESP="Especifica el valor del campo Nombre"'; diff --git a/src/page/EXMSetupWizard.Page.al b/src/page/EXMSetupWizard.Page.al index b150900..5d72353 100644 --- a/src/page/EXMSetupWizard.Page.al +++ b/src/page/EXMSetupWizard.Page.al @@ -64,7 +64,7 @@ page 83212 "EXM Setup Wizard" InstructionalText = 'When retriving data from Business Central how would you like to see objects and fields names?', Comment = 'ESP="Al recuperar datos de Business Central, ¿cómo le gustaría ver los nombres de objetos y campos?"'; Visible = SecondPageVisible; - field("Object Names"; "Object Names") + field("Object Names"; Rec."Object Names") { ApplicationArea = All; ToolTip = 'Specifies the value of the Object Names', Comment = 'ESP="Nombre objetos" field'; @@ -75,7 +75,7 @@ page 83212 "EXM Setup Wizard" Caption = 'Set Extensions Series Nos.', Comment = 'ESP="Definir numerador extensiones"'; InstructionalText = 'Define an Extension Series Nos. in order to assign default extension code when creating new extensions.', Comment = 'ESP="Defina un numerador para asignar automaticamente un código al generar una nueva extensión."'; Visible = SecondPageVisible; - field("Extension Nos."; "Extension Nos.") + field("Extension Nos."; Rec."Extension Nos.") { ApplicationArea = All; ToolTip = 'Specifies the value of the Extension Nos.', Comment = 'ESP="Nº série extensión" field'; @@ -92,17 +92,17 @@ page 83212 "EXM Setup Wizard" Caption = 'Set Objects Default IDs', Comment = 'ESP="Definir IDs objetos por defecto"'; InstructionalText = 'Define starting and ending default object IDs for extensions. You can change them in every extension.', Comment = 'ESP="Defina IDs iniciales y finales por defecto en las extensiones. Se pueden modificar en cada extensión."'; Visible = ThirdPageVisible; - field("Default Object Starting ID"; "Default Object Starting ID") + field("Default Object Starting ID"; Rec."Default Object Starting ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Default Starting Range', Comment = 'ESP="Indicar valor para campo Rango inicial por defecto"'; } - field("Default Object Ending ID"; "Default Object Ending ID") + field("Default Object Ending ID"; Rec."Default Object Ending ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Default Ending Range', Comment = 'ESP="Indicar valor para campo Rango final por defecto"'; } - field("Find Object ID Gaps"; "Find Object ID Gaps") + field("Find Object ID Gaps"; Rec."Find Object ID Gaps") { ApplicationArea = All; ToolTip = 'Always find for possible gaps between IDs.', comment = 'ESP="Buscar siempre huecos entre los ID."'; @@ -114,12 +114,12 @@ page 83212 "EXM Setup Wizard" Caption = 'Disable automatic IDs', Comment = 'ESP="Deshabilitar IDs automáticos"'; InstructionalText = 'Define if you want do disable automatic objects and fields ID. OPTION NOT RECOMMENDED.', Comment = 'ESP="Defina si quiere deshabilitar la asignación automática de ID para objetos y campos. OPCIÓN NO RECOMENDADA."'; Visible = ThirdPageVisible; - field("Disable Auto. Objects ID"; "Disable Auto. Objects ID") + field("Disable Auto. Objects ID"; Rec."Disable Auto. Objects ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Disable Auto Objects ID', Comment = 'ESP="Deshabilitar asignación ID objetos"'; } - field("Disable Auto. Field ID"; "Disable Auto. Field ID") + field("Disable Auto. Field ID"; Rec."Disable Auto. Field ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Disable Auto Field ID', Comment = 'ESP="Deshabilitar asignación ID campos"'; diff --git a/src/page/EXMTableExtFieldList.Page.al b/src/page/EXMTableExtFieldList.Page.al index 9759682..e587a66 100644 --- a/src/page/EXMTableExtFieldList.Page.al +++ b/src/page/EXMTableExtFieldList.Page.al @@ -13,64 +13,64 @@ page 83204 "EXM TableExt Field List" { repeater(Fields) { - field("Extension Code"; "Extension Code") + field("Extension Code"; Rec."Extension Code") { ApplicationArea = All; ToolTip = 'Specifies the value of the Extension Code field', Comment = 'ESP="Especifica el valor del campo Cód. extensión"'; } - field("Source Table ID"; "Source Table ID") + field("Source Table ID"; Rec."Source Table ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Source Table ID field', Comment = 'ESP="Especifica el valor del campo Id. tabla origen"'; Visible = false; } - field("Table ID"; "Table ID") + field("Table ID"; Rec."Table ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Table ID field', Comment = 'ESP="Especifica el valor del campo Id. tabla"'; Visible = false; } - field("Field ID"; "Field ID") + field("Field ID"; Rec."Field ID") { ApplicationArea = All; ToolTip = 'Specifies the value of the Field ID field', Comment = 'ESP="Especifica el valor del campo Id. campo"'; } - field("Field Name"; "Field Name") + field("Field Name"; Rec."Field Name") { ApplicationArea = All; ToolTip = 'Specifies the value of the Field Name field', Comment = 'ESP="Especifica el valor del campo Nombre de campo"'; } - field("Data Type"; "Data Type") + field("Data Type"; Rec."Data Type") { ApplicationArea = All; ToolTip = 'Specifies the value of the Data Type field', Comment = 'ESP="Especifica el valor del campo Tipo datos"'; } - field(Lenght; Lenght) + field(Lenght; Rec.Lenght) { ApplicationArea = All; ToolTip = 'Specifies the value of the Lenght field', Comment = 'ESP="Especifica el valor del campo Longitud"'; } - field("Field Class"; "Field Class") + field("Field Class"; Rec."Field Class") { ApplicationArea = All; ToolTip = 'Specifies the value of the Field Class field', Comment = 'ESP="Especifica el valor del campo Clase campo"'; } - field("Option String"; "Option String") + field("Option String"; Rec."Option String") { ApplicationArea = All; ToolTip = 'Specifies the value of the Option String field', Comment = 'ESP="Especifica el valor del campo Texto opciones"'; } - field(Obsolete; Obsolete) + field(Obsolete; Rec.Obsolete) { ApplicationArea = All; ToolTip = 'Specifies the value of the Obsolete field', Comment = 'ESP="Especifica el valor del campo Obsoleto"'; } - field("Created by"; "Created by") + field("Created by"; Rec."Created by") { ApplicationArea = All; ToolTip = 'Specifies the value of the Created by field', Comment = 'ESP="Especifica el valor del campo Creado por"'; } - field("Creation Date"; "Creation Date") + field("Creation Date"; Rec."Creation Date") { ApplicationArea = All; ToolTip = 'Specifies the value of the Creation Date field', Comment = 'ESP="Especifica el valor del campo Fecha creación"'; diff --git a/src/page/EXMTableFieldDetail.Page.al b/src/page/EXMTableFieldDetail.Page.al index 032fb4a..a09f6b8 100644 --- a/src/page/EXMTableFieldDetail.Page.al +++ b/src/page/EXMTableFieldDetail.Page.al @@ -16,50 +16,50 @@ page 83206 "EXM Table Field Detail" { repeater(Fields) { - field("Field ID"; "Field ID") + field("Field ID"; Rec."Field ID") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Field ID field', Comment = 'ESP="Especifica el valor del campo Id. campo"'; } - field("Field Name"; "Field Name") + field("Field Name"; Rec."Field Name") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Field Name field', Comment = 'ESP="Especifica el valor del campo Nombre de campo"'; } - field("Field Caption"; "Field Caption") + field("Field Caption"; Rec."Field Caption") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Field Caption field', Comment = 'ESP="Especifica el valor del campo Título campo"'; } - field("Data Type"; "Data Type") + field("Data Type"; Rec."Data Type") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Data Type field', Comment = 'ESP="Especifica el valor del campo Tipo datos"'; } - field(Lenght; Lenght) + field(Lenght; Rec.Lenght) { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Lenght field', Comment = 'ESP="Especifica el valor del campo Longitud"'; } - field("Field Class"; "Field Class") + field("Field Class"; Rec."Field Class") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Field Class field', Comment = 'ESP="Especifica el valor del campo Clase campo"'; } - field("Option String"; "Option String") + field("Option String"; Rec."Option String") { ApplicationArea = All; StyleExpr = StyleExp; ToolTip = 'Specifies the value of the Option String field', Comment = 'ESP="Especifica el valor del campo Texto opciones"'; } - field(Obsolete; Obsolete) + field(Obsolete; Rec.Obsolete) { ApplicationArea = All; StyleExpr = StyleExp; @@ -72,7 +72,7 @@ page 83206 "EXM Table Field Detail" trigger OnAfterGetRecord() begin StyleExp := 'standard'; - if IsPK then + if Rec.IsPK then StyleExp := 'strong'; end; @@ -83,7 +83,7 @@ page 83206 "EXM Table Field Detail" var AllObject: Record AllObj; begin - AllObject.Get(AllObject."Object Type"::Table, "Table ID"); - exit(Format("Table ID") + ' ' + AllObject."Object Name") + AllObject.Get(AllObject."Object Type"::Table, Rec."Table ID"); + exit(Format(Rec."Table ID") + ' ' + AllObject."Object Name") end; } \ No newline at end of file diff --git a/src/table/EXMEnumValues.Table.al b/src/table/EXMEnumValues.Table.al index 5717a63..a10440a 100644 --- a/src/table/EXMEnumValues.Table.al +++ b/src/table/EXMEnumValues.Table.al @@ -15,8 +15,8 @@ table 83205 "EXM Enum Values" var ExtHeader: Record "EXM Extension Header"; begin - ExtHeader.Get("Extension Code"); - "Customer No." := ExtHeader."Customer No."; + ExtHeader.Get(Rec."Extension Code"); + Rec."Customer No." := ExtHeader."Customer No."; end; } field(2; "Source Line No."; Integer) @@ -41,8 +41,8 @@ table 83205 "EXM Enum Values" var EXMExtHeader: Record "EXM Extension Header"; begin - EXMExtHeader.Get("Extension Code"); - Validate("Ordinal ID", SetEnumID("Source Enum ID", "Enum ID", EXMExtHeader."Customer No.")) + EXMExtHeader.Get(Rec."Extension Code"); + Rec.Validate("Ordinal ID", SetEnumID(Rec."Source Enum ID", Rec."Enum ID", EXMExtHeader."Customer No.")) end; } field(5; "Enum ID"; Integer) @@ -56,7 +56,7 @@ table 83205 "EXM Enum Values" EXMExtHeader: Record "EXM Extension Header"; begin EXMExtHeader.Get("Extension Code"); - Validate("Ordinal ID", SetEnumID("Source Enum ID", "Enum ID", EXMExtHeader."Customer No.")) + Rec.Validate("Ordinal ID", SetEnumID(Rec."Source Enum ID", Rec."Enum ID", EXMExtHeader."Customer No.")) end; } field(6; "Ordinal ID"; Integer) @@ -110,8 +110,8 @@ table 83205 "EXM Enum Values" trigger OnInsert() begin - "Created by" := CopyStr(UserId(), 1, MaxStrLen("Created by")); - "Creation Date" := CurrentDateTime(); + Rec."Created by" := CopyStr(UserId(), 1, MaxStrLen(Rec."Created by")); + Rec."Creation Date" := CurrentDateTime(); ValidateData(); end; @@ -134,7 +134,7 @@ table 83205 "EXM Enum Values" if IsHandled then exit(EnumValueID); - EXMExtHeader.Get("Extension Code"); + EXMExtHeader.Get(Rec."Extension Code"); if SourceEnumID = 0 then EXMEnumValues.SetCurrentKey("Source Enum ID", "Enum ID", "Ordinal ID") else begin @@ -149,7 +149,7 @@ table 83205 "EXM Enum Values" if not EXMEnumValues.IsEmpty() then begin if EXMSetup."Find Object ID Gaps" then begin EXMEnumValues.FindSet(); - if "Source Type" = "Source Type"::Enum then + if Rec."Source Type" = Rec."Source Type"::Enum then ExpectedId := 1 else ExpectedId := EXMExtHeader."Object Starting ID"; @@ -165,7 +165,7 @@ table 83205 "EXM Enum Values" EnumValueID := EXMEnumValues."Ordinal ID" + 1; end; end else - if "Source Type" = "Source Type"::Enum then + if Rec."Source Type" = Rec."Source Type"::Enum then EnumValueID := 1 else EnumValueID := EXMExtHeader."Object Starting ID"; @@ -179,24 +179,24 @@ table 83205 "EXM Enum Values" var EXMExtMgt: Codeunit "EXM Extension Management"; begin - case "Source Type" of - "Source Type"::Enum: + case Rec."Source Type" of + Rec."Source Type"::Enum: begin - TestField("Source Enum ID", 0); - TestField("Enum ID"); + Rec.TestField("Source Enum ID", 0); + Rec.TestField("Enum ID"); end; - "Source Type"::"EnumExtension": + Rec."Source Type"::"EnumExtension": begin - TestField("Source Enum ID"); - TestField("Enum ID"); + Rec.TestField("Source Enum ID"); + Rec.TestField("Enum ID"); end; end; - TestField("Ordinal ID"); - TestField("Enum Value"); + Rec.TestField("Ordinal ID"); + Rec.TestField("Enum Value"); - if "Source Type" = "Source Type"::"EnumExtension" then - EXMExtMgt.ValidateExtensionRangeID("Extension Code", "Enum ID"); + if Rec."Source Type" = Rec."Source Type"::"EnumExtension" then + EXMExtMgt.ValidateExtensionRangeID(Rec."Extension Code", Rec."Enum ID"); end; [IntegrationEvent(false, false)] diff --git a/src/table/EXMExtensionDependencies.Table.al b/src/table/EXMExtensionDependencies.Table.al index 22eee3e..92db471 100644 --- a/src/table/EXMExtensionDependencies.Table.al +++ b/src/table/EXMExtensionDependencies.Table.al @@ -35,12 +35,12 @@ table 83208 "EXM Extension Dependencies" var ExtHeader: Record "EXM Extension Header"; begin - if xRec."Dependent Ext. Code" <> "Dependent Ext. Code" then - if "Dependent Ext. Code" = '' then - "Dependent Ext. Name" := '' + if xRec."Dependent Ext. Code" <> Rec."Dependent Ext. Code" then + if Rec."Dependent Ext. Code" = '' then + Rec."Dependent Ext. Name" := '' else begin - ExtHeader.Get("Dependent Ext. Code"); - "Dependent Ext. Name" := ExtHeader.Description; + ExtHeader.Get(Rec."Dependent Ext. Code"); + Rec."Dependent Ext. Name" := ExtHeader.Description; end; end; @@ -52,7 +52,7 @@ table 83208 "EXM Extension Dependencies" begin ExtHeader.Get("Extensión Code"); - AvailableExt.SetFilter(Code, '<>%1', "Extensión Code"); + AvailableExt.SetFilter(Code, '<>%1', Rec."Extensión Code"); if ExtHeader.Type = ExtHeader.Type::Internal then AvailableExt.SetRange(Type, AvailableExt.Type::Internal) else @@ -62,7 +62,7 @@ table 83208 "EXM Extension Dependencies" ExtHeaderList.SetTableView(AvailableExt); if ExtHeaderList.RunModal() = Action::LookupOK then begin ExtHeaderList.GetRecord(AvailableExt); - Validate("Dependent Ext. Code", AvailableExt.Code); + Rec.Validate("Dependent Ext. Code", AvailableExt.Code); end; end; diff --git a/src/table/EXMExtensionHeader.Table.al b/src/table/EXMExtensionHeader.Table.al index b693f5c..653d8f4 100644 --- a/src/table/EXMExtensionHeader.Table.al +++ b/src/table/EXMExtensionHeader.Table.al @@ -24,8 +24,8 @@ table 83201 "EXM Extension Header" trigger OnValidate() begin if (xRec.Type <> Rec.Type) and (Rec.Type = Rec.Type::Internal) then begin - "Customer No." := ''; - "Customer Name" := ''; + Rec."Customer No." := ''; + Rec."Customer Name" := ''; SetRelLines(); end; end; @@ -40,11 +40,11 @@ table 83201 "EXM Extension Header" EXMExtMgt: Codeunit "EXM Extension Management"; begin if xRec."Object Starting ID" <> Rec."Object Starting ID" then begin - if (("Object Starting ID" > "Object Ending ID") and ("Object Ending ID" <> 0)) then - "Object Ending ID" := "Object Starting ID"; + if ((Rec."Object Starting ID" > Rec."Object Ending ID") and (Rec."Object Ending ID" <> 0)) then + Rec."Object Ending ID" := Rec."Object Starting ID"; - if "Object Starting ID" <> 0 then - EXMExtMgt.AllowedObjectsID("Object Starting ID"); + if Rec."Object Starting ID" <> 0 then + EXMExtMgt.AllowedObjectsID(Rec."Object Starting ID"); CheckObjectRange(); end; end; @@ -60,11 +60,11 @@ table 83201 "EXM Extension Header" ObjectRangeErr: Label '%1 must be greater then %2.', comment = 'ESP="%1 debe ser superior a %2."'; begin if xRec."Object Ending ID" <> Rec."Object Ending ID" then begin - if ("Object Ending ID" < "Object Starting ID") then - Error(ObjectRangeErr, FieldCaption("Object Ending ID"), FieldCaption("Object Starting ID")); + if (Rec."Object Ending ID" < Rec."Object Starting ID") then + Error(ObjectRangeErr, Rec.FieldCaption("Object Ending ID"), Rec.FieldCaption("Object Starting ID")); - if "Object Ending ID" <> 0 then - EXMExtMgt.AllowedObjectsID("Object Ending ID"); + if Rec."Object Ending ID" <> 0 then + EXMExtMgt.AllowedObjectsID(Rec."Object Ending ID"); CheckObjectRange(); end; end; @@ -79,12 +79,12 @@ table 83201 "EXM Extension Header" Cust: Record Customer; begin - if xRec."Customer No." <> "Customer No." then begin - if "Customer No." = '' then - "Customer Name" := '' + if xRec."Customer No." <> Rec."Customer No." then begin + if Rec."Customer No." = '' then + Rec."Customer Name" := '' else - if Cust.Get("Customer No.") then - "Customer Name" := Cust."Search Name"; + if Cust.Get(Rec."Customer No.") then + Rec."Customer Name" := Cust."Search Name"; SetRelLines(); end; @@ -138,8 +138,8 @@ table 83201 "EXM Extension Header" OptionMembers = " ",Account,Item; trigger OnValidate() begin - if "Sell-Type" = "Sell-Type"::" " then - "No." := ''; + if Rec."Sell-Type" = Rec."Sell-Type"::" " then + Rec."No." := ''; end; } field(23; "No."; Code[20]) @@ -266,42 +266,42 @@ table 83201 "EXM Extension Header" ExtLine.SetFilter("Object ID", '<%1', "Object Starting ID"); if not ExtLine.IsEmpty() then begin ShowError := true; - SetErrorMessage(ErrorMsg, StrSubstNo(ObjectIDRangeErr, "Object Starting ID", "Object Ending ID")); + SetErrorMessage(ErrorMsg, StrSubstNo(ObjectIDRangeErr, Rec."Object Starting ID", Rec."Object Ending ID")); end else begin - ExtLine.SetFilter("Object ID", '>%1', "Object Ending ID"); + ExtLine.SetFilter("Object ID", '>%1', Rec."Object Ending ID"); if not ExtLine.IsEmpty() then begin ShowError := true; - SetErrorMessage(ErrorMsg, StrSubstNo(ObjectIDRangeErr, "Object Starting ID", "Object Ending ID")); + SetErrorMessage(ErrorMsg, StrSubstNo(ObjectIDRangeErr, Rec."Object Starting ID", Rec."Object Ending ID")); end; end; //Check Fields ID for TableExt fits current range. ExtField.SetRange("Extension Code", Code); ExtField.SetRange("Table Source Type", ExtField."Table Source Type"::"TableExtension"); - ExtField.SetFilter("Field ID", '<%1', "Object Starting ID"); + ExtField.SetFilter("Field ID", '<%1', Rec."Object Starting ID"); if not ExtField.IsEmpty() then begin ShowError := true; - SetErrorMessage(ErrorMsg, StrSubstNo(FieldIDRangeErr, "Object Starting ID", "Object Ending ID")); + SetErrorMessage(ErrorMsg, StrSubstNo(FieldIDRangeErr, Rec."Object Starting ID", Rec."Object Ending ID")); end else begin - ExtField.SetFilter("Field ID", '>%1', "Object Ending ID"); + ExtField.SetFilter("Field ID", '>%1', Rec."Object Ending ID"); if not ExtField.IsEmpty() then begin ShowError := true; - SetErrorMessage(ErrorMsg, StrSubstNo(FieldIDRangeErr, "Object Starting ID", "Object Ending ID")); + SetErrorMessage(ErrorMsg, StrSubstNo(FieldIDRangeErr, Rec."Object Starting ID", Rec."Object Ending ID")); end; end; //Check Ordinals ID for EnumExt fits current range - ExtEnum.SetRange("Extension Code", Code); + ExtEnum.SetRange("Extension Code", Rec."Code"); ExtEnum.SetRange("Source Type", ExtEnum."Source Type"::EnumExtension); - ExtEnum.SetFilter("Ordinal ID", '<%1', "Object Starting ID"); + ExtEnum.SetFilter("Ordinal ID", '<%1', Rec."Object Starting ID"); if not ExtEnum.IsEmpty() then begin ShowError := true; - SetErrorMessage(ErrorMsg, StrSubstNo(OrdinalIDRangeErr, "Object Starting ID", "Object Ending ID")); + SetErrorMessage(ErrorMsg, StrSubstNo(OrdinalIDRangeErr, Rec."Object Starting ID", Rec."Object Ending ID")); end else begin - ExtEnum.SetFilter("Ordinal ID", '>%1', "Object Ending ID"); + ExtEnum.SetFilter("Ordinal ID", '>%1', Rec."Object Ending ID"); if not ExtEnum.IsEmpty() then begin ShowError := true; - SetErrorMessage(ErrorMsg, StrSubstNo(OrdinalIDRangeErr, "Object Starting ID", "Object Ending ID")); + SetErrorMessage(ErrorMsg, StrSubstNo(OrdinalIDRangeErr, Rec."Object Starting ID", Rec."Object Ending ID")); end; end; @@ -329,14 +329,14 @@ table 83201 "EXM Extension Header" ExtLine: Record "EXM Extension Lines"; ExtField: Record "EXM Table Fields"; begin - ExtLine.SetRange("Extension Code", Code); - ExtLine.ModifyAll("Customer No.", "Customer No."); + ExtLine.SetRange("Extension Code", Rec."Code"); + ExtLine.ModifyAll("Customer No.", Rec."Customer No."); - ExtField.SetRange("Extension Code", Code); - ExtField.ModifyAll("Customer No.", "Customer No."); + ExtField.SetRange("Extension Code", Rec."Code"); + ExtField.ModifyAll("Customer No.", Rec."Customer No."); - ExtEnum.SetRange("Extension Code", Code); - ExtEnum.ModifyAll("Customer No.", "Customer No."); + ExtEnum.SetRange("Extension Code", Rec."Code"); + ExtEnum.ModifyAll("Customer No.", Rec."Customer No."); end; procedure InitRecord() @@ -345,12 +345,12 @@ table 83201 "EXM Extension Header" NoSeriesMgt: Codeunit NoSeriesManagement; begin ExtSetup.Get(); - if Code = '' then + if Rec."Code" = '' then if ExtSetup."Extension Nos." <> '' then - Code := NoSeriesMgt.GetNextNo(ExtSetup."Extension Nos.", 0D, true); + Rec."Code" := NoSeriesMgt.GetNextNo(ExtSetup."Extension Nos.", 0D, true); - "Object Starting ID" := ExtSetup."Default Object Starting ID"; - "Object Ending ID" := ExtSetup."Default Object Ending ID"; + Rec."Object Starting ID" := ExtSetup."Default Object Starting ID"; + Rec."Object Ending ID" := ExtSetup."Default Object Ending ID"; end; trigger OnDelete() @@ -359,13 +359,13 @@ table 83201 "EXM Extension Header" EXMExtLines: Record "EXM Extension Lines"; EXMFields: Record "EXM Table Fields"; begin - EXMExtLines.SetRange("Extension Code", Code); + EXMExtLines.SetRange("Extension Code", Rec."Code"); EXMExtLines.DeleteAll(); - EXMFields.SetRange("Extension Code", Code); + EXMFields.SetRange("Extension Code", Rec."Code"); EXMFields.DeleteAll(); - EXMEnumValues.SetRange("Extension Code", Code); + EXMEnumValues.SetRange("Extension Code", Rec."Code"); EXMEnumValues.DeleteAll(); end; diff --git a/src/table/EXMExtensionLines.Table.al b/src/table/EXMExtensionLines.Table.al new file mode 100644 index 0000000..8120f9e --- /dev/null +++ b/src/table/EXMExtensionLines.Table.al @@ -0,0 +1,405 @@ +table 83202 "EXM Extension Lines" +{ + Caption = 'Extension Objects', Comment = 'ESP="Objetos extensión"'; + DataClassification = OrganizationIdentifiableInformation; + fields + { + field(1; "Extension Code"; Code[20]) + { + Caption = 'Extension Code', Comment = 'ESP="Cód. extensión"'; + DataClassification = OrganizationIdentifiableInformation; + TableRelation = "EXM Extension Header"; + trigger OnValidate() + var + ExtHeader: Record "EXM Extension Header"; + begin + ExtHeader.Get("Extension Code"); + "Customer No." := ExtHeader."Customer No."; + end; + } + field(2; "Line No."; Integer) + { + Caption = 'Line No.', Comment = 'ESP="Nº línea"'; + DataClassification = OrganizationIdentifiableInformation; + } + field(3; "Object Type"; Option) + { + Caption = 'Object Type', Comment = 'ESP="Tipo objeto"'; + DataClassification = OrganizationIdentifiableInformation; + InitValue = " "; + OptionCaption = ',Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, "'; + OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; + + trigger OnValidate() + var + EXMExtHeader: Record "EXM Extension Header"; + begin + case "Object Type" of + "Object Type"::"PageExtension": + "Source Object Type" := "Source Object Type"::"Page"; + "Object Type"::"TableExtension": + "Source Object Type" := "Source Object Type"::"Table"; + "Object Type"::"EnumExtension": + "Source Object Type" := "Source Object Type"::"Enum"; + "Object Type"::"ProfileExtension": + "Source Object Type" := "Source Object Type"::"Profile"; + else + "Source Object Type" := "Source Object Type"::" " + end; + + EXMExtHeader.Get("Extension Code"); + Validate("Object ID", SetObjectID("Object Type", EXMExtHeader."Customer No.")); + end; + } + field(4; "Object ID"; Integer) + { + BlankZero = true; + Caption = 'Object ID', Comment = 'ESP="ID objeto"'; + DataClassification = OrganizationIdentifiableInformation; + NotBlank = true; + + trigger OnValidate() + begin + if (xRec."Object ID" <> "Object ID") then + UpdateRelated() + end; + } + field(5; Name; Text[250]) + { + Caption = 'Name', Comment = 'ESP="Nombre"'; + DataClassification = OrganizationIdentifiableInformation; + } + field(6; "Source Object Type"; Option) + { + Caption = 'Source Object Type', Comment = 'ESP="Tipo objeto origen"'; + DataClassification = OrganizationIdentifiableInformation; + InitValue = " "; + OptionCaption = ',Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, "'; + OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; + + trigger OnValidate() + var + NotAllowedValueErr: Label 'Source value not allowed.', Comment = 'ESP="Valor no permitido"'; + begin + case "Source Object Type" of + "Source Object Type"::"Page": + TestField("Object Type", "Object Type"::"PageExtension"); + "Source Object Type"::"Table": + TestField("Object Type", "Object Type"::"TableExtension"); + "Source Object Type"::"Enum": + TestField("Object Type", "Object Type"::"EnumExtension"); + "Source Object Type"::"Profile": + TestField("Object Type", "Object Type"::"ProfileExtension"); + else + Error(NotAllowedValueErr); + end; + end; + } + field(7; "Source Object ID"; Integer) + { + BlankZero = true; + Caption = 'Source Object ID', Comment = 'ESP="ID objeto origen"'; + DataClassification = OrganizationIdentifiableInformation; + + trigger OnValidate() + var + AllObjects: Record AllObjWithCaption; + AllProfile: Record "All Profile"; + ExtMngt: Codeunit "EXM Extension Management"; + ProfileNotFoundErr: Label 'Profile with %1 %2 not found.', Comment = 'ESP="Perfil con %1 %2 no encontrado."'; + begin + if xRec."Source Object ID" <> "Source Object ID" then begin + if "Source Object Type" in ["Source Object Type"::Table, "Source Object Type"::Page, "Source Object Type"::Enum, "Source Object Type"::Profile] then + if "Object Type" = "Object Type"::"ProfileExtension" then begin + AllProfile.SetRange("Role Center ID", "Source Object ID"); + if AllProfile.IsEmpty() then + Error(ProfileNotFoundErr, AllProfile.FieldCaption("Role Center ID"), "Source Object ID"); + end else + AllObjects.Get("Source Object Type", "Source Object ID"); + + "Source Name" := ExtMngt.GetObjectName("Source Object Type", "Source Object ID"); + + if (xRec."Source Object ID" <> "Source Object ID") then + UpdateRelated(); + end; + end; + + trigger OnLookup() + var + AllObjects: Record AllObjWithCaption; + AllProfile: Record "All Profile"; + AllObjList: Page "All Objects with Caption"; + ProfileList: Page "Profile List"; + begin + case "Object Type" of + "Object Type"::"ProfileExtension": + begin + AllProfile.SetRange("Role Center ID", "Source Object ID"); + if not AllProfile.IsEmpty() then begin + AllProfile.FindLast(); + ProfileList.SetSelectionFilter(AllProfile); + end; + + ProfileList.Editable(false); + ProfileList.LookupMode(true); + if ProfileList.RunModal() = Action::LookupOK then begin + ProfileList.GetRecord(AllProfile); + Validate("Source Object ID", AllProfile."Role Center ID"); + end; + + end; + "Object Type"::"TableExtension", "Object Type"::"PageExtension", "Object Type"::EnumExtension: + begin + if AllObjects.Get("Source Object Type", "Source Object ID") then + AllObjList.SetRecord(AllObjects); + + AllObjects.FilterGroup(2); + AllObjects.SetRange("Object Type", "Source Object Type"); + AllObjects.FilterGroup(0); + if AllObjects.FindSet() then + AllObjList.SetTableView(AllObjects); + + AllObjList.Editable(false); + AllObjList.LookupMode(true); + if AllObjList.RunModal() = Action::LookupOK then begin + AllObjList.GetRecord(AllObjects); + Validate("Source Object ID", AllObjects."Object ID"); + end; + end; + else + exit; + end; + end; + } + field(8; "Source Name"; Text[250]) + { + Caption = 'Name', Comment = 'ESP="Nombre"'; + DataClassification = OrganizationIdentifiableInformation; + } + + field(10; "Total Fields"; Integer) + { + BlankZero = true; + Caption = 'Total fields', Comment = 'ESP="Campos relacionados"'; + DataClassification = OrganizationIdentifiableInformation; + Editable = false; + } + field(11; Obsolete; Boolean) + { + Caption = 'Obsolete', Comment = 'ESP="Obsoleto"'; + DataClassification = OrganizationIdentifiableInformation; + } + field(12; "Created by"; Code[50]) + { + Caption = 'Created by', Comment = 'ESP="Creado por"'; + DataClassification = OrganizationIdentifiableInformation; + Editable = false; + } + field(13; "Creation Date"; DateTime) + { + Caption = 'Creation Date', Comment = 'ESP="Fecha creación"'; + DataClassification = OrganizationIdentifiableInformation; + Editable = false; + } + field(14; "Customer No."; Code[20]) + { + Caption = 'Customer No.', Comment = 'ESP="Nº Cliente"'; + DataClassification = OrganizationIdentifiableInformation; + TableRelation = Customer; + } + } + + keys + { + key(PK; "Extension Code", "Line No.") + { + Clustered = true; + } + key(K2; "Extension Code", "Object Type", "Object ID") + { } + key(K3; "Extension Code", "Object Type", "Object ID", "Source Object Type", "Source Object ID") + { } + key(K4; "Customer No.", "Object Type", "Object ID") + { } + } + + //#region Triggers + trigger OnInsert() + var + EXMExtMgt: Codeunit "EXM Extension Management"; + begin + "Created by" := CopyStr(UserId(), 1, MaxStrLen("Created by")); + "Creation Date" := CurrentDateTime(); + + TestField(Name); + if "Object Type" in ["Object Type"::"TableExtension", "Object Type"::"PageExtension", "Object Type"::"EnumExtension", "Object Type"::"ProfileExtension"] then + TestField("Source Object ID"); + + EXMExtMgt.ValidateExtensionRangeID("Extension Code", "Object ID"); + end; + + trigger OnDelete() + var + EXMEnumValues: Record "EXM Enum Values"; + EXMFields: Record "EXM Table Fields"; + begin + EXMFields.SetRange("Extension Code", "Extension Code"); + EXMFields.SetRange("Source Line No.", "Line No."); + EXMFields.DeleteAll(); + + EXMEnumValues.SetRange("Extension Code", "Extension Code"); + EXMEnumValues.SetRange("Source Line No.", "Line No."); + EXMEnumValues.DeleteAll(); + end; + + procedure GetLineNo(): Integer + var + ExtLine: Record "EXM Extension Lines"; + begin + ExtLine.SetRange("Extension Code", "Extension Code"); + if ExtLine.FindLast() then + exit(ExtLine."Line No." + 10000); + exit(10000); + end; + + procedure GetTotalFields(): Integer + var + EXMEnumValues: Record "EXM Enum Values"; + EXMTableFields: Record "EXM Table Fields"; + begin + case "Object Type" of + "Object Type"::"Table", "Object Type"::"TableExtension": + begin + EXMTableFields.SetRange("Extension Code", "Extension Code"); + EXMTableFields.SetRange("Source Line No.", "Line No."); + EXMTableFields.SetRange("Table Source Type", "Object Type"); + EXMTableFields.SetRange("Table ID", "Object ID"); + EXMTableFields.SetRange("Source Table ID", "Source Object ID"); + exit(EXMTableFields.Count()); + end; + + "Object Type"::Enum, "Object Type"::EnumExtension: + begin + EXMEnumValues.SetRange("Extension Code", "Extension Code"); + EXMEnumValues.SetRange("Source Line No.", "Line No."); + EXMEnumValues.SetRange("Source Type", "Object Type"); + EXMEnumValues.SetRange("Enum ID", "Object ID"); + EXMEnumValues.SetRange("Source Enum ID", "Source Object ID"); + exit(EXMEnumValues.Count()); + end; + else + exit(0); + end; + end; + + procedure SetObjectID(ObjectType: Integer; CustNo: Code[20]) ObjectID: Integer + var + EXMExtHeader: Record "EXM Extension Header"; + EXMExtLine: Record "EXM Extension Lines"; + EXMSetup: Record "EXM Extension Setup"; + IsHandled: Boolean; + ExpectedId: Integer; + ObjectIdErr: Label 'Next object ID (%1) is bigger than extension ending id (%2).', comment = 'ESP="Propuesta ID objeto (%1) es superior al id final de la extensión (%2)."'; + begin + EXMSetup.Get(); + If EXMSetup."Disable Auto. Objects ID" then + exit; + + EXMExtHeader.Get("Extension Code"); + if EXMExtHeader."Object Ending ID" = 0 then + exit; + + IsHandled := false; + OnBeforeCalculateObjectID(ObjectType, CustNo, ObjectID, IsHandled); + if IsHandled then + exit(ObjectID); + + EXMExtLine.SetCurrentKey("Customer No.", "Object Type", "Object ID"); + EXMExtLine.SetRange("Customer No.", CustNo); + EXMExtLine.SetRange("Object Type", ObjectType); + EXMExtLine.SetFilter("Object ID", '%1..%2', EXMExtHeader."Object Starting ID", EXMExtHeader."Object Ending ID"); + if not EXMExtLine.IsEmpty() then begin + if EXMSetup."Find Object ID Gaps" then begin + EXMExtLine.FindSet(); + ExpectedId := EXMExtHeader."Object Starting ID"; + repeat + if ExpectedId <> EXMExtLine."Object ID" then + exit(ExpectedId) + else + ExpectedId += 1; + until EXMExtLine.Next() = 0; + ObjectID := ExpectedId; + end else begin + EXMExtLine.FindLast(); + ObjectID := EXMExtLine."Object ID" + 1; + end; + end else + ObjectID := EXMExtHeader."Object Starting ID"; + + OnAfterAssignObjectID(ObjectType, CustNo, ObjectID); + + if ObjectID > EXMExtHeader."Object Ending ID" then + Error(ObjectIdErr, ObjectID, EXMExtHeader."Object Ending ID"); + + exit(ObjectID) + end; + //#endregion Triggers + + local procedure UpdateRelated() + var + EnumValues: Record "EXM Enum Values"; + NewEnumValues: Record "EXM Enum Values"; + NewTableFields: Record "EXM Table Fields"; + TableFields: Record "EXM Table Fields"; + begin + case "Object Type" of + "Object Type"::Table, "Object Type"::"TableExtension": + begin + TableFields.SetRange("Extension Code", "Extension Code"); + TableFields.SetRange("Source Line No.", "Line No."); + TableFields.SetRange("Table Source Type", xRec."Object Type"); + TableFields.SetRange("Source Table ID", xRec."Source Object ID"); + TableFields.SetRange("Table ID", xRec."Object ID"); + if TableFields.FindSet() then + repeat + NewTableFields.Init(); + NewTableFields := TableFields; + NewTableFields."Table Source Type" := "Object Type"; + NewTableFields."Source Table ID" := "Source Object ID"; + NewTableFields."Table ID" := "Object ID"; + NewTableFields.Insert(); + TableFields.Delete(); + until TableFields.Next() = 0; + end; + + "Object Type"::Enum, "Object Type"::EnumExtension: + begin + EnumValues.SetRange("Extension Code", "Extension Code"); + EnumValues.SetRange("Source Line No.", "Line No."); + EnumValues.SetRange("Source Type", xRec."Object Type"); + EnumValues.SetRange("Source Enum ID", xRec."Object ID"); + EnumValues.SetRange("Enum ID", xRec."Object ID"); + if EnumValues.FindSet() then + repeat + NewEnumValues.Init(); + NewEnumValues := EnumValues; + NewEnumValues."Source Type" := "Object Type"; + NewEnumValues."Source Enum ID" := "Source Object ID"; + NewEnumValues."Enum ID" := "Object ID"; + NewEnumValues.Insert(); + EnumValues.Delete(); + until EnumValues.Next() = 0; + end; + end; + end; + + [IntegrationEvent(false, false)] + local procedure OnAfterAssignObjectID(ObjectType: Integer; CustNo: Code[20]; var ObjectID: Integer) + begin + end; + + [IntegrationEvent(false, false)] + local procedure OnBeforeCalculateObjectID(ObjectType: Integer; CustNo: Code[20]; var ObjectID: Integer; var IsHandled: Boolean) + begin + end; +} \ No newline at end of file diff --git a/src/table/EXMExtensionSetup.Table.al b/src/table/EXMExtensionSetup.Table.al index 7dabbd9..95762b1 100644 --- a/src/table/EXMExtensionSetup.Table.al +++ b/src/table/EXMExtensionSetup.Table.al @@ -24,7 +24,7 @@ table 83200 "EXM Extension Setup" var EXMExtMgt: Codeunit "EXM Extension Management"; begin - EXMExtMgt.AllowedObjectsID("Default Object Starting ID"); + EXMExtMgt.AllowedObjectsID(Rec."Default Object Starting ID"); end; } field(4; "Default Object Ending ID"; Integer) @@ -35,7 +35,7 @@ table 83200 "EXM Extension Setup" var EXMExtMgt: Codeunit "EXM Extension Management"; begin - EXMExtMgt.AllowedObjectsID("Default Object Ending ID"); + EXMExtMgt.AllowedObjectsID(Rec."Default Object Ending ID"); end; } field(5; "Object Names"; Option) @@ -53,7 +53,7 @@ table 83200 "EXM Extension Setup" var DisableQst: Label 'Enable this option will disable all objects ID validations and may cause extensions errors. Continue?', Comment = 'ESP="Habilitar esta opción implica que no se validaran los ID de los objetos y puede llevar a errores. Continuar?"'; begin - if "Disable Auto. Objects ID" then + if Rec."Disable Auto. Objects ID" then if not Confirm(DisableQst, false) then Error(''); end; @@ -66,7 +66,7 @@ table 83200 "EXM Extension Setup" var DisableQst: Label 'Enable this option will disable all fields ID validations and may cause extensions errors. Continue?', Comment = 'ESP="Habilitar esta opción implica que no se validaran los ID de los campos y puede llevar a errores. Continuar?"'; begin - if "Disable Auto. Field ID" then + if Rec."Disable Auto. Field ID" then if not Confirm(DisableQst, false) then Error(''); end; diff --git a/src/table/EXMRelatedGroups.Table.al b/src/table/EXMRelatedGroups.Table.al index 7e513b2..20f0434 100644 --- a/src/table/EXMRelatedGroups.Table.al +++ b/src/table/EXMRelatedGroups.Table.al @@ -35,7 +35,7 @@ table 83206 "EXM Related Groups" var RelLines: Record "EXM Related Lines"; begin - RelLines.SetRange(Code, Code); + RelLines.SetRange(Code, Rec.Code); RelLines.DeleteAll(); end; } diff --git a/src/table/EXMRelatedLines.Table.al b/src/table/EXMRelatedLines.Table.al index cff9a5f..b663037 100644 --- a/src/table/EXMRelatedLines.Table.al +++ b/src/table/EXMRelatedLines.Table.al @@ -22,8 +22,8 @@ table 83207 "EXM Related Lines" var ExtMngt: Codeunit "EXM Extension Management"; begin - if xRec."Table ID" <> "Table ID" then - Name := ExtMngt.GetObjectName(1, "Table ID"); + if xRec."Table ID" <> Rec."Table ID" then + Rec.Name := ExtMngt.GetObjectName(1, Rec."Table ID"); end; } field(3; Name; Text[250]) diff --git a/src/table/EXMTableFields.Table.al b/src/table/EXMTableFields.Table.al index 976a703..383a81a 100644 --- a/src/table/EXMTableFields.Table.al +++ b/src/table/EXMTableFields.Table.al @@ -15,8 +15,8 @@ table 83203 "EXM Table Fields" var ExtHeader: Record "EXM Extension Header"; begin - ExtHeader.Get("Extension Code"); - "Customer No." := ExtHeader."Customer No."; + ExtHeader.Get(Rec."Extension Code"); + Rec."Customer No." := ExtHeader."Customer No."; end; } field(2; "Source Line No."; Integer) @@ -41,8 +41,8 @@ table 83203 "EXM Table Fields" var EXMExtHeader: Record "EXM Extension Header"; begin - EXMExtHeader.Get("Extension Code"); - Validate("Field ID", SetFieldID("Source Table ID", "Table ID", EXMExtHeader."Customer No.")) + EXMExtHeader.Get(Rec."Extension Code"); + Rec.Validate("Field ID", SetFieldID(Rec."Source Table ID", Rec."Table ID", EXMExtHeader."Customer No.")) end; } field(5; "Table ID"; Integer) @@ -55,8 +55,8 @@ table 83203 "EXM Table Fields" var EXMExtHeader: Record "EXM Extension Header"; begin - EXMExtHeader.Get("Extension Code"); - Validate("Field ID", SetFieldID("Source Table ID", "Table ID", EXMExtHeader."Customer No.")) + EXMExtHeader.Get(Rec."Extension Code"); + Rec.Validate("Field ID", SetFieldID(Rec."Source Table ID", Rec."Table ID", EXMExtHeader."Customer No.")) end; } field(6; "Field ID"; Integer) @@ -143,8 +143,8 @@ table 83203 "EXM Table Fields" trigger OnInsert() begin - "Created by" := CopyStr(UserId(), 1, MaxStrLen("Created by")); - "Creation Date" := CurrentDateTime(); + Rec."Created by" := CopyStr(UserId(), 1, MaxStrLen(Rec."Created by")); + Rec."Creation Date" := CurrentDateTime(); ValidateData(); end; @@ -166,7 +166,7 @@ table 83203 "EXM Table Fields" if IsHandled then exit(FieldID); - EXMExtHeader.Get("Extension Code"); + EXMExtHeader.Get(Rec."Extension Code"); if SourceTableID = 0 then EXMFields.SetCurrentKey("Source Table ID", "Table ID", "Field ID") else begin @@ -212,30 +212,30 @@ table 83203 "EXM Table Fields" EXMExtMgt: Codeunit "EXM Extension Management"; SelectDataTypeErr: Label 'Must select a data type.', Comment = 'ESP="Debe seleccionar un tipo de datos."'; begin - case "Table Source Type" of - "Table Source Type"::Table: + case Rec."Table Source Type" of + Rec."Table Source Type"::Table: begin - TestField("Source Table ID", 0); - TestField("Table ID"); + Rec.TestField("Source Table ID", 0); + Rec.TestField("Table ID"); end; - "Table Source Type"::"TableExtension": + Rec."Table Source Type"::"TableExtension": begin - TestField("Source Table ID"); - TestField("Table ID"); + Rec.TestField("Source Table ID"); + Rec.TestField("Table ID"); end; end; - TestField("Field ID"); - TestField("Field Name"); + Rec.TestField("Field ID"); + Rec.TestField("Field Name"); - if "Data Type" = "Data Type"::" " then + if Rec."Data Type" = Rec."Data Type"::" " then Error(SelectDataTypeErr); - if ("Data Type" in ["Data Type"::Text, "Data Type"::Code]) then - TestField(Lenght); + if (Rec."Data Type" in [Rec."Data Type"::Text, Rec."Data Type"::Code]) then + Rec.TestField(Lenght); - if "Table Source Type" = "Table Source Type"::"TableExtension" then - EXMExtMgt.ValidateExtensionRangeID("Extension Code", "Field ID"); + if Rec."Table Source Type" = Rec."Table Source Type"::"TableExtension" then + EXMExtMgt.ValidateExtensionRangeID(Rec."Extension Code", Rec."Field ID"); end; [IntegrationEvent(false, false)] diff --git a/src/table/EXMTreeView.Table.al b/src/table/EXMTreeView.Table.al index 8120f9e..6eea67f 100644 --- a/src/table/EXMTreeView.Table.al +++ b/src/table/EXMTreeView.Table.al @@ -1,6 +1,6 @@ -table 83202 "EXM Extension Lines" +table 83209 "EXM Tree View" { - Caption = 'Extension Objects', Comment = 'ESP="Objetos extensión"'; + Caption = 'Extension Objects Tree View', Comment = 'ESP="Vista arbol objetos"'; DataClassification = OrganizationIdentifiableInformation; fields { @@ -9,13 +9,6 @@ table 83202 "EXM Extension Lines" Caption = 'Extension Code', Comment = 'ESP="Cód. extensión"'; DataClassification = OrganizationIdentifiableInformation; TableRelation = "EXM Extension Header"; - trigger OnValidate() - var - ExtHeader: Record "EXM Extension Header"; - begin - ExtHeader.Get("Extension Code"); - "Customer No." := ExtHeader."Customer No."; - end; } field(2; "Line No."; Integer) { @@ -29,183 +22,57 @@ table 83202 "EXM Extension Lines" InitValue = " "; OptionCaption = ',Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, "'; OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; - - trigger OnValidate() - var - EXMExtHeader: Record "EXM Extension Header"; - begin - case "Object Type" of - "Object Type"::"PageExtension": - "Source Object Type" := "Source Object Type"::"Page"; - "Object Type"::"TableExtension": - "Source Object Type" := "Source Object Type"::"Table"; - "Object Type"::"EnumExtension": - "Source Object Type" := "Source Object Type"::"Enum"; - "Object Type"::"ProfileExtension": - "Source Object Type" := "Source Object Type"::"Profile"; - else - "Source Object Type" := "Source Object Type"::" " - end; - - EXMExtHeader.Get("Extension Code"); - Validate("Object ID", SetObjectID("Object Type", EXMExtHeader."Customer No.")); - end; } field(4; "Object ID"; Integer) { BlankZero = true; Caption = 'Object ID', Comment = 'ESP="ID objeto"'; DataClassification = OrganizationIdentifiableInformation; - NotBlank = true; - - trigger OnValidate() - begin - if (xRec."Object ID" <> "Object ID") then - UpdateRelated() - end; } - field(5; Name; Text[250]) + field(5; "Object Name"; Text[250]) { Caption = 'Name', Comment = 'ESP="Nombre"'; DataClassification = OrganizationIdentifiableInformation; } - field(6; "Source Object Type"; Option) - { - Caption = 'Source Object Type', Comment = 'ESP="Tipo objeto origen"'; - DataClassification = OrganizationIdentifiableInformation; - InitValue = " "; - OptionCaption = ',Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, "'; - OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; - - trigger OnValidate() - var - NotAllowedValueErr: Label 'Source value not allowed.', Comment = 'ESP="Valor no permitido"'; - begin - case "Source Object Type" of - "Source Object Type"::"Page": - TestField("Object Type", "Object Type"::"PageExtension"); - "Source Object Type"::"Table": - TestField("Object Type", "Object Type"::"TableExtension"); - "Source Object Type"::"Enum": - TestField("Object Type", "Object Type"::"EnumExtension"); - "Source Object Type"::"Profile": - TestField("Object Type", "Object Type"::"ProfileExtension"); - else - Error(NotAllowedValueErr); - end; - end; - } - field(7; "Source Object ID"; Integer) + field(6; "Field ID"; Integer) { BlankZero = true; - Caption = 'Source Object ID', Comment = 'ESP="ID objeto origen"'; + Caption = 'Field ID', Comment = 'ESP="Id. campo"'; DataClassification = OrganizationIdentifiableInformation; - - trigger OnValidate() - var - AllObjects: Record AllObjWithCaption; - AllProfile: Record "All Profile"; - ExtMngt: Codeunit "EXM Extension Management"; - ProfileNotFoundErr: Label 'Profile with %1 %2 not found.', Comment = 'ESP="Perfil con %1 %2 no encontrado."'; - begin - if xRec."Source Object ID" <> "Source Object ID" then begin - if "Source Object Type" in ["Source Object Type"::Table, "Source Object Type"::Page, "Source Object Type"::Enum, "Source Object Type"::Profile] then - if "Object Type" = "Object Type"::"ProfileExtension" then begin - AllProfile.SetRange("Role Center ID", "Source Object ID"); - if AllProfile.IsEmpty() then - Error(ProfileNotFoundErr, AllProfile.FieldCaption("Role Center ID"), "Source Object ID"); - end else - AllObjects.Get("Source Object Type", "Source Object ID"); - - "Source Name" := ExtMngt.GetObjectName("Source Object Type", "Source Object ID"); - - if (xRec."Source Object ID" <> "Source Object ID") then - UpdateRelated(); - end; - end; - - trigger OnLookup() - var - AllObjects: Record AllObjWithCaption; - AllProfile: Record "All Profile"; - AllObjList: Page "All Objects with Caption"; - ProfileList: Page "Profile List"; - begin - case "Object Type" of - "Object Type"::"ProfileExtension": - begin - AllProfile.SetRange("Role Center ID", "Source Object ID"); - if not AllProfile.IsEmpty() then begin - AllProfile.FindLast(); - ProfileList.SetSelectionFilter(AllProfile); - end; - - ProfileList.Editable(false); - ProfileList.LookupMode(true); - if ProfileList.RunModal() = Action::LookupOK then begin - ProfileList.GetRecord(AllProfile); - Validate("Source Object ID", AllProfile."Role Center ID"); - end; - - end; - "Object Type"::"TableExtension", "Object Type"::"PageExtension", "Object Type"::EnumExtension: - begin - if AllObjects.Get("Source Object Type", "Source Object ID") then - AllObjList.SetRecord(AllObjects); - - AllObjects.FilterGroup(2); - AllObjects.SetRange("Object Type", "Source Object Type"); - AllObjects.FilterGroup(0); - if AllObjects.FindSet() then - AllObjList.SetTableView(AllObjects); - - AllObjList.Editable(false); - AllObjList.LookupMode(true); - if AllObjList.RunModal() = Action::LookupOK then begin - AllObjList.GetRecord(AllObjects); - Validate("Source Object ID", AllObjects."Object ID"); - end; - end; - else - exit; - end; - end; } - field(8; "Source Name"; Text[250]) + field(7; "Field Name"; Text[30]) { - Caption = 'Name', Comment = 'ESP="Nombre"'; + Caption = 'Field Name', Comment = 'ESP="Nombre de campo"'; DataClassification = OrganizationIdentifiableInformation; } - - field(10; "Total Fields"; Integer) + field(8; "Field Data Type"; Text[30]) { - BlankZero = true; - Caption = 'Total fields', Comment = 'ESP="Campos relacionados"'; + Caption = 'Field Data Type', Comment = 'ESP="Tipo datos"'; DataClassification = OrganizationIdentifiableInformation; - Editable = false; } - field(11; Obsolete; Boolean) + field(9; "Source Object Type"; Option) { - Caption = 'Obsolete', Comment = 'ESP="Obsoleto"'; + Caption = 'Source Object Type', Comment = 'ESP="Tipo objeto origen"'; DataClassification = OrganizationIdentifiableInformation; + InitValue = " "; + OptionCaption = ',Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, ', Comment = 'ESP=",Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, "'; + OptionMembers = "TableData","Table",,"Report",,"Codeunit","XMLport","MenuSuite","Page","Query","System","FieldNumber",,,"PageExtension","TableExtension","Enum","EnumExtension","Profile","ProfileExtension",,,,,,,,,,,,,,,,,,," "; } - field(12; "Created by"; Code[50]) + field(10; "Source Object ID"; Integer) { - Caption = 'Created by', Comment = 'ESP="Creado por"'; + BlankZero = true; + Caption = 'Source Object ID', Comment = 'ESP="ID objeto origen"'; DataClassification = OrganizationIdentifiableInformation; - Editable = false; } - field(13; "Creation Date"; DateTime) + field(11; "Source Name"; Text[250]) { - Caption = 'Creation Date', Comment = 'ESP="Fecha creación"'; + Caption = 'Name', Comment = 'ESP="Nombre"'; DataClassification = OrganizationIdentifiableInformation; - Editable = false; } - field(14; "Customer No."; Code[20]) + field(100; Indentation; Integer) { - Caption = 'Customer No.', Comment = 'ESP="Nº Cliente"'; + Caption = 'Indentation', Comment = 'ESP="Indentación"'; DataClassification = OrganizationIdentifiableInformation; - TableRelation = Customer; } } @@ -219,187 +86,5 @@ table 83202 "EXM Extension Lines" { } key(K3; "Extension Code", "Object Type", "Object ID", "Source Object Type", "Source Object ID") { } - key(K4; "Customer No.", "Object Type", "Object ID") - { } } - - //#region Triggers - trigger OnInsert() - var - EXMExtMgt: Codeunit "EXM Extension Management"; - begin - "Created by" := CopyStr(UserId(), 1, MaxStrLen("Created by")); - "Creation Date" := CurrentDateTime(); - - TestField(Name); - if "Object Type" in ["Object Type"::"TableExtension", "Object Type"::"PageExtension", "Object Type"::"EnumExtension", "Object Type"::"ProfileExtension"] then - TestField("Source Object ID"); - - EXMExtMgt.ValidateExtensionRangeID("Extension Code", "Object ID"); - end; - - trigger OnDelete() - var - EXMEnumValues: Record "EXM Enum Values"; - EXMFields: Record "EXM Table Fields"; - begin - EXMFields.SetRange("Extension Code", "Extension Code"); - EXMFields.SetRange("Source Line No.", "Line No."); - EXMFields.DeleteAll(); - - EXMEnumValues.SetRange("Extension Code", "Extension Code"); - EXMEnumValues.SetRange("Source Line No.", "Line No."); - EXMEnumValues.DeleteAll(); - end; - - procedure GetLineNo(): Integer - var - ExtLine: Record "EXM Extension Lines"; - begin - ExtLine.SetRange("Extension Code", "Extension Code"); - if ExtLine.FindLast() then - exit(ExtLine."Line No." + 10000); - exit(10000); - end; - - procedure GetTotalFields(): Integer - var - EXMEnumValues: Record "EXM Enum Values"; - EXMTableFields: Record "EXM Table Fields"; - begin - case "Object Type" of - "Object Type"::"Table", "Object Type"::"TableExtension": - begin - EXMTableFields.SetRange("Extension Code", "Extension Code"); - EXMTableFields.SetRange("Source Line No.", "Line No."); - EXMTableFields.SetRange("Table Source Type", "Object Type"); - EXMTableFields.SetRange("Table ID", "Object ID"); - EXMTableFields.SetRange("Source Table ID", "Source Object ID"); - exit(EXMTableFields.Count()); - end; - - "Object Type"::Enum, "Object Type"::EnumExtension: - begin - EXMEnumValues.SetRange("Extension Code", "Extension Code"); - EXMEnumValues.SetRange("Source Line No.", "Line No."); - EXMEnumValues.SetRange("Source Type", "Object Type"); - EXMEnumValues.SetRange("Enum ID", "Object ID"); - EXMEnumValues.SetRange("Source Enum ID", "Source Object ID"); - exit(EXMEnumValues.Count()); - end; - else - exit(0); - end; - end; - - procedure SetObjectID(ObjectType: Integer; CustNo: Code[20]) ObjectID: Integer - var - EXMExtHeader: Record "EXM Extension Header"; - EXMExtLine: Record "EXM Extension Lines"; - EXMSetup: Record "EXM Extension Setup"; - IsHandled: Boolean; - ExpectedId: Integer; - ObjectIdErr: Label 'Next object ID (%1) is bigger than extension ending id (%2).', comment = 'ESP="Propuesta ID objeto (%1) es superior al id final de la extensión (%2)."'; - begin - EXMSetup.Get(); - If EXMSetup."Disable Auto. Objects ID" then - exit; - - EXMExtHeader.Get("Extension Code"); - if EXMExtHeader."Object Ending ID" = 0 then - exit; - - IsHandled := false; - OnBeforeCalculateObjectID(ObjectType, CustNo, ObjectID, IsHandled); - if IsHandled then - exit(ObjectID); - - EXMExtLine.SetCurrentKey("Customer No.", "Object Type", "Object ID"); - EXMExtLine.SetRange("Customer No.", CustNo); - EXMExtLine.SetRange("Object Type", ObjectType); - EXMExtLine.SetFilter("Object ID", '%1..%2', EXMExtHeader."Object Starting ID", EXMExtHeader."Object Ending ID"); - if not EXMExtLine.IsEmpty() then begin - if EXMSetup."Find Object ID Gaps" then begin - EXMExtLine.FindSet(); - ExpectedId := EXMExtHeader."Object Starting ID"; - repeat - if ExpectedId <> EXMExtLine."Object ID" then - exit(ExpectedId) - else - ExpectedId += 1; - until EXMExtLine.Next() = 0; - ObjectID := ExpectedId; - end else begin - EXMExtLine.FindLast(); - ObjectID := EXMExtLine."Object ID" + 1; - end; - end else - ObjectID := EXMExtHeader."Object Starting ID"; - - OnAfterAssignObjectID(ObjectType, CustNo, ObjectID); - - if ObjectID > EXMExtHeader."Object Ending ID" then - Error(ObjectIdErr, ObjectID, EXMExtHeader."Object Ending ID"); - - exit(ObjectID) - end; - //#endregion Triggers - - local procedure UpdateRelated() - var - EnumValues: Record "EXM Enum Values"; - NewEnumValues: Record "EXM Enum Values"; - NewTableFields: Record "EXM Table Fields"; - TableFields: Record "EXM Table Fields"; - begin - case "Object Type" of - "Object Type"::Table, "Object Type"::"TableExtension": - begin - TableFields.SetRange("Extension Code", "Extension Code"); - TableFields.SetRange("Source Line No.", "Line No."); - TableFields.SetRange("Table Source Type", xRec."Object Type"); - TableFields.SetRange("Source Table ID", xRec."Source Object ID"); - TableFields.SetRange("Table ID", xRec."Object ID"); - if TableFields.FindSet() then - repeat - NewTableFields.Init(); - NewTableFields := TableFields; - NewTableFields."Table Source Type" := "Object Type"; - NewTableFields."Source Table ID" := "Source Object ID"; - NewTableFields."Table ID" := "Object ID"; - NewTableFields.Insert(); - TableFields.Delete(); - until TableFields.Next() = 0; - end; - - "Object Type"::Enum, "Object Type"::EnumExtension: - begin - EnumValues.SetRange("Extension Code", "Extension Code"); - EnumValues.SetRange("Source Line No.", "Line No."); - EnumValues.SetRange("Source Type", xRec."Object Type"); - EnumValues.SetRange("Source Enum ID", xRec."Object ID"); - EnumValues.SetRange("Enum ID", xRec."Object ID"); - if EnumValues.FindSet() then - repeat - NewEnumValues.Init(); - NewEnumValues := EnumValues; - NewEnumValues."Source Type" := "Object Type"; - NewEnumValues."Source Enum ID" := "Source Object ID"; - NewEnumValues."Enum ID" := "Object ID"; - NewEnumValues.Insert(); - EnumValues.Delete(); - until EnumValues.Next() = 0; - end; - end; - end; - - [IntegrationEvent(false, false)] - local procedure OnAfterAssignObjectID(ObjectType: Integer; CustNo: Code[20]; var ObjectID: Integer) - begin - end; - - [IntegrationEvent(false, false)] - local procedure OnBeforeCalculateObjectID(ObjectType: Integer; CustNo: Code[20]; var ObjectID: Integer; var IsHandled: Boolean) - begin - end; } \ No newline at end of file