From d98e903160f0df10ebf59c8e0f4fc95698b83aa4 Mon Sep 17 00:00:00 2001
From: pitzm <m.pitz@digitaldata.works>
Date: Thu, 10 Sep 2026 15:26:25 +0200
Subject: [PATCH] Modules.Interface: Zuordnung EBINTERFACE-6.1 DocumentType zu
 UNTDID1010-Wert

---
 Interfaces/ZUGFeRDInterface/PropertyValues.vb | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/Interfaces/ZUGFeRDInterface/PropertyValues.vb b/Interfaces/ZUGFeRDInterface/PropertyValues.vb
index 5278c81d..7b2426c9 100644
--- a/Interfaces/ZUGFeRDInterface/PropertyValues.vb
+++ b/Interfaces/ZUGFeRDInterface/PropertyValues.vb
@@ -259,7 +259,7 @@ Public Class PropertyValues
             End If
 
             ' Statt dem Zahlenwert des Enums, wollen wir die Währungsbezeichnung
-            If oTableColumn = "INVOICE_CURRENCY" Or oItemType = 4 Then
+            If oTableColumn = "INVOICE_CURRENCY" Or oItemType = Item_Types.ListType Then
                 Dim oValuestring = oPropertyValue.ToString()
 
                 ' Bei Listenelementen entfernen wir den String Item, um den Wert zu erhalten
@@ -382,6 +382,7 @@ Public Class PropertyValues
                 ' ebInterface DocumentType in UNTDID 1001 — Document type
                 If oTableColumn = "INVOICE_TYPE" Then
                     oPropertyValue = GetUNTDID1001_DocumentType(oPropertyValue)
+                    _logger.Debug("oPropertyValue for Column [{0}] in EBINTERFACE_61 with value [{1}] ", oTableColumn, oPropertyValue)
                 End If
 
             End If
@@ -408,21 +409,21 @@ Public Class PropertyValues
 
         Select Case oPropertyValue
             Case "CreditMemo"
-                Return 1
+                Return 381 ' Credit note
             Case "FinalSettlement"
-                Return 1
+                Return 877 ' Final construction invoice
             Case "Invoice"
-                Return 380
+                Return 380 ' Commercial invoice
             Case "InvoiceForAdvancePayment"
-                Return 1
+                Return 386 ' Prepayment invoice
             Case "InvoiceForPartialDelivery"
-                Return 1
+                Return 381 ' Partial invoice
             Case "SelfBilling"
-                Return 1
+                Return 261 ' Self billed credit note
             Case "SubsequentCredit"
-                Return 1
+                Return 83 ' Credit note related to financial adjustments
             Case "SubsequentDebit"
-                Return 1
+                Return 84 ' Debit note related to financial adjustments
             Case Else
                 Return 0
         End Select