MS Designer

2020-03-17 17:04:40 +01:00 · 2020-03-17 17:04:40 +01:00 · c767b35b12
commit c767b35b12
parent 8a9a1d409e
6 changed files with 67 additions and 69 deletions
--- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
+++ b/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
--- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb
+++ b/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
--- a/app/DD_PM_WINDREAM/frmFormDesigner.resx
+++ b/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>
--- a/app/DD_PM_WINDREAM/frmFormDesigner.vb
+++ b/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)
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/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
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/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