MS

app/DD-Record-Organizer/ClassControlCommandsUI.vb

@@ -507,7 +507,10 @@ Public Class ClassControlCommandsUI
                     UpsertImage(id, RecordID, ctrl.BackgroundImage)
                     Continue For
                 End If
+                If TypeOf ctrl Is DevExpress.XtraEditors.DateEdit Then
+                    Console.WriteLine("Updating DateEdit " + ctrl.Name)
 
+                End If
                 If TypeOf ctrl Is GroupBox Then
                     Dim ctrls As Control.ControlCollection = DirectCast(ctrl, GroupBox).Controls
                     UpdateAllControls(FormID, RecordID, ctrls)
@@ -603,7 +606,7 @@ Public Class ClassControlCommandsUI
             Dim oldValues = dt.AsEnumerable().Select(Of String)(Function(r)
                                                                     Return r.Item("VALUE")
                                                                 End Function).ToList()
-            If IsNothing(value) And dt.Rows.Count = 0 Then
+            If (IsNothing(value) Or value = String.Empty) And dt.Rows.Count = 0 Then
                 Exit Sub
             End If
             Dim values As New List(Of String)
@@ -615,6 +618,7 @@ Public Class ClassControlCommandsUI
             End If
             'Dim values As New List(Of String)(value.Split(";"))
             Dim AddValues = values.Except(oldValues).ToList()
+
             Dim RemoveValues = oldValues.Except(values).ToList()
             For Each _addValue As String In AddValues
                 If Not _addValue = "" Then
@@ -658,7 +662,13 @@ Public Class ClassControlCommandsUI
                 If IsDBNull(Value) Or IsNothing(Value) Then
                     Return ""
                 Else
-                    Return DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).DateTime.ToString("yyyy-MM-dd")
+                    Dim datevalue = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).DateTime.ToString("yyyy-MM-dd")
+                    If datevalue = "0001-01-01" Then
+                        Return ""
+                    Else
+                        Return datevalue
+                    End If
+
                 End If
             Case "PictureBox"
                 'Return "PictureBox" 'Es ist egal was für ein String hier zurückgegeben wird, hauptsache nicht Nothing
@@ -778,7 +788,7 @@ Public Class ClassControlCommandsUI
                     Dim value As String = gridview.GetRowCellValue(index, fieldName)
                     result.Add(value)
                 Next
-
+                CURRENT_CONTROL_VALUE_COUNT = result.Count
                 result_string = String.Join(";", result)
 
                 If Not IsNothing(result_string) Then
@@ -889,7 +899,9 @@ Public Class ClassControlCommandsUI
                 _result = 0
             End If
         Catch ex As Exception
-            ClassHelper.MSGBOX_Handler("ERROR", "Error", "Error in CreateControlProcedure: ", ex.Message)
+            Dim name = clsDatabase.Execute_Scalar("SELECT NAME FROM TBPMO_CONTROL WHERE GUID = " & ControlID, True)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CreateControlProcedure für Control: " & name)
+            ClassLogger.Add("Error in CreateControlProcedure: " & ex.Message, True)
             Return 0
         End Try
     End Function