support NULL for date index defaultvalue

This commit is contained in:
Jonathan Jenne
2020-06-08 15:34:27 +02:00
parent db96da42ed
commit 782093fd79
3 changed files with 10 additions and 4 deletions

View File

@@ -1694,7 +1694,7 @@ Public Class frmIndex
End If
End If
Case "DATE"
Dim oPicker = oControls.AddDateTimePicker(oControlName, oControlPosition, oDataType)
Dim oPicker = oControls.AddDateTimePicker(oControlName, oControlPosition, oDataType, DefaultValue)
pnlIndex.Controls.Add(oPicker)
Case Else
@@ -2181,6 +2181,7 @@ Public Class frmIndex
If oIsOptional = True Then
_Logger.Info("Optionaler Indexwert ist NICHT gefüllt")
DynamicFolderConfig = DynamicFolderConfig.Replace(oMatch.ToString, String.Empty)
Else
_Logger.Info(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!")
Return True