Datev Anbindung

Aviso/frmHauptfenster.vb

@@ -569,6 +569,10 @@ Public Class frmHauptfenster
             AdministrationEssensbestellungenToolStripMenuItem.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            DatevBuchungsexportToolStripMenuItem.Visible = True
+        End If
+
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then
             WarenorteToolStripMenuItem.Visible = True
         End If
@@ -2252,6 +2256,8 @@ Public Class frmHauptfenster
     End Sub
 
     Private Sub btnPaketdienst_Click(sender As System.Object, e As System.EventArgs) Handles btnKunden.Click
+
+
         Me.Cursor = Cursors.WaitCursor
         'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
         If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
@@ -2259,9 +2265,13 @@ Public Class frmHauptfenster
             Me.Cursor = Cursors.Default : Exit Sub
         End If
         '  Next
-        Dim zoll As New SDL.frmKundenUebersichtZOLL
-        zoll.Show()
-        Me.Cursor = Cursors.Default
+        Try
+            Dim zoll As New SDL.frmKundenUebersichtZOLL
+            zoll.Show()
+            Me.Cursor = Cursors.Default
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
@@ -4452,7 +4462,13 @@ Public Class frmHauptfenster
         Me.Cursor = Cursors.Default
     End Sub
 
-
+    Private Sub DatevBuchungsexportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatevBuchungsexportToolStripMenuItem.Click
+        If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True) Then
+            MsgBox("Buchungen wurden erfolgreich exportiert!")
+        Else
+            MsgBox("Es wurden keine Buchungen exportiert!")
+        End If
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions