MS Designer

app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb

@@ -112,6 +112,7 @@ Module ModuleRuntimeVariables
     Public errormessage As String
 
     Public WINDREAM As ClassPMWindream
+    Public WINDREAM_ALLG As ClassWindream_allgemein
     Public FINALINDICES As ClassFinalIndex
     Public IDBData As ClassIDBData
     Public LOGCONFIG As LogConfig

app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb

@@ -101,11 +101,11 @@ Partial Class frmFormDesigner
         Me.GroupBox1.Controls.Add(Me.btntextbox)
         Me.GroupBox1.Controls.Add(Me.btnlabel)
         Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox1.Location = New System.Drawing.Point(3, 3)
+        Me.GroupBox1.Location = New System.Drawing.Point(7, 5)
         Me.GroupBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
-        Me.GroupBox1.Size = New System.Drawing.Size(371, 125)
+        Me.GroupBox1.Size = New System.Drawing.Size(362, 122)
         Me.GroupBox1.TabIndex = 2
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Control-Typ (Drag and Drop)"
@@ -115,10 +115,10 @@ Partial Class frmFormDesigner
         Me.btnButton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnButton.Image = CType(resources.GetObject("btnButton.Image"), System.Drawing.Image)
         Me.btnButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnButton.Location = New System.Drawing.Point(217, 20)
+        Me.btnButton.Location = New System.Drawing.Point(215, 20)
         Me.btnButton.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnButton.Name = "btnButton"
-        Me.btnButton.Size = New System.Drawing.Size(99, 28)
+        Me.btnButton.Size = New System.Drawing.Size(98, 23)
         Me.btnButton.TabIndex = 8
         Me.btnButton.Text = "Button"
         Me.btnButton.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -129,10 +129,10 @@ Partial Class frmFormDesigner
         Me.btnLine.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnLine.Image = CType(resources.GetObject("btnLine.Image"), System.Drawing.Image)
         Me.btnLine.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnLine.Location = New System.Drawing.Point(217, 82)
+        Me.btnLine.Location = New System.Drawing.Point(215, 47)
         Me.btnLine.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnLine.Name = "btnLine"
-        Me.btnLine.Size = New System.Drawing.Size(99, 28)
+        Me.btnLine.Size = New System.Drawing.Size(98, 23)
         Me.btnLine.TabIndex = 7
         Me.btnLine.Text = "Linie"
         Me.btnLine.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -143,10 +143,10 @@ Partial Class frmFormDesigner
         Me.btnTabelle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnTabelle.Image = Global.DD_ProcessManager.My.Resources.Resources.table_add
         Me.btnTabelle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnTabelle.Location = New System.Drawing.Point(112, 20)
+        Me.btnTabelle.Location = New System.Drawing.Point(111, 20)
         Me.btnTabelle.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnTabelle.Name = "btnTabelle"
-        Me.btnTabelle.Size = New System.Drawing.Size(99, 28)
+        Me.btnTabelle.Size = New System.Drawing.Size(98, 23)
         Me.btnTabelle.TabIndex = 6
         Me.btnTabelle.Text = "Tabelle"
         Me.btnTabelle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -157,10 +157,10 @@ Partial Class frmFormDesigner
         Me.btnCheckbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnCheckbox.Image = Global.DD_ProcessManager.My.Resources.Resources.checkbox_16xLG
         Me.btnCheckbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnCheckbox.Location = New System.Drawing.Point(112, 84)
+        Me.btnCheckbox.Location = New System.Drawing.Point(111, 74)
         Me.btnCheckbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnCheckbox.Name = "btnCheckbox"
-        Me.btnCheckbox.Size = New System.Drawing.Size(99, 28)
+        Me.btnCheckbox.Size = New System.Drawing.Size(98, 23)
         Me.btnCheckbox.TabIndex = 5
         Me.btnCheckbox.Text = "Checkbox"
         Me.btnCheckbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -171,10 +171,10 @@ Partial Class frmFormDesigner
         Me.btnVektor.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnVektor.Image = Global.DD_ProcessManager.My.Resources.Resources.ComboBox_16xLG
         Me.btnVektor.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnVektor.Location = New System.Drawing.Point(7, 84)
+        Me.btnVektor.Location = New System.Drawing.Point(7, 74)
         Me.btnVektor.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnVektor.Name = "btnVektor"
-        Me.btnVektor.Size = New System.Drawing.Size(99, 28)
+        Me.btnVektor.Size = New System.Drawing.Size(98, 23)
         Me.btnVektor.TabIndex = 4
         Me.btnVektor.Text = "LookupControl"
         Me.btnVektor.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -185,10 +185,10 @@ Partial Class frmFormDesigner
         Me.btndtp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btndtp.Image = Global.DD_ProcessManager.My.Resources.Resources.DateOrTimePicker_675
         Me.btndtp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btndtp.Location = New System.Drawing.Point(112, 52)
+        Me.btndtp.Location = New System.Drawing.Point(111, 47)
         Me.btndtp.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btndtp.Name = "btndtp"
-        Me.btndtp.Size = New System.Drawing.Size(99, 28)
+        Me.btndtp.Size = New System.Drawing.Size(98, 23)
         Me.btndtp.TabIndex = 3
         Me.btndtp.Text = "DatePicker"
         Me.btndtp.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -199,10 +199,10 @@ Partial Class frmFormDesigner
         Me.btntextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btntextbox.Image = Global.DD_ProcessManager.My.Resources.Resources.TextBox_708
         Me.btntextbox.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btntextbox.Location = New System.Drawing.Point(7, 52)
+        Me.btntextbox.Location = New System.Drawing.Point(7, 47)
         Me.btntextbox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btntextbox.Name = "btntextbox"
-        Me.btntextbox.Size = New System.Drawing.Size(99, 28)
+        Me.btntextbox.Size = New System.Drawing.Size(98, 23)
         Me.btntextbox.TabIndex = 1
         Me.btntextbox.Text = "Textbox"
         Me.btntextbox.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -216,7 +216,7 @@ Partial Class frmFormDesigner
         Me.btnlabel.Location = New System.Drawing.Point(7, 20)
         Me.btnlabel.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnlabel.Name = "btnlabel"
-        Me.btnlabel.Size = New System.Drawing.Size(99, 28)
+        Me.btnlabel.Size = New System.Drawing.Size(98, 23)
         Me.btnlabel.TabIndex = 0
         Me.btnlabel.Text = "Label"
         Me.btnlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -224,14 +224,17 @@ Partial Class frmFormDesigner
         '
         'TabControlEigenschaften
         '
+        Me.TabControlEigenschaften.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.TabControlEigenschaften.Controls.Add(Me.pageProperties)
         Me.TabControlEigenschaften.Controls.Add(Me.pageFormat)
         Me.TabControlEigenschaften.Enabled = False
-        Me.TabControlEigenschaften.Location = New System.Drawing.Point(3, 132)
+        Me.TabControlEigenschaften.Location = New System.Drawing.Point(7, 106)
         Me.TabControlEigenschaften.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.TabControlEigenschaften.Name = "TabControlEigenschaften"
         Me.TabControlEigenschaften.SelectedIndex = 0
-        Me.TabControlEigenschaften.Size = New System.Drawing.Size(378, 389)
+        Me.TabControlEigenschaften.Size = New System.Drawing.Size(366, 415)
         Me.TabControlEigenschaften.TabIndex = 22
         '
         'pageProperties
@@ -241,7 +244,7 @@ Partial Class frmFormDesigner
         Me.pageProperties.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.pageProperties.Name = "pageProperties"
         Me.pageProperties.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
-        Me.pageProperties.Size = New System.Drawing.Size(370, 360)
+        Me.pageProperties.Size = New System.Drawing.Size(358, 386)
         Me.pageProperties.TabIndex = 3
         Me.pageProperties.Text = "Eigenschaften"
         Me.pageProperties.UseVisualStyleBackColor = True
@@ -253,7 +256,7 @@ Partial Class frmFormDesigner
         Me.pgControls.Location = New System.Drawing.Point(3, 2)
         Me.pgControls.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.pgControls.Name = "pgControls"
-        Me.pgControls.Size = New System.Drawing.Size(364, 356)
+        Me.pgControls.Size = New System.Drawing.Size(352, 382)
         Me.pgControls.TabIndex = 0
         '
         'pageFormat
@@ -265,11 +268,11 @@ Partial Class frmFormDesigner
         Me.pageFormat.Controls.Add(Me.btnwidth_minus)
         Me.pageFormat.Controls.Add(Me.btnwidth_plus)
         Me.pageFormat.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.pageFormat.Location = New System.Drawing.Point(4, 22)
+        Me.pageFormat.Location = New System.Drawing.Point(4, 25)
         Me.pageFormat.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.pageFormat.Name = "pageFormat"
         Me.pageFormat.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
-        Me.pageFormat.Size = New System.Drawing.Size(313, 290)
+        Me.pageFormat.Size = New System.Drawing.Size(358, 361)
         Me.pageFormat.TabIndex = 1
         Me.pageFormat.Text = "Format"
         Me.pageFormat.UseVisualStyleBackColor = True
@@ -279,10 +282,10 @@ Partial Class frmFormDesigner
         Me.btnheight_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnheight_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out
         Me.btnheight_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnheight_minus.Location = New System.Drawing.Point(44, 24)
+        Me.btnheight_minus.Location = New System.Drawing.Point(84, 69)
         Me.btnheight_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnheight_minus.Name = "btnheight_minus"
-        Me.btnheight_minus.Size = New System.Drawing.Size(34, 9)
+        Me.btnheight_minus.Size = New System.Drawing.Size(65, 29)
         Me.btnheight_minus.TabIndex = 1
         Me.btnheight_minus.Text = "kleiner"
         Me.btnheight_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -293,10 +296,10 @@ Partial Class frmFormDesigner
         Me.btnheight_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnheight_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in
         Me.btnheight_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnheight_plus.Location = New System.Drawing.Point(6, 24)
+        Me.btnheight_plus.Location = New System.Drawing.Point(7, 66)
         Me.btnheight_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnheight_plus.Name = "btnheight_plus"
-        Me.btnheight_plus.Size = New System.Drawing.Size(34, 9)
+        Me.btnheight_plus.Size = New System.Drawing.Size(72, 34)
         Me.btnheight_plus.TabIndex = 0
         Me.btnheight_plus.Text = "größer"
         Me.btnheight_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -305,7 +308,7 @@ Partial Class frmFormDesigner
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(5, 18)
+        Me.Label3.Location = New System.Drawing.Point(8, 50)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(42, 16)
         Me.Label3.TabIndex = 5
@@ -314,7 +317,7 @@ Partial Class frmFormDesigner
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(5, 2)
+        Me.Label2.Location = New System.Drawing.Point(4, 2)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(46, 16)
         Me.Label2.TabIndex = 4
@@ -325,10 +328,10 @@ Partial Class frmFormDesigner
         Me.btnwidth_minus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnwidth_minus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_out
         Me.btnwidth_minus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnwidth_minus.Location = New System.Drawing.Point(44, 8)
+        Me.btnwidth_minus.Location = New System.Drawing.Point(83, 21)
         Me.btnwidth_minus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnwidth_minus.Name = "btnwidth_minus"
-        Me.btnwidth_minus.Size = New System.Drawing.Size(34, 9)
+        Me.btnwidth_minus.Size = New System.Drawing.Size(66, 26)
         Me.btnwidth_minus.TabIndex = 1
         Me.btnwidth_minus.Text = "kleiner"
         Me.btnwidth_minus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -339,10 +342,10 @@ Partial Class frmFormDesigner
         Me.btnwidth_plus.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnwidth_plus.Image = Global.DD_ProcessManager.My.Resources.Resources.zoom_in
         Me.btnwidth_plus.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnwidth_plus.Location = New System.Drawing.Point(6, 8)
+        Me.btnwidth_plus.Location = New System.Drawing.Point(7, 21)
         Me.btnwidth_plus.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
         Me.btnwidth_plus.Name = "btnwidth_plus"
-        Me.btnwidth_plus.Size = New System.Drawing.Size(34, 9)
+        Me.btnwidth_plus.Size = New System.Drawing.Size(72, 27)
         Me.btnwidth_plus.TabIndex = 0
         Me.btnwidth_plus.Text = "größer"
         Me.btnwidth_plus.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -473,7 +476,7 @@ Partial Class frmFormDesigner
         '
         Me.Label1.AutoSize = True
         Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption
-        Me.Label1.Location = New System.Drawing.Point(40, 50)
+        Me.Label1.Location = New System.Drawing.Point(30, 40)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(347, 16)
         Me.Label1.TabIndex = 6
@@ -484,7 +487,7 @@ Partial Class frmFormDesigner
         Me.lblhintergrund.AutoSize = True
         Me.lblhintergrund.Font = New System.Drawing.Font("Tahoma", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblhintergrund.ForeColor = System.Drawing.SystemColors.InactiveCaption
-        Me.lblhintergrund.Location = New System.Drawing.Point(40, 40)
+        Me.lblhintergrund.Location = New System.Drawing.Point(30, 30)
         Me.lblhintergrund.Name = "lblhintergrund"
         Me.lblhintergrund.Size = New System.Drawing.Size(248, 29)
         Me.lblhintergrund.TabIndex = 1

app/DD_PM_WINDREAM/frmFormDesigner.resx

@@ -140,6 +140,9 @@
   <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>206, 17</value>
   </metadata>
+  <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>206, 17</value>
+  </metadata>
   <metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 56</value>
   </metadata>

app/DD_PM_WINDREAM/frmFormDesigner.vb

@@ -1145,8 +1145,6 @@ Public Class frmFormDesigner
 
     Private Sub bbtnItemFinishSQL_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnItemFinishSQL.ItemClick
         Try
-
-
             CURRENT_DESIGN_TYPE = "SQL_BTNFINISH"
             Dim oSQL = $"SELECT SQL_BTN_FINISH FROM TBPM_PROFILE WHERE GUID = {ProfileId}"
             Dim oldSQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)

app/DD_PM_WINDREAM/frmMain.vb

@@ -15,7 +15,6 @@ Imports System.IO
 Imports System.Drawing.Imaging
 
 Public Class frmMain
-    'Private _windreamPM As ClassPMWindream
     Private UserLoggedin As Integer = 0
     Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
     Private CURR_DT_OVERVIEW As DataTable
@@ -32,7 +31,6 @@ Public Class frmMain
     Private RefreshHelper As RefreshHelper
     Private formopenClose As Boolean = False
     Private formShown As Boolean = False
-    'Private _windream As New ClassWindream_allgemein
     Private allgFunk As New ClassAllgemeineFunktionen
 
     Private CurrNavBarGroup As NavBarGroup
@@ -193,7 +191,6 @@ Public Class frmMain
 
             If IDB_ACTIVE = False And ERROR_STATE = "" Then
                 Try
-                    WINDREAM = New ClassPMWindream
                     WINDREAM.Start_WMCC_andCo()
                     If Not IsNothing(WINDREAM.oSession) Then
                         If WINDREAM.oSession.aLoggedin = False Then
@@ -1099,6 +1096,7 @@ Public Class frmMain
             '_windreamPM.Create_Session()
             WINDREAM = New ClassPMWindream()
             WINDREAM.Create_Session()
+            WINDREAM_ALLG = New ClassWindream_allgemein
 
             LOGGER.Debug("windream initialized")
             Return True
@@ -1137,7 +1135,6 @@ Public Class frmMain
 
             If IDB_ACTIVE = False Then
                 SOURCE_INIT = Init_windream()
-
             Else
                 SOURCE_INIT = Init_IDB()
             End If

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