ZUGFeRD 2.3 / FacturX 1.0.07 implementiert

RechnungsWährung = EUR statt 48

Interfaces/ZUGFeRDInterface/PDFEmbeds.vb

@@ -1,7 +1,4 @@
-Imports System.Collections.Generic
-Imports System.IO
-Imports System.Reflection
-Imports System.Runtime.Remoting.Messaging
+Imports System.IO
 Imports DigitalData.Modules.Logging
 Imports GdPicture14
 

Interfaces/ZUGFeRDInterface/PropertyValues.vb

@@ -158,9 +158,7 @@ Public Class PropertyValues
             Dim oTableName = oItem.Value.TableName
             Dim oIsRequired = oItem.Value.IsRequired
             Dim oDescription = oItem.Value.Description
-            If oTableColumn = "INVOICE_SELLER_EMAIL" Then
-                Console.WriteLine("INVOICE_SELLER_EMAIL")
-            End If
+
             Try
                 oPropertyValueList = GetPropValue(pDocument, oItem.Key)
             Catch ex As Exception
@@ -211,6 +209,11 @@ Public Class PropertyValues
                 End If
             End If
 
+            ' Statt dem Zahlenwert des Enums, wollen wir die Währunsgbezeichnung
+            If oTableColumn = "INVOICE_CURRENCY" Then
+                oPropertyValue = oPropertyValue.ToString()
+            End If
+
             oResult.ValidProperties.Add(New ValidProperty() With {
                 .MessageId = MessageId,
                 .Description = oDescription,