Obsoleting Session Store (#4187)

<!-- Thank you for submitting a Pull Request. If you're new to
contributing to BCApps please read our pull request guideline below
* https://github.com/microsoft/BCApps/Contributing.md
-->
#### Summary <!-- Provide a general summary of your changes -->
The usage of Session Store Codeunit for Subscription Billing has been
obsoleted.

#### Work Item(s) <!-- Add the issue number here after the #. The issue
needs to be open and approved. Submitting PRs with no linked issues or
unapproved issues is highly discouraged. -->
Fixes #4172




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

Author: miljance

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

@@ -42,7 +42,6 @@ permissionset 8001 "Sub. Billing Objects"
         codeunit "Sales Documents" = X,
         codeunit "Sales Report Printout Mgmt." = X,
         codeunit "Sales Subscription Line Mgmt." = X,
-        codeunit "Session Store" = X,
         codeunit "Sub. Billing Activities Cue" = X,
         codeunit "Sub. Billing Installation" = X,
         codeunit "Sub. Contr. Renewal Subcribers" = X,

src/Apps/W1/Subscription Billing/App/Permission Sets/SubBillingObjects.PermissionSet.al

@@ -15,7 +15,7 @@ codeunit 8069 "Sales Subscription Line Mgmt."
     [EventSubscriber(ObjectType::Table, Database::"Sales Line", OnAfterInsertEvent, '', false, false)]
     local procedure SalesLineOnAfterInsertEvent(var Rec: Record "Sales Line"; RunTrigger: Boolean)
     begin
-        if IsSalesLineRestoreInProgress(Rec) then
+        if SalesLineRestoreInProgress then
             exit;
         if RunTrigger then
             AddSalesServiceCommitmentsForSalesLine(Rec, false);
@@ -344,21 +344,16 @@ codeunit 8069 "Sales Subscription Line Mgmt."
         TransferServiceCommitments(BlanketOrderSalesLine, SalesOrderLine);
     end;
 
-    [EventSubscriber(ObjectType::Codeunit, Codeunit::ArchiveManagement, OnRestoreSalesLinesOnBeforeSalesLineInsert, '', false, false)]
-    local procedure SetSalesLineRestoreInProgressOnRestoreSalesLinesOnBeforeSalesLineInsert(var SalesLine: Record "Sales Line")
+    [EventSubscriber(ObjectType::Codeunit, Codeunit::ArchiveManagement, OnRestoreDocumentOnBeforeDeleteSalesHeader, '', false, false)]
+    local procedure SetSalesLineRestoreInProgressOnRestoreDocumentOnBeforeDeleteSalesHeader()
     begin
-        SessionStore.SetBooleanKey('SalesLineRestoreInProgress ' + Format(SalesLine.RecordId()), true);
+        SalesLineRestoreInProgress := true;
     end;
 
-    [EventSubscriber(ObjectType::Codeunit, Codeunit::ArchiveManagement, OnRestoreSalesLinesOnAfterSalesLineInsert, '', false, false)]
-    local procedure RemoveSalesLineRestoreInProgressOnRestoreSalesLinesOnAfterSalesLineInsert(var SalesLine: Record "Sales Line")
+    [EventSubscriber(ObjectType::Codeunit, Codeunit::ArchiveManagement, OnAfterRestoreSalesDocument, '', false, false)]
+    local procedure RemoveSalesLineRestoreInProgressOnAfterRestoreSalesDocument()
     begin
-        SessionStore.RemoveBooleanKey('SalesLineRestoreInProgress ' + Format(SalesLine.RecordId()));
-    end;
-
-    local procedure IsSalesLineRestoreInProgress(var SalesLine: Record "Sales Line"): Boolean
-    begin
-        exit(SessionStore.GetBooleanKey('SalesLineRestoreInProgress ' + Format(SalesLine.RecordId())));
+        SalesLineRestoreInProgress := false;
     end;
 
     internal procedure GetItemNoForSalesServiceCommitment(var SalesLine: Record "Sales Line"; ServiceCommitmentPackageLine: Record "Subscription Package Line"): Code[20]
@@ -521,8 +516,8 @@ codeunit 8069 "Sales Subscription Line Mgmt."
     end;
 
     var
-        SessionStore: Codeunit "Session Store";
         ItemManagement: Codeunit "Sub. Contracts Item Management";
         ServiceCommitmentWithNegativeQtyMessageThrown: Boolean;
+        SalesLineRestoreInProgress: Boolean;
         ServiceObjectNotCreatedMsg: Label 'For negative quantity the Subscription is not created.';
 }