Bestaetigung VorzeitigeAnmeldung

DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA_Greenpulse.vb

@@ -1,8 +1,10 @@
 Imports System.Globalization
+Imports System.IO
 Imports io.konik.zugferd
 Imports javax.management.relation
 Imports Newtonsoft.Json
 Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.CC015B_TR_EXT_V4_3
 
 Public Class cDakosyEZA_Greenpulse
 
@@ -192,16 +194,19 @@ Public Class cDakosyEZA_Greenpulse
                     Case "Rechnung", "eFatura"
 
                         Dim pfad As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(doc.anh_docId)
-                        Dim dateiBytes As Byte() = System.IO.File.ReadAllBytes(pfad)
+                        If (File.Exists(pfad)) Then
 
-                        Dim d As New cATEZ_Greenpulse_KafkaInvoices.DocumentNode With {
-                        .Reference = doc.anh_Name,
-                        .DocType = "invoice",
-                        .MimeType = cATEZ_Greenpulse_KafkaDecsBuilder_DAKOSY.GuessMimeTypeFromNumber(doc.anh_Typ),
-                        .Blob = Convert.ToBase64String(dateiBytes)
-                    }
+                            Dim dateiBytes As Byte() = System.IO.File.ReadAllBytes(pfad)
 
-                        dest.Documents.Add(d)
+                            Dim d As New cATEZ_Greenpulse_KafkaInvoices.DocumentNode With {
+                            .Reference = doc.anh_Name,
+                            .DocType = "invoice",
+                            .MimeType = cATEZ_Greenpulse_KafkaDecsBuilder_DAKOSY.GuessMimeTypeFromNumber(doc.anh_Typ),
+                            .Blob = Convert.ToBase64String(dateiBytes)
+                        }
+
+                            dest.Documents.Add(d)
+                        End If
                 End Select
             Next
         End If
@@ -367,6 +372,11 @@ Public Class cDakosyEZA_Greenpulse
             End If
             dest.Declaration.PreviousProcedure = SafeStr(it0.zaItem_PrevProcedure)
         End If
+        Try
+            Console.WriteLine(JsonConvert.SerializeObject(dest, Newtonsoft.Json.Formatting.Indented))
+        Catch ex As Exception
+            Console.WriteLine("Err JsonConvert" & ex.Message)
+        End Try
 
         Return dest
     End Function