Fehlerhandling verbessert.

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -2758,7 +2758,7 @@ Public Class usrCntlKundenuebersicht
                 End Select
 
 
-                Dim company As New cCreditSafeAPI.Company("", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "")
+                Dim company As New cCreditSafeAPI.Company("", "", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "")
 
                 If lblBonitaetsdatum._value <> Nothing Then
 
@@ -2972,8 +2972,14 @@ Public Class usrCntlKundenuebersicht
     Private Sub setCreditsafereportEntry(cs As cCreditSafeAPI, company As cCreditSafeAPI.Company)
 
         Dim pdfObject As Byte() = Nothing
-        Dim failureDesc As String = ""
-        cs.getReport(company, True)
+
+        Dim failureDesc As String = cs.getReport(company, True)
+        If failureDesc <> "" Then
+            MsgBox(failureDesc)
+            Cursor = Cursors.Default
+            Exit Sub
+        End If
+
         pdfObject = cs.getPDF(company, failureDesc)
         If pdfObject Is Nothing Then
             setCreditSafeEntry(company, Nothing, kdNr)