jj 09.11 work on doc grid
This commit is contained in:
JenneJ
parent
43c3a754ce
commit
3bbc758635
@ -142,40 +142,6 @@ Public Class ClassWindreamDocGrid
|
||||
|
||||
RESULT_CONFIG_IDS = New Hashtable()
|
||||
|
||||
' Datentypen der DataTable setzen
|
||||
'For Each row As DataRow In DT_WINDREAM_RESULTLIST.Rows
|
||||
' Dim guid As Integer = row.Item("GUID")
|
||||
' Dim typeID As Integer = row.Item("TYPE_ID")
|
||||
' Dim isVisible As Boolean = row.Item("VISIBLE")
|
||||
' Dim isEditable As Boolean
|
||||
' If SearchType = "RECORD" Then
|
||||
' isEditable = row.Item("EDITABLE")
|
||||
' Else
|
||||
' isEditable = False
|
||||
' End If
|
||||
' Dim columnTitle As String = row.Item("HEADER_CAPTION")
|
||||
|
||||
' RESULT_CONFIG_IDS.Add(columnTitle, guid)
|
||||
|
||||
' ' Checkbox Spalte auf Boolean setzen
|
||||
' If typeID = 2 And isVisible Then
|
||||
' Dim checkboxColumn As DataColumn = clonedTable.Columns(columnTitle)
|
||||
|
||||
' If Not IsNothing(checkboxColumn) Then
|
||||
' checkboxColumn.DataType = GetType(Boolean)
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' ' Datepicker Spalte auf Date setzen
|
||||
' If typeID = 3 And isVisible = True Then
|
||||
' Dim datepickerColumn As DataColumn = clonedTable.Columns(columnTitle)
|
||||
|
||||
' If Not IsNothing(datepickerColumn) Then
|
||||
' 'datepickerColumn.DataType = GetType(DateTime)
|
||||
' End If
|
||||
' End If
|
||||
'Next
|
||||
|
||||
' Tabelle zurückspielen und zuweisen
|
||||
Try
|
||||
clonedTable.Load(DT_RESULT.CreateDataReader())
|
||||
@ -184,7 +150,7 @@ Public Class ClassWindreamDocGrid
|
||||
' Neues Dataset für Master- und Detail-Tabelle erstellen
|
||||
Dim ds As New DataSet()
|
||||
|
||||
Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],T.[DocID],T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE " &
|
||||
Dim DT_DETAILS_SQL = String.Format("SELECT T.[GUID],T.[DocID],T.[CONFIG_ID],T1.HEADER_CAPTION,T.[VALUE],T1.[LANGUAGE], T1.COLUMN_VIEW,T1.EDITABLE,T1.TYPE_ID,T1.VISIBLE,T.CHANGED_WHEN,T.CHANGED_WHO " &
|
||||
"FROM TBPMO_DOC_VALUES T INNER JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 ON T.CONFIG_ID = T1.GUID WHERE T1.ENTITY_ID = {0} AND LANGUAGE = '{1}'", CURRENT_FORM_ID, USER_LANGUAGE)
|
||||
Dim DT_DETAILS As DataTable = ClassDatabase.Return_Datatable(DT_DETAILS_SQL)
|
||||
|
||||
@ -216,10 +182,11 @@ Public Class ClassWindreamDocGrid
|
||||
grvwDetail.OptionsView.ShowGroupPanel = False
|
||||
grvwDetail.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.Style3D
|
||||
grvwDetail.OptionsView.EnableAppearanceEvenRow = True
|
||||
grvwDetail.Appearance.EvenRow.BackColor = Color.Aqua
|
||||
grvwDetail.Appearance.HeaderPanel.BackColor = Color.Aqua
|
||||
grvwDetail.Appearance.EvenRow.BackColor = Color.Orange
|
||||
grvwDetail.Appearance.HeaderPanel.BackColor = Color.Orange
|
||||
grvwDetail.Appearance.HeaderPanel.Options.UseBackColor = True
|
||||
|
||||
|
||||
gridControl.LevelTree.Nodes.Add("docIdDetails", grvwDetail)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in FillColumns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@ -278,10 +245,11 @@ Public Class ClassWindreamDocGrid
|
||||
|
||||
If typeId = 2 Then
|
||||
Dim checkEdit As New RepositoryItemCheckEdit()
|
||||
checkEdit.ValueChecked = True
|
||||
checkEdit.ValueUnchecked = False
|
||||
checkEdit.ValueChecked = "True"
|
||||
checkEdit.ValueUnchecked = "False"
|
||||
checkEdit.GlyphAlignment = HorzAlignment.Near
|
||||
checkEdit.Caption = String.Empty
|
||||
|
||||
' TODO: Add Checkbox handler
|
||||
AddHandler checkEdit.CheckedChanged, _checkValueChangedHandler
|
||||
|
||||
e.RepositoryItem = checkEdit
|
||||
@ -289,9 +257,16 @@ Public Class ClassWindreamDocGrid
|
||||
|
||||
If typeId = 3 Then
|
||||
Dim dateedit As New RepositoryItemDateEdit()
|
||||
'dateedit.DisplayFormat = CURRENT_DATE_FORMAT & " HH:MM:ss"
|
||||
|
||||
AddHandler dateedit.EditValueChanged, _datepickerValueChangedHandler
|
||||
' Brauchen wir Zeitangaben in den Custom Fields?
|
||||
'AddHandler dateedit.CustomDisplayText, Sub(sender As Object, _e As DevExpress.XtraEditors.Controls.CustomDisplayTextEventArgs)
|
||||
' Dim value As String = _e.Value
|
||||
' _e.DisplayText = value
|
||||
' Dim parsedDate As DateTime = DateTime.ParseExact(value, "yyyy-MM-dd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
|
||||
|
||||
' _e.DisplayText = parsedDate.ToString(CURRENT_DATE_FORMAT & " HH:MM:ss")
|
||||
' End Sub
|
||||
|
||||
e.RepositoryItem = dateedit
|
||||
End If
|
||||
@ -313,6 +288,9 @@ Public Class ClassWindreamDocGrid
|
||||
e.RepositoryItem = dropdown
|
||||
|
||||
End If
|
||||
ElseIf (e.Column.Name <> "colVALUE") Then
|
||||
' Erlaube Editieren nur für VALUE Spalte
|
||||
e.Column.OptionsColumn.AllowEdit = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@ -320,6 +298,7 @@ Public Class ClassWindreamDocGrid
|
||||
Dim detailView As GridView = sender.GetDetailView(e.RowHandle, e.RelationIndex)
|
||||
|
||||
With detailView.Columns
|
||||
'Spalten ausblenden
|
||||
.Item("GUID").Visible = False
|
||||
.Item("DocID").Visible = False
|
||||
.Item("CONFIG_ID").Visible = False
|
||||
@ -328,6 +307,23 @@ Public Class ClassWindreamDocGrid
|
||||
.Item("EDITABLE").Visible = False
|
||||
.Item("TYPE_ID").Visible = False
|
||||
.Item("VISIBLE").Visible = False
|
||||
|
||||
'Spalten formatieren
|
||||
|
||||
.Item("CHANGED_WHEN").DisplayFormat.FormatType = FormatType.DateTime
|
||||
.Item("CHANGED_WHEN").DisplayFormat.FormatString = CURRENT_DATE_FORMAT & " HH:MM:ss"
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
.Item("HEADER_CAPTION").Caption = "Beschreibung"
|
||||
.Item("VALUE").Caption = "Wert"
|
||||
.Item("CHANGED_WHEN").Caption = "Geändert Wann"
|
||||
.Item("CHANGED_WHO").Caption = "Geändert Wer"
|
||||
Else
|
||||
.Item("HEADER_CAPTION").Caption = "Description"
|
||||
.Item("VALUE").Caption = "Value"
|
||||
.Item("CHANGED_WHEN").Caption = "Changed when"
|
||||
.Item("CHANGED_WHO").Caption = "changed Who"
|
||||
End If
|
||||
End With
|
||||
|
||||
AddHandler detailView.CustomRowCellEdit, AddressOf detailView_CustomRowCellEdit
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user