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

MS0911

Browse Source
This commit is contained in:
SchreiberM
2016-11-09 11:06:41 +01:00
parent a3a0a318c1
commit 2d1d789bdc
7 changed files with 1561 additions and 779 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organiser/ClassDOC_SEARCH.vb
View File

@@ -160,6 +160,12 @@ Public Class ClassDOC_SEARCH
Return Nothing
End Try
End Function
Public Shared Function Get_DOCRESULTS(vDT_RESULTLIST_OPTIONS As DataTable, vDT_RESULTLIST_SELVALUES As DataTable, DT_WINDREAM_RESULTLIST As DataTable, ENT_ID As Integer, vType As String, Optional ftString As String = "", Optional BG As Boolean = False)
ENTITY_ID = ENT_ID
DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS
DT_RESULTLIST_SEL_VALUES = vDT_RESULTLIST_SELVALUES
Return GET_DOCSEARCH_DATATABLE(vType, ftString, BG)
End Function
Public Shared Function Get_DOC_RESULTTABLE(vDT_RESULTLIST_OPTIONS As DataTable, vDT_RESULTLIST_SELVALUES As DataTable, DT_WINDREAM_RESULTLIST As DataTable, ENT_ID As Integer, REC_ID As Integer, vType As String, Optional ftString As String = "", Optional BG As Boolean = False, Optional Preload As Boolean = False)
Dim COL_ARRAY_RESULTLIST As List(Of String)
ENTITY_ID = ENT_ID
@@ -207,7 +213,7 @@ Public Class ClassDOC_SEARCH
colOtype.Caption = "Objecttype"
DTGrid.Columns.Add(colOtype)
Dim colDocID As New System.Data.DataColumn()
colDocID.DataType = GetType(String)
colDocID.DataType = GetType(Int32)
colDocID.ColumnName = "DocID"
colDocID.Caption = "DocID"
DTGrid.Columns.Add(colDocID)