From 006c004ba88cdc1179d483e6b21209bedc4b8494 Mon Sep 17 00:00:00 2001
From: ehenriksen9 <125461642+ehenriksen9@users.noreply.github.com>
Date: Tue, 10 Sep 2024 14:41:25 +0200
Subject: [PATCH] Use AppId function to delete orphaned extension data
 AB#534788 (#1976)

Problem: Before apps not installed since 14.x might be missing a package
ID. So we are unable to delete them by packageID

Fix: Delete by AppId

Fixes:
[AB#534788](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/534788)
---
 .../src/ExtensionInstallationImpl.Codeunit.al | 20 +++++++++++++++----
 .../src/ExtnOrphanedAppDetails.Page.al        |  2 +-
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/src/System Application/App/Extension Management/src/ExtensionInstallationImpl.Codeunit.al b/src/System Application/App/Extension Management/src/ExtensionInstallationImpl.Codeunit.al
index b295c9e5d2..92216bb561 100644
--- a/src/System Application/App/Extension Management/src/ExtensionInstallationImpl.Codeunit.al	
+++ b/src/System Application/App/Extension Management/src/ExtensionInstallationImpl.Codeunit.al	
@@ -52,7 +52,8 @@ codeunit 2500 "Extension Installation Impl"
         exit(not NAVAppInstalledApp.IsEmpty());
     end;
 
-    procedure IsInstalledByAppId(AppID: Guid): Boolean
+
+    procedure IsInstalledByAppId(AppId: Guid): Boolean
     var
         NAVAppInstalledApp: Record "NAV App Installed App";
     begin
@@ -207,7 +208,7 @@ codeunit 2500 "Extension Installation Impl"
         exit(UninstallExtensionSilently(PackageID, ClearSchema, ClearSchema));
     end;
 
-    procedure DeleteOrphanData(PackageID: Guid; ExtensionName: Text): Boolean
+    procedure DeleteOrphanData(AppId: Guid; ExtensionName: Text): Boolean
     var
         ConfirmManagement: Codeunit "Confirm Management";
     begin
@@ -215,7 +216,7 @@ codeunit 2500 "Extension Installation Impl"
 
         if not ConfirmManagement.GetResponse(StrSubstNo(ClearExtensionSchemaOrphanMsg, ExtensionName), false) then exit(false);
 
-        exit(UninstallExtensionSilently(PackageID, false, true));
+        exit(UninstallExtensionSilentlyByAppId(AppId, false, true));
     end;
 
     procedure RunOrphanDeletion(OrphanedApplication: Record "Extension Database Snapshot"): Boolean
@@ -226,7 +227,6 @@ codeunit 2500 "Extension Installation Impl"
         exit(OrphanedExtensionDetails.RunModal() = Action::OK);
     end;
 
-
     local procedure UninstallExtensionSilently(PackageID: Guid; ClearData: Boolean; ClearSchema: Boolean): Boolean
     begin
         CheckPermissions();
@@ -239,6 +239,18 @@ codeunit 2500 "Extension Installation Impl"
         exit(true);
     end;
 
+    local procedure UninstallExtensionSilentlyByAppId(AppId: Guid; ClearData: Boolean; ClearSchema: Boolean): Boolean
+    begin
+        CheckPermissions();
+        AssertIsInitialized();
+        DotNetNavAppALInstaller.ALUninstallNavAppByAppId(AppId, ClearData, ClearSchema);
+
+        if IsInstalledByAppId(AppId) then
+            exit(false);
+
+        exit(true);
+    end;
+
     procedure UninstallExtensionWithConfirmDialog(PackageId: Guid; ClearData: Boolean; ClearSchema: Boolean): Boolean
     var
         PublishedApplication: Record "Published Application";
diff --git a/src/System Application/App/Extension Management/src/ExtnOrphanedAppDetails.Page.al b/src/System Application/App/Extension Management/src/ExtnOrphanedAppDetails.Page.al
index 304cb5e4e5..2550164e6c 100644
--- a/src/System Application/App/Extension Management/src/ExtnOrphanedAppDetails.Page.al	
+++ b/src/System Application/App/Extension Management/src/ExtnOrphanedAppDetails.Page.al	
@@ -73,7 +73,7 @@ page 2513 "Extn. Orphaned App Details"
 
                 trigger OnAction()
                 begin
-                    ExtensionInstallationImpl.DeleteOrphanData(Rec."Package Id", Rec."Name");
+                    ExtensionInstallationImpl.DeleteOrphanData(Rec."App Id", Rec."Name");
                     CurrPage.Close();
                 end;
             }