AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
PitzM
2026-09-10 15:26:25 +02:00
parent 1871cca2a6
commit d98e903160
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Interfaces/ZUGFeRDInterface/PropertyValues.vb
View File

@@ -259,7 +259,7 @@ Public Class PropertyValues
End If End If
' Statt dem Zahlenwert des Enums, wollen wir die Währungsbezeichnung ' 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() Dim oValuestring = oPropertyValue.ToString()
' Bei Listenelementen entfernen wir den String Item, um den Wert zu erhalten ' 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 ' ebInterface DocumentType in UNTDID 1001 — Document type
If oTableColumn = "INVOICE_TYPE" Then If oTableColumn = "INVOICE_TYPE" Then
oPropertyValue = GetUNTDID1001_DocumentType(oPropertyValue) oPropertyValue = GetUNTDID1001_DocumentType(oPropertyValue)
_logger.Debug("oPropertyValue for Column [{0}] in EBINTERFACE_61 with value [{1}] ", oTableColumn, oPropertyValue)
End If End If
End If End If
@@ -408,21 +409,21 @@ Public Class PropertyValues
Select Case oPropertyValue Select Case oPropertyValue
Case "CreditMemo" Case "CreditMemo"
Return 1 Return 381 ' Credit note
Case "FinalSettlement" Case "FinalSettlement"
Return 1 Return 877 ' Final construction invoice
Case "Invoice" Case "Invoice"
Return 380 Return 380 ' Commercial invoice
Case "InvoiceForAdvancePayment" Case "InvoiceForAdvancePayment"
Return 1 Return 386 ' Prepayment invoice
Case "InvoiceForPartialDelivery" Case "InvoiceForPartialDelivery"
Return 1 Return 381 ' Partial invoice
Case "SelfBilling" Case "SelfBilling"
Return 1 Return 261 ' Self billed credit note
Case "SubsequentCredit" Case "SubsequentCredit"
Return 1 Return 83 ' Credit note related to financial adjustments
Case "SubsequentDebit" Case "SubsequentDebit"
Return 1 Return 84 ' Debit note related to financial adjustments
Case Else Case Else
Return 0 Return 0
End Select End Select