version 2.0.1.0 - radiobutton fix

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

app/DD-Record-Organiser/DD-Record-Organiser.vbproj

@@ -234,6 +234,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="ClassControlValuesConverter.vb" />
     <Compile Include="frmAbout.designer.vb">
       <DependentUpon>frmAbout.vb</DependentUpon>
     </Compile>

app/DD-Record-Organiser/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.0.0.0")> 
+<Assembly: AssemblyVersion("2.0.1.0")> 
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

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")
+                            props.DefaultValue = ClassControlValuesConverter.ToBooleanOrDefault(row.Item("CONTROL_DEF_VALUE"))
-                            Else
+                            'If Not IsDBNull(row.Item("CONTROL_DEF_VALUE")) Then
-                                props.DefaultValue = False
+                            '    props.DefaultValue = row.Item("CONTROL_DEF_VALUE")
-                            End If
+                            'Else
+                            '    props.DefaultValue = False
+                            'End If
                         Case "F_AddAppointment"
                             props = New FunctionAddAppointment()
                         Case "F_AddFormData"

app/SetupWiX/Product.wxs

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Wix xmlns="http://schemas.microsoft.com/wix/2006/wi"
      xmlns:util="http://schemas.microsoft.com/wix/UtilExtension">
-  <Product Name="Record Organizer" Id="*" UpgradeCode="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}" Version="2.0.0.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
+  <Product Name="Record Organizer" Id="*" UpgradeCode="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}" Version="2.0.1.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
     <Package Id="*" Keywords="Installer" Description="Digital Data Record Organizer Setup" Comments="Record Organizer is a registered Trademark of Digital Data" Manufacturer="Digital Data" InstallerVersion="100" Languages="1031" Compressed="yes" SummaryCodepage="1252"/>
     
     <!-- Nicht entfernen! -->