diff --git a/app/DD-Record-Organiser/ClassWindreamDocGrid.vb b/app/DD-Record-Organiser/ClassWindreamDocGrid.vb index c59bed1..8f55660 100644 --- a/app/DD-Record-Organiser/ClassWindreamDocGrid.vb +++ b/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) @@ -218,6 +222,7 @@ Public Class ClassWindreamDocGrid 'Editor zuweisen If Not IsNothing(col) Then + col.OptionsColumn.AllowEdit = True col.ColumnEdit = dropdown End If ' Handler zuweisen