EZA

2025-04-22 14:37:30 +02:00
parent 107d324054
commit 4240426b19
10 changed files with 316 additions and 325 deletions
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -25,6 +25,8 @@ Partial Class frmStartOptions
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
+        Me.Button27 = New System.Windows.Forms.Button()
        Me.txtMRNPrefix = New System.Windows.Forms.TextBox()
        Me.LinkLabel66 = New System.Windows.Forms.LinkLabel()
        Me.PictureBox24 = New System.Windows.Forms.PictureBox()
@@ -161,8 +163,7 @@ 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.Label50 = New System.Windows.Forms.Label()
-        Me.MyTextBox6 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyTextBox06 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.CheckBox9 = New System.Windows.Forms.CheckBox()
        Me.Label49 = New System.Windows.Forms.Label()
        Me.Button28 = New System.Windows.Forms.Button()
@@ -193,7 +194,7 @@ Partial Class frmStartOptions
        Me.Label50 = New System.Windows.Forms.Label()
        Me.txtPLoseKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.LinkLabel74 = New System.Windows.Forms.LinkLabel()
-        Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
+        Me.LinkLabel073 = New System.Windows.Forms.LinkLabel()
        Me.LinkLabel69 = New System.Windows.Forms.LinkLabel()
        Me.LinkLabel72 = New System.Windows.Forms.LinkLabel()
        Me.lblUTAPDFvollst = New System.Windows.Forms.LinkLabel()
@@ -308,9 +309,9 @@ 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.Label050 = New System.Windows.Forms.Label()
        Me.Button21 = New System.Windows.Forms.Button()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.LinkLabel73 = New System.Windows.Forms.LinkLabel()
        Me.pnl.SuspendLayout()
        CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -353,6 +354,8 @@ Partial Class frmStartOptions
        '
        Me.pnl.BackColor = System.Drawing.Color.White
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.LinkLabel73)
+        Me.pnl.Controls.Add(Me.Button27)
        Me.pnl.Controls.Add(Me.txtMRNPrefix)
        Me.pnl.Controls.Add(Me.LinkLabel66)
        Me.pnl.Controls.Add(Me.PictureBox24)
@@ -432,9 +435,32 @@ Partial Class frmStartOptions
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(1229, 920)
+        Me.pnl.Size = New System.Drawing.Size(1229, 970)
        Me.pnl.TabIndex = 0
        '
+        'LinkLabel73
+        '
+        Me.LinkLabel73.AutoSize = True
+        Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel73.Location = New System.Drawing.Point(1023, 173)
+        Me.LinkLabel73.Name = "LinkLabel73"
+        Me.LinkLabel73.Size = New System.Drawing.Size(176, 13)
+        Me.LinkLabel73.TabIndex = 160
+        Me.LinkLabel73.TabStop = True
+        Me.LinkLabel73.Text = "Rechnungsdetaildaten aktualisieren"
+        '
+        'Button27
+        '
+        Me.Button27.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button27.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button27.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button27.Location = New System.Drawing.Point(1076, 386)
+        Me.Button27.Name = "Button27"
+        Me.Button27.Size = New System.Drawing.Size(123, 24)
+        Me.Button27.TabIndex = 161
+        Me.Button27.Text = "Test Err Mail"
+        Me.Button27.UseVisualStyleBackColor = True
+        '
        'txtMRNPrefix
        '
        Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 48)
@@ -1061,7 +1087,7 @@ Partial Class frmStartOptions
        Me.tbcntr.Controls.Add(Me.TabPage3)
        Me.tbcntr.Controls.Add(Me.TabPage4)
        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.tbcntr.Location = New System.Drawing.Point(0, 416)
+        Me.tbcntr.Location = New System.Drawing.Point(0, 466)
        Me.tbcntr.Name = "tbcntr"
        Me.tbcntr.SelectedIndex = 0
        Me.tbcntr.Size = New System.Drawing.Size(1227, 502)
@@ -1069,7 +1095,6 @@ Partial Class frmStartOptions
        '
        'TabPage1
        '
-        Me.TabPage1.Controls.Add(Me.LinkLabel73)
        Me.TabPage1.Controls.Add(Me.LinkLabel68)
        Me.TabPage1.Controls.Add(Me.PictureBox26)
        Me.TabPage1.Controls.Add(Me.cbxGestellungspeichern)
@@ -1133,7 +1158,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel68.AutoSize = True
        Me.LinkLabel68.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel68.Location = New System.Drawing.Point(18, 393)
+        Me.LinkLabel68.Location = New System.Drawing.Point(743, 32)
        Me.LinkLabel68.Name = "LinkLabel68"
        Me.LinkLabel68.Size = New System.Drawing.Size(127, 13)
        Me.LinkLabel68.TabIndex = 151
@@ -1144,7 +1169,7 @@ Partial Class frmStartOptions
        '
        Me.PictureBox26.BackgroundImage = CType(resources.GetObject("PictureBox26.BackgroundImage"), System.Drawing.Image)
        Me.PictureBox26.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox26.Location = New System.Drawing.Point(837, 32)
+        Me.PictureBox26.Location = New System.Drawing.Point(876, 32)
        Me.PictureBox26.Name = "PictureBox26"
        Me.PictureBox26.Size = New System.Drawing.Size(18, 18)
        Me.PictureBox26.TabIndex = 141
@@ -2141,8 +2166,7 @@ Partial Class frmStartOptions
        '
        'TabPage3
        '
-        Me.TabPage3.Controls.Add(Me.Label50)
-        Me.TabPage3.Controls.Add(Me.MyTextBox6)
+        Me.TabPage3.Controls.Add(Me.MyTextBox06)
        Me.TabPage3.Controls.Add(Me.CheckBox9)
        Me.TabPage3.Controls.Add(Me.Label49)
        Me.TabPage3.Controls.Add(Me.Button28)
@@ -2175,39 +2199,30 @@ Partial Class frmStartOptions
        Me.TabPage3.Text = "Partner-Systeme"
        Me.TabPage3.UseVisualStyleBackColor = True
        '
-        'Label50
+        'MyTextBox06
        '
-        Me.Label50.AutoSize = True
-        Me.Label50.Location = New System.Drawing.Point(548, 305)
-        Me.Label50.Name = "Label50"
-        Me.Label50.Size = New System.Drawing.Size(29, 13)
-        Me.Label50.TabIndex = 149
-        Me.Label50.Text = "Top:"
-        '
-        'MyTextBox6
-        '
-        Me.MyTextBox6._DateTimeOnly = False
-        Me.MyTextBox6._numbersOnly = False
-        Me.MyTextBox6._numbersOnlyKommastellen = ""
-        Me.MyTextBox6._numbersOnlyTrennzeichen = False
-        Me.MyTextBox6._Prozent = False
-        Me.MyTextBox6._ShortDateNew = False
-        Me.MyTextBox6._ShortDateOnly = False
-        Me.MyTextBox6._TimeOnly = False
-        Me.MyTextBox6._TimeOnly_Seconds = False
-        Me.MyTextBox6._value = "200"
-        Me.MyTextBox6._Waehrung = False
-        Me.MyTextBox6._WaehrungZeichen = False
-        Me.MyTextBox6.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox6.Location = New System.Drawing.Point(583, 302)
-        Me.MyTextBox6.MaxLength = 18
-        Me.MyTextBox6.MaxLineLength = -1
-        Me.MyTextBox6.MaxLines_Warning = ""
-        Me.MyTextBox6.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox6.Name = "MyTextBox6"
-        Me.MyTextBox6.Size = New System.Drawing.Size(150, 20)
-        Me.MyTextBox6.TabIndex = 148
-        Me.MyTextBox6.Text = "200"
+        Me.MyTextBox06._DateTimeOnly = False
+        Me.MyTextBox06._numbersOnly = False
+        Me.MyTextBox06._numbersOnlyKommastellen = ""
+        Me.MyTextBox06._numbersOnlyTrennzeichen = False
+        Me.MyTextBox06._Prozent = False
+        Me.MyTextBox06._ShortDateNew = False
+        Me.MyTextBox06._ShortDateOnly = False
+        Me.MyTextBox06._TimeOnly = False
+        Me.MyTextBox06._TimeOnly_Seconds = False
+        Me.MyTextBox06._value = "200"
+        Me.MyTextBox06._Waehrung = False
+        Me.MyTextBox06._WaehrungZeichen = False
+        Me.MyTextBox06.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox06.Location = New System.Drawing.Point(583, 302)
+        Me.MyTextBox06.MaxLength = 18
+        Me.MyTextBox06.MaxLineLength = -1
+        Me.MyTextBox06.MaxLines_Warning = ""
+        Me.MyTextBox06.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox06.Name = "MyTextBox06"
+        Me.MyTextBox06.Size = New System.Drawing.Size(150, 20)
+        Me.MyTextBox06.TabIndex = 148
+        Me.MyTextBox06.Text = "200"
        '
        'CheckBox9
        '
@@ -2523,7 +2538,7 @@ Partial Class frmStartOptions
        Me.TabPage4.Controls.Add(Me.Label50)
        Me.TabPage4.Controls.Add(Me.txtPLoseKdNr)
        Me.TabPage4.Controls.Add(Me.LinkLabel74)
-        Me.TabPage4.Controls.Add(Me.LinkLabel73)
+        Me.TabPage4.Controls.Add(Me.LinkLabel073)
        Me.TabPage4.Controls.Add(Me.LinkLabel69)
        Me.TabPage4.Controls.Add(Me.LinkLabel72)
        Me.TabPage4.Controls.Add(Me.lblUTAPDFvollst)
@@ -2634,12 +2649,11 @@ Partial Class frmStartOptions
        'Label50
        '
        Me.Label50.AutoSize = True
-        Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label50.Location = New System.Drawing.Point(728, 124)
+        Me.Label50.Location = New System.Drawing.Point(548, 305)
        Me.Label50.Name = "Label50"
-        Me.Label50.Size = New System.Drawing.Size(27, 13)
-        Me.Label50.TabIndex = 163
-        Me.Label50.Text = "Jahr"
+        Me.Label50.Size = New System.Drawing.Size(29, 13)
+        Me.Label50.TabIndex = 149
+        Me.Label50.Text = "Top:"
        '
        'txtPLoseKdNr
        '
@@ -2678,16 +2692,16 @@ Partial Class frmStartOptions
        Me.LinkLabel74.TabStop = True
        Me.LinkLabel74.Text = "PDF mit RE verknüpfen"
        '
-        'LinkLabel73
+        'LinkLabel073
        '
-        Me.LinkLabel73.AutoSize = True
-        Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel73.Location = New System.Drawing.Point(18, 387)
-        Me.LinkLabel73.Name = "LinkLabel73"
-        Me.LinkLabel73.Size = New System.Drawing.Size(176, 13)
-        Me.LinkLabel73.TabIndex = 160
-        Me.LinkLabel73.TabStop = True
-        Me.LinkLabel73.Text = "Rechnungsdetaildaten aktualisieren"
+        Me.LinkLabel073.AutoSize = True
+        Me.LinkLabel073.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel073.Location = New System.Drawing.Point(18, 419)
+        Me.LinkLabel073.Name = "LinkLabel073"
+        Me.LinkLabel073.Size = New System.Drawing.Size(148, 13)
+        Me.LinkLabel073.TabIndex = 152
+        Me.LinkLabel073.TabStop = True
+        Me.LinkLabel073.Text = "KN8 EZT DE Stat.Bundesamt"
        '
        'LinkLabel69
        '
@@ -2709,32 +2723,6 @@ Partial Class frmStartOptions
        Me.LinkLabel72.TabStop = True
        Me.LinkLabel72.Text = "PDF mit RE verknüpfen"
        '
-        'txtPloseJahr
-        '
-        Me.txtPloseJahr._DateTimeOnly = False
-        Me.txtPloseJahr._numbersOnly = True
-        Me.txtPloseJahr._numbersOnlyKommastellen = ""
-        Me.txtPloseJahr._numbersOnlyTrennzeichen = False
-        Me.txtPloseJahr._Prozent = False
-        Me.txtPloseJahr._ShortDateNew = False
-        Me.txtPloseJahr._ShortDateOnly = False
-        Me.txtPloseJahr._TimeOnly = False
-        Me.txtPloseJahr._TimeOnly_Seconds = False
-        Me.txtPloseJahr._value = ""
-        Me.txtPloseJahr._Waehrung = False
-        Me.txtPloseJahr._WaehrungZeichen = False
-        Me.txtPloseJahr.BackColor = System.Drawing.SystemColors.Window
-        Me.txtPloseJahr.ForeColor = System.Drawing.Color.Red
-        Me.txtPloseJahr.Location = New System.Drawing.Point(797, 121)
-        Me.txtPloseJahr.MaxLength = 10
-        Me.txtPloseJahr.MaxLineLength = -1
-        Me.txtPloseJahr.MaxLines_Warning = ""
-        Me.txtPloseJahr.MaxLines_Warning_Label = Nothing
-        Me.txtPloseJahr.Name = "txtPloseJahr"
-        Me.txtPloseJahr.Size = New System.Drawing.Size(66, 20)
-        Me.txtPloseJahr.TabIndex = 158
-        Me.txtPloseJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
        'lblUTAPDFvollst
        '
        Me.lblUTAPDFvollst.AutoSize = True
@@ -2746,32 +2734,6 @@ Partial Class frmStartOptions
        Me.lblUTAPDFvollst.TabStop = True
        Me.lblUTAPDFvollst.Text = "PDF Daten vollständig"
        '
-        'txtUTADate
-        '
-        Me.txtUTADate._DateTimeOnly = False
-        Me.txtUTADate._numbersOnly = False
-        Me.txtUTADate._numbersOnlyKommastellen = ""
-        Me.txtUTADate._numbersOnlyTrennzeichen = False
-        Me.txtUTADate._Prozent = False
-        Me.txtUTADate._ShortDateNew = False
-        Me.txtUTADate._ShortDateOnly = True
-        Me.txtUTADate._TimeOnly = False
-        Me.txtUTADate._TimeOnly_Seconds = False
-        Me.txtUTADate._value = ""
-        Me.txtUTADate._Waehrung = False
-        Me.txtUTADate._WaehrungZeichen = True
-        Me.txtUTADate.BackColor = System.Drawing.SystemColors.Window
-        Me.txtUTADate.ForeColor = System.Drawing.Color.Red
-        Me.txtUTADate.Location = New System.Drawing.Point(537, 415)
-        Me.txtUTADate.MaxLength = 10
-        Me.txtUTADate.MaxLineLength = -1
-        Me.txtUTADate.MaxLines_Warning = ""
-        Me.txtUTADate.MaxLines_Warning_Label = Nothing
-        Me.txtUTADate.Name = "txtUTADate"
-        Me.txtUTADate.Size = New System.Drawing.Size(66, 20)
-        Me.txtUTADate.TabIndex = 156
-        Me.txtUTADate.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
        'TextBox3
        '
        Me.TextBox3.BackColor = System.Drawing.SystemColors.Menu
@@ -2794,32 +2756,6 @@ Partial Class frmStartOptions
        Me.cbxIDSUmbenenen.TabIndex = 153
        Me.cbxIDSUmbenenen.UseVisualStyleBackColor = True
        '
-        'txtIDSYear
-        '
-        Me.txtIDSYear._DateTimeOnly = False
-        Me.txtIDSYear._numbersOnly = True
-        Me.txtIDSYear._numbersOnlyKommastellen = ""
-        Me.txtIDSYear._numbersOnlyTrennzeichen = False
-        Me.txtIDSYear._Prozent = False
-        Me.txtIDSYear._ShortDateNew = False
-        Me.txtIDSYear._ShortDateOnly = False
-        Me.txtIDSYear._TimeOnly = False
-        Me.txtIDSYear._TimeOnly_Seconds = False
-        Me.txtIDSYear._value = ""
-        Me.txtIDSYear._Waehrung = False
-        Me.txtIDSYear._WaehrungZeichen = True
-        Me.txtIDSYear.BackColor = System.Drawing.SystemColors.Window
-        Me.txtIDSYear.ForeColor = System.Drawing.Color.Red
-        Me.txtIDSYear.Location = New System.Drawing.Point(24, 301)
-        Me.txtIDSYear.MaxLength = 10
-        Me.txtIDSYear.MaxLineLength = -1
-        Me.txtIDSYear.MaxLines_Warning = ""
-        Me.txtIDSYear.MaxLines_Warning_Label = Nothing
-        Me.txtIDSYear.Name = "txtIDSYear"
-        Me.txtIDSYear.Size = New System.Drawing.Size(66, 20)
-        Me.txtIDSYear.TabIndex = 155
-        Me.txtIDSYear.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
        'LinkLabel70
        '
        Me.LinkLabel70.AutoSize = True
@@ -4195,6 +4131,16 @@ Partial Class frmStartOptions
        Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20)
        Me.txtGJ_UNISPED.TabIndex = 68
        '
+        'Label050
+        '
+        Me.Label050.AutoSize = True
+        Me.Label050.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label050.Location = New System.Drawing.Point(728, 124)
+        Me.Label050.Name = "Label050"
+        Me.Label050.Size = New System.Drawing.Size(27, 13)
+        Me.Label050.TabIndex = 163
+        Me.Label050.Text = "Jahr"
+        '
        'Button21
        '
        Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -4214,23 +4160,12 @@ Partial Class frmStartOptions
        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
-        'LinkLabel73
-        '
-        Me.LinkLabel73.AutoSize = True
-        Me.LinkLabel73.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel73.Location = New System.Drawing.Point(18, 419)
-        Me.LinkLabel73.Name = "LinkLabel73"
-        Me.LinkLabel73.Size = New System.Drawing.Size(148, 13)
-        Me.LinkLabel73.TabIndex = 152
-        Me.LinkLabel73.TabStop = True
-        Me.LinkLabel73.Text = "KN8 EZT DE Stat.Bundesamt"
-        '
        'frmStartOptions
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1229, 920)
+        Me.ClientSize = New System.Drawing.Size(1229, 970)
        Me.Controls.Add(Me.pnl)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -4323,6 +4258,7 @@ Partial Class frmStartOptions
    Friend WithEvents PictureBox12 As PictureBox
    Friend WithEvents LinkLabel20 As LinkLabel
    Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents MyTextBox06 As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label3 As Label
    Friend WithEvents CheckBox1 As CheckBox
    Friend WithEvents cbxBu As CheckBox
@@ -4562,8 +4498,11 @@ Partial Class frmStartOptions
    Friend WithEvents LinkLabel72 As LinkLabel
    Friend WithEvents txtPloseJahr As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents LinkLabel73 As LinkLabel
+    Friend WithEvents LinkLabel073 As LinkLabel
    Friend WithEvents LinkLabel74 As LinkLabel
    Friend WithEvents txtPLoseKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label51 As Label
    Friend WithEvents Label50 As Label
+    Friend WithEvents Label050 As Label
+    Friend WithEvents Button27 As Button
 End Class