Creditsafe, Datenserver, Bonit., Kundenuebersicht, etc.

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -3364,7 +3364,6 @@ Public Class usrCntlKundenuebersicht
                 Exit Sub
             End If
 
-
             If dt.Rows.Count > 0 Then
                 Dim frm As New Form
                 Dim dgv As New DataGridView()
@@ -3380,16 +3379,16 @@ Public Class usrCntlKundenuebersicht
 
                 dgv.DataSource = dt
 
-                    If dgv IsNot Nothing Then
+                If dgv IsNot Nothing Then
 
-                        frm.Size = New Size(750, 500)
-                        dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
-                        dgv.Dock = DockStyle.Fill
-                        dgv.Anchor = AnchorStyles.Left
-                        dgv.Anchor = AnchorStyles.Top
-                        dgv.ReadOnly = True
-                        frm.Controls.Add(dgv)
-                        frm.StartPosition = FormStartPosition.CenterScreen
+                    frm.Size = New Size(750, 500)
+                    dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
+                    dgv.Dock = DockStyle.Fill
+                    dgv.Anchor = AnchorStyles.Left
+                    dgv.Anchor = AnchorStyles.Top
+                    dgv.ReadOnly = True
+                    frm.Controls.Add(dgv)
+                    frm.StartPosition = FormStartPosition.CenterScreen
 
                     If frm.ShowDialog().Cancel Then
                         initCreditsave()
@@ -3401,8 +3400,9 @@ Public Class usrCntlKundenuebersicht
 
                 End If
 
+                MsgBox("Creditsafe-Daten wurden aktualisiert!")
 
-                Else
+            Else
                     MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
             End If