From f6a015d0acea38260e9af4f679139067989a401b Mon Sep 17 00:00:00 2001 From: pri-kise <56249171+pri-kise@users.noreply.github.com> Date: Tue, 25 Jul 2023 16:55:29 +0200 Subject: [PATCH] Enhance UI of extension settings (#24171) Remove Group Caption since the Caption wasn't translated and it didn't provide any value. --- .../src/ExtensionSettings.Page.al | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Modules/System/Extension Management/src/ExtensionSettings.Page.al b/Modules/System/Extension Management/src/ExtensionSettings.Page.al index 78eff74a4f..a622ccffb5 100644 --- a/Modules/System/Extension Management/src/ExtensionSettings.Page.al +++ b/Modules/System/Extension Management/src/ExtensionSettings.Page.al @@ -22,6 +22,7 @@ page 2511 "Extension Settings" { group(Group) { + field(AppId; AppIdValue) { ApplicationArea = All; @@ -62,7 +63,7 @@ page 2511 "Extension Settings" var PublishedApplication: Record "Published Application"; begin - PublishedApplication.SetRange(ID, "App ID"); + PublishedApplication.SetRange(ID, Rec."App ID"); PublishedApplication.SetRange("Tenant Visible", true); if PublishedApplication.FindFirst() then begin @@ -76,13 +77,13 @@ page 2511 "Extension Settings" var ExtensionInstallationImpl: Codeunit "Extension Installation Impl"; begin - if GetFilter("App ID") = '' then + if Rec.GetFilter("App ID") = '' then exit; - "App ID" := GetRangeMin("App ID"); - if not FindFirst() then begin - Init(); - Insert(); + Rec."App ID" := Rec.GetRangeMin("App ID"); + if not Rec.FindFirst() then begin + Rec.Init(); + Rec.Insert(); end; CanManageExtensions := ExtensionInstallationImpl.CanManageExtensions(); @@ -94,4 +95,3 @@ page 2511 "Extension Settings" AppIdValue: Text; CanManageExtensions: Boolean; } -