creditsafe-api

initATLASAufschubkonten/frmStartOptions.vb

@@ -851,6 +851,9 @@ Public Class frmStartOptions
                 Dim sendMail As Boolean = True
 
                 importCreditsafeEvents(CDate(Today().AddDays(-1)).ToShortDateString, checkDate, upateKunden, setzeInfoImKunden, sendMail, False)
+
+
+
                 closeMe()
 
             Case "CREDITSAFE_UPLOADS"
@@ -6429,8 +6432,8 @@ weiter:
                 Dim dtMonitoredRequest As New DataTable
 
                 Dim companyDummy As New cCreditSafeAPI.Company("", "", "", "", "", "", Nothing, "", "", "", "", "", "", "", "", "", 0)
-                If txtCSDate.Text <> "" AndAlso IsDate(txtCSDate.Text) Then
-                    companyDummy.lastChecked = CDate(txtCSDate.Text)
+                If datum <> "" AndAlso IsDate(datum) Then
+                    companyDummy.lastChecked = CDate(datum)
                 End If
 repeatRequestDaily:
                 Dim page As Integer = 0