bugfixing gesamtsicherheiten

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.8.1.8")>
+<Assembly: AssemblyVersion("3.8.1.9")>
-<Assembly: AssemblyFileVersion("3.8.1.8")>
+<Assembly: AssemblyFileVersion("3.8.1.9")>

Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb

@@ -25,6 +25,8 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(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.Panel1 = New System.Windows.Forms.Panel()
         Me.btnOpenOver85Days = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.txtDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -61,11 +63,9 @@ 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.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.ExportCSVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Panel1.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'dgvListe
@@ -83,6 +83,18 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.dgvListe.Size = New System.Drawing.Size(606, 408)
         Me.dgvListe.TabIndex = 1
         '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
+        '
+        'ExportCSVToolStripMenuItem
+        '
+        Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
+        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
+        Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
+        '
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -607,9 +619,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblSaldo.ForeColor = System.Drawing.Color.Honeydew
         Me.lblSaldo.Location = New System.Drawing.Point(398, 21)
         Me.lblSaldo.Name = "lblSaldo"
-        Me.lblSaldo.Size = New System.Drawing.Size(147, 24)
+        Me.lblSaldo.Size = New System.Drawing.Size(82, 24)
         Me.lblSaldo.TabIndex = 1
-        Me.lblSaldo.Text = "Saldo: €80.000"
+        Me.lblSaldo.Text = "Saldo: -"
         '
         'lblZollsatz
         '
@@ -619,9 +631,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
         Me.lblZollsatz.Location = New System.Drawing.Point(399, 83)
         Me.lblZollsatz.Name = "lblZollsatz"
-        Me.lblZollsatz.Size = New System.Drawing.Size(85, 16)
+        Me.lblZollsatz.Size = New System.Drawing.Size(63, 16)
         Me.lblZollsatz.TabIndex = 9
-        Me.lblZollsatz.Text = "Zollsatz: 12%"
+        Me.lblZollsatz.Text = "Zollsatz: -"
         '
         'lblReferenzwert
         '
@@ -631,21 +643,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
         Me.lblReferenzwert.Location = New System.Drawing.Point(399, 56)
         Me.lblReferenzwert.Name = "lblReferenzwert"
-        Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16)
+        Me.lblReferenzwert.Size = New System.Drawing.Size(95, 16)
         Me.lblReferenzwert.TabIndex = 6
-        Me.lblReferenzwert.Text = "Referenzwert: €80.000"
+        Me.lblReferenzwert.Text = "Referenzwert: -"
-        '
-        'ContextMenuStrip1
-        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
-        '
-        'ExportCSVToolStripMenuItem
-        '
-        Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
-        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
-        Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
         '
         'frmGesamtsicherheitenMenuNEU
         '
@@ -661,9 +661,9 @@ Partial Class frmGesamtsicherheitenMenuNEU
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "frmGesSichMenu"
         CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
-        Me.ContextMenuStrip1.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -14,10 +14,18 @@ Public Class frmGesamtsicherheitenMenuNEU
         cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
         Me.Text = "Gesamtsicherheiten " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvListe)
+
         GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
+        If GesSichRef.hasEntry = False Then
+            MsgBox("Für den Standort " & Standort & " wurde keine Referenz hingerlegt!")
+            Exit Sub
+
+        End If
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
 
 
+
+
         txtDatVon.Text = Now.ToShortDateString
         txtDatBis.Text = Now.ToShortDateString
 
@@ -31,11 +39,6 @@ Public Class frmGesamtsicherheitenMenuNEU
             End If
         End If
 
-
-
-
-        'txtDatVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
-        'txtDatBis.Text = Date.Today.ToString("dd.MM.yyyy")
         ShowStandort()
         LoadDGV()
     End Sub
@@ -135,8 +138,7 @@ Public Class frmGesamtsicherheitenMenuNEU
     End Function
 
     Public Sub ShowStandort()
-        'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
+        lblReferenzwert.Text = "Referenzwert: €" & CDbl(GesSichRef.gsr_referenzwert).ToString("N")
-        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
         lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
     End Sub

Aviso/frmGesamtsicherheitenNEU.vb

@@ -416,10 +416,6 @@ Public Class frmGesamtsicherheitenNEU
 
                 OPENPos.SAVE()
 
-
-
-
-
             Next
 
             AfterButton()