AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of http://scmadmin@172.24.11.74:90/scm/git/RecordOrganizer

Browse Source
This commit is contained in:
SchreiberM
2016-09-22 14:58:35 +02:00
parent d8817e84a8 980a20435c
commit 8f3122c24b
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organiser/ClassWindreamDocGrid.vb
View File

@@ -164,24 +164,28 @@ Public Class ClassWindreamDocGrid
AddHandler textedit.Leave, _textValueChangedHandler AddHandler textedit.Leave, _textValueChangedHandler
End If End If
If typeID = 2 And isVisible And isEditable Then If typeID = 2 And isVisible Then
Dim checkEdit As New RepositoryItemCheckEdit() Dim checkEdit As New RepositoryItemCheckEdit()
checkEdit.ValueChecked = True checkEdit.ValueChecked = True
checkEdit.ValueUnchecked = False 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) Dim col As GridColumn = gridView.Columns(columnTitle)
gridView.GridControl.RepositoryItems.Add(checkEdit) gridView.GridControl.RepositoryItems.Add(checkEdit)
If Not IsNothing(col) Then If Not IsNothing(col) Then
col.OptionsColumn.AllowEdit = True
col.ColumnEdit = checkEdit col.ColumnEdit = checkEdit
If isEditable Then
col.OptionsColumn.AllowEdit = True
Else
col.OptionsColumn.AllowEdit = False
End If
End If End If
End If End If
If typeID = 3 And isVisible And isEditable Then If typeID = 3 And isVisible And isEditable Then
Dim dateedit As New RepositoryItemDateEdit() 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) Dim col As GridColumn = gridView.Columns(columnTitle)
gridView.GridControl.RepositoryItems.Add(dateedit) gridView.GridControl.RepositoryItems.Add(dateedit)
@@ -218,6 +222,7 @@ Public Class ClassWindreamDocGrid
'Editor zuweisen 'Editor zuweisen
If Not IsNothing(col) Then If Not IsNothing(col) Then
col.OptionsColumn.AllowEdit = True
col.ColumnEdit = dropdown col.ColumnEdit = dropdown
End If End If
' Handler zuweisen ' Handler zuweisen