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

MS Update

Browse Source
This commit is contained in:
SchreiberM
2021-06-25 10:06:06 +02:00
parent e796ae91cb
commit 70329f2fea
14 changed files with 231 additions and 158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
app/DD-Record-Organizer/frmGlobalSearch.vb
View File

@@ -77,11 +77,11 @@ Public Class frmGlobalSearch
Sub PREPARE_FT_SQL()
Dim sqlft = SQL_FULLTEXT
sqlft = sqlft.Replace("@FULLTEXT", txtSearch.Text)
Dim selDoc = String.Format("SELECT T.[DocID],T.[FULL_FILENAME],T.[Filename],T.[DISPLAY_NAME],T.[Doctype],T.[Creation_DateTime] As CreatedWhen,T.[Change_DateTime] as ChangedWhen,T.[IN_WORK] as [InWork?] " &
"FROM VWPMO_DOC_SEARCH T INNER JOIN ( " & vbNewLine &
"{0}) Y ON T.DocID = Y.dwDocID " & vbNewLine &
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHT ON T.DocID = TRIGHT.dwObjectID WHERE TRIGHT.dwUserOrGroupID = {1}", sqlft, USERID_FK_INT_ECM)
sel_FT = selDoc
'Dim selDoc = String.Format("SELECT T.[DocID],T.[FULL_FILENAME],T.[Filename],T.[DISPLAY_NAME],T.[Doctype],T.[Creation_DateTime] As CreatedWhen,T.[Change_DateTime] as ChangedWhen,T.[IN_WORK] as [InWork?] " &
' "FROM VWPMO_DOC_SEARCH T INNER JOIN ( " & vbNewLine &
' "{0}) Y ON T.DocID = Y.dwDocID " & vbNewLine &
' "INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHT ON T.DocID = TRIGHT.dwObjectID WHERE TRIGHT.dwUserOrGroupID = {1}", sqlft, USERID_FK_INT_ECM)
sel_FT = sqlft
End Sub
Sub PREPARE_RECORD_SQL()
@@ -330,6 +330,22 @@ Public Class frmGlobalSearch
Show_File_Properties()
End Sub
Private Sub VerknüpfungenAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerknüpfungenAnzeigenToolStripMenuItem.Click
Try
ClassWindreamDocGrid.GetDocItems(GridViewFiles)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim frm As New frmDoc_Links
frm.Show()
frm.BringToFront()
Catch ex As Exception
MsgBox("Unexpected Error in Showing DocLinks: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub File_open()
Me.Cursor = Cursors.WaitCursor