From 466bdad96924297ee1ed073d7854e9d61c5bb7e6 Mon Sep 17 00:00:00 2001
From: Kilian Seizinger <56249171+pri-kise@users.noreply.github.com>
Date: Tue, 2 Jun 2026 16:56:46 +0200
Subject: [PATCH 1/2] Payment Means Code on Payment Method

---
 .../PEPPOLPaymentMethod.TableExt.al           | 20 ++++++++++++++++++
 .../PEPPOLPaymentMethods.PageExt.al           | 21 +++++++++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethod.TableExt.al
 create mode 100644 src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethods.PageExt.al

diff --git a/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethod.TableExt.al b/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethod.TableExt.al
new file mode 100644
index 0000000000..81fadd823d
--- /dev/null
+++ b/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethod.TableExt.al
@@ -0,0 +1,20 @@
+// ------------------------------------------------------------------------------------------------
+// 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.Bank.BankAccount;
+
+tableextension 37200 "PEPPOL Payment Method" extends "Payment Method"
+{
+    fields
+    {
+        field(37200; "PEPPOL Payment Means Code"; Code[3])
+        {
+            Caption = 'PEPPOL Payment Means Code';
+            DataClassification = CustomerContent;
+            ToolTip = 'Specifies the UNCL4461 payment means code (BT-81) used when exporting this payment method in XRechnung or ZUGFeRD format. Leave blank to use the default code 58 (SEPA credit transfer). Common values: 30 (Credit transfer), 48 (Credit card), 49 (SEPA direct debit), 58 (SEPA credit transfer).';
+        }
+    }
+}
\ No newline at end of file
diff --git a/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethods.PageExt.al b/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethods.PageExt.al
new file mode 100644
index 0000000000..a5de21f14b
--- /dev/null
+++ b/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethods.PageExt.al
@@ -0,0 +1,21 @@
+// ------------------------------------------------------------------------------------------------
+// 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.PaymentTerms;
+
+pageextension 37222 "PEPPOL Payment Methods" extends "Payment Methods"
+{
+    layout
+    {
+        addlast(Control1)
+        {
+            field("PEPPOL Payment Means Code"; Rec."PEPPOL Payment Means Code")
+            {
+                ApplicationArea = Basic, Suite;
+            }
+        }
+    }
+}

From 1cddba812ef27f4f8ff02d09daa1e17bafd4ef65 Mon Sep 17 00:00:00 2001
From: Kilian Seizinger <56249171+pri-kise@users.noreply.github.com>
Date: Wed, 3 Jun 2026 08:00:58 +0200
Subject: [PATCH 2/2] Fix wrong using

---
 .../PEPPOL/App/src/Extensions/PEPPOLPaymentMethods.PageExt.al   | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethods.PageExt.al b/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethods.PageExt.al
index a5de21f14b..7e605df76c 100644
--- a/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethods.PageExt.al
+++ b/src/Apps/W1/PEPPOL/App/src/Extensions/PEPPOLPaymentMethods.PageExt.al
@@ -4,7 +4,7 @@
 // ------------------------------------------------------------------------------------------------
 namespace Microsoft.Peppol;
 
-using Microsoft.Foundation.PaymentTerms;
+using Microsoft.Bank.BankAccount;
 
 pageextension 37222 "PEPPOL Payment Methods" extends "Payment Methods"
 {