MS_06022016

This commit is contained in:
SchreiberM
2016-02-08 09:24:29 +01:00
parent ab475bfa7a
commit 85d4120c50
14 changed files with 229 additions and 149 deletions

View File

@@ -131,7 +131,7 @@
CType(r.Item("CTRLSCR_FONT_SIZE"), Single),
CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle))
props.ColumnTitle = r.Item("CONTROL_COL_NAME")
Dim i = r.Item("CONTROL_DEF_VALUE")
props.DefaultValue = NotNull(r.Item("CONTROL_DEF_VALUE"), EnumDateTimePickerDefaultValueOptions.Empty)
props.IsRequired = r.Item("CONTROL_REQUIRED")
props.IsReadOnly = r.Item("CONTROL_READ_ONLY")
@@ -225,10 +225,10 @@
Dim f = ClassFunctionCommands.LoadFunction(controlId)
Dim FormId = f.Item("INTEGER1")
props.FormID = NotNull(FormId, 0)
props.FormID = NotNullInt(FormId, 0)
Dim ScreenId = f.Item("INTEGER2")
props.ScreenID = NotNull(ScreenId, 0)
props.ScreenID = NotNullInt(ScreenId, 0)
End Select