Datev-Anbindung

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3533,12 +3533,19 @@ Nächste_Textzeile_lesen:
         '    Case Else
         '        whereKTO = " AND AKTO IN ('006136','006128','3517233') "
         'End Select
+        Try
+
 
             Dim dt As DataTable = SQL.loadDgvBySql("SELECT [Index] FROM [Zkteing] where Bezugsnummer='" & SPEDBUCH.AtlasBezNrEZA & "' AND LeistungsNr IN (20,77) AND [Status] IS NULL " & whereKTO, "FMZOLL")
             For Each r In dt.Rows
                 VERAG_PROG_ALLGEMEIN.cZkteing.UPDATE_Status("X", r("Index"))
                 przInsertEUSTZOLL(r("Index"))
             Next
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
     End Sub
     'Case 20, 77 
     'Case 10, 76, 60 
@@ -3556,12 +3563,17 @@ Nächste_Textzeile_lesen:
         '    Case Else
         '        whereKTO = " AND AKTO IN ('006136','006128','3517233') "
         'End Select
+        Try
 
             Dim dt As DataTable = SQL.loadDgvBySql("SELECT [Index] FROM [Zkteing] where Bezugsnummer='" & SPEDBUCH.AtlasBezNrEZA & "' AND LeistungsNr NOT IN (20,77) AND [Status] IS NULL " & whereKTO, "FMZOLL")
             For Each r In dt.Rows
                 VERAG_PROG_ALLGEMEIN.cZkteing.UPDATE_Status("X", r("Index"))
                 przInsertEUSTZOLL(r("Index"))
             Next
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
     End Sub
     Sub loadBerechnungsArt_jeAbfertigung()
         If Not IsNumeric(SPEDBUCH.Abfertigungsanzahl) Then Exit Sub

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1463,8 +1463,12 @@ Public Class usrcntlKundeBearbeitenFull
     End Sub
 
     Private Sub btnDatevExport_Click(sender As Object, e As EventArgs) Handles btnDatevExport.Click
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") Then
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
-            VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, True, False)
+            If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, False) Then
+                MsgBox("Stammdaten wurden erfolgreich exportiert!")
+            Else
+                MsgBox("Es wurden keine Stammdaten exportiert!")
+            End If
         End If
 
     End Sub

VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb

@@ -98,8 +98,8 @@
 
             'DATEIPFAD für Stammdaten
             '-------------------------------------------------------------------------------------------
-            Dim pathArchivKD = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\ARCHIV\STAMMDATEN\"
+            Dim pathArchivKD = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\ARCHIV\STAMMDATEN\" & FIRMA.Firma_Bez & "\"
-            Dim pathKD = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\STAMMDATEN\" & Geschaeftsjahr & "\"
+            Dim pathKD = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\STAMMDATEN\ " & FIRMA.Firma_Bez & "\" & Geschaeftsjahr & "\"
             'pathKD = pathArchivKD 'TEST
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
@@ -111,7 +111,6 @@
             '-------------------------------------------------------------------------------------------
 
 
-            If True Then 'boolKunden Then
             '----------------- STAMMDATEN  -----------------
             Dim dt_Stamm As DataTable = getStammdaten(filialNr)
             If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
@@ -146,9 +145,9 @@
                 End If
 
                 updateFibu(filialNr) ' UPDATE FiBuSchnittstelle --> 0
+                Return True
+            End If
 
-                End If
-            End If
 
 
 
@@ -160,19 +159,32 @@
 
 
 
-    Public Shared Function genDatensatzCSV_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True, Optional Geschaeftsjahr As Integer = -1) As Boolean
+    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) As Boolean
-            genDatensatzCSV_ALL = True
+
+
+        If firma <> "AMBAR" Then
+            MsgBox("Export für Firma" & firma & " nicht aktiviert")
+            Return False
+        End If
+
+        Dim CSV_ALL = True
         If boolKunden Then
-            If Not genDatensatzCSV_Stammdaten(24, OpenFile, Geschaeftsjahr) Then genDatensatzCSV_ALL = False
+            If Not genDatensatzCSV_Stammdaten(24, OpenFile, Geschaeftsjahr) Then
+                CSV_ALL = False
+            End If
         End If
         If boolBuchungen Then
-            If Not genDatensatzCSV_Buchungen(24, OpenFile, Geschaeftsjahr) Then genDatensatzCSV_ALL = False
+            If Not genDatensatzCSV_Buchungen(24, OpenFile, Geschaeftsjahr) Then
+                CSV_ALL = False
+            End If
 
         End If
+        Return CSV_ALL
     End Function
 
     Public Shared Function genDatensatzCSV_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False, Optional Geschaeftsjahr As Integer = -1) As Boolean '  Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
         Try
+
             Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
 
             Dim bool_DatenVorhanden As Boolean = False
@@ -181,12 +193,12 @@
 
             'DATEIPFAD für Buchungsdaten
             '-------------------------------------------------------------------------------------------
-            Dim pathArchiv = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\ARCHIV\AR-DATEN\"
+            Dim pathArchiv = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV\INTERFACE\DATEV\ARCHIV\AR-DATEN\" & FIRMA.Firma_Bez & "\"
-            Dim path = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\AR-DATEN\" & Geschaeftsjahr & "\"
+            Dim path = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV\INTERFACE\DATEV\AR-DATEN\" & FIRMA.Firma_Bez & "\" & Geschaeftsjahr & "\"
             '   path = pathArchiv 'TEST
             If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                pathArchiv = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\ARCHIV\AR-DATEN\"
+                pathArchiv = " \\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\ARCHIV\AR-DATEN\" & FIRMA.Firma_Bez & "\"
-                path = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\AR-DATEN\" & Geschaeftsjahr & "\"
+                path = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\AR-DATEN\" & FIRMA.Firma_Bez & "\" & Geschaeftsjahr & "\"
             End If
             If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
             If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
@@ -201,9 +213,7 @@
                 Case 24 : NameZusatz = "AMBAR_DE_" : Buchungsjahr = Geschaeftsjahr
             End Select
 
-
             '----------------- Buchungssätze -----------------
-                If True Then 'boolBuchungen Then
             TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )
             Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID)
             If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then
@@ -242,13 +252,8 @@
                 Catch ex As Exception
                     MsgBox(ex.Message & ex.StackTrace)
                 End Try
-
+                Return True
             End If
-                End If
-                '----------------------------------
-
-
-
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
         End Try