NewDocSearch
This commit is contained in:
Digital Data - Marlon Schreiber
229
app/DD_Clipboard_Searcher/clsWMDocGrid.vb
Normal file
229
app/DD_Clipboard_Searcher/clsWMDocGrid.vb
Normal file
@@ -0,0 +1,229 @@
|
||||
Imports DevExpress.Utils
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
Imports DevExpress.XtraGrid.Views.Grid
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DevExpress.XtraEditors.Repository
|
||||
Imports DevExpress.XtraGrid.Views.Base
|
||||
Imports DevExpress.XtraEditors.Controls
|
||||
|
||||
Public Class clsWMDocGrid
|
||||
' Private Shared _Helper As ClassHelper
|
||||
Public Shared SELECTED_DOC_PATH As String
|
||||
'Public Shared RESULT_OBJECTTYPE As String
|
||||
Public Shared SELECTED_INWORK As Boolean
|
||||
Public Shared SELECTED_DOC_ID As Integer
|
||||
Public Shared SELECTED_DOC_RIGHT As Integer
|
||||
'Public Shared RESULT_DISPLAYNAME As String
|
||||
Public Shared RESULT_CONFIG_IDS As Hashtable
|
||||
Private Shared DATE_COLUMNS As New List(Of String)
|
||||
Private Shared DATE_COLUMNS_CONFIG As New List(Of String)
|
||||
Public Shared ActiveDocGrid As GridView
|
||||
|
||||
Public Shared DTDocuments As DataTable
|
||||
Private Shared DT_DROPDOWN_ITEMS As DataTable
|
||||
|
||||
Private Shared _dropdownValueChangedHandler As EventHandler
|
||||
Private Shared _datepickerValueChangedHandler As EventHandler
|
||||
Private Shared _textValueChangedHandler As EventHandler
|
||||
Private Shared _checkValueChangedHandler As EventHandler
|
||||
|
||||
Private Shared Function Init_Table()
|
||||
Try
|
||||
Dim oNewDataTable As New DataTable
|
||||
oNewDataTable.TableName = "TBSELECTED_FILES"
|
||||
' Create two columns, ID and Name.
|
||||
oNewDataTable.Columns.Add("DOC_ID", GetType(Integer))
|
||||
oNewDataTable.Columns.Add("DOC_PATH", GetType(System.String))
|
||||
oNewDataTable.Columns.Add("OBJECTTYPE", GetType(System.String))
|
||||
oNewDataTable.Columns.Add("INWORK", GetType(System.Boolean))
|
||||
oNewDataTable.Columns.Add("DISPLAYNAME", GetType(System.String))
|
||||
oNewDataTable.Columns.Add("ACCESS_RIGHT", GetType(Integer))
|
||||
DTDocuments = oNewDataTable
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
DTDocuments = Nothing
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Public Shared Sub GetDocItems()
|
||||
|
||||
'_Helper = New ClassHelper
|
||||
SELECTED_DOC_ID = 0
|
||||
If Init_Table() = True Then
|
||||
LOGGER.Debug("gridView.SelectedRowsCount: " & ActiveDocGrid.SelectedRowsCount.ToString)
|
||||
If ActiveDocGrid.SelectedRowsCount >= 1 Then
|
||||
DTDocuments.Clear()
|
||||
For Each row In ActiveDocGrid.GetSelectedRows
|
||||
Dim newRow As DataRow = DTDocuments.NewRow()
|
||||
Try
|
||||
Dim DOC_ID = ActiveDocGrid.GetRowCellValue(row, "DocID")
|
||||
SELECTED_DOC_ID = DOC_ID
|
||||
newRow("DOC_ID") = ActiveDocGrid.GetRowCellValue(row, "DocID")
|
||||
Catch ex As Exception
|
||||
newRow("DOC_ID") = 0
|
||||
SELECTED_DOC_ID = 0
|
||||
End Try
|
||||
Try
|
||||
SELECTED_DOC_RIGHT = ActiveDocGrid.GetRowCellValue(row, "ACCESS_RIGHT")
|
||||
newRow("ACCESS_RIGHT") = ActiveDocGrid.GetRowCellValue(row, SELECTED_DOC_RIGHT)
|
||||
Catch ex As Exception
|
||||
newRow("ACCESS_RIGHT") = 1
|
||||
End Try
|
||||
Try
|
||||
SELECTED_DOC_PATH = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
|
||||
newRow("DOC_PATH") = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
|
||||
Catch ex As Exception
|
||||
newRow("DOC_PATH") = ""
|
||||
End Try
|
||||
Try
|
||||
newRow("OBJECTTYPE") = ActiveDocGrid.GetRowCellValue(row, "OBJECTTYPE")
|
||||
Catch ex As Exception
|
||||
newRow("OBJECTTYPE") = ""
|
||||
End Try
|
||||
Try
|
||||
newRow("INWORK") = ActiveDocGrid.GetRowCellValue(row, "in work?")
|
||||
SELECTED_INWORK = ActiveDocGrid.GetRowCellValue(row, "in work?")
|
||||
Catch ex As Exception
|
||||
newRow("INWORK") = False
|
||||
SELECTED_INWORK = False
|
||||
End Try
|
||||
Try
|
||||
Dim dpn = ActiveDocGrid.GetRowCellValue(row, "Displayname")
|
||||
If IsDBNull(dpn) Or IsNothing(dpn) Then
|
||||
dpn = ""
|
||||
End If
|
||||
newRow("DISPLAYNAME") = dpn
|
||||
Catch ex As Exception
|
||||
newRow("DISPLAYNAME") = ""
|
||||
End Try
|
||||
DTDocuments.Rows.Add(newRow)
|
||||
DTDocuments.AcceptChanges()
|
||||
Next
|
||||
Else
|
||||
Dim newRow As DataRow = DTDocuments.NewRow()
|
||||
Try
|
||||
Dim DOC_ID = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
|
||||
SELECTED_DOC_ID = DOC_ID
|
||||
newRow("DOC_ID") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
|
||||
Catch ex As Exception
|
||||
newRow("DOC_ID") = 0
|
||||
SELECTED_DOC_ID = 0
|
||||
End Try
|
||||
Try
|
||||
SELECTED_DOC_PATH = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
|
||||
newRow("DOC_PATH") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
|
||||
Catch ex As Exception
|
||||
newRow("DOC_PATH") = ""
|
||||
End Try
|
||||
Try
|
||||
newRow("OBJECTTYPE") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("OBJECTTYPE"))
|
||||
Catch ex As Exception
|
||||
newRow("OBJECTTYPE") = ""
|
||||
End Try
|
||||
Try
|
||||
newRow("INWORK") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
|
||||
SELECTED_INWORK = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
|
||||
Catch ex As Exception
|
||||
newRow("INWORK") = False
|
||||
SELECTED_INWORK = False
|
||||
End Try
|
||||
Try
|
||||
Dim dpn = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("Displayname"))
|
||||
If IsDBNull(dpn) Or IsNothing(dpn) Then
|
||||
dpn = ""
|
||||
End If
|
||||
newRow("DISPLAYNAME") = dpn
|
||||
Catch ex As Exception
|
||||
newRow("DISPLAYNAME") = ""
|
||||
End Try
|
||||
DTDocuments.Rows.Add(newRow)
|
||||
DTDocuments.AcceptChanges()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Class WindreamDocGridComboboxItem
|
||||
Implements IConvertible
|
||||
|
||||
Public ConfigID As Integer
|
||||
Public Value As String
|
||||
|
||||
Public Overrides Function ToString() As String
|
||||
Return Me.Value
|
||||
End Function
|
||||
|
||||
Public Function ToString1(provider As IFormatProvider) As String Implements IConvertible.ToString
|
||||
Return Me.Value
|
||||
End Function
|
||||
|
||||
Public Function GetTypeCode() As TypeCode Implements IConvertible.GetTypeCode
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToBoolean(provider As IFormatProvider) As Boolean Implements IConvertible.ToBoolean
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToByte(provider As IFormatProvider) As Byte Implements IConvertible.ToByte
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToChar(provider As IFormatProvider) As Char Implements IConvertible.ToChar
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToDateTime(provider As IFormatProvider) As Date Implements IConvertible.ToDateTime
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToDecimal(provider As IFormatProvider) As Decimal Implements IConvertible.ToDecimal
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToDouble(provider As IFormatProvider) As Double Implements IConvertible.ToDouble
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToInt16(provider As IFormatProvider) As Short Implements IConvertible.ToInt16
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToInt32(provider As IFormatProvider) As Integer Implements IConvertible.ToInt32
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToInt64(provider As IFormatProvider) As Long Implements IConvertible.ToInt64
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToSByte(provider As IFormatProvider) As SByte Implements IConvertible.ToSByte
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToSingle(provider As IFormatProvider) As Single Implements IConvertible.ToSingle
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToType(conversionType As Type, provider As IFormatProvider) As Object Implements IConvertible.ToType
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToUInt16(provider As IFormatProvider) As UShort Implements IConvertible.ToUInt16
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToUInt32(provider As IFormatProvider) As UInteger Implements IConvertible.ToUInt32
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
|
||||
Public Function ToUInt64(provider As IFormatProvider) As ULong Implements IConvertible.ToUInt64
|
||||
Throw New NotImplementedException
|
||||
End Function
|
||||
End Class
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user