MS Designer

app/DD_PM_WINDREAM/frmValidator.vb

@@ -23,8 +23,7 @@ Public Class frmValidator
     Dim WD_Search As String
     Dim finalProfile As Boolean
     Dim Move2Folder As String
-    'Private _windreamPM As New ClassPMWindream
-    Private _windream As ClassWindream_allgemein
+
     Private allgFunk As New ClassAllgemeineFunktionen
 
     'speichert die DocumentDaten
@@ -296,30 +295,6 @@ Public Class frmValidator
 
 
     End Sub
-
-    Private Function Init_IDB()
-        Try
-            IDBData = New ClassIDBData
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox("Error Init_IDB:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
-        End Try
-    End Function
-    Private Function Init_windream()
-        Try
-            WINDREAM = New ClassPMWindream()
-            WINDREAM.Create_Session()
-            LOGGER.Debug("windream initialized")
-            Return True
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
-            allgFunk.Insert_LogEntry($"ERROR Init_windream >> {ex.Message}")
-            LOGGER.Info(">> Error Init_windream: " & ex.Message, True)
-            Return False
-        End Try
-    End Function
-
     Public Sub Load_Additional_Searches()
         If BASEDATA_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Or BASEDATA_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
             Dim oDocResultCommand As String
@@ -1717,6 +1692,26 @@ Public Class frmValidator
             LOGGER.Error(ex)
         End Try
     End Sub
+    Private Sub Controls2beDisabled()
+        Try
+            Dim oFilteredDatatable As DataTable = DTCONTROLS.Clone()
+            Dim oExpression = $"LEN(SQL_ENABLE) > 0"
+            DTCONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
+            If oFilteredDatatable.Rows.Count > 0 Then
+                LOGGER.Debug($"We got {oFilteredDatatable.Rows.Count} controls which need to be disabled!!")
+            End If
+            For Each oRowEnablingControl As DataRow In oFilteredDatatable.Rows
+                Dim oENABLE_GUID = oRowEnablingControl.Item("GUID")
+                Dim oENABLE_CtrlName = oRowEnablingControl.Item("NAME")
+                For Each oControl As Control In pnldesigner.Controls
+                    oControl.Enabled = False
+                    Exit For
+                Next
+            Next
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
+    End Sub
     Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String)
         Try
             Dim resultDT As DataTable = ClassDatabase.Return_Datatable_ConStr(sqlCommand, sqlConnection)
@@ -3116,6 +3111,7 @@ Public Class frmValidator
         Load_Next_Document(True)
         _dependingControl_in_action = False
         _dependingColumn_in_action = False
+        Controls2beDisabled()
         BringToFront()
         FormLoaded = True
         LOGGER.Debug("frmValidation_Shown finished!")
@@ -3450,7 +3446,7 @@ Public Class frmValidator
 
                         'wenn Move2Folder aktiviert wurde
                         If Move2Folder <> "" Then
-                            idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, _windream)
+                            idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, WINDREAM_ALLG)
                             If idxerr_message <> "" Then
                                 errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message
                                 My.Settings.Save()
@@ -4515,7 +4511,7 @@ Public Class frmValidator
 
                 End If
 
-                Dim resul = allgFunk.Delete_xffres(WMDocPathWindows, _windream)
+                Dim resul = allgFunk.Delete_xffres(WMDocPathWindows, WINDREAM_ALLG)
                 If resul = Nothing Or resul = True Then
                     Dim oDeleteResult As Boolean = False
                     If IDB_ACTIVE = False Then