Datev-Anbindung

2023-05-08 14:21:21 +02:00
parent 9ed0834f71
commit 887c64c2d1
3 changed files with 130 additions and 109 deletions
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/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
--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/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
-            VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, True, False)
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            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
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb
+++ b/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 pathKD = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\STAMMDATEN\" & Geschaeftsjahr & "\"
+            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\ " & 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
-            genDatensatzCSV_ALL = True
+    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
+
+
+        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 path = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\AR-DATEN\" & Geschaeftsjahr & "\"
+            Dim pathArchiv = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV\INTERFACE\DATEV\ARCHIV\AR-DATEN\" & FIRMA.Firma_Bez & "\"
+            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\"
-                path = "\\datenarchiv.verag.ost.dmn\DATENARCHIV\DATENARCHIV_TESTSYSTEM\INTERFACE\DATEV\AR-DATEN\" & Geschaeftsjahr & "\"
+                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\" & 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