From 97059223303a78c61c9842de8b887e903b99f25a Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 12 Apr 2021 16:57:24 +0200 Subject: [PATCH] PrepareDependingControl: Check for depending controls only in the current profile --- Global_Indexer/frmIndex.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index de6bca9..7340393 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -1748,6 +1748,9 @@ Public Class frmIndex Dim oSQLSuggestion = oRow.Item("SUGGESTION") Dim oSQLResult = oRow.Item("SQL_RESULT") + LOGGER.Debug("IndexName: {0}", oControlName) + LOGGER.Debug("SQL: {0}", oSQLResult) + If oDataType <> "BOOLEAN" Then addLabel(oControlName, oRow.Item("COMMENT").ToString, oLabelPosition, oControlCount) End If @@ -1859,7 +1862,7 @@ Public Class frmIndex Try Dim oMeta = DirectCast(Control.Tag, ControlCreator.ControlMeta) 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) If Not IsNothing(oDatatable) Then