Patterns: Format datepicker value in a culture neutral way

Modules.Config/ConfigManager.vb

@@ -321,6 +321,7 @@ Public Class ConfigManager(Of T)
 
             Using oStream = New MemoryStream()
                 _Serializer.Serialize(oStream, Data)
+                _Logger.Debug("Object serialized.")
                 Return oStream.ToArray()
             End Using
         Catch ex As Exception

Modules.Config/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("Modules.Config")>
-<Assembly: AssemblyCopyright("Copyright © 2021")>
+<Assembly: AssemblyCopyright("Copyright © 2022")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.1.4.0")>
-<Assembly: AssemblyFileVersion("1.1.4.0")>
+<Assembly: AssemblyVersion("1.1.4.1")>
+<Assembly: AssemblyFileVersion("1.1.4.1")>

Modules.Interfaces/ZUGFeRDInterface/PropertyValues.vb

@@ -146,7 +146,7 @@ Public Class PropertyValues
             Try
                 oPropertyValueList = GetPropValue(Document, oItem.Key)
             Catch ex As Exception
-                _logger.Warn($"{MessageId} # Unknown error occurred while fetching specification {0} in group {1}:", oTableColumn, oItem.Value.GroupScope)
+                _logger.Warn("{2} # Unknown error occurred while fetching specification [{0}] in group [{1}]:", oTableColumn, oItem.Value.GroupScope, MessageId)
                 _logger.Error(ex)
                 oPropertyValueList = New List(Of Object)
             End Try
@@ -177,11 +177,11 @@ Public Class PropertyValues
 
             If IsNothing(oPropertyValue) OrElse String.IsNullOrEmpty(oPropertyValue) Then
                 If oItem.Value.IsRequired Then
-                    _logger.Warn($"{MessageId} # Specification [{oTableColumn}] is empty, but marked as required! Skipping.")
+                    _logger.Warn("{0} # Specification [{1}] is empty, but marked as required! Skipping.", MessageId, oTableColumn)
                     oResult.MissingProperties.Add(oTableColumn)
                     Continue For
                 Else
-                    _logger.Debug($"{MessageId} # oPropertyValue for specification [{oTableColumn}] is empty or not found. Skipping.")
+                    _logger.Debug("{0} # oPropertyValue for specification [{1}] is empty or not found. Skipping.", MessageId, oTableColumn)
 
                     Continue For
                 End If
@@ -208,7 +208,6 @@ Public Class PropertyValues
             Return New List(Of Object)
         End If
 
-
         If oNameParts.Length = 1 Then
             Dim oPropInfo As PropertyInfo = Obj.GetType().GetProperty(PropertyName)
 
@@ -235,7 +234,7 @@ Public Class PropertyValues
             Dim oInfo As PropertyInfo = oType.GetProperty(oPartName)
 
             If IsNothing(oInfo) OrElse IsNothing(oInfo.GetValue(Obj, Nothing)) Then
-                _logger.Debug("Property {0} does not exist(2).", oPartName)
+                _logger.Debug("Property [{0}] does not exist(2).", oPartName)
                 Return New List(Of Object)
             End If
 

Modules.Patterns/Modules/Controls.vb

@@ -48,7 +48,8 @@ Namespace Modules
 
                             Case GetType(DevExpress.XtraEditors.DateEdit)
                                 Dim oDateEdit As DevExpress.XtraEditors.DateEdit = oControl
-                                oReplaceValue = oDateEdit.EditValue
+                                Dim oDateValue As Date = oDateEdit.EditValue
+                                oReplaceValue = oDateValue.ToString("yyyyMMdd")
 
                             Case GetType(DevExpress.XtraEditors.LookUpEdit)
                                 Dim oLookupEdit As DevExpress.XtraEditors.LookUpEdit = oControl

Service.EDMIService/Methods/Database/GetDatatableFromCache/GetDatatableFromCacheMethod.vb

@@ -25,6 +25,9 @@ Namespace Methods.Database.GetDatatableFromCache
                     Dim oFilterExpression As String = Utils.NotNull(pData.FilterExpression, String.Empty)
                     Dim oSortByColumn As String = Utils.NotNull(pData.SortByColumn, String.Empty)
 
+                    Logger.Debug("Applying filter expression: [{0}]", oFilterExpression)
+                    Logger.Debug("Applying sort expression: [{0}]", oSortByColumn)
+
                     Dim oFilteredRows = oDataTable.Select(oFilterExpression, oSortByColumn)
                     Dim oFilteredTable As DataTable = Nothing