MS

app/DD-Record-Organiser/ClassControlBuilder.vb

@@ -241,12 +241,12 @@ Public Class ClassControlBuilder
                     Dim ctrlvalID = ClassDatabase.Execute_Scalar(sqlguid)
                     If Not IsNothing(ctrlvalID) Then
                         Dim upd1 = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", value.ToString, CONTROL_ID, CURRENT_RECORD_ID)
-                        ClassDatabase.Execute_non_Query(upd1)
+                        ' ClassDatabase.Execute_non_Query(upd1)
                     Else
                         Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", CONTROL_ID, CURRENT_RECORD_ID, value, Environment.UserName)
-                        If ClassDatabase.Execute_non_Query(ins) = True Then
-                            If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
-                        End If
+                        'If ClassDatabase.Execute_non_Query(ins) = True Then
+                        '    If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'")
+                        'End If
                     End If
 
 
@@ -264,6 +264,7 @@ Public Class ClassControlBuilder
 
                     Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand)
                     Dim type = dependingControl.GetType().Name
+
                     Select Case type
                         Case "DateEdit"
                             If dt.Rows.Count = 1 Then
@@ -301,6 +302,8 @@ Public Class ClassControlBuilder
                             End If
                         Case "CustomComboBox"
                             ControlLoader.Combobox.SetDataSource(DirectCast(dependingControl, CustomComboBox), dt)
+                        Case "CheckedListBoxControl"
+                            ControlLoader.CheckedListBox.SetDataSource(DirectCast(dependingControl, DevExpress.XtraEditors.CheckedListBoxControl), dt)
                         Case "Label"
                             If dt.Rows.Count = 1 Then
                                 Try
@@ -392,6 +395,49 @@ Public Class ClassControlBuilder
             Depending_Controls(control, datatable, value)
             Enable_Controls(control, datatable1, value)
             
+            Console.WriteLine("value changed")
+        Catch ex As Exception
+            If ex.Message.Contains("Objektverweis") Or ex.Message.Contains("reference not set") Then
+
+            Else
+                MsgBox("Error in OnComboBoxValueChanged - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical)
+            End If
+        End Try
+    End Sub
+    Public Sub OnCheckedItemChanged(sender As Object, ByVal e As EventArgs)
+        If CURRENT_RECORD_ENABLED = False Then Exit Sub
+
+        Try
+            Dim control As Control = DirectCast(sender, Control)
+            Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
+            CONTROL_ID = controlId
+            control.Update()
+            If CONTROL_ID = 993 Then
+                Console.WriteLine("Obacht")
+            End If
+            'SQL für abhängige Auswahllisten
+            Dim SQL As String = String.Format("SELECT GUID, SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE SQL_COMMAND_1 LIKE '%@{0}@%'", controlId)
+            'SQL für enable control
+            Dim SQLenable As String = String.Format("SELECT GUID, SQL_COMMAND_2 FROM TBPMO_CONTROL WHERE SQL_COMMAND_2 LIKE '%@{0}@%'", controlId)
+
+
+            Dim CONTROL_VALUE As String = ClassControlCommandsUI.GetControlValue(control)
+
+            If CURRENT_RECORD_ID = 0 Then
+                Exit Sub
+            End If
+            If CtrlCommandUI.IsInsert = False Then
+                ClassControlCommandsUI.UpdateMultipleValues(controlId, CURRENT_RECORD_ID, CONTROL_VALUE)
+            End If
+
+
+            Dim datatable As DataTable = ClassDatabase.Return_Datatable(SQL)
+            Dim datatable1 As DataTable = ClassDatabase.Return_Datatable(SQLenable)
+            Depending_Controls(control, datatable, CONTROL_VALUE)
+            Enable_Controls(control, datatable1, CONTROL_VALUE)
+            Dim values = New List(Of Object)(CONTROL_VALUE.Split(";").ToArray())
+            'Jetzt noch die checked Items setzen
+            ClassControlValues.LoadControlValue(CURRENT_RECORD_ID, CURRENT_PARENT_ID, controlId, control, values, 99)
 
             'Dim sqlcommand As String = datatable.Rows(0).Item("SQL_COMMAND_1")
 
@@ -428,7 +474,7 @@ Public Class ClassControlBuilder
             If ex.Message.Contains("Objektverweis") Or ex.Message.Contains("reference not set") Then
 
             Else
-                MsgBox("Error in OnComboBoxValueChanged - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical)
+                MsgBox("Error in OnCheckedItemChanged - " & CONTROL_ID.ToString & ": " & ex.Message, MsgBoxStyle.Critical)
             End If
         End Try
     End Sub
@@ -567,6 +613,7 @@ Public Class ClassControlBuilder
             Case "CheckedListBoxControl"
                 Dim chklistbox As DevExpress.XtraEditors.CheckedListBoxControl = CType(control, DevExpress.XtraEditors.CheckedListBoxControl)
                 AddHandler chklistbox.ItemCheck, AddressOf RecordChanged
+                AddHandler chklistbox.ItemCheck, AddressOf OnCheckedItemChanged
                 ' AddHandler chklistbox.EnabledChanged, AddressOf OnEnabledChanged
 
             Case "DataGridView"