AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Automatisches Mappen und Arbeiten mit Temporärem Verzeichnis

Browse Source 
ConnectionID sicher auf 1
This commit is contained in:
Developer01
2026-04-24 11:15:09 +02:00
parent 376dc3390f
commit df3f8167fe
11 changed files with 2552 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
app/TaskFlow/ClassParamRefresh.vb
View File

@@ -95,9 +95,7 @@ Public Class ClassParamRefresh
Else
Dim Database_IDB As MSSQLServer = Nothing
Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "")
Dim oConString = DatabaseFallback.GetConnectionString(CON_ID)
CONNECTION_STRING_IDB = oConString
Database_IDB = New MSSQLServer(LOGCONFIG, CONNECTION_STRING_IDB)
If Database_IDB.DBInitialized = True Then
@@ -172,7 +170,6 @@ Public Class ClassParamRefresh
LOGGER.Debug($"MON_EDITED_COLUMN: {oLEDITEDCOL}")
Catch ex As Exception
End Try
ElseIf oMode.StartsWith("PM.MON_COL_ADDED_WHEN") Then
Dim oLEDITEDCOL = oMode.Replace("PM.MON_COL_ADDED_WHEN=", "")
@@ -181,7 +178,6 @@ Public Class ClassParamRefresh
LOGGER.Debug($"MON_COL_ADDED_WHEN: {oLEDITEDCOL}")
Catch ex As Exception
End Try
ElseIf oMode.StartsWith("PM.USE_APPSERVER") Then
Dim oUSE_APPSERVER = oMode.Replace("PM.USE_APPSERVER=", "")
@@ -189,7 +185,27 @@ Public Class ClassParamRefresh
USE_APPSERVER = CBool(oUSE_APPSERVER)
Catch ex As Exception
USE_APPSERVER = False
End Try
ElseIf oMode.StartsWith("PM.COPYWM2TEMP") Then
Dim oCOPYWM2TEMP = oMode.Replace("PM.COPYWM2TEMP=", "")
Try
COPY_WMFILE_2TEMP = CBool(oCOPYWM2TEMP)
Catch ex As Exception
COPY_WMFILE_2TEMP = False
End Try
ElseIf oMode.StartsWith("PM.MAP_SHARE_DRIVE") Then
Dim oMAP_SHARE_DRIVE = oMode.Replace("PM.MAP_SHARE_DRIVE=", "")
Try
MAP_SHARE_DRIVE = oMAP_SHARE_DRIVE
Catch ex As Exception
oMAP_SHARE_DRIVE = String.Empty
End Try
ElseIf oMode.StartsWith("PM.MAP_BLACKLIST") Then
Dim oMAP_BLACKLIST = oMode.Replace("PM.MAP_BLACKLIST=", "")
Try
MAP_BLACKLIST = oMAP_BLACKLIST
Catch ex As Exception
MAP_BLACKLIST = String.Empty
End Try
ElseIf oMode.StartsWith("PM.SEARCH1") Then
Dim oSearch1 = oMode.Replace("PM.SEARCH1=", "")
@@ -197,7 +213,6 @@ Public Class ClassParamRefresh
SEARCH1 = oSearch1
Catch ex As Exception
SEARCH1 = ""
End Try
ElseIf oMode.StartsWith("PM.SEARCH2") Then
Dim oSearch2 = oMode.Replace("PM.SEARCH2=", "")
@@ -205,7 +220,6 @@ Public Class ClassParamRefresh
SEARCH2 = oSearch2
Catch ex As Exception
SEARCH2 = ""
End Try
ElseIf oMode.StartsWith("PM.TRAFFICLIGHT_ICON") Then
Dim oParam = oMode.Replace("PM.TRAFFICLIGHT_ICON=", "")