AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

PrepareDependingControl: Check for depending controls only in the current profile

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-12 16:57:24 +02:00
parent 80654f97d6
commit 9705922330
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Global_Indexer/frmIndex.vb
View File

@ -1748,6 +1748,9 @@ Public Class frmIndex
Dim oSQLSuggestion = oRow.Item("SUGGESTION") Dim oSQLSuggestion = oRow.Item("SUGGESTION")
Dim oSQLResult = oRow.Item("SQL_RESULT") Dim oSQLResult = oRow.Item("SQL_RESULT")
LOGGER.Debug("IndexName: {0}", oControlName)
LOGGER.Debug("SQL: {0}", oSQLResult)
If oDataType <> "BOOLEAN" Then If oDataType <> "BOOLEAN" Then
addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount) addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount)
End If End If
@ -1859,7 +1862,7 @@ Public Class frmIndex
Try Try
Dim oMeta = DirectCast(Control.Tag, ControlCreator.ControlMeta) Dim oMeta = DirectCast(Control.Tag, ControlCreator.ControlMeta)
Dim oIndexName As String = oMeta.IndexName Dim oIndexName As String = oMeta.IndexName
Dim oSQL = $"SELECT * FROM TBDD_INDEX_MAN WHERE SQL_RESULT LIKE '%{oIndexName}%'" Dim oSQL = $"SELECT * FROM TBDD_INDEX_MAN WHERE SQL_RESULT LIKE '%{oIndexName}%' AND DOK_ID = {CURRENT_DOKART_ID}"
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL) Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
If Not IsNothing(oDatatable) Then If Not IsNothing(oDatatable) Then