Billing automation for27.x

src/Apps/W1/Subscription Billing/App/Base/Codeunits/SubBillingActivitiesCue.Codeunit.al

@@ -2,7 +2,6 @@ namespace Microsoft.SubscriptionBilling;
 
 using Microsoft.Sales.History;
 using Microsoft.Purchases.History;
-using Microsoft.Projects.Project.Job;
 
 codeunit 8071 "Sub. Billing Activities Cue"
 {
@@ -81,19 +80,6 @@ codeunit 8071 "Sub. Billing Activities Cue"
         Page.Run(Page::"Overdue Service Commitments", TemporaryOverdueServiceCommitments);
     end;
 
-    internal procedure GetMyJobsFilter() FilterText: Text
-    var
-        MyJobs: Record "My Job";
-    begin
-        MyJobs.SetRange("User ID", UserId);
-        if MyJobs.FindSet() then
-            repeat
-                if FilterText <> '' then
-                    FilterText += '|';
-                FilterText += MyJobs."Job No.";
-            until MyJobs.Next() = 0;
-    end;
-
     local procedure RevenueCurrentMonth(): Decimal
     begin
         exit(GetRevenue(true));

src/Apps/W1/Subscription Billing/App/Base/Pages/SubBillingActivities.Page.al

@@ -171,6 +171,14 @@ page 8085 "Sub. Billing Activities"
                     ToolTip = 'Specifies the Balance between posted Contract Invoices and Contract Credit Memos for Vendor Subscription Contracts in previous Month.';
                 }
             }
+            cuegroup(Errors)
+            {
+                Caption = 'Errors';
+                field("Errors Automated Billing"; Rec."Errors Automated Billing")
+                {
+                    Image = Info;
+                }
+            }
         }
     }
 
@@ -202,7 +210,6 @@ page 8085 "Sub. Billing Activities"
 
                 trigger OnAction()
                 begin
-                    SetMyJobsFilter();
                     CurrPage.Update();
                 end;
             }
@@ -238,7 +245,6 @@ page 8085 "Sub. Billing Activities"
             Rec.Insert(false);
         end;
 
-        SetMyJobsFilter();
         RoleCenterNotificationMgt.ShowNotifications();
     end;
 
@@ -259,11 +265,6 @@ page 8085 "Sub. Billing Activities"
         CurrPage.Update();
     end;
 
-    local procedure SetMyJobsFilter()
-    begin
-        Rec.SetFilter("Job No. Filter", SubBillingActivitiesCue.GetMyJobsFilter());
-    end;
-
     var
         SubBillingActivitiesCue: Codeunit "Sub. Billing Activities Cue";
         CuesAndKpisCodeunit: Codeunit "Cues And KPIs";

src/Apps/W1/Subscription Billing/App/Base/Tables/SubscriptionBillingCue.Table.al

@@ -113,12 +113,22 @@ table 8070 "Subscription Billing Cue"
             Editable = false;
             FieldClass = FlowFilter;
         }
+#if not CLEANSCHEMA30
         field(21; "Job No. Filter"; Code[20])
         {
             Caption = 'Date Filter';
             Editable = false;
             FieldClass = FlowFilter;
-        }
+            ObsoleteReason = 'Removed as projects are not relevant in context of Subscription Billing';
+#if not CLEAN27
+            ObsoleteState = Pending;
+            ObsoleteTag = '28.0';
+#else
+            ObsoleteState = Removed;
+            ObsoleteTag = '31.0';
+#endif
+        }
+#endif
         field(22; Overdue; Integer)
         {
             Caption = 'Overdue';
@@ -132,6 +142,14 @@ table 8070 "Subscription Billing Cue"
             Editable = false;
             FieldClass = FlowField;
         }
+        field(30; "Errors Automated Billing"; Integer)
+        {
+            CalcFormula = count("Contract Billing Err. Log");
+            Caption = 'Errors Automated Contract Billing';
+            ToolTip = 'Specifies the number of errors that occurred during the automated contract billing process.';
+            Editable = false;
+            FieldClass = FlowField;
+        }
     }
     keys
     {

src/Apps/W1/Subscription Billing/App/Billing/Codeunits/AutoContractBilling.Codeunit.al

@@ -0,0 +1,16 @@
+namespace Microsoft.SubscriptionBilling;
+
+using System.Threading;
+
+codeunit 8014 "Auto Contract Billing"
+{
+    TableNo = "Job Queue Entry";
+
+    trigger OnRun()
+    var
+        BillingTemplate: Record "Billing Template";
+    begin
+        BillingTemplate.Get(Rec."Record ID to Process");
+        BillingTemplate.BillContractsAutomatically();
+    end;
+}