neu

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -443,7 +443,7 @@ Public Class cRechnungsausgang
         sqlstr &= "  FROM   Rechnungsausgang  as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz"
         sqlstr &= "  WHERE RA.rk_id='" & Me.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1"
 
-        Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL") Is DBNull.Value, False, True)
+        Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, Nothing) Is Nothing, False, True)
     End Function
 
     Public Function setSPEDBUCH_FAKTURIERT(Optional wert As Boolean = True) As Boolean 'obj As Object, tablename As String, where As String) As Boolean