jj 22.09 fix checkbox inwork

app/DD-Record-Organiser/ClassWindreamDocGrid.vb

@@ -164,24 +164,28 @@ Public Class ClassWindreamDocGrid
                 AddHandler textedit.Leave, _textValueChangedHandler
             End If
 
-            If typeID = 2 And isVisible And isEditable Then
+            If typeID = 2 And isVisible Then
                 Dim checkEdit As New RepositoryItemCheckEdit()
                 checkEdit.ValueChecked = True
                 checkEdit.ValueUnchecked = False
-                Dim value As String = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = " & guid)
+
                 Dim col As GridColumn = gridView.Columns(columnTitle)
 
                 gridView.GridControl.RepositoryItems.Add(checkEdit)
 
                 If Not IsNothing(col) Then
-                    col.OptionsColumn.AllowEdit = True
                     col.ColumnEdit = checkEdit
+
+                    If isEditable Then
+                        col.OptionsColumn.AllowEdit = True
+                    Else
+                        col.OptionsColumn.AllowEdit = False
+                    End If
                 End If
             End If
 
             If typeID = 3 And isVisible And isEditable Then
                 Dim dateedit As New RepositoryItemDateEdit()
-                Dim value As String = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_DOC_VALUES WHERE CONFIG_ID = " & guid)
                 Dim col As GridColumn = gridView.Columns(columnTitle)
 
                 gridView.GridControl.RepositoryItems.Add(dateedit)