cbam

VERAG_PROG_ALLGEMEIN/Classes/cFremdwaehrungskurse.vb

@@ -39,7 +39,7 @@ Public Class cFremdwaehrungskurse
     Public Function SAVE() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
-
+        If fw_iso3 Is Nothing Then fw_iso3 = ""
         Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblZOLL_Wechselkurse WITH(updlock,serializable) WHERE fw_iso2=@fw_iso2 AND fw_startdatum=@fw_startdatum AND fw_enddatum=@fw_enddatum AND fw_kurswert=@fw_kurswert) " &
                        " BEGIN " & getUpdateCmd() & " END " &
                        " Else " &