jj add select only combobox option

app/DD-Record-Organiser/ClassControlCommands.vb

@@ -204,6 +204,7 @@
             Dim NAME As String
             Dim REQUIRED As Integer
             Dim READ_ONLY As Integer
+            Dim SELECT_ONLY As Integer
             Dim CHANGED_WHO As String = USER_USERNAME
             Dim COL_NAME As String
             Dim SQLCommand As String
@@ -287,6 +288,12 @@
                 READ_ONLY = BoolToInt(False)
             End If
 
+            If propExists(properties, "IsSelectOnly") Then
+                SELECT_ONLY = BoolToInt(properties.IsSelectOnly)
+            Else
+                SELECT_ONLY = BoolToInt(False)
+            End If
+
             If propExists(properties, "SQLCommand") Then
                 Dim value As SQLValue = DirectCast(properties.SQLCommand, SQLValue)
                 SQLCommand = value.Value
@@ -329,11 +336,11 @@
             SQL = String.Format(
                 "UPDATE TBPMO_CONTROL SET REQUIRED = {0}, READ_ONLY = {1}, SHOW_COLUMN = {2}, FORMAT_TYPE = '{3}', DEFAULT_VALUE = '{4}', " &
                 "NAME = '{5}', SQL_COMMAND_1 = '{6}', CHANGED_WHO = '{7}', COL_NAME = '{8}', MULTILINE = {9}, MASTER_DATA_ID = {10}, " &
-                "STATIC_LIST = '{11}', SQL_COMMAND_2 = '{12}', VISIBLE = {13}, TREE_VIEW = {14} " &
-                "WHERE GUID = {15}",
+                "STATIC_LIST = '{11}', SQL_COMMAND_2 = '{12}', VISIBLE = {13}, TREE_VIEW = {14}, SELECT_ONLY = {15} " &
+                "WHERE GUID = {16}",
                 REQUIRED, READ_ONLY, SHOW_COLUMN, FORMAT_TYPE, DEFAULTVALUE,
                 NAME, SQLCommand, CHANGED_WHO, COL_NAME, MULTILINE, MASTER_DATA_ID,
-                STATIC_LIST, EnabledWhen, VISIBLE, TREE_VIEW,
+                STATIC_LIST, EnabledWhen, VISIBLE, TREE_VIEW, SELECT_ONLY,
                 CURRENT_CONTROL_ID
             )