[E-Document][Peppol] - Move PEPPOL BIS 3.0 from BaseApp to the 1st-party App

src/Apps/W1/PEPPOL/App/app.json

@@ -0,0 +1,33 @@
+{
+  "id": "e1966889-b5fb-4fda-a84c-ea71b590e1a9",
+  "name": "PEPPOL",
+  "publisher": "Microsoft",
+  "description": "",
+  "brief": "",
+  "version": "27.0.0.0",
+  "logo": "ExtensionLogo.png",
+  "privacyStatement": "https://go.microsoft.com/fwlink/?LinkId=724009",
+  "EULA": "https://go.microsoft.com/fwlink/?linkid=2009120",
+  "help": "https://go.microsoft.com/fwlink/?linkid=2104024",
+  "url": "https://go.microsoft.com/fwlink/?LinkId=724011",
+  "propagateDependencies": true,
+  "dependencies": [],
+  "internalsVisibleTo": [],
+  "platform": "27.0.0.0",
+  "idRanges": [
+    {
+      "from": 37200,
+      "to": 37300
+    }
+  ],
+  "application": "27.0.0.0",
+  "features": [
+    "NoImplicitWith"
+  ],
+  "resourceExposurePolicy": {
+    "allowDebugging": true,
+    "allowDownloadingSource": true,
+    "includeSourceInSymbolFile": true
+  },
+  "target": "Cloud"
+}

src/Apps/W1/PEPPOL/App/src/Management/Codeunits/PEPPOL30Initialize.Codeunit.al

@@ -0,0 +1,51 @@
+// ------------------------------------------------------------------------------------------------
+// Copyright (c) Microsoft Corporation. All rights reserved.
+// Licensed under the MIT License. See License.txt in the project root for license information.
+// ------------------------------------------------------------------------------------------------
+namespace Microsoft.Peppol;
+
+using Microsoft.Foundation.Company;
+using Microsoft.Foundation.Reporting;
+
+codeunit 37204 "PEPPOL30 Initialize"
+{
+    Access = Internal;
+    Subtype = Install;
+
+    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Company-Initialize", OnAfterInitElectronicFormats, '', false, false)]
+    local procedure CompanyInitialize_OnAfterInitElectronicFormats()
+    begin
+        CreateElectronicDocumentFormats();
+    end;
+
+    internal procedure CreateElectronicDocumentFormats()
+    var
+        ElectronicDocumentFormat: Record "Electronic Document Format";
+        PEPPOLBIS3_ElectronicFormatDescriptionTxt: Label 'PEPPOL BIS3 Format (Pan-European Public Procurement Online)';
+        PEPPOLBIS3_ElectronicFormatTxt: Label 'PEPPOL30', Locked = true;
+    begin
+        ElectronicDocumentFormat.InsertElectronicFormat(
+            PEPPOLBIS3_ElectronicFormatTxt, PEPPOLBIS3_ElectronicFormatDescriptionTxt,
+            Codeunit::"Exp. Sales Inv. PEPPOL30", 0, ElectronicDocumentFormat.Usage::"Sales Invoice".AsInteger());
+
+        ElectronicDocumentFormat.InsertElectronicFormat(
+            PEPPOLBIS3_ElectronicFormatTxt, PEPPOLBIS3_ElectronicFormatDescriptionTxt,
+            Codeunit::"Exp. Sales CrM. PEPPOL30", 0, ElectronicDocumentFormat.Usage::"Sales Credit Memo".AsInteger());
+
+        ElectronicDocumentFormat.InsertElectronicFormat(
+            PEPPOLBIS3_ElectronicFormatTxt, PEPPOLBIS3_ElectronicFormatDescriptionTxt,
+            Codeunit::"PEPPOL30 Validation", 0, ElectronicDocumentFormat.Usage::"Sales Validation".AsInteger());
+
+        ElectronicDocumentFormat.InsertElectronicFormat(
+            PEPPOLBIS3_ElectronicFormatTxt, PEPPOLBIS3_ElectronicFormatDescriptionTxt,
+            Codeunit::"Exp. Serv.Inv. PEPPOL30", 0, ElectronicDocumentFormat.Usage::"Service Invoice".AsInteger());
+
+        ElectronicDocumentFormat.InsertElectronicFormat(
+            PEPPOLBIS3_ElectronicFormatTxt, PEPPOLBIS3_ElectronicFormatDescriptionTxt,
+            Codeunit::"Exp. Serv.CrM. PEPPOL30", 0, ElectronicDocumentFormat.Usage::"Service Credit Memo".AsInteger());
+
+        ElectronicDocumentFormat.InsertElectronicFormat(
+            PEPPOLBIS3_ElectronicFormatTxt, PEPPOLBIS3_ElectronicFormatDescriptionTxt,
+            Codeunit::"PEPPOL30 Service Validation", 0, ElectronicDocumentFormat.Usage::"Service Validation".AsInteger());
+    end;
+}

src/Apps/W1/PEPPOL/App/src/Management/Codeunits/PEPPOL30Install.Codeunit.al

@@ -0,0 +1,12 @@
+codeunit 37215 "PEPPOL30 Install"
+{
+    Access = Internal;
+    Subtype = Install;
+
+    trigger OnInstallAppPerCompany()
+    var
+        PEPPOL30Initialize: Codeunit "PEPPOL30 Initialize";
+    begin
+        PEPPOL30Initialize.CreateElectronicDocumentFormats();
+    end;
+}