JJ 13.09 ClassWindreamDocGrid
This commit is contained in:
JenneJ
@@ -4,13 +4,13 @@ Imports System.Runtime.InteropServices
|
||||
Public Class frmRecordView
|
||||
Private recordView As ClassRecordView
|
||||
Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID As Integer
|
||||
Private RESULT_DOC_PATH As String
|
||||
Private Const SEE_MASK_INVOKEIDLIST = &HC
|
||||
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
|
||||
Private Const SEE_MASK_FLAG_NO_UI = &H400
|
||||
Public Const SW_SHOW As Short = 5
|
||||
Private DT_RESULTLIST_OPTIONS As DataTable
|
||||
Private DT_WINDREAM_RESULTLIST As DataTable
|
||||
Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
|
||||
Private _Changed As Boolean = False
|
||||
|
||||
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
|
||||
@@ -57,6 +57,8 @@ Public Class frmRecordView
|
||||
DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, "GETVARIABLE CONTROLS")
|
||||
Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
|
||||
DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULTLIST KONFIG")
|
||||
sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
|
||||
DT_DOCRESULT_DROPDOWN_ITEMS = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULT_DROPDOWN_ITEMS")
|
||||
TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
ClassWindowLocation.LoadFormLocationSize(Me, 0, CURRENT_SCREEN_ID, "frmRecordView")
|
||||
|
||||
@@ -67,6 +69,26 @@ Public Class frmRecordView
|
||||
RUN_WDSEARCH_GRID()
|
||||
Load_Tasks()
|
||||
End Sub
|
||||
|
||||
Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
|
||||
Try
|
||||
Dim ComboBox As DevExpress.XtraEditors.ComboBoxEdit = sender
|
||||
'Dim ItemComboBox As RepositoryItemComboBox
|
||||
'ItemComboBox = sender
|
||||
Dim item As ClassWindreamDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
|
||||
Dim value As String = item.Value
|
||||
Dim configId As Integer = item.ConfigID
|
||||
Dim docId As Integer = ClassWindreamDocGrid.RESULT_DOC_ID
|
||||
Dim user As String = Environment.UserName
|
||||
|
||||
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, Environment.UserName)
|
||||
ClassDatabase.Execute_non_Query(Sql)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
'Perform your actions
|
||||
End Sub
|
||||
|
||||
Private Sub RUN_WDSEARCH_GRID()
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
@@ -89,21 +111,12 @@ Public Class frmRecordView
|
||||
tslblWindreamView.Text = msg
|
||||
|
||||
If DT_RESULT.Rows.Count > 0 Then
|
||||
GridControlDocSearch.DataSource = DT_RESULT
|
||||
' Größe der Icon Column anpassen
|
||||
GridViewDoc_Search.Columns.Item("ICON").MaxWidth = 24
|
||||
GridViewDoc_Search.Columns.Item("ICON").MinWidth = 24
|
||||
GridViewDoc_Search.Columns.Item("FULLPATH").Visible = False
|
||||
GridViewDoc_Search.Columns.Item("OBJECTTYPE").Visible = False
|
||||
For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
|
||||
Dim Width = rw.Item("WIDTH") 'DT_WINDREAM_RESULTLIST.Rows(0).Item(String.Format("{0}_WIDTH", col.ColumnName))
|
||||
If Not IsNothing(Width) And Not IsDBNull(Width) Then
|
||||
Dim column = DirectCast(GridViewDoc_Search.Columns.Item(rw.Item("HEADER_CAPTION")), DevExpress.XtraGrid.Columns.GridColumn)
|
||||
column.Width = Width
|
||||
Console.WriteLine("ColumnWidth {0} set to {1}", column.FieldName, Width)
|
||||
Console.WriteLine("ColumnWidth {0} really set to {1}", column.FieldName, column.VisibleWidth)
|
||||
End If
|
||||
Next
|
||||
ClassWindreamDocGrid.FormatColumns(
|
||||
GridViewDoc_Search,
|
||||
DT_RESULT,
|
||||
DT_WINDREAM_RESULTLIST,
|
||||
DT_DOCRESULT_DROPDOWN_ITEMS,
|
||||
AddressOf OnCBSelectedValueChanged)
|
||||
End If
|
||||
Else
|
||||
Dim msg = "Keine Windream-Dokumente für Record: " & JUMP_RECORD_ID & " gefunden"
|
||||
@@ -314,31 +327,31 @@ Public Class frmRecordView
|
||||
|
||||
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs)
|
||||
Try
|
||||
RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
|
||||
ClassWindreamDocGrid.RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
|
||||
Catch ex As Exception
|
||||
RESULT_DOC_PATH = Nothing
|
||||
ClassWindreamDocGrid.RESULT_DOC_PATH = Nothing
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs)
|
||||
Try
|
||||
RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
|
||||
ClassWindreamDocGrid.RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
|
||||
Catch ex As Exception
|
||||
RESULT_DOC_PATH = Nothing
|
||||
ClassWindreamDocGrid.RESULT_DOC_PATH = Nothing
|
||||
End Try
|
||||
ClassHelper.File_open(RESULT_DOC_PATH, 0)
|
||||
ClassHelper.File_open(ClassWindreamDocGrid.RESULT_DOC_PATH, 0)
|
||||
End Sub
|
||||
|
||||
Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
|
||||
ClassHelper.File_open(RESULT_DOC_PATH, 0)
|
||||
ClassHelper.File_open(ClassWindreamDocGrid.RESULT_DOC_PATH, 0)
|
||||
End Sub
|
||||
|
||||
Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click
|
||||
If RESULT_DOC_PATH <> Nothing Then
|
||||
If ClassWindreamDocGrid.RESULT_DOC_PATH <> Nothing Then
|
||||
Try
|
||||
Dim selectedfile(0) As String
|
||||
|
||||
selectedfile(0) = RESULT_DOC_PATH
|
||||
selectedfile(0) = ClassWindreamDocGrid.RESULT_DOC_PATH
|
||||
|
||||
Dim dataobj As New DataObject
|
||||
|
||||
@@ -354,7 +367,7 @@ Public Class frmRecordView
|
||||
End Sub
|
||||
|
||||
Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
|
||||
If RESULT_DOC_PATH <> Nothing Then
|
||||
If ClassWindreamDocGrid.RESULT_DOC_PATH <> Nothing Then
|
||||
Dim msg = "Sind Sie sicher, dass Sie diese Datei löschen wollen?"
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
msg = "Are You sure You want to delete this file?"
|
||||
@@ -364,7 +377,7 @@ Public Class frmRecordView
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Try
|
||||
Dim FileToDelete As String
|
||||
FileToDelete = RESULT_DOC_PATH
|
||||
FileToDelete = ClassWindreamDocGrid.RESULT_DOC_PATH
|
||||
|
||||
If System.IO.File.Exists(FileToDelete) = True Then
|
||||
System.IO.File.Delete(FileToDelete)
|
||||
@@ -378,12 +391,12 @@ Public Class frmRecordView
|
||||
End Sub
|
||||
|
||||
Private Sub PropertiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
|
||||
If RESULT_DOC_PATH <> Nothing Then
|
||||
If ClassWindreamDocGrid.RESULT_DOC_PATH <> Nothing Then
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim sei As New SHELLEXECUTEINFO
|
||||
sei.cbSize = Marshal.SizeOf(sei)
|
||||
sei.lpVerb = "properties"
|
||||
sei.lpFile = RESULT_DOC_PATH
|
||||
sei.lpFile = ClassWindreamDocGrid.RESULT_DOC_PATH
|
||||
sei.nShow = SW_SHOW
|
||||
sei.fMask = SEE_MASK_INVOKEIDLIST
|
||||
If Not ShellExecuteEx(sei) Then
|
||||
@@ -634,4 +647,8 @@ Public Class frmRecordView
|
||||
e.Appearance.BackColor = Color.Yellow
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GridViewDoc_Search_FocusedRowChanged_1(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
|
||||
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user