This commit is contained in:
SchreiberM
2016-08-08 16:25:08 +02:00
parent a0761e43c5
commit b604f991a2
14 changed files with 2663 additions and 3251 deletions

View File

@@ -290,7 +290,7 @@ Public Class ClassControlBuilder
Select Case row.Item("CONTROL_TYPE_ID")
Case 4 'DatePicker
Try
value = CDate(Format(value, "dd-MM-yyyy"))
value = CStr(CDate(value)) 'Format(value, "dd-MM-yyyy"))
Catch ex As Exception
ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & CONTROL_ID.ToString & "- Error: " & ex.Message)
End Try
@@ -335,7 +335,7 @@ Public Class ClassControlBuilder
Dim val = dt.Rows(0).Item(0)
Dim dateValue
Try
dateValue = CDate(Format(val, "dd-MM-yyyy"))
dateValue = CStr(CDate(val)) 'Format(val, "dd-MM-yyyy"))
Catch ex As Exception
ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message)
Continue For