From c767b35b121d18ccd7253423dd2573c025689cf9 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 17 Mar 2020 17:04:40 +0100 Subject: [PATCH] MS Designer --- app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb | 1 + .../frmFormDesigner.Designer.vb | 73 ++++++++++--------- app/DD_PM_WINDREAM/frmFormDesigner.resx | 3 + app/DD_PM_WINDREAM/frmFormDesigner.vb | 2 - app/DD_PM_WINDREAM/frmMain.vb | 5 +- app/DD_PM_WINDREAM/frmValidator.vb | 52 ++++++------- 6 files changed, 67 insertions(+), 69 deletions(-) diff --git a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb index fdf9794..ab31096 100644 --- 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 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb index 7164d4a..5aa378b 100644 --- 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 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.resx b/app/DD_PM_WINDREAM/frmFormDesigner.resx index 48e2412..184e344 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.resx +++ b/app/DD_PM_WINDREAM/frmFormDesigner.resx @@ -140,6 +140,9 @@ 206, 17 + + 206, 17 + 17, 56 diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index 51e5e62..451fc06 100644 --- 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) diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 933fa72..f122489 100644 --- 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 diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 5148fe2..5e05ae0 100644 --- 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