config in client suite

2019-02-13 16:23:02 +01:00
parent 9ee59ac400
commit 914ba9dc90
11 changed files with 64 additions and 103 deletions
--- a/EDMI_ClientSuite/frmConfigService.vb
+++ b/EDMI_ClientSuite/frmConfigService.vb
@@ -20,7 +20,9 @@ Public Class frmConfigService

        If oResult = ConnectionTestResult.Successful Then
            ' Save Endpoint URL
-            My.Settings.ICMServiceAddress = oEndpointURL
+            My.ConfigManager.Config.ServiceConnection = oEndpointURL
+            My.ConfigManager.Save()
+            'My.Settings.ICMServiceAddress = oEndpointURL
            lblStatus.Text = "Verbindung hergestellt."
        Else
            Select Case oResult