Datev-Schnittstelle im RoutineManager eingebaut.

UID/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.1.3")>
+<Assembly: AssemblyVersion("1.2.1.4")>
-<Assembly: AssemblyFileVersion("1.2.1.3")>
+<Assembly: AssemblyFileVersion("1.2.1.4")>

initATLASAufschubkonten/frmStartOptions.Designer.vb

@@ -59,6 +59,8 @@ Partial Class frmStartOptions
         Me.CheckBox3 = New System.Windows.Forms.CheckBox()
         Me.tbcntr = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.LinkLabel38 = New System.Windows.Forms.LinkLabel()
+        Me.PictureBox17 = New System.Windows.Forms.PictureBox()
         Me.LinkLabel37 = New System.Windows.Forms.LinkLabel()
         Me.PictureBox16 = New System.Windows.Forms.PictureBox()
         Me.Button15 = New System.Windows.Forms.Button()
@@ -160,12 +162,17 @@ Partial Class frmStartOptions
         Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
         Me.lblRoutineManager = New System.Windows.Forms.Label()
         Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.LinkLabel38 = New System.Windows.Forms.LinkLabel()
+        Me.cbxOpenDatev = New System.Windows.Forms.CheckBox()
-        Me.PictureBox17 = New System.Windows.Forms.PictureBox()
+        Me.cbxBuchungenDatev = New System.Windows.Forms.CheckBox()
+        Me.cbxKundenDatev = New System.Windows.Forms.CheckBox()
+        Me.Button17 = New System.Windows.Forms.Button()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.cbxTestDatev = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.tbcntr.SuspendLayout()
         Me.TabPage1.SuspendLayout()
+        CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picC0008, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -186,13 +193,18 @@ Partial Class frmStartOptions
         CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'pnl
         '
         Me.pnl.BackColor = System.Drawing.Color.White
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.cbxTestDatev)
+        Me.pnl.Controls.Add(Me.cbxOpenDatev)
+        Me.pnl.Controls.Add(Me.cbxBuchungenDatev)
+        Me.pnl.Controls.Add(Me.cbxKundenDatev)
+        Me.pnl.Controls.Add(Me.Button17)
+        Me.pnl.Controls.Add(Me.Label22)
         Me.pnl.Controls.Add(Me.Label21)
         Me.pnl.Controls.Add(Me.Button16)
         Me.pnl.Controls.Add(Me.Button14)
@@ -555,7 +567,7 @@ Partial Class frmStartOptions
         Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button5.Location = New System.Drawing.Point(15, 340)
+        Me.Button5.Location = New System.Drawing.Point(559, 155)
         Me.Button5.Name = "Button5"
         Me.Button5.Size = New System.Drawing.Size(211, 24)
         Me.Button5.TabIndex = 46
@@ -713,6 +725,28 @@ Partial Class frmStartOptions
         Me.TabPage1.Text = "Zollverfahren"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
+        'LinkLabel38
+        '
+        Me.LinkLabel38.AutoSize = True
+        Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel38.Location = New System.Drawing.Point(475, 125)
+        Me.LinkLabel38.Name = "LinkLabel38"
+        Me.LinkLabel38.Size = New System.Drawing.Size(141, 13)
+        Me.LinkLabel38.TabIndex = 59
+        Me.LinkLabel38.TabStop = True
+        Me.LinkLabel38.Text = "I0610 - Zust. Zollstelle (AES)"
+        '
+        'PictureBox17
+        '
+        Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image)
+        Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox17.Location = New System.Drawing.Point(630, 120)
+        Me.PictureBox17.Name = "PictureBox17"
+        Me.PictureBox17.Size = New System.Drawing.Size(18, 18)
+        Me.PictureBox17.TabIndex = 60
+        Me.PictureBox17.TabStop = False
+        Me.PictureBox17.Visible = False
+        '
         'LinkLabel37
         '
         Me.LinkLabel37.AutoSize = True
@@ -1946,27 +1980,75 @@ Partial Class frmStartOptions
         Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20)
         Me.txtGJ_UNISPED.TabIndex = 68
         '
-        'LinkLabel38
+        'cbxOpenDatev
         '
-        Me.LinkLabel38.AutoSize = True
+        Me.cbxOpenDatev.AutoSize = True
-        Me.LinkLabel38.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.cbxOpenDatev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.LinkLabel38.Location = New System.Drawing.Point(475, 125)
+        Me.cbxOpenDatev.Location = New System.Drawing.Point(175, 345)
-        Me.LinkLabel38.Name = "LinkLabel38"
+        Me.cbxOpenDatev.Name = "cbxOpenDatev"
-        Me.LinkLabel38.Size = New System.Drawing.Size(141, 13)
+        Me.cbxOpenDatev.Size = New System.Drawing.Size(56, 17)
-        Me.LinkLabel38.TabIndex = 59
+        Me.cbxOpenDatev.TabIndex = 74
-        Me.LinkLabel38.TabStop = True
+        Me.cbxOpenDatev.Text = "öffnen"
-        Me.LinkLabel38.Text = "I0610 - Zust. Zollstelle (AES)"
+        Me.cbxOpenDatev.UseVisualStyleBackColor = True
         '
-        'PictureBox17
+        'cbxBuchungenDatev
         '
-        Me.PictureBox17.BackgroundImage = CType(resources.GetObject("PictureBox17.BackgroundImage"), System.Drawing.Image)
+        Me.cbxBuchungenDatev.AutoSize = True
-        Me.PictureBox17.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.cbxBuchungenDatev.Checked = True
-        Me.PictureBox17.Location = New System.Drawing.Point(630, 120)
+        Me.cbxBuchungenDatev.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.PictureBox17.Name = "PictureBox17"
+        Me.cbxBuchungenDatev.Location = New System.Drawing.Point(89, 345)
-        Me.PictureBox17.Size = New System.Drawing.Size(18, 18)
+        Me.cbxBuchungenDatev.Name = "cbxBuchungenDatev"
-        Me.PictureBox17.TabIndex = 60
+        Me.cbxBuchungenDatev.Size = New System.Drawing.Size(81, 17)
-        Me.PictureBox17.TabStop = False
+        Me.cbxBuchungenDatev.TabIndex = 73
-        Me.PictureBox17.Visible = False
+        Me.cbxBuchungenDatev.Text = "Buchungen"
+        Me.cbxBuchungenDatev.UseVisualStyleBackColor = True
+        '
+        'cbxKundenDatev
+        '
+        Me.cbxKundenDatev.AutoSize = True
+        Me.cbxKundenDatev.Checked = True
+        Me.cbxKundenDatev.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxKundenDatev.Location = New System.Drawing.Point(20, 345)
+        Me.cbxKundenDatev.Name = "cbxKundenDatev"
+        Me.cbxKundenDatev.Size = New System.Drawing.Size(63, 17)
+        Me.cbxKundenDatev.TabIndex = 72
+        Me.cbxKundenDatev.Text = "Kunden"
+        Me.cbxKundenDatev.UseVisualStyleBackColor = True
+        '
+        'Button17
+        '
+        Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button17.Location = New System.Drawing.Point(20, 318)
+        Me.Button17.Name = "Button17"
+        Me.Button17.Size = New System.Drawing.Size(211, 24)
+        Me.Button17.TabIndex = 71
+        Me.Button17.Text = "Kunden / Buchungen --> DATEV"
+        Me.Button17.UseVisualStyleBackColor = True
+        '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label22.Location = New System.Drawing.Point(17, 302)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(151, 13)
+        Me.Label22.TabIndex = 70
+        Me.Label22.Text = "Routine Manager AMBAR"
+        '
+        'cbxTestDatev
+        '
+        Me.cbxTestDatev.AutoSize = True
+        Me.cbxTestDatev.Checked = True
+        Me.cbxTestDatev.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxTestDatev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxTestDatev.Location = New System.Drawing.Point(20, 368)
+        Me.cbxTestDatev.Name = "cbxTestDatev"
+        Me.cbxTestDatev.Size = New System.Drawing.Size(79, 17)
+        Me.cbxTestDatev.TabIndex = 75
+        Me.cbxTestDatev.Text = "Testsystem"
+        Me.cbxTestDatev.UseVisualStyleBackColor = True
         '
         'frmStartOptions
         '
@@ -1987,6 +2069,7 @@ Partial Class frmStartOptions
         Me.tbcntr.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
         Me.TabPage1.PerformLayout()
+        CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.picC0008, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2009,7 +2092,6 @@ Partial Class frmStartOptions
         CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -2151,4 +2233,10 @@ Partial Class frmStartOptions
     Friend WithEvents txtGJ_UNISPED As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents LinkLabel38 As LinkLabel
     Friend WithEvents PictureBox17 As PictureBox
+    Friend WithEvents cbxTestDatev As CheckBox
+    Friend WithEvents cbxOpenDatev As CheckBox
+    Friend WithEvents cbxBuchungenDatev As CheckBox
+    Friend WithEvents cbxKundenDatev As CheckBox
+    Friend WithEvents Button17 As Button
+    Friend WithEvents Label22 As Label
 End Class

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