2 Commits

Author SHA1 Message Date
Jonathan Jenne
9b251623dc version 2.3.0.2 2021-10-19 16:32:09 +02:00
Jonathan Jenne
235ce4818a Fix error with missing columns in CTRL placeholder 2021-10-19 16:31:45 +02:00
2 changed files with 7 additions and 5 deletions

View File

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Process Manager")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2021")>
<Assembly: AssemblyTrademark("2301")>
<Assembly: AssemblyTrademark("2302")>
<Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.3.0.1")>
<Assembly: AssemblyVersion("2.3.0.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@@ -197,6 +197,8 @@ Public Class clsPatterns
oColumnName = oSplitName.Last()
End If
LOGGER.Debug("Found placeholder for control [{0}].", oControlName)
Dim oControl As Control = oPanel.Controls.Find(oControlName, False).FirstOrDefault()
If oControl IsNot Nothing Then
@@ -233,13 +235,13 @@ Public Class clsPatterns
Where(Function(c) c.FieldName = oColumnName).
SingleOrDefault()
If oColumn Is Nothing Then
If oColumn?.SummaryItem?.SummaryValue Is Nothing Then
LOGGER.Warn("Column [{0}] not found in Grid!", oColumnName)
oReplaceValue = ERROR_REPLACE_VALUE
Else
oReplaceValue = oColumn.SummaryItem.SummaryValue
End If
oReplaceValue = oColumn.SummaryItem.SummaryValue
Case Else
oReplaceValue = ERROR_REPLACE_VALUE
End Select