From bf41efeb3ce08e93f01e8c250bc12608711754a4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 13 Feb 2023 15:27:51 +0100 Subject: [PATCH] Datev Schnittstelle in RoutineManager --- .../frmStartOptions.Designer.vb | 146 ++++++++++++++---- initATLASAufschubkonten/frmStartOptions.vb | 6 + 2 files changed, 123 insertions(+), 29 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 85f149e..60f8cda 100644 --- 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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 027babf..20d14e9 100644 --- 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 \ No newline at end of file