MS AdhocWorkflow

This commit is contained in:
2022-11-17 17:07:33 +01:00
parent 09a61da565
commit 2e0efa7670
16 changed files with 10206 additions and 12913 deletions

View File

@@ -424,11 +424,12 @@ Public Class ClassInit
Dim oStopWatch As New RefreshHelper.SW("InitBasics")
Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
oStep = "TBPM_KONFIGURATION"
'BASEDATA_DT_CONFIG = DataASorDB.GetDatatable("DD_ECM", oSql, "TBPM_KONFIGURATION", $"GUID = 1")
BASEDATA_DT_CONFIG = DatabaseFallback.GetDatatable("TBPM_KONFIGURATION", New GetDatatableOptions(oSql, DatabaseType.ECM) With {
.FilterExpression = $"GUID = 1"
})
WMSUFFIX = BASEDATA_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH")
WMDriveLetter = "W"
Settings_LoadBasicConfig()
oStep = "TBDD_CONNECTION"