From 5c3274534c5d509463c89d4a45da10f326964f96 Mon Sep 17 00:00:00 2001 From: JenneJ Date: Wed, 21 Sep 2016 16:58:27 +0200 Subject: [PATCH 1/2] jj 21.09 combobox editable --- app/DD-Record-Organiser/ClassWindreamDocGrid.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/app/DD-Record-Organiser/ClassWindreamDocGrid.vb b/app/DD-Record-Organiser/ClassWindreamDocGrid.vb index c59bed1..dc43cee 100644 --- a/app/DD-Record-Organiser/ClassWindreamDocGrid.vb +++ b/app/DD-Record-Organiser/ClassWindreamDocGrid.vb @@ -218,6 +218,7 @@ Public Class ClassWindreamDocGrid 'Editor zuweisen If Not IsNothing(col) Then + col.OptionsColumn.AllowEdit = True col.ColumnEdit = dropdown End If ' Handler zuweisen From 980a20435cf538d6df5127ba59bc5299b96125b3 Mon Sep 17 00:00:00 2001 From: JenneJ Date: Thu, 22 Sep 2016 14:56:08 +0200 Subject: [PATCH 2/2] jj 22.09 fix checkbox inwork --- app/DD-Record-Organiser/ClassWindreamDocGrid.vb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/app/DD-Record-Organiser/ClassWindreamDocGrid.vb b/app/DD-Record-Organiser/ClassWindreamDocGrid.vb index dc43cee..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)