Bugfix Creditsafe-Report

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -3,6 +3,7 @@ Imports System.Globalization
 Imports System.IO
 Imports com.oracle.xmlns.internal.webservices.jaxws_databinding
 Imports com.sun.org.apache.bcel.internal.generic
+Imports itextsharp.text.pdf
 Imports java.rmi.server
 Imports javax.swing.plaf
 Imports SDL.EORI
@@ -2758,7 +2759,7 @@ Public Class usrCntlKundenuebersicht
 
 
                 Dim company As New cCreditSafeAPI.Company("", "", land, KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "")
-                Dim pdfObject As Byte() = Nothing
+
                 If lblBonitaetsdatum._value <> Nothing Then
 
                     Dim lastChecked As Date = Date.ParseExact(lblBonitaetsdatum._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
@@ -2767,22 +2768,18 @@ Public Class usrCntlKundenuebersicht
                     If cs.checkDateOfLastRequest(company) < lastChecked Then
                         Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
                         If a = vbYes Then
-                            cs.getReport(company, True)
-                            pdfObject = cs.getPDF(company)
-                            setCreditSafeEntry(company, pdfObject, kdNr)
+
+                            setCreditsafereportEntry(cs, company)
+
                         End If
 
                     Else
-                        cs.getReport(company, True)
-                        pdfObject = cs.getPDF(company)
-                        setCreditSafeEntry(company, pdfObject, kdNr)
+                        setCreditsafereportEntry(cs, company)
 
                     End If
                 Else
 
-                    cs.getReport(company, True)
-                    pdfObject = cs.getPDF(company)
-                    setCreditSafeEntry(company, pdfObject, kdNr)
+                    setCreditsafereportEntry(cs, company)
 
                 End If
 
@@ -2971,4 +2968,20 @@ Public Class usrCntlKundenuebersicht
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
         genUIDEORIList(kdNr, "EORI")
     End Sub
+
+    Private Sub setCreditsafereportEntry(cs As cCreditSafeAPI, company As cCreditSafeAPI.Company)
+
+        Dim pdfObject As Byte() = Nothing
+        Dim failureDesc As String = ""
+        cs.getReport(company, True)
+        pdfObject = cs.getPDF(company, failureDesc)
+        If pdfObject Is Nothing Then
+            setCreditSafeEntry(company, Nothing, kdNr)
+            MsgBox("Fehler beim Erstellen des PDF-Dokuments" & vbNewLine & failureDesc)
+        Else
+            setCreditSafeEntry(company, pdfObject, kdNr)
+        End If
+
+    End Sub
+
 End Class