This commit is contained in:
Jonathan Jenne
2022-05-05 16:35:22 +02:00
parent f540c1dc17
commit 46d3dfbd47
4 changed files with 24 additions and 8 deletions

View File

@@ -13,6 +13,7 @@ Imports DevExpress.XtraEditors.Controls
Imports DevExpress.XtraGrid.Views.Grid
Public Class frmRowEditor
Private ReadOnly LogConfig As LogConfig
Private ReadOnly Logger As Logger
Private ReadOnly FormHelper As FormHelper
@@ -44,6 +45,7 @@ Public Class frmRowEditor
Public Sub New(pLogConfig As LogConfig, pColumns As List(Of String), pDocumentRow As DocumentRow, pMandator As Mandator, pWinline As WinlineData, pTable As Template.Table)
InitializeComponent()
LogConfig = pLogConfig
Logger = pLogConfig.GetLogger()
FormHelper = New FormHelper(pLogConfig, Me)
@@ -119,7 +121,7 @@ Public Class frmRowEditor
If oField.Value Is Nothing Then
' TODO: Do we need to create a new field value here?
' aka. do we need to configure fieldvalue from column settings
oDict.Add(oColumnName, New FieldValue())
oDict.Add(oColumnName, New FieldValue(LogConfig))
Else
oDict.Add(oColumnName, oField.Value)
End If
@@ -161,7 +163,7 @@ Public Class frmRowEditor
' If there are (non-virtual) fields in the template which do not have a value yet,
' this might happen.
If oField.Key Is Nothing Then
oField = New KeyValuePair(Of String, FieldValue)(oRow.Item(COL_KEY), New FieldValue())
oField = New KeyValuePair(Of String, FieldValue)(oRow.Item(COL_KEY), New FieldValue(LogConfig))
End If
Dim oFieldValue As FieldValue = oField.Value