[releases/26.0] Move quota checks to page background task (#3117)

This pull request backports #3115 to releases/26.0

Fixes
[AB#567347](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/567347)

Author: darjoo

src/System Application/App/AI/src/Copilot/CopilotAICapabilities.Page.al

@@ -252,6 +252,7 @@ page 7775 "Copilot AI Capabilities"
         EnvironmentInformation: Codeunit "Environment Information";
         WithinGeo: Boolean;
         WithinEUDB: Boolean;
+        TaskId: Integer;
     begin
         OnRegisterCopilotCapability();
 
@@ -280,7 +281,43 @@ page 7775 "Copilot AI Capabilities"
 
         if EnvironmentInformation.IsSaaSInfrastructure() then begin
             CopilotNotifications.ShowBillingInTheFutureNotification();
-            CopilotNotifications.CheckAIQuotaAndShowNotification();
+            CurrPage.EnqueueBackgroundTask(TaskId, Codeunit::"Copilot Quota Impl.");
+        end;
+    end;
+
+    trigger OnPageBackgroundTaskCompleted(TaskId: Integer; Results: Dictionary of [Text, Text])
+    var
+        CopilotNotifications: Codeunit "Copilot Notifications";
+        Value: Text;
+        CanConsume: Boolean;
+        HasBilling: Boolean;
+        QuotaUsedPercentage: Decimal;
+        CanConsumeLbl: Label 'CanConsume', Locked = true;
+        HasSetupBillingLbl: Label 'HasSetupBilling', Locked = true;
+        QuotaUsedPercentageLbl: Label 'QuotaUsedPercentage', Locked = true;
+    begin
+        if Results.ContainsKey(CanConsumeLbl) then begin
+            Results.Get(CanConsumeLbl, Value);
+            if Evaluate(CanConsume, Value) then;
+            if not CanConsume then begin
+                CopilotNotifications.ShowAIQuotaUsedUpNotification();
+                exit;
+            end;
+        end;
+
+        if Results.ContainsKey(HasSetupBillingLbl) then begin
+            Results.Get(HasSetupBillingLbl, Value);
+            if Evaluate(HasBilling, Value) then;
+            if HasBilling then
+                exit;
+        end;
+
+        if Results.ContainsKey(QuotaUsedPercentageLbl) then begin
+            Results.Get(QuotaUsedPercentageLbl, Value);
+            if Evaluate(QuotaUsedPercentage, Value) then;
+            if QuotaUsedPercentage >= 80.0 then
+                CopilotNotifications.ShowAIQuotaNearlyUsedUpNotification();
+            exit;
         end;
     end;
 

src/System Application/App/AI/src/Copilot/CopilotQuotaImpl.Codeunit.al

@@ -17,6 +17,24 @@ codeunit 7786 "Copilot Quota Impl."
         CapabilityNotRegisteredTelemetryMsg: Label 'Capability "%1" is not registered in the system but is logging usage.', Locked = true;
         LoggingUsageTelemetryMsg: Label 'Capability "%1" is logging %2 usage of type %3.', Locked = true;
 
+    trigger OnRun()
+    var
+        ALCopilotFunctions: DotNet ALCopilotFunctions;
+        ALCopilotQuotaDetails: Dotnet ALCopilotQuotaDetails;
+        Results: Dictionary of [Text, Text];
+    begin
+        ALCopilotQuotaDetails := ALCopilotFunctions.GetCopilotQuotaDetails();
+
+        if IsNull(ALCopilotQuotaDetails) then
+            exit;
+
+        Results.Add('CanConsume', Format(ALCopilotQuotaDetails.CanConsume()));
+        Results.Add('HasSetupBilling', Format(ALCopilotQuotaDetails.HasSetupBilling()));
+        Results.Add('QuotaUsedPercentage', Format(ALCopilotQuotaDetails.QuotaUsedPercentage()));
+
+        Page.SetBackgroundTaskResult(Results);
+    end;
+
     procedure LogQuotaUsage(CopilotCapability: Enum "Copilot Capability"; Usage: Integer; CopilotQuotaUsageType: Enum "Copilot Quota Usage Type"; CallerModuleInfo: ModuleInfo)
     var
         CopilotCapabilityImpl: Codeunit "Copilot Capability Impl";