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

MS 2.3.0.4

Browse Source
This commit is contained in:
SchreiberM
2022-03-16 15:48:18 +01:00
parent 6c4fac05e8
commit 3ea6171c4f
28 changed files with 445 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD_PM_WINDREAM/frmGhostMode.vb
View File

@@ -1,13 +1,13 @@
Public Class frmGhostMode
Private Sub frmGhostMode_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim oSQL = "SELECT CONFIG_VALUE FROM TBIDB_BASE WHERE CONFIG_NAME = 'GHOST_SELECT'"
oSQL = Database_IDB.GetScalarValue(oSQL) ',CONNECTION_STRING_IDB, "frmGhostMode_Load")
Dim DT_USER = Database_ECM.GetDatatable(oSQL) ', "frmGhostMode_LoadDT")
oSQL = DatabaseFallback.GetScalarValueIDB(oSQL) ',CONNECTION_STRING_IDB, "frmGhostMode_Load")
Dim DT_USER = DatabaseFallback.GetDatatableECM(oSQL) ', "frmGhostMode_LoadDT")
If IsNothing(DT_USER) Then
oSQL = "SELECT [SQL_COMMAND] FROM TBDD_SQL_COMMANDS where TITLE = 'GHOST_SELECT'"
If Not IsNothing(oSQL) Then
oSQL = Database_IDB.GetScalarValue(oSQL) ', CONNECTION_STRING_ECM)
DT_USER = Database_ECM.GetDatatable(oSQL) '(oSQL, "frmGhostMode_LoadDT2")
oSQL = DatabaseFallback.GetScalarValueECM(oSQL) ', CONNECTION_STRING_ECM)
DT_USER = DatabaseFallback.GetDatatableECM(oSQL) '(oSQL, "frmGhostMode_LoadDT2")
Else
MsgBox("No SQL for Ghostmode via DD_ECM. Check Your configuration.", MsgBoxStyle.Exclamation)
Exit Sub