Change action from 'None' to 'Error' for rules AA0073 and AA0237

src/Apps/W1/DataSearch/App/DataSearch.page.al

@@ -133,9 +133,9 @@ page 2680 "Data Search"
     [TryFunction]
     local procedure ValidateFilter(FilterValue: text)
     var
-        DataSearchResultFilterTest: Record "Data Search Result";
+        TempDataSearchResultFilterTest: Record "Data Search Result";
     begin
-        DataSearchResultFilterTest.SetFilter(Description, '*' + FilterValue + '*');  // will throw an error if filter is illegal
+        TempDataSearchResultFilterTest.SetFilter(Description, '*' + FilterValue + '*');  // will throw an error if filter is illegal
     end;
 
     internal procedure LaunchSearch()

src/Apps/W1/DataSearch/App/DataSearchResultRecords.page.al

@@ -394,9 +394,9 @@ page 2682 "Data Search Result Records"
 
     local procedure DrillDown()
     var
-        DataSearchResult: Record "Data Search Result";
+        TempDataSearchResult: Record "Data Search Result";
     begin
-        DataSearchResult.ShowPage(SourceRecRef);
+        TempDataSearchResult.ShowPage(SourceRecRef);
     end;
 
     local procedure AdjustColumnOffset(Delta: Integer)

src/Apps/W1/DataSearch/App/DataSearchSetupTable.Table.al

@@ -142,11 +142,11 @@ table 2681 "Data Search Setup (Table)"
 
     internal procedure GetProfileID(): Code[30]
     var
-        UserSettingsRec: Record "User Settings";
+        TempUserSettingsRec: Record "User Settings";
         UserSettings: Codeunit "User Settings";
     begin
-        UserSettings.GetUserSettings(UserSecurityId(), UserSettingsRec);
-        exit(UserSettingsRec."Profile ID");
+        UserSettings.GetUserSettings(UserSecurityId(), TempUserSettingsRec);
+        exit(TempUserSettingsRec."Profile ID");
     end;
 
     procedure GetRoleCenterID(): Integer

src/Apps/W1/EDocument/App/src/Document/EDocument.Page.al

@@ -342,12 +342,12 @@ page 6121 "E-Document"
 
                     trigger OnAction()
                     var
-                        EDocImportParameters: Record "E-Doc. Import Parameters";
+                        TempEDocImportParameters: Record "E-Doc. Import Parameters";
                     begin
-                        EDocImportParameters."Step to Run" := "Import E-Document Steps"::"Finish draft";
-                        EDocImportParameters."Purch. Journal V1 Behavior" := EDocImportParameters."Purch. Journal V1 Behavior"::"Create purchase document";
-                        EDocImportParameters."Create Document V1 Behavior" := true;
-                        EDocImport.ProcessIncomingEDocument(Rec, EDocImportParameters);
+                        TempEDocImportParameters."Step to Run" := "Import E-Document Steps"::"Finish draft";
+                        TempEDocImportParameters."Purch. Journal V1 Behavior" := TempEDocImportParameters."Purch. Journal V1 Behavior"::"Create purchase document";
+                        TempEDocImportParameters."Create Document V1 Behavior" := true;
+                        EDocImport.ProcessIncomingEDocument(Rec, TempEDocImportParameters);
                         if EDocumentErrorHelper.HasErrors(Rec) then
                             Message(DocNotCreatedMsg, Rec."Document Type");
                     end;
@@ -361,12 +361,12 @@ page 6121 "E-Document"
 
                     trigger OnAction()
                     var
-                        EDocImportParameters: Record "E-Doc. Import Parameters";
+                        TempEDocImportParameters: Record "E-Doc. Import Parameters";
                     begin
-                        EDocImportParameters."Step to Run" := "Import E-Document Steps"::"Finish draft";
-                        EDocImportParameters."Purch. Journal V1 Behavior" := EDocImportParameters."Purch. Journal V1 Behavior"::"Create journal line";
-                        EDocImportParameters."Create Document V1 Behavior" := true;
-                        EDocImport.ProcessIncomingEDocument(Rec, EDocImportParameters);
+                        TempEDocImportParameters."Step to Run" := "Import E-Document Steps"::"Finish draft";
+                        TempEDocImportParameters."Purch. Journal V1 Behavior" := TempEDocImportParameters."Purch. Journal V1 Behavior"::"Create journal line";
+                        TempEDocImportParameters."Create Document V1 Behavior" := true;
+                        EDocImport.ProcessIncomingEDocument(Rec, TempEDocImportParameters);
                         if EDocumentErrorHelper.HasErrors(Rec) then
                             Message(DocNotCreatedMsg, Rec."Document Type");
                     end;

src/Apps/W1/EDocument/App/src/Document/Inbound/InboundEDocuments.Page.al

@@ -265,11 +265,11 @@ page 6105 "Inbound E-Documents"
 
                 trigger OnAction()
                 var
-                    EDocImportParameters: Record "E-Doc. Import Parameters";
+                    TempEDocImportParameters: Record "E-Doc. Import Parameters";
                     EDocImport: Codeunit "E-Doc. Import";
                 begin
-                    EDocImportParameters."Step to Run" := "Import E-Document Steps"::"Read into Draft";
-                    EDocImport.ProcessIncomingEDocument(Rec, EDocImportParameters);
+                    TempEDocImportParameters."Step to Run" := "Import E-Document Steps"::"Read into Draft";
+                    EDocImport.ProcessIncomingEDocument(Rec, TempEDocImportParameters);
                 end;
             }
             action(PrepareDraftDocument)
@@ -282,13 +282,13 @@ page 6105 "Inbound E-Documents"
 
                 trigger OnAction()
                 var
-                    EDocImportParameters: Record "E-Doc. Import Parameters";
+                    TempEDocImportParameters: Record "E-Doc. Import Parameters";
                     EDocImport: Codeunit "E-Doc. Import";
                     ImportEDocumentProcess: Codeunit "Import E-Document Process";
                 begin
-                    EDocImportParameters := Rec.GetEDocumentService().GetDefaultImportParameters();
-                    EDocImportParameters."Desired E-Document Status" := EDocImportParameters."Desired E-Document Status"::"Draft Ready";
-                    EDocImport.ProcessIncomingEDocument(Rec, EDocImportParameters);
+                    TempEDocImportParameters := Rec.GetEDocumentService().GetDefaultImportParameters();
+                    TempEDocImportParameters."Desired E-Document Status" := TempEDocImportParameters."Desired E-Document Status"::"Draft Ready";
+                    EDocImport.ProcessIncomingEDocument(Rec, TempEDocImportParameters);
                     if ImportEDocumentProcess.IsEDocumentInStateGE(Rec, Enum::"Import E-Doc. Proc. Status"::"Ready for draft") then
                         EDocumentHelper.OpenDraftPage(Rec)
                 end;
@@ -303,15 +303,15 @@ page 6105 "Inbound E-Documents"
 
                 trigger OnAction()
                 var
-                    EDocImportParameters: Record "E-Doc. Import Parameters";
+                    TempEDocImportParameters: Record "E-Doc. Import Parameters";
                     EDocImport: Codeunit "E-Doc. Import";
                     ImportEDocumentProcess: Codeunit "Import E-Document Process";
                 begin
                     if ImportEDocumentProcess.IsEDocumentInStateGE(Rec, Enum::"Import E-Doc. Proc. Status"::"Ready for draft") then
                         EDocumentHelper.OpenDraftPage(Rec)
                     else begin
-                        EDocImportParameters."Step to Run" := "Import E-Document Steps"::"Prepare draft";
-                        EDocImport.ProcessIncomingEDocument(Rec, EDocImportParameters);
+                        TempEDocImportParameters."Step to Run" := "Import E-Document Steps"::"Prepare draft";
+                        EDocImport.ProcessIncomingEDocument(Rec, TempEDocImportParameters);
                     end;
                 end;
             }

src/Apps/W1/EDocument/App/src/Helpers/EDocumentImportHelper.Codeunit.al

@@ -667,10 +667,10 @@ codeunit 6109 "E-Document Import Helper"
     [Obsolete('Use codeunit 6140 "E-Doc. Import"''s method ProcessIncomingEDocument', '26.0')]
     procedure ProcessDocument(var EDocument: Record "E-Document"; CreateJnlLine: Boolean)
     var
-        EDocImportParameters: Record "E-Doc. Import Parameters";
+        TempEDocImportParameters: Record "E-Doc. Import Parameters";
     begin
-        EDocImportParameters."Step to Run" := "Import E-Document Steps"::"Finish draft";
-        EDocumentImport.ProcessIncomingEDocument(EDocument, EDocImportParameters);
+        TempEDocImportParameters."Step to Run" := "Import E-Document Steps"::"Finish draft";
+        EDocumentImport.ProcessIncomingEDocument(EDocument, TempEDocImportParameters);
     end;
 #endif
 

src/Apps/W1/EDocument/App/src/Processing/AI/Tools/EDocGLAccountMatching.Codeunit.al

@@ -237,13 +237,13 @@ codeunit 6126 "E-Doc. GL Account Matching" implements "AOAI Function", IEDocAISy
 
     procedure Execute(Arguments: JsonObject): Variant
     var
-        EDocMatchLineBuffer: Record "EDoc Line Match Buffer";
+        TempEDocMatchLineBuffer: Record "EDoc Line Match Buffer";
     begin
-        EDocMatchLineBuffer."Line No." := Arguments.GetInteger('lineId');
-        EDocMatchLineBuffer."GL Account No." := CopyStr(Arguments.GetText('accountId'), 1, MaxStrLen(EDocMatchLineBuffer."GL Account No."));
-        EDocMatchLineBuffer."GL Account Reason" := CopyStr(Arguments.GetText('reasoning'), 1, MaxStrLen(EDocMatchLineBuffer."GL Account Reason"));
-        EDocMatchLineBuffer."GL Account Candidate Count" := Arguments.GetInteger('totalNumberOfPotentialAccounts');
-        exit(EDocMatchLineBuffer);
+        TempEDocMatchLineBuffer."Line No." := Arguments.GetInteger('lineId');
+        TempEDocMatchLineBuffer."GL Account No." := CopyStr(Arguments.GetText('accountId'), 1, MaxStrLen(TempEDocMatchLineBuffer."GL Account No."));
+        TempEDocMatchLineBuffer."GL Account Reason" := CopyStr(Arguments.GetText('reasoning'), 1, MaxStrLen(TempEDocMatchLineBuffer."GL Account Reason"));
+        TempEDocMatchLineBuffer."GL Account Candidate Count" := Arguments.GetInteger('totalNumberOfPotentialAccounts');
+        exit(TempEDocMatchLineBuffer);
     end;
 
     procedure GetName(): Text

src/Apps/W1/EDocument/App/src/Processing/EDocImport.Codeunit.al

@@ -26,7 +26,7 @@ codeunit 6140 "E-Doc. Import"
     procedure ReceiveAndProcessAutomatically(EDocumentService: Record "E-Document Service"): Boolean
     var
         EDocumentServiceStatus: Record "E-Document Service Status";
-        EDocImportParameters: Record "E-Doc. Import Parameters";
+        TempEDocImportParameters: Record "E-Doc. Import Parameters";
         EDocument: Record "E-Document";
         EDocIntegrationMgt: Codeunit "E-Doc. Integration Management";
         ReceiveContext: Codeunit ReceiveContext;
@@ -40,7 +40,7 @@ codeunit 6140 "E-Doc. Import"
 #endif
         EDocIntegrationMgt.ReceiveDocuments(EDocumentService, ReceiveContext);
 
-        EDocImportParameters := EDocumentService.GetDefaultImportParameters();
+        TempEDocImportParameters := EDocumentService.GetDefaultImportParameters();
 
         AllEDocumentsProcessed := true;
         EDocumentServiceStatus.SetRange("E-Document Service Code", EDocumentService.Code);
@@ -49,7 +49,7 @@ codeunit 6140 "E-Doc. Import"
         if EDocumentServiceStatus.FindSet() then
             repeat
                 EDocument.Get(EDocumentServiceStatus."E-Document Entry No");
-                AllEDocumentsProcessed := AllEDocumentsProcessed and ProcessIncomingEDocument(EDocument, EDocumentService, EDocImportParameters);
+                AllEDocumentsProcessed := AllEDocumentsProcessed and ProcessIncomingEDocument(EDocument, EDocumentService, TempEDocImportParameters);
             until EDocumentServiceStatus.Next() = 0;
         exit(AllEDocumentsProcessed);
     end;

src/Apps/W1/EDocument/App/src/Processing/EDocumentSubscribers.Codeunit.al

@@ -438,7 +438,7 @@ codeunit 6103 "E-Document Subscribers"
     local procedure OnBeforeOnDeletePurchaseHeader(var PurchaseHeader: Record "Purchase Header"; var IsHandled: Boolean)
     var
         EDocument: Record "E-Document";
-        EDocImportParameters: Record "E-Doc. Import Parameters";
+        TempEDocImportParameters: Record "E-Doc. Import Parameters";
         EDocImport: Codeunit "E-Doc. Import";
         ConfirmDialogMgt: Codeunit "Confirm Management";
     begin
@@ -450,9 +450,9 @@ codeunit 6103 "E-Document Subscribers"
         if not ConfirmDialogMgt.GetResponseOrDefault(StrSubstNo(DeleteDocumentQst, EDocument."Entry No")) then
             Error('');
 
-        EDocImportParameters."Step to Run / Desired Status" := EDocImportParameters."Step to Run / Desired Status"::"Desired E-Document Status";
-        EDocImportParameters."Desired E-Document Status" := "Import E-Doc. Proc. Status"::"Draft Ready";
-        EDocImport.ProcessIncomingEDocument(EDocument, EDocImportParameters);
+        TempEDocImportParameters."Step to Run / Desired Status" := TempEDocImportParameters."Step to Run / Desired Status"::"Desired E-Document Status";
+        TempEDocImportParameters."Desired E-Document Status" := "Import E-Doc. Proc. Status"::"Draft Ready";
+        EDocImport.ProcessIncomingEDocument(EDocument, TempEDocImportParameters);
 
         PurchaseHeader.Get(PurchaseHeader."Document Type", PurchaseHeader."No.");
     end;

src/Apps/W1/EDocument/App/src/Processing/Import/ImportEDocumentProcess.Codeunit.al

@@ -34,7 +34,7 @@ codeunit 6104 "Import E-Document Process"
 
         ImportProcessVersion := GlobalEDocument.GetEDocumentService().GetImportProcessVersion();
         if ImportProcessVersion = "E-Document Import Process"::"Version 1.0" then begin
-            ProcessEDocumentV1(GlobalEDocument, GlobalEDocImportParameters, GlobalStep, GlobalUndoStep);
+            ProcessEDocumentV1(GlobalEDocument, TempGlobalEDocImportParameters, GlobalStep, GlobalUndoStep);
             exit;
         end;
 
@@ -51,9 +51,9 @@ codeunit 6104 "Import E-Document Process"
                 GlobalStep::"Read into Draft":
                     ReadIntoDraft(GlobalEDocument);
                 GlobalStep::"Prepare draft":
-                    PrepareDraft(GlobalEDocument, GlobalEDocImportParameters);
+                    PrepareDraft(GlobalEDocument, TempGlobalEDocImportParameters);
                 GlobalStep::"Finish draft":
-                    FinishDraft(GlobalEDocument, GlobalEDocImportParameters);
+                    FinishDraft(GlobalEDocument, TempGlobalEDocImportParameters);
             end;
         GlobalEDocument.Get(GlobalEDocument."Entry No");
 
@@ -236,7 +236,7 @@ codeunit 6104 "Import E-Document Process"
         this.GlobalEDocument := EDocument;
         GlobalStep := NewStep;
         GlobalUndoStep := NewUndoStep;
-        this.GlobalEDocImportParameters := EDocImportParameters;
+        this.TempGlobalEDocImportParameters := EDocImportParameters;
     end;
 
     procedure IsEDocumentInStateGE(EDocument: Record "E-Document"; QueriedState: Enum "Import E-Doc. Proc. Status"): Boolean
@@ -360,7 +360,7 @@ codeunit 6104 "Import E-Document Process"
 
     var
         GlobalEDocument: Record "E-Document";
-        GlobalEDocImportParameters: Record "E-Doc. Import Parameters";
+        TempGlobalEDocImportParameters: Record "E-Doc. Import Parameters";
         EDocumentProcessing: Codeunit "E-Document Processing";
         GlobalStep: Enum "Import E-Document Steps";
         GlobalUndoStep: Boolean;

src/Apps/W1/EDocument/App/src/Processing/Import/Purchase/EDocPurchaseDraftSubform.Page.al

@@ -328,7 +328,7 @@ page 6183 "E-Doc. Purchase Draft Subform"
     var
         EDocumentPurchaseHeader: Record "E-Document Purchase Header";
         EDocumentPurchaseLine: Record "E-Document Purchase Line";
-        EDocumentPOMatchWarnings: Record "E-Doc PO Match Warning";
+        TempEDocumentPOMatchWarnings: Record "E-Doc PO Match Warning";
         EDocPurchaseHistMapping: Codeunit "E-Doc. Purchase Hist. Mapping";
         EDocPOMatching: Codeunit "E-Doc. PO Matching";
         AdditionalColumns, OrderMatchedCaption, MatchWarningsCaption, MatchWarningsStyleExpr : Text;
@@ -456,8 +456,8 @@ page 6183 "E-Doc. Purchase Draft Subform"
     local procedure UpdatePOMatching()
     begin
         IsEDocumentMatchedToAnyPOLine := EDocPOMatching.IsEDocumentMatchedToAnyPOLine(EDocumentPurchaseHeader);
-        EDocPOMatching.CalculatePOMatchWarnings(EDocumentPurchaseHeader, EDocumentPOMatchWarnings);
-        HasEDocumentOrderMatchWarnings := not EDocumentPOMatchWarnings.IsEmpty();
+        EDocPOMatching.CalculatePOMatchWarnings(EDocumentPurchaseHeader, TempEDocumentPOMatchWarnings);
+        HasEDocumentOrderMatchWarnings := not TempEDocumentPOMatchWarnings.IsEmpty();
     end;
 
     local procedure GetSummaryOfMatchedOrders(): Text
@@ -499,13 +499,13 @@ page 6183 "E-Doc. Purchase Draft Subform"
         MatchWarningsCaption := NoWarningsLbl;
         MatchWarningsStyleExpr := 'None';
 
-        EDocumentPOMatchWarnings.SetRange("E-Doc. Purchase Line SystemId", Rec.SystemId);
+        TempEDocumentPOMatchWarnings.SetRange("E-Doc. Purchase Line SystemId", Rec.SystemId);
 
         // Severity: Unfavorable (critical) > Ambiguous (warning) > Subordinate (info)
         SeverityLevel := 0;
-        if EDocumentPOMatchWarnings.FindSet() then
+        if TempEDocumentPOMatchWarnings.FindSet() then
             repeat
-                case EDocumentPOMatchWarnings."Warning Type" of
+                case TempEDocumentPOMatchWarnings."Warning Type" of
                     Enum::"E-Doc PO Match Warning"::ExceedsInvoiceableQty:
                         begin
                             CurrentSeverity := 3;
@@ -535,9 +535,9 @@ page 6183 "E-Doc. Purchase Draft Subform"
                     SeverityLevel := CurrentSeverity;
                     MatchWarningsStyleExpr := MostSevereStyle;
                 end;
-            until EDocumentPOMatchWarnings.Next() = 0;
+            until TempEDocumentPOMatchWarnings.Next() = 0;
 
-        if EDocumentPOMatchWarnings.Count() > 1 then
+        if TempEDocumentPOMatchWarnings.Count() > 1 then
             MatchWarningsCaption := MultipleWarningsLbl;
     end;
 
@@ -546,20 +546,20 @@ page 6183 "E-Doc. Purchase Draft Subform"
         WarningDetails: TextBuilder;
         MissingInfoDetailLbl: Label 'Quantity information for this line is missing to complete the match. Verify that the draft line has a unit of measure assigned for this item.';
     begin
-        EDocumentPOMatchWarnings.SetRange("E-Doc. Purchase Line SystemId", Rec.SystemId);
-        if not EDocumentPOMatchWarnings.FindSet() then
+        TempEDocumentPOMatchWarnings.SetRange("E-Doc. Purchase Line SystemId", Rec.SystemId);
+        if not TempEDocumentPOMatchWarnings.FindSet() then
             exit;
 
         repeat
-            case EDocumentPOMatchWarnings."Warning Type" of
+            case TempEDocumentPOMatchWarnings."Warning Type" of
                 Enum::"E-Doc PO Match Warning"::MissingInformationForMatch:
                     WarningDetails.AppendLine('• ' + MissingInfoDetailLbl);
                 Enum::"E-Doc PO Match Warning"::ExceedsInvoiceableQty,
                 Enum::"E-Doc PO Match Warning"::ExceedsRemainingToInvoice,
                 Enum::"E-Doc PO Match Warning"::OverReceipt:
-                    WarningDetails.AppendLine('• ' + EDocumentPOMatchWarnings."Warning Message");
+                    WarningDetails.AppendLine('• ' + TempEDocumentPOMatchWarnings."Warning Message");
             end;
-        until EDocumentPOMatchWarnings.Next() = 0;
+        until TempEDocumentPOMatchWarnings.Next() = 0;
 
         if WarningDetails.Length() > 0 then
             Message(WarningDetails.ToText());