Fix placeholder format for manual indexes in automatic indexes

This commit is contained in:
Jonathan Jenne
2023-01-31 14:52:07 +01:00
parent 3995c6c9fd
commit 8f129647fb
2 changed files with 5 additions and 4 deletions

View File

@@ -655,13 +655,14 @@ Public Class frmAdministration
Dim oDatatable = DATABASE_ECM.GetDatatable($"SELECT * FROM TBDD_INDEX_MAN WHERE DOK_ID = {oDocTypeGuid} AND ACTIVE = 1")
Dim oPlaceholders = oDatatable.AsEnumerable().
ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("WD_INDEX"))
ToDictionary(Of String, String)(Function(row) row.Item("NAME"), Function(row) row.Item("NAME"))
Dim oForm2 As New DigitalData.GUIs.Common.frmSQLEditor(LOGCONFIG, DATABASE_ECM) With {
.SQLCommand = oSQLCommand,
.SQLConnection = oConnection,
.PlaceholdersManual = oPlaceholders,
.PlaceholdersManualTitle = "Manueller Index"
.PlaceholdersManualTitle = "Manueller Index",
.PlaceholdersAutomaticPrefix = "CTRL"
}
Dim oResult = oForm2.ShowDialog()