Modules.Interface: Zuordnung EBINTERFACE-6.1 DocumentType zu UNTDID1010-Wert

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