AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Improve config screen, add waiting days

Browse Source
This commit is contained in:
Jonathan Jenne
2022-03-31 11:57:54 +02:00
parent f289a1d34c
commit 147f72b8a3
9 changed files with 488 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
MultiTool.Form/frmConfig.vb
View File

@@ -4,6 +4,8 @@ Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Imports MultiTool.Shared
Imports MultiTool.Shared.Constants
Public Class frmConfig
Private ReadOnly ConfigManager As ConfigManager(Of MultiTool.Shared.Config)
@@ -12,6 +14,8 @@ Public Class frmConfig
Private BindingSource As BindingSource = TBEDIXMLITEMSBindingSource
Private View As GridView = GridViewSchema
Private TBMT_CONFIG_GENERAL As New DS_DD_ECM.TBMT_CONFIGDataTable
Private ReadOnly Property Config As MultiTool.Shared.Config
Get
Return ConfigManager?.Config
@@ -45,14 +49,76 @@ Public Class frmConfig
TBMT_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString()
TBMT_CONFIGTableAdapter.Fill(DS_DD_ECM.TBMT_CONFIG)
TBMT_CONFIGTableAdapter.FillGeneral(TBMT_CONFIG_GENERAL)
LoadGeneralConfig(TBMT_CONFIG_GENERAL)
End Sub
Private Sub LoadGeneralConfig(TBMT_CONFIG_GENERAL As DS_DD_ECM.TBMT_CONFIGDataTable)
For Each oRow As DataRow In TBMT_CONFIG_GENERAL.Rows
Dim oConfigKey = oRow.ItemEx("KEY", "")
Dim oConfigValue = oRow.ItemEx("VALUE", "")
Select Case oConfigKey
Case "YEAR_OVERRIDE"
txtYearOverride.EditValue = oConfigValue
Case "WEBSERVICE_BASEURL"
txtWebserviceBaseurl.EditValue = oConfigValue
Case "WEBSERVICE_USERNAME"
txtWebserviceUsername.EditValue = oConfigValue
Case "WEBSERIVCE_PASSWORD"
txtWebservicePassword.EditValue = oConfigValue
Case "WEBSERVICE_IMPORT_BASE_PATH"
txtWebserviceImportBasePath.EditValue = oConfigValue
Case "WEBSERVICE_IMPORT_RELATIVE_PATH"
txtWebserviceImportRelativePath.EditValue = oConfigValue
End Select
Next
End Sub
Private Sub SaveGeneralConfig(TBMT_CONFIG_GENERAL As DS_DD_ECM.TBMT_CONFIGDataTable)
For Each oRow As DataRow In TBMT_CONFIG_GENERAL.Rows
Dim oConfigKey = oRow.ItemEx("KEY", "")
Select Case oConfigKey
Case "YEAR_OVERRIDE"
oRow.Item("VALUE") = txtYearOverride.EditValue
Case "WEBSERVICE_BASEURL"
oRow.Item("VALUE") = txtWebserviceBaseurl.EditValue
Case "WEBSERVICE_USERNAME"
oRow.Item("VALUE") = txtWebserviceUsername.EditValue
Case "WEBSERIVCE_PASSWORD"
oRow.Item("VALUE") = txtWebservicePassword.EditValue
Case "WEBSERVICE_IMPORT_BASE_PATH"
oRow.Item("VALUE") = txtWebserviceImportBasePath.EditValue
Case "WEBSERVICE_IMPORT_RELATIVE_PATH"
oRow.Item("VALUE") = txtWebserviceImportRelativePath.EditValue
End Select
Next
End Sub
Private Sub Save()
TBMT_CONFIGTableAdapter.Update(DS_DD_ECM.TBMT_CONFIG)
DS_DD_ECM.TBMT_CONFIG.AcceptChanges()
TBMT_CONFIGTableAdapter.Update(DS_DD_ECM.TBMT_CONFIG)
TBMT_CONFIG_GENERAL.AcceptChanges()
SaveGeneralConfig(TBMT_CONFIG_GENERAL)
TBMT_CONFIGTableAdapter.Update(TBMT_CONFIG_GENERAL)
TBMT_TEMPLATE_ITEMSTableAdapter.Update(DS_DD_ECM.TBMT_TEMPLATE_ITEMS)
DS_DD_ECM.TBMT_TEMPLATE_ITEMS.AcceptChanges()
TBMT_TEMPLATE_ITEMSTableAdapter.Update(DS_DD_ECM.TBMT_TEMPLATE_ITEMS)
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick