bugfixing gesamtsicherheiten

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: €" & GesSichRef.gsr_referenzwert.ToString()
+        lblReferenzwert.Text = "Referenzwert: €" & CDbl(GesSichRef.gsr_referenzwert).ToString("N")
         lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
     End Sub