obsolete the old procedure

microsoft · Dec 4, 2024 · f34413a · f34413a
1 parent 12b6a97
commit f34413a
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/src/System Application/App/AI/src/Copilot/CopilotCapabilityImpl.Codeunit.al b/src/System Application/App/AI/src/Copilot/CopilotCapabilityImpl.Codeunit.al
@@ -243,14 +243,17 @@ codeunit 7774 "Copilot Capability Impl"
         IsAdmin := AzureADGraphUser.IsUserDelegatedAdmin() or AzureADPlan.IsPlanAssignedToUser(PlanIds.GetGlobalAdminPlanId()) or AzureADPlan.IsPlanAssignedToUser(PlanIds.GetBCAdminPlanId()) or AzureADPlan.IsPlanAssignedToUser(PlanIds.GetD365AdminPlanId()) or AzureADGraphUser.IsUserDelegatedHelpdesk() or UserPermissions.IsSuper(UserSecurityId());
     end;
 
+#if not clean26
     [TryFunction]
+    [Obsolete('Use the procedure CheckGeoAndEUDB', '26.0')]
     procedure CheckGeo(var WithinGeo: Boolean; var WithinEuropeGeo: Boolean)
     var
         ALCopilotFunctions: DotNet ALCopilotFunctions;
     begin
         WithinGeo := ALCopilotFunctions.IsWithinGeo();
         WithinEuropeGeo := ALCopilotFunctions.IsEuropeGeo();
     end;
+#endif
 
     [TryFunction]
     procedure CheckGeoAndEUDB(var WithinGeo: Boolean; var WithinEUDB: Boolean)

diff --git a/src/System Application/App/Upgrade Tags/src/UpgradeTags.Page.al b/src/System Application/App/Upgrade Tags/src/UpgradeTags.Page.al
@@ -24,10 +24,10 @@ page 9985 "Upgrade Tags"
         {
             repeater(GroupName)
             {
-                field(Tag; Rec.Tag) { }
-                field("Tag Timestamp"; Rec."Tag Timestamp") { }
-                field(Company; Rec.Company) { }
-                field("Skipped Upgrade"; Rec."Skipped Upgrade") { }
+                // field(Tag; Rec.Tag) { }
+                // field("Tag Timestamp"; Rec."Tag Timestamp") { }
+                // field(Company; Rec.Company) { }
+                // field("Skipped Upgrade"; Rec."Skipped Upgrade") { }
             }
         }
     }