MS windream StartStop on Startup

app/DD_PM_WINDREAM/ClassInit.vb

@@ -2,7 +2,7 @@
 Imports DLLLicenseManager
 
 Public Class ClassInit
-    Private _windreamPM As ClassPMWindream
+
     Public _lizenzManager As ClassLicenseManager
     Public Sub New()
     End Sub
@@ -40,18 +40,18 @@ Public Class ClassInit
             Return True
         End If
     End Function
-    Public Function InitWindream()
-        Try
-            ' Windream instanziieren
-            _windreamPM = New ClassPMWindream()
-            'Windream initialisieren (Connection, Session, ... aufbauen)
-            Return _windreamPM.Init()
+    'Public Function InitWindream()
+    '    Try
+    '        ' Windream instanziieren
+    '        _windreamPM = New ClassPMWindream()
+    '        'Windream initialisieren (Connection, Session, ... aufbauen)
+    '        Return _windreamPM.Init()
 
-        Catch ex As Exception
-            MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
-            Return False
-        End Try
-    End Function
+    '    Catch ex As Exception
+    '        MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
+    '        Return False
+    '    End Try
+    'End Function
     Sub Refresh_Licence()
         Try
             Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
@@ -173,11 +173,35 @@ Public Class ClassInit
 
             sql = "select * from TBDD_CONNECTION"
             CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(sql)
+            Settings_LoadBasicConfig()
         Catch ex As Exception
             ClassLogger.Add("Unexpected Error in InitBasics: " & ex.Message, True)
             ERROR_STATE = "Basics not initialized"
         End Try
     End Sub
+    Private Shared Function Settings_LoadBasicConfig()
+        Try
+            Dim sql As String = "select * from tbdd_Modules where SHORT_NAME = 'PM'"
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
+            If DT.Rows.Count = 1 Then
+                vWLaufwerk = DT.Rows(0).Item("STRING1")
+                vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")
+                vFILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER")
+                Try
+                    WMSESSION_STARTSTOP_STARTUP = DT.Rows(0).Item("WMSESSION_STARTSTOP_STARTUP")
+                Catch ex As Exception
+                    WMSESSION_STARTSTOP_STARTUP = False
+                End Try
+
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Settings_LoadBasicConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+        Return True
+    End Function
     Private Function Check_User_Exists_in_Group(ByVal Groupname As String)
         Try
             Dim sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = '{1}'", USER_ID, Groupname)