From e47a7eac674830ce187a049ee65b86ed0c55cc22 Mon Sep 17 00:00:00 2001
From: JenneJ <j.jenne@didalog.de>
Date: Mon, 26 Oct 2015 11:00:18 +0100
Subject: [PATCH] jj - fix default valu & datetime picker read only on creation

---
 app/DD-Record-Organiser/ClassControlCommands.vb   | 2 +-
 app/DD-Record-Organiser/ClassControlProperties.vb | 3 +++
 app/DD-Record-Organiser/frmLevel_Designer.vb      | 2 +-
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/app/DD-Record-Organiser/ClassControlCommands.vb b/app/DD-Record-Organiser/ClassControlCommands.vb
index 47f777e..3a1698c 100644
--- a/app/DD-Record-Organiser/ClassControlCommands.vb
+++ b/app/DD-Record-Organiser/ClassControlCommands.vb
@@ -75,7 +75,7 @@
 
             ' SQL Befehl für CONTROL TABELLE
             ' SQL_COMMAND_1 auf leeren String setzen
-            SQL = "INSERT INTO TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES (" & CURRENT_FORM_ID & ", " & CONTROL_TYPE_ID & ", 'False', '" & NAME & "', '" & NAME & "', " & PARENT_CONTROL_ID & ", '')"
+            SQL = "INSERT INTO TBPMO_CONTROL (FORM_ID, CONTROL_TYPE_ID, DEFAULT_VALUE, NAME, COL_NAME, PARENT_CONTROL_ID, SQL_COMMAND_1) VALUES (" & CURRENT_FORM_ID & ", " & CONTROL_TYPE_ID & ", '', '" & NAME & "', '" & NAME & "', " & PARENT_CONTROL_ID & ", '')"
 
             If ClassDatabase.Execute_non_Query(SQL) = True Then
                 SQL = "SELECT MAX(GUID) FROM TBPMO_CONTROL"
diff --git a/app/DD-Record-Organiser/ClassControlProperties.vb b/app/DD-Record-Organiser/ClassControlProperties.vb
index 6eacc7c..174ab2f 100644
--- a/app/DD-Record-Organiser/ClassControlProperties.vb
+++ b/app/DD-Record-Organiser/ClassControlProperties.vb
@@ -180,6 +180,7 @@ Module ClassControlProperties
         End Property
         <CategoryAttribute("Sonstige Einstellungen")>
         <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
+        <DefaultValue("")>
         Public Property DefaultValue() As String
             Get
                 Return _default_Value
@@ -322,6 +323,7 @@ Module ClassControlProperties
 
         <CategoryAttribute("Sonstige Einstellungen")>
         <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
+        <DefaultValue(False)>
         Public Overloads Property DefaultValue As Boolean
             Get
                 Return _default_value
@@ -352,6 +354,7 @@ Module ClassControlProperties
 
         <CategoryAttribute("Sonstige Einstellungen")>
         <DescriptionAttribute("Gibt den Standardwert dieses Elements an.")>
+        <DefaultValue(False)>
         Public Overloads Property DefaultValue As Boolean
             Get
                 Return _default_value
diff --git a/app/DD-Record-Organiser/frmLevel_Designer.vb b/app/DD-Record-Organiser/frmLevel_Designer.vb
index 82e87a6..7edc448 100644
--- a/app/DD-Record-Organiser/frmLevel_Designer.vb
+++ b/app/DD-Record-Organiser/frmLevel_Designer.vb
@@ -123,7 +123,7 @@
                 ' Aktuelles Control in die Datenbank speichern
                 ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl)
             Case "dtp"
-                CtrlBuilder.AddDateTimePicker("dtp" & random, 0, 0, def_font_family, def_font_size, def_font_style, 0, False, 0, 0, True, True, Parent)
+                CtrlBuilder.AddDateTimePicker("dtp" & random, 0, 0, def_font_family, def_font_size, def_font_style, 0, False, 0, 0, False, True, Parent)
                 ' Aktuelles Control in die Datenbank speichern
                 ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl)
             Case "dgv"