load default config when config exists but is empty

EDMI_ClientSuite/frmConfigService.vb

@@ -32,6 +32,8 @@
                 Select Case oResult
                     Case ClassService.ConnectionTestResult.NotFound
                         lblStatus.Text = "Dienst konnte nicht gefunden werden. Bitte überprüfen sie Addresse und Port."
+                    Case ClassService.ConnectionTestResult.EmptyURI
+                        lblStatus.Text = "Bitte tragen Sie eine gültige Dienst Adresse ein."
                     Case Else
                         lblStatus.Text = "Unbekannter Fehler."
                 End Select
@@ -43,6 +45,11 @@
     End Sub
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
-        DialogResult = DialogResult.OK
+        If My.SystemConfigManager.Config.ServiceConnection <> String.Empty Then
+            DialogResult = DialogResult.OK
+            Close()
+        Else
+            MsgBox("Bitte tragen Sie die Dienst Adresse ein!")
+        End If
     End Sub
 End Class