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..09b394e 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
+
+
+ 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.
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Tipo origen"
+ Page EXM Enum Values - Control Source Type - Property ToolTip
+ Especifica el valor del campo Tipo origen
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Id. Enum"
+ Page EXM Enum Values - Control Enum ID - Property ToolTip
+ Especifica el valor del campo Id. Enum
+
+
+
+ ESP="Especifica el valor del campo Id. ordinal"
+ Page EXM Enum Values - Control Ordinal ID - Property ToolTip
+ Especifica el valor del campo Id. ordinal
+
+
+
+ ESP="Especifica el valor del campo Valor Enum"
+ Page EXM Enum Values - Control Enum Value - Property ToolTip
+ Especifica el valor del campo Valor Enum
+
+
+
+ ESP="Especifica el valor del campo Creado por"
+ Page EXM Enum Values - Control Created by - Property ToolTip
+ Especifica el valor del campo Creado por
+
+
+
+ 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
+
ESP="Ver / ocultar valores"
Page EXM Enum Values - Action AllEnumValues - Property Caption
Ver / ocultar valores
+
+
+ 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.
+
ESP="Ver Enum origen"
Page EXM Enum Values - Action ViewSourceEnum - Property Caption
Ver Enum origen
+
+
+ ESP="Ver valores de Enum origen"
+ Page EXM Enum Values - Action ViewSourceEnum - Property ToolTip
+ Ver valores de Enum origen
+
ESP="Dependencias extensión"
@@ -101,8 +167,9 @@
-
+ ESP="Cód. extensión"
Table EXM Extension Dependencies - Field Extensión Code - Property Caption
+ Cód. extensión
@@ -112,18 +179,21 @@
-
+ ESP="Nº línea"
Table EXM Extension Dependencies - Field Line No. - Property Caption
+ Nº línea
-
+ ESP="Cód. extensión dependiente"
Table EXM Extension Dependencies - Field Dependent Ext. Code - Property Caption
+ Cód. extensión dependiente
-
+ ESP="Nombre extensión dependiente"
Table EXM Extension Dependencies - Field Dependent Ext. Name - Property Caption
+ Nombre extensión dependiente
@@ -131,6 +201,18 @@
Page EXM Extension Dependencies - Property Caption
Dependencias extensión
+
+
+ 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
+
+
+
+ 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
+
ESP="Extensión"
@@ -317,12 +399,6 @@
Table EXM Extension Header - Field GIT Repository URL - Property Caption
URL repositorio GIT
-
-
- ESP="Existen objetos fuera del rango %1 - %2."
- Table EXM Extension Header - Method CheckObjectRange - NamedType ObjectIDRangeErr
- Existen objetos fuera del rango %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.
+
+
+ ESP="Existen objetos fuera del rango %1 - %2."
+ Table EXM Extension Header - Method CheckObjectRange - NamedType ObjectIDRangeErr
+ Existen objetos fuera del rango %1 - %2.
+
ESP="No se puede renombrar una %1"
@@ -353,6 +435,48 @@
Page EXM Extension Header - Control Header - Property Caption
Información
+
+
+ ESP="Especifica el valor del campo Código"
+ Page EXM Extension Header - Control Code - Property ToolTip
+ Especifica el valor del campo Código
+
+
+
+ ESP="Especifica el valor del campo Descripción"
+ Page EXM Extension Header - Control Description - Property ToolTip
+ Especifica el valor del campo Descripción
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Dependencias"
+ Page EXM Extension Header - Control Dependencies - Property ToolTip
+ Especifica el valor del campo Dependencias
+
+
+
+ ESP="Especifica el valor del campo Tipo"
+ Page EXM Extension Header - Control Type - Property ToolTip
+ Especifica el valor del campo Tipo
+
+
+
+ ESP="Especifica el valor del campo Nº Cliente"
+ Page EXM Extension Header - Control Customer No. - Property ToolTip
+ Especifica el valor del campo Nº Cliente
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension Header - Control Customer Name - Property ToolTip
+ Especifica el valor del campo Nombre
+
ESP="Rango objetos"
@@ -365,12 +489,54 @@
Page EXM Extension Header - Control Object Starting ID - Property Caption
Nº inicial
+
+
+ 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
+
ESP="Nº final"
Page EXM Extension Header - Control Object Ending ID - Property Caption
Nº final
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP="Vista arbol"
+ Page EXM Extension Header - Action TreeView - Property Caption
+ Vista arbol
+
+
+
+ ESP="Ver objectos en Vista arbol"
+ Page EXM Extension Header - Action TreeView - Property ToolTip
+ Ver objectos en Vista arbol
+
+
+
+ ESP="Dependencias"
+ Page EXM Extension Header - Action ViewDependencies - Property Caption
+ Dependencias
+
+
+
+ ESP="Ver dependencias extensión"
+ Page EXM Extension Header - Action ViewDependencies - Property ToolTip
+ Ver dependencias extensión
+
ESP="%1 deberia tener valor."
@@ -497,6 +663,65 @@
Page EXM Extension Lines - Property Caption
Objetos
+
+
+ ESP="Especifica el valor del campo Tipo objeto"
+ Page EXM Extension Lines - Control Object Type - Property ToolTip
+ Especifica el valor del campo Tipo objeto
+
+
+
+ ESP="Especifica el valor del campo ID objeto"
+ Page EXM Extension Lines - Control Object ID - Property ToolTip
+ Especifica el valor del campo ID objeto
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension Lines - Control Name - Property ToolTip
+ Especifica el valor del campo Nombre
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Nombre Origen"
+ Page EXM Extension Lines - Control Source Name - Property ToolTip
+ Especifica el valor del campo Nombre Origen
+
+
+
+
+ Page EXM Extension Lines - Control Total Fields - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Obsoleto"
+ Page EXM Extension Lines - Control Obsolete - Property ToolTip
+ Especifica el valor del campo Obsoleto
+
+
+
+ ESP="Especifica el valor del campo Creado por"
+ Page EXM Extension Lines - Control Created by - Property ToolTip
+ Especifica el valor del campo Creado por
+
+
+
+ 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
+
ESP="Ver detalle"
@@ -655,6 +880,18 @@
Page EXM Related Lines - Property Caption
+
+
+ ESP="Especifica el valor del campo ID Tabla"
+ Page EXM Related Lines - Control Table ID - Property ToolTip
+ Especifica el valor del campo ID Tabla
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Related Lines - Control Name - Property ToolTip
+ Especifica el valor del campo Nombre
+
ESP="Campos extensión"
@@ -775,17 +1012,95 @@
Table EXM Table Fields - Method ValidateData - NamedType SelectDataTypeErr
Debe seleccionar un tipo de datos.
-
-
- ESP="Configurar Gestor Extensiones"
- Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType SetupWizardTxt
- Configurar Gestor Extensiones
+
+
+ ESP="Vista arbol objetos"
+ Table EXM Tree View - Property Caption
+ Vista arbol objetos
-
-
- ESP="EXM necesita pedirte información para funcionar correctamente, Será rápido!!"
- Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType InitialEXMSetupDescTxt
- EXM necesita pedirte información para funcionar correctamente, Será rápido!!
+
+
+ ESP="Cód. extensión"
+ Table EXM Tree View - Field Extension Code - Property Caption
+ Cód. extensión
+
+
+
+ ESP="Nº línea"
+ Table EXM Tree View - Field Line No. - Property Caption
+ Nº línea
+
+
+
+ ESP="Tipo objeto"
+ Table EXM Tree View - Field Object Type - Property Caption
+ Tipo objeto
+
+
+
+ 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,,,,,,,,,,,,,,,,,,,
+
+
+
+ ESP="ID objeto"
+ Table EXM Tree View - Field Object ID - Property Caption
+ ID objeto
+
+
+
+ ESP="Nombre"
+ Table EXM Tree View - Field Object Name - Property Caption
+ Nombre
+
+
+
+ ESP="Id. campo"
+ Table EXM Tree View - Field Field ID - Property Caption
+ Id. campo
+
+
+
+ ESP="Nombre de campo"
+ Table EXM Tree View - Field Field Name - Property Caption
+ Nombre de campo
+
+
+
+ ESP="Tipo datos"
+ Table EXM Tree View - Field Field Data Type - Property Caption
+ Tipo datos
+
+
+
+ ESP="Tipo objeto origen"
+ Table EXM Tree View - Field Source Object Type - Property Caption
+ Tipo objeto origen
+
+
+
+ ESP=",Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, "
+ Table EXM Tree View - Field Source Object Type - Property OptionCaption
+ ,Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,,
+
+
+
+ ESP="ID objeto origen"
+ Table EXM Tree View - Field Source Object ID - Property Caption
+ ID objeto origen
+
+
+
+ ESP="Nombre"
+ Table EXM Tree View - Field Source Name - Property Caption
+ Nombre
+
+
+
+ ESP="Indentación"
+ Table EXM Tree View - Field Indentation - Property Caption
+ Indentación
@@ -793,6 +1108,18 @@
Codeunit EXM Assisted Setup - Method OnReRunOfCompletedSetup - NamedType AlreadySetUpQst
La configuración se ha realizado. Desea ejecutar nuevamente?
+
+
+ ESP="EXM necesita pedirte información para funcionar correctamente, Será rápido!!"
+ Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType InitialEXMSetupDescTxt
+ EXM necesita pedirte información para funcionar correctamente, Será rápido!!
+
+
+
+ ESP="Configurar Gestor Extensiones"
+ Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType SetupWizardTxt
+ Configurar Gestor Extensiones
+
ESP="ID no permitido según guias de Microsoft. Más información:"
@@ -804,18 +1131,18 @@
Codeunit EXM Extension Management - Method AllowedObjectsID - NamedType URLLbl
-
-
- 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
-
ESP="%1 usado en extensión %2"
Codeunit EXM Extension Management - Method ChechManualObjectID - NamedType ObjectIDErr
%1 usado en extensión %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
+
ESP="Desea más información sobre EXM (Extension Manager)?"
@@ -828,36 +1155,201 @@
Page EXM EnumExt Values - Property Caption
Valores EnumExt
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo ID Ordinal"
+ Page EXM EnumExt Values - Control Ordinal ID - Property ToolTip
+ Especifica el valor del campo ID Ordinal
+
+
+
+ ESP="Especifica el valor del campo valor Enum"
+ Page EXM EnumExt Values - Control Enum Value - Property ToolTip
+ Especifica el valor del campo valor Enum
+
+
+
+ ESP="Especifica quién creo el registro."
+ Page EXM EnumExt Values - Control Created by - Property ToolTip
+ Especifica quién creo el registro.
+
+
+
+ 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.
+
ESP="Dependencias extensión"
Page EXM Extension Dep. Factbox - Property Caption
Dependencias extensión
+
+
+ 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
+
+
+
+ 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
+
ESP="Detalle objetos extensión"
Page EXM Extension FactBox - Property Caption
Detalle objetos extensión
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP ="Muestra el Nº PageExtensions en la extensión"
+ Page EXM Extension FactBox - Control No. of PageExtensions - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Codeunits en la extensión"
+ Page EXM Extension FactBox - Control No. of Codeunits - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Informes en la extensión"
+ Page EXM Extension FactBox - Control No. of Reports - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Querys en la extensión"
+ Page EXM Extension FactBox - Control No. of Querys - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº XMLports en la extensión"
+ Page EXM Extension FactBox - Control No. of XMLports - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Enums en la extensión"
+ Page EXM Extension FactBox - Control No. of Enums - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº EnumExtensions en la extensión"
+ Page EXM Extension FactBox - Control No. of EnumExtensions - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Profiles en la extensión"
+ Page EXM Extension FactBox - Control No. of Profiles - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº ProfileExtensions en la extensión"
+ Page EXM Extension FactBox - Control No. of ProfileExtensions - Property ToolTip
+
ESP="Gestor Extensiones"
Page EXM Extension List - Property Caption
Gestor Extensiones
+
+
+ ESP="Especifica el valor del campo Código"
+ Page EXM Extension List - Control Code - Property ToolTip
+ Especifica el valor del campo Código
+
+
+
+ ESP="Especifica el valor del campo Descripción"
+ Page EXM Extension List - Control Description - Property ToolTip
+ Especifica el valor del campo Descripción
+
+
+
+ ESP="Especifica el valor del campo Tipo"
+ Page EXM Extension List - Control Type - Property ToolTip
+ Especifica el valor del campo Tipo
+
+
+
+ ESP="Especifica el valor del campo Nº Cliente"
+ Page EXM Extension List - Control Customer No. - Property ToolTip
+ Especifica el valor del campo Nº Cliente
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension List - Control Customer Name - Property ToolTip
+ Especifica el valor del campo Nombre
+
+
+
+ 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
+
+
+
+ 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
+
ESP="Vista arbol"
Page EXM Extension List - Action TreeView - Property Caption
Vista arbol
+
+
+ ESP="Ver objectos en Vista arbol"
+ Page EXM Extension List - Action TreeView - Property ToolTip
+ Ver objectos en Vista arbol
+
ESP="Todos,Seleccionado"
Page EXM Extension List - Action TreeView - Method OnAction - NamedType OptionsQst
Todos,Seleccionado
+
+
+ ESP="Dependencias"
+ Page EXM Extension List - Action ViewDependencies - Property Caption
+ Dependencias
+
+
+
+ ESP="Ver dependencias extensión"
+ Page EXM Extension List - Action ViewDependencies - Property ToolTip
+ Ver dependencias extensión
+
ESP="Conf. gestor extensiones"
@@ -870,6 +1362,30 @@
Page EXM Extension Manager Setup - Control General - Property Caption
General
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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.
+
+
+
+ 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
+
ESP="Buscar siempre huecos entre los ID."
@@ -882,6 +1398,18 @@
Page EXM Extension Manager Setup - Control Advanced - Property Caption
Opciones avanzadas
+
+
+ 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
+
+
+
+ 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
+
ESP="Donar"
@@ -941,30 +1469,204 @@
Page EXM Extension TreeView - Property Caption
-
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Tipo objeto"
+ Page EXM Extension TreeView - Control Object Type - Property ToolTip
+ Especifica el valor del campo Tipo objeto
+
+
+
+ ESP="Especifica el valor del campo ID objeto"
+ Page EXM Extension TreeView - Control Object ID - Property ToolTip
+ Especifica el valor del campo ID objeto
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension TreeView - Control Object Name - Property ToolTip
+ Especifica el valor del campo Nombre
+
+
+
+ ESP="Especifica el valor del campo ID Campo"
+ Page EXM Extension TreeView - Control Field ID - Property ToolTip
+ Especifica el valor del campo ID Campo
+
+
+
+ ESP="Especifica el valor del campo Nombre Campo"
+ Page EXM Extension TreeView - Control Field Name - Property ToolTip
+ Especifica el valor del campo Nombre Campo
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension TreeView - Control Source Name - Property ToolTip
+ Especifica el valor del campo Nombre
+
+
ESP="Nivel"
- Page EXM Extension TreeView - Control Total Fields - Property Caption
+ Page EXM Extension TreeView - Control Indentation - Property Caption
Nivel
+
+
+ ESP="Especifica el valor del campo Nivel"
+ Page EXM Extension TreeView - Control Indentation - Property ToolTip
+ Especifica el valor del campo Nivel
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Id. tabla"
+ Page EXM Field List - Control Table ID - Property ToolTip
+ Especifica el valor del campo Id. tabla
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Id. campo"
+ Page EXM Field List - Control Field ID - Property ToolTip
+ Especifica el valor del campo Id. campo
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Tipo datos"
+ Page EXM Field List - Control Data Type - Property ToolTip
+ Especifica el valor del campo Tipo datos
+
+
+
+ ESP="Especifica el valor del campo Longitud"
+ Page EXM Field List - Control Lenght - Property ToolTip
+ Especifica el valor del campo Longitud
+
+
+
+ ESP="Especifica el valor del campo Clase campo"
+ Page EXM Field List - Control Field Class - Property ToolTip
+ Especifica el valor del campo Clase campo
+
+
+
+ ESP="Especifica el valor del campo Texto opciones"
+ Page EXM Field List - Control Option String - Property ToolTip
+ Especifica el valor del campo Texto opciones
+
+
+
+ ESP="Especifica el valor del campo Obsoleto"
+ Page EXM Field List - Control Obsolete - Property ToolTip
+ Especifica el valor del campo Obsoleto
+
+
+
+ ESP="Especifica el valor del campo Creado por"
+ Page EXM Field List - Control Created by - Property ToolTip
+ Especifica el valor del campo Creado por
+
+
+
+ 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
+
ESP="Ver / ocultar campos"
Page EXM Field List - Action AllFields - Property Caption
Ver / ocultar campos
+
+
+ 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
+
ESP="Ver tabla origen"
Page EXM Field List - Action ViewSourceTable - Property Caption
Ver tabla origen
+
+
+ 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
+
ESP="Añadir a tablas relacionadas"
Page EXM Field List - Action AddRelField - Property Caption
Añadir a tablas relacionadas
+
+
+ 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
+
ESP="Se debe indicar clave primária"
@@ -984,7 +1686,7 @@
Bienvenida!
-
+
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 +1709,66 @@
Page EXM Object Detail - Property Caption
Detalle Objetos
+
+
+ ESP="Especifica el valor del campo Tipo objeto"
+ Page EXM Object Detail - Control Object Type - Property ToolTip
+ Especifica el valor del campo Tipo objeto
+
+
+
+ ESP="Especifica el valor del campo ID objeto"
+ Page EXM Object Detail - Control Object ID - Property ToolTip
+ Especifica el valor del campo ID objeto
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Object Detail - Control Name - Property ToolTip
+ Especifica el valor del campo Nombre
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Nombre Origen"
+ Page EXM Object Detail - Control Source Name - Property ToolTip
+ "Especifica el valor del campo Nombre Origen"
+
+
+
+ ESP="Especifica el valor del campo Campos relacionados"
+ Page EXM Object Detail - Control Total Fields - Property ToolTip
+ Especifica el valor del campo Campos relacionados
+
ESP="EXM - Crear campos en tablas relacionadas"
Page EXM Related Data - Property Caption
EXM - Crear campos en tablas relacionadas
+
+
+ ESP="Especifica el valor del campo Código"
+ Page EXM Related Data - Control Code - Property ToolTip
+ Especifica el valor del campo Código
+
+
+
+ ESP="Especifica el valor del campo Descripción"
+ Page EXM Related Data - Control Description - Property ToolTip
+ Especifica el valor del campo Descripción
+
ESP="Tablas relacionadas"
@@ -1025,6 +1781,24 @@
Page EXM Related Data List - Property Caption
EXM Campos tablas relacionadas
+
+
+ ESP="Especifica el valor del campo Código"
+ Page EXM Related Data List - Control Code - Property ToolTip
+ Especifica el valor del campo Código
+
+
+
+ ESP="Especifica el valor del campo Descripción"
+ Page EXM Related Data List - Control Description - Property ToolTip
+ Especifica el valor del campo Descripción
+
+
+
+ ESP="Muestra el Nº tablas relacionadas"
+ Page EXM Related Data List - Control Related Tables No. - Property ToolTip
+ Muestra el Nº tablas relacionadas
+
ESP="Gestor Extensiones"
@@ -1361,12 +2135,132 @@
Page EXM TableExt Field List - Property Caption
Campos TableExtensions
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Longitud"
+ Page EXM TableExt Field List - Control Lenght - Property ToolTip
+ Especifica el valor del campo Longitud
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Obsoleto"
+ Page EXM TableExt Field List - Control Obsolete - Property ToolTip
+ Especifica el valor del campo Obsoleto
+
+
+
+ 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
+
+
+
+ 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
+
ESP="Campos Tabla"
Page EXM Table Field Detail - Property Caption
Campos Tabla
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Longitud"
+ Page EXM Table Field Detail - Control Lenght - Property ToolTip
+ Especifica el valor del campo Longitud
+
+
+
+ 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
+
+
+
+ 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
+
+
+
+ ESP="Especifica el valor del campo Obsoleto"
+ Page EXM Table Field Detail - Control Obsolete - Property ToolTip
+ Especifica el valor del campo Obsoleto
+
ESP="Extensiones"
diff --git a/Translations/Extension Manager.g.xlf b/Translations/Extension Manager.g.xlf
index 1561d79..1e007cc 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
+
+
+ ESP="Especifica el valor del campo Cód. extensión."
+ Page EXM Enum Values - Control Extension Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nº línea origen"
+ Page EXM Enum Values - Control Source Line No. - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo origen"
+ Page EXM Enum Values - Control Source Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Id. Enum origen"
+ Page EXM Enum Values - Control Source Enum ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Id. Enum"
+ Page EXM Enum Values - Control Enum ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Id. ordinal"
+ Page EXM Enum Values - Control Ordinal ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Valor Enum"
+ Page EXM Enum Values - Control Enum Value - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Creado por"
+ Page EXM Enum Values - Control Created by - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Fecha creación"
+ Page EXM Enum Values - Control Creation Date - Property ToolTip
+
ESP="Ver / ocultar valores"
Page EXM Enum Values - Action AllEnumValues - Property Caption
+
+
+ ESP="Ver / ocultar valores del resto de extensiones para la misma tabla."
+ Page EXM Enum Values - Action AllEnumValues - Property ToolTip
+
ESP="Ver Enum origen"
Page EXM Enum Values - Action ViewSourceEnum - Property Caption
+
+
+ ESP="Ver valores de Enum origen"
+ Page EXM Enum Values - Action ViewSourceEnum - Property ToolTip
+
ESP="Dependencias extensión"
@@ -85,7 +140,7 @@
-
+ ESP="Cód. extensión"
Table EXM Extension Dependencies - Field Extensión Code - Property Caption
@@ -95,17 +150,17 @@
-
+ ESP="Nº línea"
Table EXM Extension Dependencies - Field Line No. - Property Caption
-
+ ESP="Cód. extensión dependiente"
Table EXM Extension Dependencies - Field Dependent Ext. Code - Property Caption
-
+ 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
+
+
+ ESP="Especifica el valor del campo Cód. extensión dependiente"
+ Page EXM Extension Dependencies - Control Dependent Ext. Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre extensión dependiente"
+ Page EXM Extension Dependencies - Control Dependent Ext. Name - Property ToolTip
+
ESP="Extensión"
@@ -268,11 +333,6 @@
ESP="URL repositorio GIT"
Table EXM Extension Header - Field GIT Repository URL - Property Caption
-
-
- ESP="Existen objetos fuera del rango %1 - %2."
- Table EXM Extension Header - Method CheckObjectRange - NamedType ObjectIDRangeErr
-
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
+
+
+ ESP="Existen objetos fuera del rango %1 - %2."
+ Table EXM Extension Header - Method CheckObjectRange - NamedType ObjectIDRangeErr
+
ESP="No se puede renombrar una %1"
@@ -298,11 +363,46 @@
ESP="Información"
Page EXM Extension Header - Control Header - Property Caption
+
+
+ ESP="Especifica el valor del campo Código"
+ Page EXM Extension Header - Control Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Descripción"
+ Page EXM Extension Header - Control Description - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Versión App"
+ Page EXM Extension Header - Control App Version - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Dependencias"
+ Page EXM Extension Header - Control Dependencies - Property ToolTip
+
Destino
Page EXM Extension Header - Control Target - Property Caption
+
+
+ ESP="Especifica el valor del campo Tipo"
+ Page EXM Extension Header - Control Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nº Cliente"
+ Page EXM Extension Header - Control Customer No. - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension Header - Control Customer Name - Property ToolTip
+
ESP="Rango objetos"
@@ -313,11 +413,46 @@
ESP="Nº inicial"
Page EXM Extension Header - Control Object Starting ID - Property Caption
+
+
+ ESP="Especifica el valor del campo Nº inicial"
+ Page EXM Extension Header - Control Object Starting ID - Property ToolTip
+
ESP="Nº final"
Page EXM Extension Header - Control Object Ending ID - Property Caption
+
+
+ ESP="Especifica el valor del campo Nº final"
+ Page EXM Extension Header - Control Object Ending ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo URL repositorio GIT"
+ Page EXM Extension Header - Control GIT Repository URL - Property ToolTip
+
+
+
+ ESP="Vista arbol"
+ Page EXM Extension Header - Action TreeView - Property Caption
+
+
+
+ ESP="Ver objectos en Vista arbol"
+ Page EXM Extension Header - Action TreeView - Property ToolTip
+
+
+
+ ESP="Dependencias"
+ Page EXM Extension Header - Action ViewDependencies - Property Caption
+
+
+
+ ESP="Ver dependencias extensión"
+ Page EXM Extension Header - Action ViewDependencies - Property ToolTip
+
ESP="%1 deberia tener valor."
@@ -423,6 +558,56 @@
ESP="Objetos"
Page EXM Extension Lines - Property Caption
+
+
+ ESP="Especifica el valor del campo Tipo objeto"
+ Page EXM Extension Lines - Control Object Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo ID objeto"
+ Page EXM Extension Lines - Control Object ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension Lines - Control Name - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo objeto origen"
+ Page EXM Extension Lines - Control Source Object Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo ID objeto origen"
+ Page EXM Extension Lines - Control Source Object ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre Origen"
+ Page EXM Extension Lines - Control Source Name - Property ToolTip
+
+
+
+
+ Page EXM Extension Lines - Control Total Fields - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Obsoleto"
+ Page EXM Extension Lines - Control Obsolete - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Creado por"
+ Page EXM Extension Lines - Control Created by - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Fecha creación"
+ Page EXM Extension Lines - Control Creation Date - Property ToolTip
+
ESP="Ver detalle"
@@ -558,6 +743,16 @@
Page EXM Related Lines - Property Caption
+
+
+ ESP="Especifica el valor del campo ID Tabla"
+ Page EXM Related Lines - Control Table ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Related Lines - Control Name - Property ToolTip
+
ESP="Campos extensión"
@@ -658,21 +853,96 @@
ESP="Debe seleccionar un tipo de datos."
Table EXM Table Fields - Method ValidateData - NamedType SelectDataTypeErr
-
-
- ESP="Configurar Gestor Extensiones"
- Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType SetupWizardTxt
+
+
+ ESP="Vista arbol objetos"
+ Table EXM Tree View - Property Caption
-
-
- ESP="EXM necesita pedirte información para funcionar correctamente, Será rápido!!"
- Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType InitialEXMSetupDescTxt
+
+
+ ESP="Cód. extensión"
+ Table EXM Tree View - Field Extension Code - Property Caption
+
+
+
+ ESP="Nº línea"
+ Table EXM Tree View - Field Line No. - Property Caption
+
+
+
+ ESP="Tipo objeto"
+ Table EXM Tree View - Field Object Type - Property Caption
+
+
+
+ ESP=",Table,,Report,,Codeunit,XMLport,MenuSuite,Page,Query,,,,,PageExtension,TableExtension,Enum,EnumExtension,Profile,ProfileExtension,,,,,,,,,,,,,,,,,,, "
+ Table EXM Tree View - Field Object Type - Property OptionCaption
+
+
+
+ ESP="ID objeto"
+ Table EXM Tree View - Field Object ID - Property Caption
+
+
+
+ ESP="Nombre"
+ Table EXM Tree View - Field Object Name - Property Caption
+
+
+
+ ESP="Id. campo"
+ Table EXM Tree View - Field Field ID - Property Caption
+
+
+
+ ESP="Nombre de campo"
+ Table EXM Tree View - Field Field Name - Property Caption
+
+
+
+ ESP="Tipo datos"
+ Table EXM Tree View - Field Field Data Type - Property Caption
+
+
+
+ ESP="Tipo objeto origen"
+ Table EXM Tree View - Field Source Object Type - Property Caption
+
+
+
+ ESP=",Table,,,,,,,Page,,,,,,,,Enum,,Profile,,,,,,,,,,,,,,,,,,,, "
+ Table EXM Tree View - Field Source Object Type - Property OptionCaption
+
+
+
+ ESP="ID objeto origen"
+ Table EXM Tree View - Field Source Object ID - Property Caption
+
+
+
+ ESP="Nombre"
+ Table EXM Tree View - Field Source Name - Property Caption
+
+
+
+ ESP="Indentación"
+ Table EXM Tree View - Field Indentation - Property Caption
ESP="La configuración se ha realizado. Desea ejecutar nuevamente?"
Codeunit EXM Assisted Setup - Method OnReRunOfCompletedSetup - NamedType AlreadySetUpQst
+
+
+ ESP="EXM necesita pedirte información para funcionar correctamente, Será rápido!!"
+ Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType InitialEXMSetupDescTxt
+
+
+
+ ESP="Configurar Gestor Extensiones"
+ Codeunit EXM Assisted Setup - Method SetupInitialize - NamedType SetupWizardTxt
+
ESP="ID no permitido según guias de Microsoft. Más información:"
@@ -683,16 +953,16 @@
Codeunit EXM Extension Management - Method AllowedObjectsID - NamedType URLLbl
-
-
- ESP="ID debe estar dentro del rango definido %1 - %2"
- Codeunit EXM Extension Management - Method ValidateExtensionRangeID - NamedType IDRangeErr
-
ESP="%1 usado en extensión %2"
Codeunit EXM Extension Management - Method ChechManualObjectID - NamedType ObjectIDErr
+
+
+ ESP="ID debe estar dentro del rango definido %1 - %2"
+ Codeunit EXM Extension Management - Method ValidateExtensionRangeID - NamedType IDRangeErr
+
ESP="Desea más información sobre EXM (Extension Manager)?"
@@ -703,31 +973,176 @@
ESP="Valores EnumExt"
Page EXM EnumExt Values - Property Caption
+
+
+ ESP="Especifica el valor del campo Código Extensión"
+ Page EXM EnumExt Values - Control Extension Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo ID Ordinal"
+ Page EXM EnumExt Values - Control Ordinal ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo valor Enum"
+ Page EXM EnumExt Values - Control Enum Value - Property ToolTip
+
+
+
+ ESP="Especifica quién creo el registro."
+ Page EXM EnumExt Values - Control Created by - Property ToolTip
+
+
+
+ ESP="Especifica la fecha de creación del registro."
+ Page EXM EnumExt Values - Control Creation Date - Property ToolTip
+
ESP="Dependencias extensión"
Page EXM Extension Dep. Factbox - Property Caption
+
+
+ ESP="Especifica el valor del campo Cód. extensión dependiente"
+ Page EXM Extension Dep. Factbox - Control Dependent Ext. Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre extensión dependiente"
+ Page EXM Extension Dep. Factbox - Control Dependent Ext. Name - Property ToolTip
+
ESP="Detalle objetos extensión"
Page EXM Extension FactBox - Property Caption
+
+
+ ESP="Muestra el Nº Tablas en la extensión"
+ Page EXM Extension FactBox - Control No. of Tables - Property ToolTip
+
+
+
+ ESP="Muestra el Nº TableExtensions en la extensión"
+ Page EXM Extension FactBox - Control No. of TableExtensions - Property ToolTip
+
+
+
+ ESP="Muestra el Nº Pages en la extensión"
+ Page EXM Extension FactBox - Control No. of Page - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº PageExtensions en la extensión"
+ Page EXM Extension FactBox - Control No. of PageExtensions - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Codeunits en la extensión"
+ Page EXM Extension FactBox - Control No. of Codeunits - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Informes en la extensión"
+ Page EXM Extension FactBox - Control No. of Reports - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Querys en la extensión"
+ Page EXM Extension FactBox - Control No. of Querys - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº XMLports en la extensión"
+ Page EXM Extension FactBox - Control No. of XMLports - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Enums en la extensión"
+ Page EXM Extension FactBox - Control No. of Enums - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº EnumExtensions en la extensión"
+ Page EXM Extension FactBox - Control No. of EnumExtensions - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº Profiles en la extensión"
+ Page EXM Extension FactBox - Control No. of Profiles - Property ToolTip
+
+
+
+ ESP ="Muestra el Nº ProfileExtensions en la extensión"
+ Page EXM Extension FactBox - Control No. of ProfileExtensions - Property ToolTip
+
ESP="Gestor Extensiones"
Page EXM Extension List - Property Caption
+
+
+ ESP="Especifica el valor del campo Código"
+ Page EXM Extension List - Control Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Descripción"
+ Page EXM Extension List - Control Description - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo"
+ Page EXM Extension List - Control Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nº Cliente"
+ Page EXM Extension List - Control Customer No. - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension List - Control Customer Name - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Inicio ID objetos"
+ Page EXM Extension List - Control Object Starting ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Final ID objetos"
+ Page EXM Extension List - Control Object Ending ID - Property ToolTip
+
ESP="Vista arbol"
Page EXM Extension List - Action TreeView - Property Caption
+
+
+ ESP="Ver objectos en Vista arbol"
+ Page EXM Extension List - Action TreeView - Property ToolTip
+
ESP="Todos,Seleccionado"
Page EXM Extension List - Action TreeView - Method OnAction - NamedType OptionsQst
+
+
+ ESP="Dependencias"
+ Page EXM Extension List - Action ViewDependencies - Property Caption
+
+
+
+ ESP="Ver dependencias extensión"
+ Page EXM Extension List - Action ViewDependencies - Property ToolTip
+
ESP="Conf. gestor extensiones"
@@ -738,6 +1153,26 @@
ESP="General"
Page EXM Extension Manager Setup - Control General - Property Caption
+
+
+ ESP="Especifica el valor del campo Nº série extensión"
+ Page EXM Extension Manager Setup - Control Extension Nos. - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre objetos"
+ Page EXM Extension Manager Setup - Control Object Names - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Rango inicial por defecto."
+ Page EXM Extension Manager Setup - Control Default Object Starting ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Rango final por defecto"
+ Page EXM Extension Manager Setup - Control Default Object Ending ID - Property ToolTip
+
ESP="Buscar siempre huecos entre los ID."
@@ -748,6 +1183,16 @@
ESP="Opciones avanzadas"
Page EXM Extension Manager Setup - Control Advanced - Property Caption
+
+
+ ESP="Permite deshabilitar la asignación de ID a los objetos"
+ Page EXM Extension Manager Setup - Control Disable Auto. Objects ID - Property ToolTip
+
+
+
+ ESP="Permite deshabilitar la asignación del ID a los campos"
+ Page EXM Extension Manager Setup - Control Disable Auto. Field ID - Property ToolTip
+
ESP="Donar"
@@ -798,26 +1243,171 @@
Page EXM Extension TreeView - Property Caption
-
+
+
+ ESP="Especifica el valor del campo Cód. extensión"
+ Page EXM Extension TreeView - Control Extension Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo objeto"
+ Page EXM Extension TreeView - Control Object Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo ID objeto"
+ Page EXM Extension TreeView - Control Object ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension TreeView - Control Object Name - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo ID Campo"
+ Page EXM Extension TreeView - Control Field ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre Campo"
+ Page EXM Extension TreeView - Control Field Name - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo Dato Campo"
+ Page EXM Extension TreeView - Control Field Data Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo ID objeto origen"
+ Page EXM Extension TreeView - Control Source Object ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo objeto origen"
+ Page EXM Extension TreeView - Control Source Object Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Extension TreeView - Control Source Name - Property ToolTip
+
+
ESP="Nivel"
- Page EXM Extension TreeView - Control Total Fields - Property Caption
+ Page EXM Extension TreeView - Control Indentation - Property Caption
+
+
+
+ ESP="Especifica el valor del campo Nivel"
+ Page EXM Extension TreeView - Control Indentation - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Cód. extensión"
+ Page EXM Field List - Control Extension Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nº línea origen"
+ Page EXM Field List - Control Source Line No. - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo objeto origen"
+ Page EXM Field List - Control Table Source Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Id. tabla origen"
+ Page EXM Field List - Control Source Table ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Id. tabla"
+ Page EXM Field List - Control Table ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Forma parte clave primária"
+ Page EXM Field List - Control IsPK - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Id. campo"
+ Page EXM Field List - Control Field ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre de campo"
+ Page EXM Field List - Control Field Name - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo datos"
+ Page EXM Field List - Control Data Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Longitud"
+ Page EXM Field List - Control Lenght - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Clase campo"
+ Page EXM Field List - Control Field Class - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Texto opciones"
+ Page EXM Field List - Control Option String - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Obsoleto"
+ Page EXM Field List - Control Obsolete - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Creado por"
+ Page EXM Field List - Control Created by - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Fecha creación"
+ Page EXM Field List - Control Creation Date - Property ToolTip
ESP="Ver / ocultar campos"
Page EXM Field List - Action AllFields - Property Caption
+
+
+ ESP="Ver / ocultar campos de tabla en otras extensiones"
+ Page EXM Field List - Action AllFields - Property ToolTip
+
ESP="Ver tabla origen"
Page EXM Field List - Action ViewSourceTable - Property Caption
+
+
+ ESP="Muestra los campos de la tabla de origen"
+ Page EXM Field List - Action ViewSourceTable - Property ToolTip
+
ESP="Añadir a tablas relacionadas"
Page EXM Field List - Action AddRelField - Property Caption
+
+
+ ESP="Añade campo actual a tablas relacionadas definidas"
+ Page EXM Field List - Action AddRelField - Property ToolTip
+
ESP="Se debe indicar clave primária"
@@ -834,7 +1424,7 @@
Page EXM Headline RC Ext. Manager - Control GreetingText - Property Caption
-
+
ESP="Mensaje de bienvenida. Visitar picazin.dev si pulsamos."
Page EXM Headline RC Ext. Manager - Control GreetingText - Property ToolTip
@@ -853,11 +1443,56 @@
ESP="Detalle Objetos"
Page EXM Object Detail - Property Caption
+
+
+ ESP="Especifica el valor del campo Tipo objeto"
+ Page EXM Object Detail - Control Object Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo ID objeto"
+ Page EXM Object Detail - Control Object ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre"
+ Page EXM Object Detail - Control Name - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo objeto origen"
+ Page EXM Object Detail - Control Source Object Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo ID objeto origen"
+ Page EXM Object Detail - Control Source Object ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre Origen"
+ Page EXM Object Detail - Control Source Name - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Campos relacionados"
+ Page EXM Object Detail - Control Total Fields - Property ToolTip
+
ESP="EXM - Crear campos en tablas relacionadas"
Page EXM Related Data - Property Caption
+
+
+ ESP="Especifica el valor del campo Código"
+ Page EXM Related Data - Control Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Descripción"
+ Page EXM Related Data - Control Description - Property ToolTip
+
ESP="Tablas relacionadas"
@@ -868,6 +1503,21 @@
ESP="EXM Campos tablas relacionadas"
Page EXM Related Data List - Property Caption
+
+
+ ESP="Especifica el valor del campo Código"
+ Page EXM Related Data List - Control Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Descripción"
+ Page EXM Related Data List - Control Description - Property ToolTip
+
+
+
+ ESP="Muestra el Nº tablas relacionadas"
+ Page EXM Related Data List - Control Related Tables No. - Property ToolTip
+
ESP="Gestor Extensiones"
@@ -1153,11 +1803,111 @@
ESP="Campos TableExtensions"
Page EXM TableExt Field List - Property Caption
+
+
+ ESP="Especifica el valor del campo Cód. extensión"
+ Page EXM TableExt Field List - Control Extension Code - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Id. tabla origen"
+ Page EXM TableExt Field List - Control Source Table ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Id. tabla"
+ Page EXM TableExt Field List - Control Table ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Id. campo"
+ Page EXM TableExt Field List - Control Field ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre de campo"
+ Page EXM TableExt Field List - Control Field Name - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo datos"
+ Page EXM TableExt Field List - Control Data Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Longitud"
+ Page EXM TableExt Field List - Control Lenght - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Clase campo"
+ Page EXM TableExt Field List - Control Field Class - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Texto opciones"
+ Page EXM TableExt Field List - Control Option String - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Obsoleto"
+ Page EXM TableExt Field List - Control Obsolete - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Creado por"
+ Page EXM TableExt Field List - Control Created by - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Fecha creación"
+ Page EXM TableExt Field List - Control Creation Date - Property ToolTip
+
ESP="Campos Tabla"
Page EXM Table Field Detail - Property Caption
+
+
+ ESP="Especifica el valor del campo Id. campo"
+ Page EXM Table Field Detail - Control Field ID - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Nombre de campo"
+ Page EXM Table Field Detail - Control Field Name - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Título campo"
+ Page EXM Table Field Detail - Control Field Caption - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Tipo datos"
+ Page EXM Table Field Detail - Control Data Type - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Longitud"
+ Page EXM Table Field Detail - Control Lenght - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Clase campo"
+ Page EXM Table Field Detail - Control Field Class - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Texto opciones"
+ Page EXM Table Field Detail - Control Option String - Property ToolTip
+
+
+
+ ESP="Especifica el valor del campo Obsoleto"
+ Page EXM Table Field Detail - Control Obsolete - Property ToolTip
+
ESP="Extensiones"
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/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..7591533 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
{
@@ -14,25 +14,30 @@ 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 645b697..9bf27a5 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
{
@@ -13,62 +13,71 @@ 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"';
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,52 +107,54 @@ 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()
var
EXMExtMgt: Codeunit "EXM Extension Management";
begin
- EXMExtMgt.GetEnumValues("Source Enum ID");
+ EXMExtMgt.GetEnumValues(Rec."Source Enum ID");
end;
}
}
}
+
+ 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;
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;
-
- 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..95fed43 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")
+ 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 3566308..bc81858 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
{
@@ -12,13 +12,15 @@ 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 df97226..965c985 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
{
@@ -11,97 +11,109 @@ 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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
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"';
trigger OnDrillDown()
begin
ViewObjectDetail(Objects::"ProfileExtension")
@@ -110,13 +122,17 @@ 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";
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);
@@ -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..345ebac 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
{
@@ -13,60 +12,69 @@ 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"';
}
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"';
}
}
group(ObjectRange)
{
Caption = 'Object Range', Comment = 'ESP="Rango objetos"';
- field("Object Starting ID"; "Object Starting ID")
+ field("Object Starting ID"; Rec."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
+ 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")
{
- 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
+ if xRec."Object Ending ID" <> Rec."Object Ending ID" then
CurrPage.Update(true);
end;
}
@@ -75,14 +83,15 @@ 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;
+ ToolTip = 'Specifies the value of the GIT Repository URL field', Comment = 'ESP="Especifica el valor del campo URL repositorio GIT"';
}
}
}
@@ -91,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 80e98c4..b842b3a 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
{
@@ -15,59 +13,69 @@ 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"';
trigger OnValidate()
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"';
trigger OnAssistEdit()
begin
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"';
}
}
}
@@ -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()
@@ -96,40 +104,40 @@ 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()
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":
+ 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"));
@@ -139,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 3d1e31e..b06b089 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
{
@@ -16,33 +16,40 @@ 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"';
}
}
}
@@ -51,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");
}
}
}
@@ -66,27 +73,28 @@ 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);
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;
@@ -94,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 a42666b..ab81c99 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
{
@@ -15,39 +15,44 @@ 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"';
}
}
}
@@ -58,13 +63,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()
@@ -80,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 d7441df..3b64fac 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 Tree View";
+ SourceTableTemporary = true;
layout
{
@@ -14,53 +14,78 @@ 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"';
StyleExpr = StyleExp;
+ ToolTip = 'Specifies the value of the Level field', Comment = 'ESP="Especifica el valor del campo Nivel"';
Visible = false;
}
}
@@ -86,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);
@@ -125,45 +162,57 @@ 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
+ ExtCode: Code[20];
+ ViewCustNoExt: Code[20];
+ ExtType: Integer;
+ StyleExp: Text;
+
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..ee17c5a 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
{
@@ -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 67a17ff..2d468ba 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
{
@@ -12,109 +12,124 @@ page 83203 "EXM Field List"
{
repeater(Fields)
{
- field("Extension Code"; "Extension Code")
+ field("Extension Code"; Rec."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.")
+ field("Source Line No."; Rec."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")
+ field("Table Source Type"; Rec."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")
+ field("Source Table ID"; Rec."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")
+ field("Table ID"; Rec."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)
+ field(IsPK; Rec.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
+ 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;
+ 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 = (Rec."Table Source Type" = Rec."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,65 +159,46 @@ 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 = (Rec."Table Source Type" = Rec."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
EXMExtMgt: Codeunit "EXM Extension Management";
begin
- EXMExtMgt.GetTableFieldData("Source Table ID");
+ EXMExtMgt.GetTableFieldData(Rec."Source Table ID");
end;
}
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;
- Visible = ("Table Source Type" = "Table Source Type"::"TableExtension");
+ PromotedOnly = true;
+ ToolTip = 'Add current field to defined related tables', Comment = 'ESP="Añade campo actual a tablas relacionadas definidas"';
+ 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;
}
}
}
- 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();
@@ -223,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);
@@ -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(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, 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 := (Rec."Source Table ID" = 0);
+ StyleExp := 'standard';
+ if Rec.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..5c631b4 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
{
@@ -11,36 +11,43 @@ 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"';
}
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")
+ 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"';
Visible = FieldsVisible;
trigger OnAssistEdit()
begin
@@ -50,43 +57,54 @@ page 83214 "EXM Object Detail"
}
}
}
+
+ trigger OnAfterGetRecord()
+ begin
+ 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
+ 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":
+ 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;
@@ -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..d4677e9 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";
@@ -11,20 +10,22 @@ 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"';
}
}
part(Lines; "EXM Related Lines")
{
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 3f66b32..0858725 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
{
@@ -15,17 +14,20 @@ 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 2da09d0..184a9b8 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
{
@@ -12,13 +11,15 @@ 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/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..5d72353 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;
@@ -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"';
@@ -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..e587a66 100644
--- a/src/page/EXMTableExtFieldList.Page.al
+++ b/src/page/EXMTableExtFieldList.Page.al
@@ -1,67 +1,79 @@
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)
{
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 415caa5..a09f6b8 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
{
@@ -16,46 +16,54 @@ 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;
+ ToolTip = 'Specifies the value of the Obsolete field', Comment = 'ESP="Especifica el valor del campo Obsoleto"';
}
}
}
@@ -64,18 +72,18 @@ page 83206 "EXM Table Field Detail"
trigger OnAfterGetRecord()
begin
StyleExp := 'standard';
- if IsPK then
+ if Rec.IsPK then
StyleExp := 'strong';
end;
+ var
+ StyleExp: Text;
+
local procedure GetTableDesc(): Text
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;
-
- 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..a10440a 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
{
@@ -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)
@@ -28,35 +28,35 @@ 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
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)
{
+ BlankZero = true;
Caption = 'Enum ID', Comment = 'ESP="Id. Enum"';
DataClassification = OrganizationIdentifiableInformation;
- BlankZero = true;
trigger OnValidate()
var
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;
@@ -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
@@ -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,33 +179,33 @@ 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)]
- 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..92db471 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";
@@ -35,24 +35,24 @@ 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;
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");
- 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,14 +62,14 @@ 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;
}
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..653d8f4 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,52 +19,52 @@ 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
- "Customer No." := '';
- "Customer Name" := '';
+ Rec."Customer No." := '';
+ Rec."Customer Name" := '';
SetRelLines();
end;
end;
}
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";
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;
}
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";
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;
@@ -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,13 +133,13 @@ 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
- "No." := '';
+ if Rec."Sell-Type" = Rec."Sell-Type"::" " then
+ Rec."No." := '';
end;
}
field(23; "No."; Code[20])
@@ -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,56 +252,56 @@ 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);
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;
@@ -325,18 +325,18 @@ 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.");
+ 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,27 +345,27 @@ 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()
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.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
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..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,15 +35,15 @@ 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)
{
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)
{
@@ -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 597bc33..20f0434 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
@@ -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 6c5b562..b663037 100644
--- a/src/table/EXMRelatedLines.Table.al
+++ b/src/table/EXMRelatedLines.Table.al
@@ -15,15 +15,15 @@ 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
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 abafdbc..383a81a 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
{
@@ -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)
@@ -28,42 +28,42 @@ 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
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)
{
+ BlankZero = true;
Caption = 'Table ID', Comment = 'ESP="Id. tabla"';
DataClassification = OrganizationIdentifiableInformation;
- BlankZero = true;
trigger OnValidate()
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)
{
+ 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)
{
@@ -143,19 +143,19 @@ 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;
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
@@ -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
new file mode 100644
index 0000000..6eea67f
--- /dev/null
+++ b/src/table/EXMTreeView.Table.al
@@ -0,0 +1,90 @@
+table 83209 "EXM Tree View"
+{
+ Caption = 'Extension Objects Tree View', Comment = 'ESP="Vista arbol objetos"';
+ DataClassification = OrganizationIdentifiableInformation;
+ fields
+ {
+ field(1; "Extension Code"; Code[20])
+ {
+ Caption = 'Extension Code', Comment = 'ESP="Cód. extensión"';
+ DataClassification = OrganizationIdentifiableInformation;
+ TableRelation = "EXM Extension Header";
+ }
+ 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",,,,,,,,,,,,,,,,,,," ";
+ }
+ field(4; "Object ID"; Integer)
+ {
+ BlankZero = true;
+ Caption = 'Object ID', Comment = 'ESP="ID objeto"';
+ DataClassification = OrganizationIdentifiableInformation;
+ }
+ field(5; "Object Name"; Text[250])
+ {
+ Caption = 'Name', Comment = 'ESP="Nombre"';
+ DataClassification = OrganizationIdentifiableInformation;
+ }
+ field(6; "Field ID"; Integer)
+ {
+ BlankZero = true;
+ Caption = 'Field ID', Comment = 'ESP="Id. campo"';
+ DataClassification = OrganizationIdentifiableInformation;
+ }
+ field(7; "Field Name"; Text[30])
+ {
+ Caption = 'Field Name', Comment = 'ESP="Nombre de campo"';
+ DataClassification = OrganizationIdentifiableInformation;
+ }
+ field(8; "Field Data Type"; Text[30])
+ {
+ Caption = 'Field Data Type', Comment = 'ESP="Tipo datos"';
+ DataClassification = OrganizationIdentifiableInformation;
+ }
+ field(9; "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",,,,,,,,,,,,,,,,,,," ";
+ }
+ field(10; "Source Object ID"; Integer)
+ {
+ BlankZero = true;
+ Caption = 'Source Object ID', Comment = 'ESP="ID objeto origen"';
+ DataClassification = OrganizationIdentifiableInformation;
+ }
+ field(11; "Source Name"; Text[250])
+ {
+ Caption = 'Name', Comment = 'ESP="Nombre"';
+ DataClassification = OrganizationIdentifiableInformation;
+ }
+ field(100; Indentation; Integer)
+ {
+ Caption = 'Indentation', Comment = 'ESP="Indentación"';
+ DataClassification = OrganizationIdentifiableInformation;
+ }
+ }
+
+ 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")
+ { }
+ }
+}
\ No newline at end of file