PEPPOL 3017 wird zunächst per default deaktiviert.

Interfaces/ZUGFeRDInterface.vb

@@ -61,7 +61,7 @@ Public Class ZUGFeRDInterface
         Public Property AllowXRechnung_Filename As Boolean = True
         Public Property AllowZugferd_1_0_Schema As Boolean = True
         Public Property AllowZugferd_2_x_Schema As Boolean = True
-        Public Property AllowPeppol_3017_Schema As Boolean = True
+        Public Property AllowPeppol_3017_Schema As Boolean = False
     End Class
 
     Public Class ZugferdResult

Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -43,7 +43,7 @@ Public Class ImportZUGFeRDFiles
     Private SQL_xRechnung_ItemTemplate As String = ""
 
     Private ReadOnly _gdpictureLicenseKey As String
-    Private _xRechnungCreator As XRechnungViewDocument
+    Private ReadOnly _xRechnungCreator As XRechnungViewDocument
     Private _zugferd As ZUGFeRDInterface
     Private _EmailOutAccountId As Integer
 
@@ -92,16 +92,17 @@ Public Class ImportZUGFeRDFiles
 
         _zugferd = New ZUGFeRDInterface(_logConfig, _gdpictureLicenseKey, New ZUGFeRDInterface.ZugferdOptions() With {
             .AllowFacturX_Filename = oArgs.AllowFacturX,
-            .AllowXRechnung_Filename = oArgs.AllowXRechnung
+            .AllowXRechnung_Filename = oArgs.AllowXRechnung,
+            .AllowPeppol_3017_Schema = oArgs.AllowPeppolBISBill3x
         })
 
         _logger.Debug("Starting Job {0}", [GetType].Name)
         If oArgs.AllowXRechnung Then
-            Dim oSQL = "Select SQL_COMMAND from TBDD_SQL_COMMANDS WHERE TITLE = 'VWDD_ZUGFERD_VIEW_RECEIPT_TEMPLATE_ITEMS'"
+            ' TODO - Config-Schalter hat NIX mit XRechnung-Dateien u. Sichtbelegen zu tun, sondern nur mit Dateinamen zu tun.
+            Dim oSQL = "SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'VWDD_ZUGFERD_VIEW_RECEIPT_TEMPLATE_ITEMS'"
             SQL_xRechnung_ItemTemplate = _mssql.GetScalarValue(oSQL)
         End If
 
-
         Try
             'For Each oPath As String In oArgs.WatchDirectory
             Dim oPath As String = oArgs.WatchDirectory

Jobs/ZUGFeRD/WorkerArgs.vb

@@ -31,6 +31,6 @@ Public Class WorkerArgs
     Public AllowXRechnung As Boolean = True
     Public AllowZugferd10 As Boolean = True
     Public AllowZugferd2x As Boolean = True
-    Public AllowPeppolBISBill3x As Boolean = True
+    Public AllowPeppolBISBill3x As Boolean = False
 
 End Class