Datev-Schnittstelle im RoutineManager eingebaut.

initATLASAufschubkonten/frmStartOptions.vb

@@ -385,6 +385,34 @@ Public Class frmStartOptions
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 VERAG_PROG_ALLGEMEIN.cLDV_Interface.copyLDV_BMD()
                 closeMe()
+
+                '-----------AMBAR-------------------
+            Case "AMBAR_DATEV_DEBITOREN"
+
+                Dim f As New frmInfo(PARAM)
+                f.Show()
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, True, False)
+                closeMe()
+
+            Case "AMBAR_DATEV_BUCHUNGEN"
+
+                Dim f As New frmInfo(PARAM)
+                f.Show()
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, False, True)
+                closeMe()
+
+
+            Case "AMBAR_DATEV_ALL"
+
+                Dim f As New frmInfo(PARAM)
+                f.Show()
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(False, True, True)
+                closeMe()
+
+
                 '------------------------------
             Case Else
                 'Nur bei manuellem Start wird der fehler ausgegeben
@@ -3252,4 +3280,9 @@ Public Class frmStartOptions
         Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestDatev.Checked
+        VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(cbxOpenDatev.Checked, cbxKundenDatev.Checked, cbxBuchungenDatev.Checked)
+    End Sub
 End Class