[E-Documents Core] - Manual multiple files import

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

@@ -407,9 +407,13 @@ page 6121 "E-Document"
                     Visible = IsIncomingDoc and (not IsProcessed);
 
                     trigger OnAction()
+                    var
+                        EDocumentService: Record "E-Document Service";
                     begin
-                        EDocImport.UploadDocument(Rec);
-                        CurrPage.Update();
+                        if EDocImport.ChooseEDocumentService(EDocumentService) then begin
+                            EDocImport.UploadDocument(Rec, EDocumentService);
+                            CurrPage.Update(false);
+                        end;
                     end;
                 }
                 action(TextToAccountMapping)

Apps/W1/EDocument/app/src/Document/EDocument.Table.al

@@ -6,6 +6,7 @@ namespace Microsoft.eServices.EDocument;
 
 using Microsoft.Foundation.Reporting;
 using Microsoft.Finance.Currency;
+using Microsoft.Foundation.Attachment;
 using Microsoft.Utilities;
 using System.Automation;
 using System.IO;
@@ -230,6 +231,61 @@ table 6121 "E-Document"
         }
     }
 
+    trigger OnDelete()
+    begin
+        if (Rec.Status = Rec.Status::Processed) then
+            Error(this.DeleteProcessedNotAllowedErr);
+
+        if (Rec."Document Record ID".TableNo <> 0) then
+            Error(this.DeleteLinkedNotAllowedErr);
+
+        if (not Rec.IsDuplicate()) then
+            Error(this.DeleteUniqueNotAllowedErr);
+
+        this.DeleteRelatedRecords();
+    end;
+
+    internal procedure IsDuplicate(): Boolean
+    var
+        EDocument: Record "E-Document";
+    begin
+        EDocument.SetRange("Incoming E-Document No.", Rec."Incoming E-Document No.");
+        EDocument.SetRange("Bill-to/Pay-to No.", Rec."Bill-to/Pay-to No.");
+        EDocument.SetRange("Document Date", Rec."Document Date");
+        EDocument.SetFilter("Entry No", '<>%1', Rec."Entry No");
+        exit(not EDocument.IsEmpty());
+    end;
+
+    local procedure DeleteRelatedRecords()
+    var
+        DocumentAttachment: Record "Document Attachment";
+        EDocMappingLog: Record "E-Doc. Mapping Log";
+        EDocumentIntegrationLog: Record "E-Document Integration Log";
+        EDocumentLog: Record "E-Document Log";
+        EDocumentServiceStatus: Record "E-Document Service Status";
+    begin
+        EDocumentLog.SetRange("E-Doc. Entry No", Rec."Entry No");
+        if not EDocumentLog.IsEmpty() then
+            EDocumentLog.DeleteAll(true);
+
+        EDocumentIntegrationLog.SetRange("E-Doc. Entry No", Rec."Entry No");
+        if not EDocumentIntegrationLog.IsEmpty() then
+            EDocumentIntegrationLog.DeleteAll(true);
+
+        EDocumentServiceStatus.SetRange("E-Document Entry No", Rec."Entry No");
+        if not EDocumentServiceStatus.IsEmpty() then
+            EDocumentServiceStatus.DeleteAll(true);
+
+        DocumentAttachment.SetRange("E-Document Attachment", true);
+        DocumentAttachment.SetRange("E-Document Entry No.", Rec."Entry No");
+        if not DocumentAttachment.IsEmpty() then
+            DocumentAttachment.DeleteAll(true);
+
+        EDocMappingLog.SetRange("E-Doc Entry No.", Rec."Entry No");
+        if not EDocMappingLog.IsEmpty() then
+            EDocMappingLog.DeleteAll(true);
+    end;
+
     internal procedure PreviewContent()
     var
         EDocDataStorage: Record "E-Doc. Data Storage";
@@ -345,6 +401,9 @@ table 6121 "E-Document"
 
     var
         ToStringLbl: Label '%1,%2,%3,%4', Locked = true;
+        DeleteLinkedNotAllowedErr: Label 'The E-Document is linked to sales or purchase document and cannot be deleted.';
+        DeleteProcessedNotAllowedErr: Label 'The E-Document has already been processed and cannot be deleted.';
+        DeleteUniqueNotAllowedErr: Label 'Only duplicate E-Documents can be deleted.';
         NoFileErr: label 'No previewable attachment exists for this %2.', Comment = '%1 - a table caption';
         NoFileContentErr: label 'Previewing file %1 failed. The file was found in table %2, but it has no content.', Comment = '%1 - a file name; %2 - a table caption';
 }

Apps/W1/EDocument/app/src/Document/EDocuments.Page.al

@@ -60,17 +60,42 @@ page 6122 "E-Documents"
     {
         area(Processing)
         {
+#if not CLEAN26
             action(ImportManually)
             {
                 Caption = 'New From File';
                 ToolTip = 'Create an electronic document by manually uploading a file.';
                 Image = Import;
+                Visible = false;
+                ObsoleteState = Pending;
+                ObsoleteTag = '26.0';
+                ObsoleteReason = 'Functionality moved to "Import Files" action.';
 
                 trigger OnAction()
                 begin
                     NewFromFile();
                 end;
             }
+#endif
+            fileuploadaction(ImportManuallyMultiple)
+            {
+                Caption = 'Import Files';
+                ToolTip = 'Create electronic documents by uploading single or multiple files.';
+                Image = Import;
+                AllowedFileExtensions = '.xml';
+                AllowMultipleFiles = true;
+
+                trigger OnAction(Files: List of [FileUpload])
+                var
+                    EDocumentService: Record "E-Document Service";
+                    EDocImport: Codeunit "E-Doc. Import";
+                begin
+                    if EDocImport.ChooseEDocumentService(EDocumentService) then begin
+                        EDocImport.UploadDocuments(Files, EDocumentService);
+                        CurrPage.Update(false);
+                    end;
+                end;
+            }
             action(EDocumentServices)
             {
                 RunObject = Page "E-Document Services";
@@ -100,7 +125,16 @@ page 6122 "E-Documents"
         }
         area(Promoted)
         {
-            actionref(Promoted_ImportManually; ImportManually) { }
+#if not CLEAN26
+            actionref(Promoted_ImportManually; ImportManually)
+            {
+                Visible = false;
+                ObsoleteState = Pending;
+                ObsoleteTag = '26.0';
+                ObsoleteReason = 'Functionality moved to "Import Files" action.';
+            }
+#endif
+            actionref(Promoted_ImportManuallyMultiple; ImportManuallyMultiple) { }
             actionref(Promoted_EDocumentServices; EDocumentServices) { }
             actionref(Promoted_ViewFile; ViewFile) { }
         }
@@ -109,12 +143,10 @@ page 6122 "E-Documents"
     local procedure NewFromFile()
     var
         EDocument: Record "E-Document";
+        EDocumentService: Record "E-Document Service";
         EDocImport: Codeunit "E-Doc. Import";
     begin
-        EDocImport.UploadDocument(EDocument);
-        if EDocument."Entry No" <> 0 then begin
-            EDocImport.ProcessIncomingEDocument(EDocument, EDocument.GetEDocumentService().GetDefaultImportParameters());
-            Page.Run(Page::"E-Document", EDocument);
-        end;
+        if EDocImport.ChooseEDocumentService(EDocumentService) then
+            EDocImport.UploadDocument(EDocument, EDocumentService);
     end;
 }

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

@@ -231,9 +231,11 @@ page 6105 "Inbound E-Documents"
     local procedure NewFromFile()
     var
         EDocument: Record "E-Document";
+        EDocumentService: Record "E-Document Service";
         EDocImport: Codeunit "E-Doc. Import";
     begin
-        EDocImport.UploadDocument(EDocument);
+        EDocImport.ChooseEDocumentService(EDocumentService);
+        EDocImport.UploadDocument(EDocument, EDocumentService);
         if EDocument."Entry No" = 0 then
             exit;
     end;

Apps/W1/EDocument/app/src/Integration/EDocIntegrationManagement.Codeunit.al

@@ -203,6 +203,7 @@ codeunit 6134 "E-Doc. Integration Management"
     var
         EDocLog: Record "E-Document Log";
         ReceiveContext, FetchContextImpl : Codeunit ReceiveContext;
+        EDocumentContent: Codeunit "Temp Blob";
         ErrorCount: Integer;
         Success, IsFetchableType : Boolean;
     begin
@@ -214,15 +215,15 @@ codeunit 6134 "E-Doc. Integration Management"
         if not Success then
             exit(false);
 
-        if not ReceiveContext.GetTempBlob().HasValue() then
+        EDocumentContent := ReceiveContext.GetTempBlob();
+        if not EDocumentContent.HasValue() then
             exit(false);
 
         IsFetchableType := IDocumentReceiver is IReceivedDocumentMarker;
         if IsFetchableType then begin
             ErrorCount := EDocumentErrorHelper.ErrorMessageCount(EDocument);
             RunMarkFetched(EDocument, EDocumentService, ReceiveContext.GetTempBlob(), IDocumentReceiver, FetchContextImpl);
             Success := EDocumentErrorHelper.ErrorMessageCount(EDocument) = ErrorCount;
-
             if not Success then
                 exit(false);
         end;
@@ -248,7 +249,6 @@ codeunit 6134 "E-Doc. Integration Management"
         exit(true);
     end;
 
-
     #endregion
 
     #region Actions
@@ -576,7 +576,6 @@ codeunit 6134 "E-Doc. Integration Management"
         exit(true);
     end;
 
-
     #endregion
 
     var