GVMS Feature implementiert

2022-11-15 15:54:10 +01:00
parent 4598cce1d1
commit c4aaf70bee
6 changed files with 654 additions and 448 deletions
--- a/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb
+++ b/Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb
@@ -27,6 +27,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.dgvListe = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ExportCSV2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -63,7 +64,6 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.lblSaldo = New System.Windows.Forms.Label()
        Me.lblZollsatz = New System.Windows.Forms.Label()
        Me.lblReferenzwert = New System.Windows.Forms.Label()
-        Me.ExportCSV2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -78,24 +78,30 @@ Partial Class frmGesamtsicherheitenMenuNEU
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgvListe.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvListe.ContextMenuStrip = Me.ContextMenuStrip1
-        Me.dgvListe.Location = New System.Drawing.Point(-3, 307)
+        Me.dgvListe.Location = New System.Drawing.Point(-3, 288)
        Me.dgvListe.Name = "dgvListe"
        Me.dgvListe.ReadOnly = True
-        Me.dgvListe.Size = New System.Drawing.Size(606, 408)
+        Me.dgvListe.Size = New System.Drawing.Size(606, 427)
        Me.dgvListe.TabIndex = 1
        '
        'ContextMenuStrip1
        '
        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem, Me.ExportCSV2ToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 70)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(171, 48)
        '
        'ExportCSVToolStripMenuItem
        '
        Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
-        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
        Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
        '
+        'ExportCSV2ToolStripMenuItem
+        '
+        Me.ExportCSV2ToolStripMenuItem.Name = "ExportCSV2ToolStripMenuItem"
+        Me.ExportCSV2ToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
+        Me.ExportCSV2ToolStripMenuItem.Text = "Export CSV Details"
+        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -137,7 +143,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(606, 309)
+        Me.Panel1.Size = New System.Drawing.Size(606, 288)
        Me.Panel1.TabIndex = 0
        '
        'btnOpenOver85Days
@@ -147,7 +153,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.btnOpenOver85Days.FlatAppearance.BorderSize = 0
        Me.btnOpenOver85Days.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnOpenOver85Days.ForeColor = System.Drawing.Color.Black
-        Me.btnOpenOver85Days.Location = New System.Drawing.Point(36, 244)
+        Me.btnOpenOver85Days.Location = New System.Drawing.Point(196, 210)
        Me.btnOpenOver85Days.Name = "btnOpenOver85Days"
        Me.btnOpenOver85Days.Size = New System.Drawing.Size(116, 20)
        Me.btnOpenOver85Days.TabIndex = 32
@@ -452,7 +458,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.FlatButton2.FlatAppearance.BorderSize = 0
        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton2.Location = New System.Drawing.Point(513, 191)
+        Me.FlatButton2.Location = New System.Drawing.Point(513, 220)
        Me.FlatButton2.Name = "FlatButton2"
        Me.FlatButton2.Size = New System.Drawing.Size(81, 20)
        Me.FlatButton2.TabIndex = 30
@@ -467,7 +473,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.btnSucheStarten.FlatAppearance.BorderSize = 0
        Me.btnSucheStarten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSucheStarten.ForeColor = System.Drawing.Color.Black
-        Me.btnSucheStarten.Location = New System.Drawing.Point(32, 281)
+        Me.btnSucheStarten.Location = New System.Drawing.Point(32, 254)
        Me.btnSucheStarten.Name = "btnSucheStarten"
        Me.btnSucheStarten.Size = New System.Drawing.Size(81, 20)
        Me.btnSucheStarten.TabIndex = 33
@@ -490,7 +496,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.txtbis._WaehrungZeichen = True
        Me.txtbis.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.txtbis.ForeColor = System.Drawing.Color.Black
-        Me.txtbis.Location = New System.Drawing.Point(513, 167)
+        Me.txtbis.Location = New System.Drawing.Point(513, 196)
        Me.txtbis.MaxLineLength = -1
        Me.txtbis.MaxLines_Warning = ""
        Me.txtbis.MaxLines_Warning_Label = Nothing
@@ -516,7 +522,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.txtVon._WaehrungZeichen = True
        Me.txtVon.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.txtVon.ForeColor = System.Drawing.Color.Black
-        Me.txtVon.Location = New System.Drawing.Point(510, 124)
+        Me.txtVon.Location = New System.Drawing.Point(510, 153)
        Me.txtVon.MaxLineLength = -1
        Me.txtVon.MaxLines_Warning = ""
        Me.txtVon.MaxLines_Warning_Label = Nothing
@@ -532,7 +538,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.Label3.AutoSize = True
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
        Me.Label3.ForeColor = System.Drawing.Color.Honeydew
-        Me.Label3.Location = New System.Drawing.Point(510, 148)
+        Me.Label3.Location = New System.Drawing.Point(510, 177)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(24, 15)
        Me.Label3.TabIndex = 22
@@ -545,7 +551,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.Label2.AutoSize = True
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
        Me.Label2.ForeColor = System.Drawing.Color.Honeydew
-        Me.Label2.Location = New System.Drawing.Point(510, 105)
+        Me.Label2.Location = New System.Drawing.Point(510, 134)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(28, 15)
        Me.Label2.TabIndex = 10
@@ -605,7 +611,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.btnNeu.FlatAppearance.BorderSize = 0
        Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnNeu.ForeColor = System.Drawing.Color.Black
-        Me.btnNeu.Location = New System.Drawing.Point(522, 276)
+        Me.btnNeu.Location = New System.Drawing.Point(519, 253)
        Me.btnNeu.Name = "btnNeu"
        Me.btnNeu.Size = New System.Drawing.Size(75, 23)
        Me.btnNeu.TabIndex = 34
@@ -617,8 +623,8 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.lblSaldo.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.lblSaldo.AutoSize = True
        Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
-        Me.lblSaldo.Location = New System.Drawing.Point(398, 21)
+        Me.lblSaldo.ForeColor = System.Drawing.Color.Red
+        Me.lblSaldo.Location = New System.Drawing.Point(398, 11)
        Me.lblSaldo.Name = "lblSaldo"
        Me.lblSaldo.Size = New System.Drawing.Size(82, 24)
        Me.lblSaldo.TabIndex = 1
@@ -630,7 +636,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.lblZollsatz.AutoSize = True
        Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
-        Me.lblZollsatz.Location = New System.Drawing.Point(399, 83)
+        Me.lblZollsatz.Location = New System.Drawing.Point(399, 116)
        Me.lblZollsatz.Name = "lblZollsatz"
        Me.lblZollsatz.Size = New System.Drawing.Size(63, 16)
        Me.lblZollsatz.TabIndex = 9
@@ -642,18 +648,12 @@ Partial Class frmGesamtsicherheitenMenuNEU
        Me.lblReferenzwert.AutoSize = True
        Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
-        Me.lblReferenzwert.Location = New System.Drawing.Point(399, 56)
+        Me.lblReferenzwert.Location = New System.Drawing.Point(399, 89)
        Me.lblReferenzwert.Name = "lblReferenzwert"
        Me.lblReferenzwert.Size = New System.Drawing.Size(95, 16)
        Me.lblReferenzwert.TabIndex = 6
        Me.lblReferenzwert.Text = "Referenzwert: -"
        '
-        'ExportCSV2ToolStripMenuItem
-        '
-        Me.ExportCSV2ToolStripMenuItem.Name = "ExportCSV2ToolStripMenuItem"
-        Me.ExportCSV2ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
-        Me.ExportCSV2ToolStripMenuItem.Text = "Export CSV Details"
-        '
        'frmGesamtsicherheitenMenuNEU
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)