diff --git a/app/DD-Record-Organiser/ClassControlValuesConverter.vb b/app/DD-Record-Organiser/ClassControlValuesConverter.vb
new file mode 100644
index 0000000..65466cb
--- /dev/null
+++ b/app/DD-Record-Organiser/ClassControlValuesConverter.vb
@@ -0,0 +1,40 @@
+Public Class ClassControlValuesConverter
+
+ Public Shared Function ToBooleanOrDefault(value As Object, Optional defaultValue As Boolean = False)
+ Try
+ If IsDBNull(value) OrElse value = "" Then
+ Return defaultValue
+ Else
+ Return Convert.ToBoolean(value)
+ End If
+ Catch ex As Exception
+ Return defaultValue
+ End Try
+ End Function
+
+ Public Shared Function ToStringOrDefault(value As Object, Optional defaultValue As String = "")
+ Try
+ If IsDBNull(value) OrElse String.IsNullOrEmpty(value) Then
+ Return defaultValue
+ Else
+ Return Convert.ToString(value)
+ End If
+ Catch ex As Exception
+ Return defaultValue
+ End Try
+ End Function
+
+
+ Public Shared Function ToIntOrDefault(value As Object, Optional defaultValue As Integer = 0)
+ Try
+ If IsDBNull(value) Then
+ Return defaultValue
+ Else
+ Return Convert.ToInt16(value)
+ End If
+ Catch ex As Exception
+ Return defaultValue
+ End Try
+ End Function
+
+End Class
diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
index c98ba26..5701427 100644
--- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
+++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj
@@ -234,6 +234,7 @@
+
frmAbout.vb
diff --git a/app/DD-Record-Organiser/My Project/AssemblyInfo.vb b/app/DD-Record-Organiser/My Project/AssemblyInfo.vb
index 1ea8a63..ee082da 100644
--- a/app/DD-Record-Organiser/My Project/AssemblyInfo.vb
+++ b/app/DD-Record-Organiser/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
'
-
+
diff --git a/app/DD-Record-Organiser/frmTool_ControlProperties.vb b/app/DD-Record-Organiser/frmTool_ControlProperties.vb
index ff76204..c88f99e 100644
--- a/app/DD-Record-Organiser/frmTool_ControlProperties.vb
+++ b/app/DD-Record-Organiser/frmTool_ControlProperties.vb
@@ -105,11 +105,13 @@
Case "RadioButton"
props = New RadioButtonProperties()
props.Caption = row.Item("CTRLSCR_CAPTION")
- If Not IsDBNull(row.Item("CONTROL_DEF_VALUE")) Then
- props.DefaultValue = row.Item("CONTROL_DEF_VALUE")
- Else
- props.DefaultValue = False
- End If
+
+ props.DefaultValue = ClassControlValuesConverter.ToBooleanOrDefault(row.Item("CONTROL_DEF_VALUE"))
+ 'If Not IsDBNull(row.Item("CONTROL_DEF_VALUE")) Then
+ ' props.DefaultValue = row.Item("CONTROL_DEF_VALUE")
+ 'Else
+ ' props.DefaultValue = False
+ 'End If
Case "F_AddAppointment"
props = New FunctionAddAppointment()
Case "F_AddFormData"
diff --git a/app/SetupWiX/Product.wxs b/app/SetupWiX/Product.wxs
index e0389d8..0d589f3 100644
--- a/app/SetupWiX/Product.wxs
+++ b/app/SetupWiX/Product.wxs
@@ -1,7 +1,7 @@
-
+