rmc, datev, faktEmail

VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb

@@ -164,31 +164,32 @@
 
     Public Shared Function genDatensatzCSV_ALL(firma As String, Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True, Optional Geschaeftsjahr As Integer = -1, Optional PathList As List(Of String) = Nothing) As Boolean
 
-        PathList.Clear()
+        If PathList IsNot Nothing Then
+            PathList.Clear()
+        End If
+
         Dim Path = ""
+        Dim ExportfileCreated = False
 
         If firma <> "AMBAR" Then
             MsgBox("Export für Firma" & firma & " nicht aktiviert")
-            Return False
+            Return ExportfileCreated
         End If
 
-        Dim CSV_ALL = True
         If boolKunden Then
-            If Not genDatensatzCSV_Stammdaten(24, OpenFile, Geschaeftsjahr, Path) Then
-                CSV_ALL = False
+            If genDatensatzCSV_Stammdaten(24, OpenFile, Geschaeftsjahr, Path) Then
+                ExportfileCreated = True
+                If Path <> "" Then PathList.Add(Path)
             End If
-            If Path <> "" Then PathList.Add(Path)
-
         End If
         If boolBuchungen Then
-            If Not genDatensatzCSV_Buchungen(24, OpenFile, Geschaeftsjahr, Path) Then
-                CSV_ALL = False
+            If genDatensatzCSV_Buchungen(24, OpenFile, Geschaeftsjahr, Path) Then
+                ExportfileCreated = True
+                If Path <> "" Then PathList.Add(Path)
             End If
-            If Path <> "" Then PathList.Add(Path)
-
-
         End If
-        Return True
+        Return ExportfileCreated
+
     End Function
 
     Public Shared Function genDatensatzCSV_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False, Optional Geschaeftsjahr As Integer = -1, Optional ByRef filepath As String = "") As Boolean '  Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean