MS_02.06.2016

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -214,7 +214,7 @@ Public Class ClassControlBuilder
                                                                                                 End Function).SingleOrDefault()
                     ' Wir ersetzen den platzhalter im sql command mit dem übergebenen wert
                     sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value)
-                    If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId))
+                    If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False)
 
                     ' Jetzt wird das SQL Command ausgeführt, es MUSS einen Boolschen Wert zurückgeben, True, False, 0, 1
                     Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
@@ -317,7 +317,12 @@ Public Class ClassControlBuilder
                     End Select
                     Select Case row.Item("CONTROL_TYPE_ID")
                         Case 4 'DatePicker
-                            value = CDate(value)
+                            Try
+                                value = CDate(value)
+                            Catch ex As Exception
+                                ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & CONTROL_ID.ToString & "- Error: " & ex.Message)
+                            End Try
+
                     End Select
                     ' Diese Abfrage verhindert, dass Werte, die aus z.B. CheckedListBoxen kommen,
                     ' nicht überschrieben werden. Diese Werte werden bereits mit UpdateMultipleValues gespeichert
@@ -357,10 +362,14 @@ Public Class ClassControlBuilder
                             If dt.Rows.Count = 1 Then
                                 Try
                                     Dim val = dt.Rows(0).Item(0)
-                                    Dim dateValue As String = CDate(dt.Rows(0).Item(0))
-                                    If val = "1900-01-01" Then
+                                    Dim dateValue
+                                    Try
+                                        dateValue = CDate(val)
+                                    Catch ex As Exception
+                                        ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message)
                                         Continue For
-                                    End If
+                                    End Try
+                                  
                                     ControlLoader.DateTimePicker.LoadValue(dependingControl, dateValue)
                                     Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID)
                                     Dim id = ClassDatabase.Execute_Scalar(sql1)