From 8bb56bfaed0b4041593f37541d974fd85e1dba22 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 5 Sep 2025 17:49:18 +0200
Subject: [PATCH] credits

---
 .../Schnittstellen/Creditsafe/cCreditSafeAPI.vb               | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
index d9068aa6..7be67150 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
+++ b/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