MS

app/DD-Record-Organiser/ClassControlCommandsUI.vb

@@ -545,7 +545,7 @@ Public Class ClassControlCommandsUI
 
     End Sub
 
-    Public Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String)
+    Public Shared Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String)
         Try
             If IsNothing(value) Then
                 Exit Sub
@@ -576,7 +576,7 @@ Public Class ClassControlCommandsUI
         End Try
     End Sub
 
-    Function GetControlValue(ctrl As Control) As String
+    Public Shared Function GetControlValue(ctrl As Control) As String
 
         Dim type = ctrl.GetType().Name
         Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id ' GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID)
@@ -678,7 +678,7 @@ Public Class ClassControlCommandsUI
 
                     Next
                 Else
-                   
+
                     For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems
                         Dim row As DataRowView = CType(item, DataRowView)
                         If row.DataView.Table.Columns.Count = 1 Then
@@ -690,12 +690,12 @@ Public Class ClassControlCommandsUI
                         End If
                         checked_result_string = String.Join(";", checked_result)
                     Next
-                 
+
 
 
 
                 End If
-                
+
                 ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll
                 ' Überspringt den Rest der funktion
                 If Not IsNothing(checked_result_string) Then