First Version

EDIDocumentImport/frmConfig.vb

@@ -0,0 +1,28 @@
+Imports DigitalData.Modules.Config
+
+Public Class frmConfig
+    Public Property ConfigManager As ConfigManager(Of ImporterShared.Config)
+
+    Private ReadOnly Property Config As ImporterShared.Config
+        Get
+            Return ConfigManager?.Config
+        End Get
+    End Property
+
+    Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        txtBaseURL.EditValue = Config.Webservice.BaseUrl
+        txtUsername.EditValue = Config.Webservice.Username
+        txtPassword.EditValue = Config.Webservice.Password
+        txtImportBasePath.EditValue = Config.Webservice.ImportBasePath
+        txtImportRelativePath.EditValue = Config.Webservice.ImportRelativePath
+    End Sub
+
+    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+        Config.Webservice.BaseUrl = txtBaseURL.EditValue
+        Config.Webservice.Username = txtUsername.EditValue
+        Config.Webservice.Password = txtPassword.EditValue
+        Config.Webservice.ImportBasePath = txtImportBasePath.EditValue
+        Config.Webservice.ImportRelativePath = txtImportRelativePath.EditValue
+        ConfigManager.Save()
+    End Sub
+End Class