This commit is contained in:
SchreiberM 2016-09-22 14:58:35 +02:00
commit 8f3122c24b

View File

@ -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