jj

app/DD_PM_WINDREAM/ClassControlCreator.vb

@@ -35,6 +35,7 @@ Public Class ClassControlCreator
     Public Const PREFIX_LINE = "LINE"
     Public Const PREFIX_BUTTON = "BTN"
 
+    Public Shared GridTables As New Dictionary(Of String, DataTable)
 
     ''' <summary>
     ''' Standard Eigenschaften für alle Controls
@@ -425,7 +426,7 @@ Public Class ClassControlCreator
 
         End With
 
-        Dim oTables As New Dictionary(Of String, DataTable)
+        GridTables.Clear()
 
         For Each oRow As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In columns
             ' Create Columns in Datatable
@@ -443,15 +444,19 @@ Public Class ClassControlCreator
             Dim oConnectionId As Integer = NotNull(oRow.Item("CONNECTION_ID"), 0)
             Dim oSqlCommand As String = NotNull(oRow.Item("SQL_COMMAND"), "")
 
-            If oConnectionId > 0 And oSqlCommand <> "" Then
+            If Not clsPatterns.HasComplexPatterns(oSqlCommand) Then
-                Try
+                If oConnectionId > 0 And oSqlCommand <> "" Then
-                    Dim oComboboxDataTable As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId)
+                    Try
-                    oTables.Add(oRow.SPALTENNAME, oComboboxDataTable)
+                        Dim oComboboxDataTable As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oConnectionId)
-                Catch ex As Exception
+                        GridTables.Add(oRow.SPALTENNAME, oComboboxDataTable)
-                    LOGGER.Warn("Could not load data for column {0} in control {1}", oRow.SPALTENNAME, oControl.Name)
+                    Catch ex As Exception
-                    LOGGER.Error(ex)
+                        LOGGER.Warn("Could not load data for column {0} in control {1}", oRow.SPALTENNAME, oControl.Name)
-                End Try
+                        LOGGER.Error(ex)
+                    End Try
+                End If
             End If
+
+
         Next
 
         oControl.DataSource = oDatatable
@@ -463,8 +468,8 @@ Public Class ClassControlCreator
                                                 For Each oRow As DD_DMSLiteDataSet.TBPM_CONTROL_TABLERow In columns
                                                     If oRow.SPALTENNAME = e.Column.FieldName Then
 
-                                                        If oTables.ContainsKey(e.Column.FieldName) Then
+                                                        If GridTables.ContainsKey(e.Column.FieldName) Then
-                                                            Dim oComboboxDataTable As DataTable = oTables.Item(e.Column.FieldName)
+                                                            Dim oComboboxDataTable As DataTable = GridTables.Item(e.Column.FieldName)
                                                             Dim oEditor As New RepositoryItemComboBox()
                                                             Dim oItems As New List(Of String)
 

app/DD_PM_WINDREAM/My Project/licenses.licx

@@ -0,0 +1 @@
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD_PM_WINDREAM/frmValidator.vb

@@ -53,6 +53,7 @@ Public Class frmValidator
     Private _frmValidatorSearch As frmValidatorSearch 'You need a reference to Form1
     Private _dependingControl_in_action As Boolean = False
     Private DTCONTROLS As DataTable
+    Private DTGRID_COLUMNS As DataTable
     Private DTVWCONTROL_INDEX As DataTable
     Private FormLoaded As Boolean = False
     Private ItemWorked As Boolean = False
@@ -557,6 +558,8 @@ Public Class frmValidator
             Dim oSQL = $"SELECT * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC"
             DTCONTROLS = ClassDatabase.Return_Datatable(oSQL)
 
+            oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0"
+            DTGRID_COLUMNS = ClassDatabase.Return_Datatable(oSQL)
             Dim oCount As Integer = 0
 
             For Each oControlRow As DataRow In DTCONTROLS.Rows
@@ -1142,57 +1145,99 @@ Public Class frmValidator
         Try
             If Not IsNothing(SelectedValues) Then
                 If SelectedValues.Count = 1 Then
-                    Dim oLOOKUPValue = SelectedValues.Item(0)
+                    LookupControl_DependingControls(oLookup, SelectedValues)
-                    Dim oLOOKUPName = oLookup.Name
+                    LookupControl_DependingColumn(oLookup, SelectedValues)
-
-                    Dim oControlID = DirectCast(oLookup.Tag, ClassControlCreator.ControlMetadata).Guid
-                    Dim oFilteredDatatable As DataTable = DTCONTROLS.Clone()
-                    Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oLOOKUPName}%'"
-                    DTCONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
-                    If oFilteredDatatable.Rows.Count = 1 Then
-                        Dim oDEPENDING_GUID = oFilteredDatatable.Rows(0).Item("GUID")
-                        Dim oDEPENDING_CtrlName = oFilteredDatatable.Rows(0).Item("NAME")
-                        If _dependingControl_in_action = True Then
-                            Exit Sub
-                        End If
-                        If Not IsDBNull(oFilteredDatatable.Rows(0).Item("CONNECTION_ID")) And Not IsDBNull(oFilteredDatatable.Rows(0).Item("SQL_UEBERPRUEFUNG")) Then
-                            Dim oSqlCommand = IIf(IsDBNull(oFilteredDatatable.Rows(0).Item("SQL_UEBERPRUEFUNG")), "", oFilteredDatatable.Rows(0).Item("SQL_UEBERPRUEFUNG"))
-                            oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
-                            LOGGER.Debug(">>> sql after ReplaceAllValues: " & oSqlCommand)
-                            _dependingControl_in_action = True
-                            Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
-                            Try
-                                'Dim oDependingLookup As LookupControl2 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault()
-                                For Each oControl As Control In pnldesigner.Controls
-
-                                    If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then
-                                        If oControl.GetType.ToString = "System.Windows.Forms.TextBox" Then
-                                            oControl.Text = oDTDEPENDING_RESULT.Rows(0).Item(0)
-                                        Else
-                                            Dim oDependingLookup As LookupControl2 = oControl
-                                            oDependingLookup.DataSource = oDTDEPENDING_RESULT
-                                        End If
-                                        _dependingControl_in_action = False
-                                        Exit For
-                                    End If
-
-                                Next
-
-
-                            Catch ex As Exception
-                                LOGGER.Warn($"Error while setting depending control-value for [{oDEPENDING_CtrlName}]:  " & ex.Message)
-                                _dependingControl_in_action = False
-                            End Try
-                            SendKeys.Send("{TAB}")
-                            ControlHandleStarted = True
-                        End If
-                    End If
                 End If
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
         End Try
     End Sub
+
+    Private Sub LookupControl_DependingControls(LookupControl As LookupControl2, SelectedValues As List(Of String))
+        Dim oLOOKUPValue = SelectedValues.Item(0)
+        Dim oLOOKUPName = LookupControl.Name
+
+        Dim oControlID = DirectCast(LookupControl.Tag, ClassControlCreator.ControlMetadata).Guid
+        Dim oFilteredDatatable As DataTable = DTCONTROLS.Clone()
+        Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oLOOKUPName}%'"
+        DTCONTROLS.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
+        If oFilteredDatatable.Rows.Count = 1 Then
+            Dim oDEPENDING_GUID = oFilteredDatatable.Rows(0).Item("GUID")
+            Dim oDEPENDING_CtrlName = oFilteredDatatable.Rows(0).Item("NAME")
+            If _dependingControl_in_action = True Then
+                Exit Sub
+            End If
+            If Not IsDBNull(oFilteredDatatable.Rows(0).Item("CONNECTION_ID")) And Not IsDBNull(oFilteredDatatable.Rows(0).Item("SQL_UEBERPRUEFUNG")) Then
+                Dim oSqlCommand = IIf(IsDBNull(oFilteredDatatable.Rows(0).Item("SQL_UEBERPRUEFUNG")), "", oFilteredDatatable.Rows(0).Item("SQL_UEBERPRUEFUNG"))
+                oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
+                LOGGER.Debug(">>> sql after ReplaceAllValues: " & oSqlCommand)
+                _dependingControl_in_action = True
+                Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
+                Try
+                    'Dim oDependingLookup As LookupControl2 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault()
+                    For Each oControl As Control In pnldesigner.Controls
+
+                        If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then
+                            Select Case oControl.GetType.ToString
+                                Case GetType(TextBox).ToString
+                                    oControl.Text = oDTDEPENDING_RESULT.Rows(0).Item(0)
+                                Case GetType(LookupControl2).ToString
+                                    Dim oDependingLookup As LookupControl2 = oControl
+                                    oDependingLookup.DataSource = oDTDEPENDING_RESULT
+                                Case GetType(GridControl).ToString
+                                    'ClassControlCreator.GridTables
+
+                            End Select
+                            _dependingControl_in_action = False
+                            Exit For
+                        End If
+
+                    Next
+
+
+                Catch ex As Exception
+                    LOGGER.Warn($"Error while setting depending control-value for [{oDEPENDING_CtrlName}]:  " & ex.Message)
+                    _dependingControl_in_action = False
+                End Try
+                SendKeys.Send("{TAB}")
+                ControlHandleStarted = True
+            End If
+        End If
+    End Sub
+    Private Sub LookupControl_DependingColumn(LookupControl As LookupControl2, SelectedValues As List(Of String))
+        Dim oSQLColumnDatatable As DataTable = DTGRID_COLUMNS.Clone()
+        Dim oExpression = $"SQL_COMMAND like '%#CTRL#{LookupControl.Name}%'"
+        DTGRID_COLUMNS.Select(oExpression).CopyToDataTable(oSQLColumnDatatable, LoadOption.PreserveChanges)
+        If oSQLColumnDatatable.Rows.Count > 0 Then
+            For Each oRow As DataRow In oSQLColumnDatatable.Rows
+                Dim oDEPENDING_GUID = DTGRID_COLUMNS.Rows(0).Item("CONTROL_ID")
+                Dim oDEPENDING_COLUMN = DTGRID_COLUMNS.Rows(0).Item("SPALTENNAME")
+                Dim oSqlCommand = DTGRID_COLUMNS.Rows(0).Item("SQL_COMMAND")
+                If _dependingControl_in_action = True Then
+                    Exit Sub
+                End If
+                oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
+                LOGGER.Debug(">>> sql after ReplaceAllValues: " & oSqlCommand)
+                _dependingControl_in_action = True
+                Try
+                    Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
+                    For Each oControl As Control In pnldesigner.Controls
+                        If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then
+                            ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT)
+                            _dependingControl_in_action = False
+                            Exit For
+                        End If
+                    Next
+                Catch ex As Exception
+                    LOGGER.Error(ex)
+                    _dependingControl_in_action = False
+                End Try
+            Next
+        End If
+    End Sub
+
+
     Public Sub OnCmbselectedIndex(sender As System.Object, e As System.EventArgs)
         Dim cmb As ComboBox = sender
         If cmb.SelectedIndex <> -1 And _Indexe_Loaded = True Then