From 7100503c4f3458b9066ff25f6e4a482976e0d365 Mon Sep 17 00:00:00 2001
From: pitzm <m.pitz@digitaldata.works>
Date: Tue, 18 Feb 2025 11:00:29 +0100
Subject: [PATCH] =?UTF-8?q?PEPPOL=203017=20wird=20zun=C3=A4chst=20per=20de?=
 =?UTF-8?q?fault=20deaktiviert.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Interfaces/ZUGFeRDInterface.vb     | 2 +-
 Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb | 9 +++++----
 Jobs/ZUGFeRD/WorkerArgs.vb         | 2 +-
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/Interfaces/ZUGFeRDInterface.vb b/Interfaces/ZUGFeRDInterface.vb
index e7917500..43fae6c0 100644
--- a/Interfaces/ZUGFeRDInterface.vb
+++ b/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
diff --git a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
index 368ee941..b1f8724b 100644
--- a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb
+++ b/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
diff --git a/Jobs/ZUGFeRD/WorkerArgs.vb b/Jobs/ZUGFeRD/WorkerArgs.vb
index 1c7e9e24..b1bb878b 100644
--- a/Jobs/ZUGFeRD/WorkerArgs.vb
+++ b/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
\ No newline at end of file