neu

2020-09-23 07:22:38 +02:00
parent 41b13fe4b0
commit f5248e4a51
31 changed files with 2776 additions and 141 deletions
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -24,6 +24,9 @@ Partial Class frmStartOptions
    Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.CheckBox4 = New System.Windows.Forms.CheckBox()
+        Me.Label13 = New System.Windows.Forms.Label()
        Me.CheckBox3 = New System.Windows.Forms.CheckBox()
        Me.tbcntr = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -66,8 +69,6 @@ Partial Class frmStartOptions
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Label10 = New System.Windows.Forms.Label()
-        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbxISett_IMEX = New System.Windows.Forms.CheckBox()
        Me.cbxISett_VERAG = New System.Windows.Forms.CheckBox()
        Me.cbxISett_TEST = New System.Windows.Forms.CheckBox()
@@ -80,8 +81,6 @@ Partial Class frmStartOptions
        Me.Label7 = New System.Windows.Forms.Label()
        Me.LinkLabel27 = New System.Windows.Forms.LinkLabel()
        Me.Label6 = New System.Windows.Forms.Label()
-        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
        Me.LinkLabel31 = New System.Windows.Forms.LinkLabel()
        Me.Label12 = New System.Windows.Forms.Label()
@@ -95,7 +94,6 @@ Partial Class frmStartOptions
        Me.cbxKd = New System.Windows.Forms.CheckBox()
        Me.Button9 = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
-        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.PictureBox12 = New System.Windows.Forms.PictureBox()
        Me.LinkLabel20 = New System.Windows.Forms.LinkLabel()
        Me.PictureBox11 = New System.Windows.Forms.PictureBox()
@@ -111,6 +109,14 @@ Partial Class frmStartOptions
        Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
        Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
        Me.lblRoutineManager = New System.Windows.Forms.Label()
+        Me.CheckBox5 = New System.Windows.Forms.CheckBox()
+        Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button4 = New System.Windows.Forms.Button()
        Me.pnl.SuspendLayout()
        Me.tbcntr.SuspendLayout()
        Me.TabPage1.SuspendLayout()
@@ -138,6 +144,12 @@ Partial Class frmStartOptions
        '
        Me.pnl.BackColor = System.Drawing.Color.White
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Button4)
+        Me.pnl.Controls.Add(Me.CheckBox5)
+        Me.pnl.Controls.Add(Me.Button3)
+        Me.pnl.Controls.Add(Me.cboBMDUnispedFirma)
+        Me.pnl.Controls.Add(Me.CheckBox4)
+        Me.pnl.Controls.Add(Me.Label13)
        Me.pnl.Controls.Add(Me.CheckBox3)
        Me.pnl.Controls.Add(Me.tbcntr)
        Me.pnl.Controls.Add(Me.CheckBox2)
@@ -166,9 +178,42 @@ 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(790, 677)
+        Me.pnl.Size = New System.Drawing.Size(790, 720)
        Me.pnl.TabIndex = 0
        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button3.Location = New System.Drawing.Point(302, 228)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(148, 24)
+        Me.Button3.TabIndex = 40
+        Me.Button3.Text = "Buchungen --> BMD"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'CheckBox4
+        '
+        Me.CheckBox4.AutoSize = True
+        Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CheckBox4.Location = New System.Drawing.Point(457, 255)
+        Me.CheckBox4.Name = "CheckBox4"
+        Me.CheckBox4.Size = New System.Drawing.Size(56, 17)
+        Me.CheckBox4.TabIndex = 41
+        Me.CheckBox4.Text = "öffnen"
+        Me.CheckBox4.UseVisualStyleBackColor = True
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label13.Location = New System.Drawing.Point(299, 212)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(163, 13)
+        Me.Label13.TabIndex = 39
+        Me.Label13.Text = "Routine Manager UNISPED"
+        '
        'CheckBox3
        '
        Me.CheckBox3.AutoSize = True
@@ -185,7 +230,7 @@ Partial Class frmStartOptions
        Me.tbcntr.Controls.Add(Me.TabPage2)
        Me.tbcntr.Controls.Add(Me.TabPage3)
        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.tbcntr.Location = New System.Drawing.Point(0, 254)
+        Me.tbcntr.Location = New System.Drawing.Point(0, 297)
        Me.tbcntr.Name = "tbcntr"
        Me.tbcntr.SelectedIndex = 0
        Me.tbcntr.Size = New System.Drawing.Size(788, 421)
@@ -600,8 +645,6 @@ Partial Class frmStartOptions
        Me.TabPage2.Controls.Add(Me.Label9)
        Me.TabPage2.Controls.Add(Me.Button2)
        Me.TabPage2.Controls.Add(Me.Label10)
-        Me.TabPage2.Controls.Add(Me.MyComboBox2)
-        Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr)
        Me.TabPage2.Controls.Add(Me.cbxISett_IMEX)
        Me.TabPage2.Controls.Add(Me.cbxISett_VERAG)
        Me.TabPage2.Controls.Add(Me.cbxISett_TEST)
@@ -614,6 +657,8 @@ Partial Class frmStartOptions
        Me.TabPage2.Controls.Add(Me.Label7)
        Me.TabPage2.Controls.Add(Me.LinkLabel27)
        Me.TabPage2.Controls.Add(Me.Label6)
+        Me.TabPage2.Controls.Add(Me.MyComboBox2)
+        Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr)
        Me.TabPage2.Controls.Add(Me.MyComboBox1)
        Me.TabPage2.Controls.Add(Me.txtVRGOut_BezugsNr)
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
@@ -679,39 +724,6 @@ Partial Class frmStartOptions
        Me.Label10.TabIndex = 62
        Me.Label10.Text = "VERAG OUT - EZA"
        '
-        'MyComboBox2
-        '
-        Me.MyComboBox2._allowedValuesFreiText = Nothing
-        Me.MyComboBox2._allowFreiText = False
-        Me.MyComboBox2._value = ""
-        Me.MyComboBox2.FormattingEnabled = True
-        Me.MyComboBox2.Location = New System.Drawing.Point(298, 230)
-        Me.MyComboBox2.Name = "MyComboBox2"
-        Me.MyComboBox2.Size = New System.Drawing.Size(62, 21)
-        Me.MyComboBox2.TabIndex = 64
-        '
-        'txtVRGOutEZA_BezugsNr
-        '
-        Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False
-        Me.txtVRGOutEZA_BezugsNr._numbersOnly = False
-        Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = ""
-        Me.txtVRGOutEZA_BezugsNr._Prozent = False
-        Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False
-        Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False
-        Me.txtVRGOutEZA_BezugsNr._TimeOnly = False
-        Me.txtVRGOutEZA_BezugsNr._value = ""
-        Me.txtVRGOutEZA_BezugsNr._Waehrung = False
-        Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False
-        Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red
-        Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 230)
-        Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1
-        Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = ""
-        Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing
-        Me.txtVRGOutEZA_BezugsNr.Multiline = True
-        Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr"
-        Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(119, 21)
-        Me.txtVRGOutEZA_BezugsNr.TabIndex = 65
-        '
        'cbxISett_IMEX
        '
        Me.cbxISett_IMEX.AutoSize = True
@@ -849,39 +861,6 @@ Partial Class frmStartOptions
        Me.Label6.TabIndex = 0
        Me.Label6.Text = "VERAG IN"
        '
-        'MyComboBox1
-        '
-        Me.MyComboBox1._allowedValuesFreiText = Nothing
-        Me.MyComboBox1._allowFreiText = False
-        Me.MyComboBox1._value = ""
-        Me.MyComboBox1.FormattingEnabled = True
-        Me.MyComboBox1.Location = New System.Drawing.Point(298, 62)
-        Me.MyComboBox1.Name = "MyComboBox1"
-        Me.MyComboBox1.Size = New System.Drawing.Size(62, 21)
-        Me.MyComboBox1.TabIndex = 4
-        '
-        'txtVRGOut_BezugsNr
-        '
-        Me.txtVRGOut_BezugsNr._DateTimeOnly = False
-        Me.txtVRGOut_BezugsNr._numbersOnly = False
-        Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = ""
-        Me.txtVRGOut_BezugsNr._Prozent = False
-        Me.txtVRGOut_BezugsNr._ShortDateNew = False
-        Me.txtVRGOut_BezugsNr._ShortDateOnly = False
-        Me.txtVRGOut_BezugsNr._TimeOnly = False
-        Me.txtVRGOut_BezugsNr._value = ""
-        Me.txtVRGOut_BezugsNr._Waehrung = False
-        Me.txtVRGOut_BezugsNr._WaehrungZeichen = False
-        Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red
-        Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62)
-        Me.txtVRGOut_BezugsNr.MaxLineLength = -1
-        Me.txtVRGOut_BezugsNr.MaxLines_Warning = ""
-        Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing
-        Me.txtVRGOut_BezugsNr.Multiline = True
-        Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr"
-        Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21)
-        Me.txtVRGOut_BezugsNr.TabIndex = 5
-        '
        'TabPage3
        '
        Me.TabPage3.Controls.Add(Me.LinkLabel31)
@@ -974,7 +953,7 @@ Partial Class frmStartOptions
        '
        Me.CheckBox1.AutoSize = True
        Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.CheckBox1.Location = New System.Drawing.Point(173, 220)
+        Me.CheckBox1.Location = New System.Drawing.Point(173, 255)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(56, 17)
        Me.CheckBox1.TabIndex = 18
@@ -986,7 +965,7 @@ Partial Class frmStartOptions
        Me.cbxBu.AutoSize = True
        Me.cbxBu.Checked = True
        Me.cbxBu.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxBu.Location = New System.Drawing.Point(87, 220)
+        Me.cbxBu.Location = New System.Drawing.Point(87, 255)
        Me.cbxBu.Name = "cbxBu"
        Me.cbxBu.Size = New System.Drawing.Size(81, 17)
        Me.cbxBu.TabIndex = 17
@@ -998,7 +977,7 @@ Partial Class frmStartOptions
        Me.cbxKd.AutoSize = True
        Me.cbxKd.Checked = True
        Me.cbxKd.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxKd.Location = New System.Drawing.Point(18, 220)
+        Me.cbxKd.Location = New System.Drawing.Point(18, 255)
        Me.cbxKd.Name = "cbxKd"
        Me.cbxKd.Size = New System.Drawing.Size(63, 17)
        Me.cbxKd.TabIndex = 16
@@ -1010,45 +989,23 @@ Partial Class frmStartOptions
        Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button9.Location = New System.Drawing.Point(18, 193)
+        Me.Button9.Location = New System.Drawing.Point(18, 228)
        Me.Button9.Name = "Button9"
        Me.Button9.Size = New System.Drawing.Size(211, 24)
        Me.Button9.TabIndex = 15
-        Me.Button9.Text = "Kunden --> DVO"
+        Me.Button9.Text = "Kunden / Buchungen --> DVO"
        Me.Button9.UseVisualStyleBackColor = True
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(15, 177)
+        Me.Label3.Location = New System.Drawing.Point(15, 212)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(138, 13)
        Me.Label3.TabIndex = 14
        Me.Label3.Text = "Routine Manager IMEX"
        '
-        'MyTextBox1
-        '
-        Me.MyTextBox1._DateTimeOnly = False
-        Me.MyTextBox1._numbersOnly = True
-        Me.MyTextBox1._numbersOnlyKommastellen = ""
-        Me.MyTextBox1._Prozent = False
-        Me.MyTextBox1._ShortDateNew = False
-        Me.MyTextBox1._ShortDateOnly = False
-        Me.MyTextBox1._TimeOnly = False
-        Me.MyTextBox1._value = "10000"
-        Me.MyTextBox1._Waehrung = False
-        Me.MyTextBox1._WaehrungZeichen = True
-        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox1.Location = New System.Drawing.Point(111, 132)
-        Me.MyTextBox1.MaxLineLength = -1
-        Me.MyTextBox1.MaxLines_Warning = ""
-        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
-        Me.MyTextBox1.Name = "MyTextBox1"
-        Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
-        Me.MyTextBox1.TabIndex = 11
-        Me.MyTextBox1.Text = "10000"
-        '
        'PictureBox12
        '
        Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
@@ -1216,12 +1173,136 @@ Partial Class frmStartOptions
        Me.lblRoutineManager.TabIndex = 1
        Me.lblRoutineManager.Text = "Routine Manager"
        '
+        'CheckBox5
+        '
+        Me.CheckBox5.AutoSize = True
+        Me.CheckBox5.Checked = True
+        Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CheckBox5.Location = New System.Drawing.Point(519, 255)
+        Me.CheckBox5.Name = "CheckBox5"
+        Me.CheckBox5.Size = New System.Drawing.Size(79, 17)
+        Me.CheckBox5.TabIndex = 43
+        Me.CheckBox5.Text = "Testsystem"
+        Me.CheckBox5.UseVisualStyleBackColor = True
+        '
+        'cboBMDUnispedFirma
+        '
+        Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing
+        Me.cboBMDUnispedFirma._allowFreiText = False
+        Me.cboBMDUnispedFirma._value = ""
+        Me.cboBMDUnispedFirma.FormattingEnabled = True
+        Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(302, 251)
+        Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma"
+        Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(148, 21)
+        Me.cboBMDUnispedFirma.TabIndex = 42
+        '
+        'MyComboBox2
+        '
+        Me.MyComboBox2._allowedValuesFreiText = Nothing
+        Me.MyComboBox2._allowFreiText = False
+        Me.MyComboBox2._value = ""
+        Me.MyComboBox2.FormattingEnabled = True
+        Me.MyComboBox2.Location = New System.Drawing.Point(298, 230)
+        Me.MyComboBox2.Name = "MyComboBox2"
+        Me.MyComboBox2.Size = New System.Drawing.Size(62, 21)
+        Me.MyComboBox2.TabIndex = 64
+        '
+        'txtVRGOutEZA_BezugsNr
+        '
+        Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False
+        Me.txtVRGOutEZA_BezugsNr._numbersOnly = False
+        Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = ""
+        Me.txtVRGOutEZA_BezugsNr._Prozent = False
+        Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False
+        Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False
+        Me.txtVRGOutEZA_BezugsNr._TimeOnly = False
+        Me.txtVRGOutEZA_BezugsNr._value = ""
+        Me.txtVRGOutEZA_BezugsNr._Waehrung = False
+        Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False
+        Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red
+        Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 230)
+        Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1
+        Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = ""
+        Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing
+        Me.txtVRGOutEZA_BezugsNr.Multiline = True
+        Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr"
+        Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(119, 21)
+        Me.txtVRGOutEZA_BezugsNr.TabIndex = 65
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(298, 62)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(62, 21)
+        Me.MyComboBox1.TabIndex = 4
+        '
+        'txtVRGOut_BezugsNr
+        '
+        Me.txtVRGOut_BezugsNr._DateTimeOnly = False
+        Me.txtVRGOut_BezugsNr._numbersOnly = False
+        Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = ""
+        Me.txtVRGOut_BezugsNr._Prozent = False
+        Me.txtVRGOut_BezugsNr._ShortDateNew = False
+        Me.txtVRGOut_BezugsNr._ShortDateOnly = False
+        Me.txtVRGOut_BezugsNr._TimeOnly = False
+        Me.txtVRGOut_BezugsNr._value = ""
+        Me.txtVRGOut_BezugsNr._Waehrung = False
+        Me.txtVRGOut_BezugsNr._WaehrungZeichen = False
+        Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red
+        Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62)
+        Me.txtVRGOut_BezugsNr.MaxLineLength = -1
+        Me.txtVRGOut_BezugsNr.MaxLines_Warning = ""
+        Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing
+        Me.txtVRGOut_BezugsNr.Multiline = True
+        Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr"
+        Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21)
+        Me.txtVRGOut_BezugsNr.TabIndex = 5
+        '
+        'MyTextBox1
+        '
+        Me.MyTextBox1._DateTimeOnly = False
+        Me.MyTextBox1._numbersOnly = True
+        Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._Prozent = False
+        Me.MyTextBox1._ShortDateNew = False
+        Me.MyTextBox1._ShortDateOnly = False
+        Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._value = "10000"
+        Me.MyTextBox1._Waehrung = False
+        Me.MyTextBox1._WaehrungZeichen = True
+        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox1.Location = New System.Drawing.Point(111, 132)
+        Me.MyTextBox1.MaxLineLength = -1
+        Me.MyTextBox1.MaxLines_Warning = ""
+        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox1.Name = "MyTextBox1"
+        Me.MyTextBox1.Size = New System.Drawing.Size(53, 20)
+        Me.MyTextBox1.TabIndex = 11
+        Me.MyTextBox1.Text = "10000"
+        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.Location = New System.Drawing.Point(449, 228)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(149, 24)
+        Me.Button4.TabIndex = 44
+        Me.Button4.Text = "Stammdaten --> BMD"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
        '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(790, 677)
+        Me.ClientSize = New System.Drawing.Size(790, 720)
        Me.Controls.Add(Me.pnl)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -1345,4 +1426,10 @@ Partial Class frmStartOptions
    Friend WithEvents CheckBox3 As CheckBox
    Friend WithEvents LinkLabel31 As LinkLabel
    Friend WithEvents Label12 As Label
+    Friend WithEvents CheckBox4 As CheckBox
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Label13 As Label
+    Friend WithEvents cboBMDUnispedFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents CheckBox5 As CheckBox
+    Friend WithEvents Button4 As Button
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -51,6 +51,13 @@ Public Class frmStartOptions
        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
        MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))

+        cboBMDUnispedFirma.Items.Clear()
+        cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Österreich", "21"))
+        cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland", "22"))
+        cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice (AT)", "23"))
+        cboBMDUnispedFirma.changeItem("")
+
        Dim PARAM = ""
        Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
        If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de          r Pfad zum programm ist
@@ -112,6 +119,12 @@ Public Class frmStartOptions
                AddHandler f.FormClosed, AddressOf closeMe


+            Case "MDM_EINARBEITUNG"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim f As New frmMDMNachrichtenVerarbeitung(True)
+                Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
            Case "TC_EINARBEITUNG"
                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
                Dim f As New frmTCNachrichtenVerarbeitung(True)
@@ -612,7 +625,7 @@ Public Class frmStartOptions
                                        getEZB_Waehrungskurse = True
                                    Next
                                End If
-
+                                VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.UPDATE_Waehrungstabelle(datum) ' Waehrungstabelle befüllen

                            End If

@@ -1218,4 +1231,18 @@ Public Class frmStartOptions
        f.ShowDialog()
        Me.Visible = True
    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False
+        If cboBMDUnispedFirma._value = "" Then
+            VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked, False)
+        Else
+            VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_Buchungen(cboBMDUnispedFirma._value, CheckBox4.Checked)
+        End If
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False
+        VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked,, False)
+    End Sub
 End Class