fixes

VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb

@@ -2,6 +2,7 @@
 
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports com.sun.org.apache.xerces.internal.dom
 
 Public Class cAufschubKonten
     Property brgakto_id As Integer
@@ -328,12 +329,7 @@ FROM
 
 
         If showMessage Then
-            MsgBox(
-            "Saldo zum Stichtag " &
-            datumBis.ToShortDateString() &
-            ":" & vbNewLine &
-            brgakto_gs_aktSaldo.ToString("N2")
-        )
+            MsgBox("Saldo zum Stichtag " & datumBis.ToShortDateString() & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2"))
         End If
 
 
@@ -350,7 +346,15 @@ FROM
 
         Try
 
-            Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]=" & brgakto_id & " and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate.ToShortDateString & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)
+            Dim refBetrag As Double = 0
+
+            Dim refBetagDB As String = SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]=" & brgakto_id & " and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate.ToShortDateString & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,, 0,)
+
+            If refBetagDB <> "" AndAlso IsNumeric(refBetagDB) Then
+                refBetrag = CDbl(refBetagDB)
+            End If
+
+            Return refBetrag
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)