Datev Schnittstelle in RoutineManager

2023-02-13 15:27:51 +01:00
parent 318c7b9906
commit bf41efeb3c
2 changed files with 123 additions and 29 deletions
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -130,6 +130,9 @@ Partial Class frmStartOptions
        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.LinkLabel39 = New System.Windows.Forms.LinkLabel()
+        Me.LinkLabel40 = New System.Windows.Forms.LinkLabel()
+        Me.Label22 = New System.Windows.Forms.Label()
        Me.LinkLabel34 = New System.Windows.Forms.LinkLabel()
        Me.LinkLabel35 = New System.Windows.Forms.LinkLabel()
        Me.Label17 = New System.Windows.Forms.Label()
@@ -162,9 +165,12 @@ 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.LinkLabel39 = New System.Windows.Forms.LinkLabel()
-        Me.LinkLabel40 = New System.Windows.Forms.LinkLabel()
-        Me.Label22 = New System.Windows.Forms.Label()
+        Me.cbxDatevOpen = New System.Windows.Forms.CheckBox()
+        Me.cbxDatenBuchungen = New System.Windows.Forms.CheckBox()
+        Me.cbxDatevDebitoren = New System.Windows.Forms.CheckBox()
+        Me.Button17 = New System.Windows.Forms.Button()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.cbxDatevTestsystem = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tbcntr.SuspendLayout()
@@ -196,6 +202,12 @@ Partial Class frmStartOptions
        '
        Me.pnl.BackColor = System.Drawing.Color.White
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.cbxDatevTestsystem)
+        Me.pnl.Controls.Add(Me.cbxDatevOpen)
+        Me.pnl.Controls.Add(Me.cbxDatenBuchungen)
+        Me.pnl.Controls.Add(Me.cbxDatevDebitoren)
+        Me.pnl.Controls.Add(Me.Button17)
+        Me.pnl.Controls.Add(Me.Label23)
        Me.pnl.Controls.Add(Me.Label21)
        Me.pnl.Controls.Add(Me.Button16)
        Me.pnl.Controls.Add(Me.Button14)
@@ -558,7 +570,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, 151)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(211, 24)
        Me.Button5.TabIndex = 46
@@ -1596,6 +1608,37 @@ Partial Class frmStartOptions
        Me.TabPage3.Text = "Partner-Systeme"
        Me.TabPage3.UseVisualStyleBackColor = True
        '
+        'LinkLabel39
+        '
+        Me.LinkLabel39.AutoSize = True
+        Me.LinkLabel39.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel39.Location = New System.Drawing.Point(11, 262)
+        Me.LinkLabel39.Name = "LinkLabel39"
+        Me.LinkLabel39.Size = New System.Drawing.Size(180, 13)
+        Me.LinkLabel39.TabIndex = 32
+        Me.LinkLabel39.TabStop = True
+        Me.LinkLabel39.Text = "Eingangsnachrichten abrufen PROD"
+        '
+        'LinkLabel40
+        '
+        Me.LinkLabel40.AutoSize = True
+        Me.LinkLabel40.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel40.Location = New System.Drawing.Point(11, 237)
+        Me.LinkLabel40.Name = "LinkLabel40"
+        Me.LinkLabel40.Size = New System.Drawing.Size(177, 13)
+        Me.LinkLabel40.TabIndex = 31
+        Me.LinkLabel40.TabStop = True
+        Me.LinkLabel40.Text = "Eingangsnachrichten abrufen TEST"
+        '
+        'Label22
+        '
+        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(11, 210)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(296, 16)
+        Me.Label22.TabIndex = 30
+        Me.Label22.Text = "ATEZ Nachrichtenverarbeitung (NCTS TR):"
+        '
        'LinkLabel34
        '
        Me.LinkLabel34.AutoSize = True
@@ -1974,36 +2017,75 @@ Partial Class frmStartOptions
        Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20)
        Me.txtGJ_UNISPED.TabIndex = 68
        '
-        'LinkLabel39
+        'cbxDatevOpen
        '
-        Me.LinkLabel39.AutoSize = True
-        Me.LinkLabel39.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel39.Location = New System.Drawing.Point(11, 262)
-        Me.LinkLabel39.Name = "LinkLabel39"
-        Me.LinkLabel39.Size = New System.Drawing.Size(180, 13)
-        Me.LinkLabel39.TabIndex = 32
-        Me.LinkLabel39.TabStop = True
-        Me.LinkLabel39.Text = "Eingangsnachrichten abrufen PROD"
+        Me.cbxDatevOpen.AutoSize = True
+        Me.cbxDatevOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxDatevOpen.Location = New System.Drawing.Point(175, 345)
+        Me.cbxDatevOpen.Name = "cbxDatevOpen"
+        Me.cbxDatevOpen.Size = New System.Drawing.Size(56, 17)
+        Me.cbxDatevOpen.TabIndex = 74
+        Me.cbxDatevOpen.Text = "öffnen"
+        Me.cbxDatevOpen.UseVisualStyleBackColor = True
        '
-        'LinkLabel40
+        'cbxDatenBuchungen
        '
-        Me.LinkLabel40.AutoSize = True
-        Me.LinkLabel40.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel40.Location = New System.Drawing.Point(11, 237)
-        Me.LinkLabel40.Name = "LinkLabel40"
-        Me.LinkLabel40.Size = New System.Drawing.Size(177, 13)
-        Me.LinkLabel40.TabIndex = 31
-        Me.LinkLabel40.TabStop = True
-        Me.LinkLabel40.Text = "Eingangsnachrichten abrufen TEST"
+        Me.cbxDatenBuchungen.AutoSize = True
+        Me.cbxDatenBuchungen.Checked = True
+        Me.cbxDatenBuchungen.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxDatenBuchungen.Location = New System.Drawing.Point(89, 345)
+        Me.cbxDatenBuchungen.Name = "cbxDatenBuchungen"
+        Me.cbxDatenBuchungen.Size = New System.Drawing.Size(81, 17)
+        Me.cbxDatenBuchungen.TabIndex = 73
+        Me.cbxDatenBuchungen.Text = "Buchungen"
+        Me.cbxDatenBuchungen.UseVisualStyleBackColor = True
        '
-        'Label22
+        'cbxDatevDebitoren
        '
-        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(11, 210)
-        Me.Label22.Name = "Label22"
-        Me.Label22.Size = New System.Drawing.Size(296, 16)
-        Me.Label22.TabIndex = 30
-        Me.Label22.Text = "ATEZ Nachrichtenverarbeitung (NCTS TR):"
+        Me.cbxDatevDebitoren.AutoSize = True
+        Me.cbxDatevDebitoren.Checked = True
+        Me.cbxDatevDebitoren.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxDatevDebitoren.Location = New System.Drawing.Point(20, 345)
+        Me.cbxDatevDebitoren.Name = "cbxDatevDebitoren"
+        Me.cbxDatevDebitoren.Size = New System.Drawing.Size(63, 17)
+        Me.cbxDatevDebitoren.TabIndex = 72
+        Me.cbxDatevDebitoren.Text = "Kunden"
+        Me.cbxDatevDebitoren.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
+        '
+        'Label23
+        '
+        Me.Label23.AutoSize = True
+        Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label23.Location = New System.Drawing.Point(17, 302)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(142, 13)
+        Me.Label23.TabIndex = 70
+        Me.Label23.Text = "Routine Manager Datev"
+        '
+        'cbxDatevTestsystem
+        '
+        Me.cbxDatevTestsystem.AutoSize = True
+        Me.cbxDatevTestsystem.Checked = True
+        Me.cbxDatevTestsystem.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxDatevTestsystem.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxDatevTestsystem.Location = New System.Drawing.Point(20, 368)
+        Me.cbxDatevTestsystem.Name = "cbxDatevTestsystem"
+        Me.cbxDatevTestsystem.Size = New System.Drawing.Size(79, 17)
+        Me.cbxDatevTestsystem.TabIndex = 75
+        Me.cbxDatevTestsystem.Text = "Testsystem"
+        Me.cbxDatevTestsystem.UseVisualStyleBackColor = True
        '
        'frmStartOptions
        '
@@ -2191,4 +2273,10 @@ Partial Class frmStartOptions
    Friend WithEvents LinkLabel39 As LinkLabel
    Friend WithEvents LinkLabel40 As LinkLabel
    Friend WithEvents Label22 As Label
+    Friend WithEvents cbxDatevTestsystem As CheckBox
+    Friend WithEvents cbxDatevOpen As CheckBox
+    Friend WithEvents cbxDatenBuchungen As CheckBox
+    Friend WithEvents cbxDatevDebitoren As CheckBox
+    Friend WithEvents Button17 As Button
+    Friend WithEvents Label23 As Label
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -3296,4 +3296,10 @@ Public Class frmStartOptions
        f.ShowDialog()
        Me.Visible = True
    End Sub
+
+    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxDatevTestsystem.Checked
+        VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(cbxDatevOpen.Checked, cbxDatevDebitoren.Checked, cbxDatenBuchungen.Checked)
+    End Sub
+
 End Class