credits

VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb

@@ -734,7 +734,7 @@ Public Class cCreditSafeAPI
                     saveCR = True
                 End If
 
-                If saveCR Then CR = value
+                If saveCR AndAlso IsNumeric(value) Then CR = value
 
             Case "CL"
                 Dim saveCL As Boolean = False
@@ -743,7 +743,7 @@ Public Class cCreditSafeAPI
                     saveCL = True
                 End If
 
-                If saveCL Then CL = value
+                If saveCL AndAlso IsNumeric(value) Then CL = value
 
         End Select