Bon, kundenubersicht, etc.

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -3185,6 +3185,7 @@ Public Class usrCntlKundenuebersicht
             Exit Sub
         End If
 
+        '#wenn PDF und JSON in einem geht, dann folgende Zeile auskommentieren!
         pdfObject = cs.getPDF(company, failureDesc)
 
         'cs.AddCompanyToPortfolio(company)
@@ -3352,14 +3353,17 @@ Public Class usrCntlKundenuebersicht
 
         If cs.authenticate() = "200" Then
             Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "", KUNDE.KundenNr)
-            company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
+            company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-30))
 
             Dim currentBonID As Integer = SQL.getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE.KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
 
             If currentBonID > 0 Then company.csBonID = currentBonID
 
             Dim dt As New DataTable()
-            cs.getCompanyEvents(company, dt, checklastDate)
+            If cs.getCompanyEvents(company, dt, checklastDate, True) = "Error" Then
+                Exit Sub
+            End If
+
 
             If dt.Rows.Count > 0 Then
                 Dim frm As New Form
@@ -3387,10 +3391,17 @@ Public Class usrCntlKundenuebersicht
                         frm.Controls.Add(dgv)
                         frm.StartPosition = FormStartPosition.CenterScreen
 
-                        frm.ShowDialog()
+                    If frm.ShowDialog().Cancel Then
+                        initCreditsave()
+                        setKD(kdNr)
                     End If
 
 
+
+
+                End If
+
+
                 Else
                     MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
             End If