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

MS Update logit

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-28 14:07:31 +01:00
parent 24d01a8933
commit a56087cab3
8 changed files with 181 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3,7 +3,9 @@ Imports System.Text
Imports System.IO
Public Class frmGlobalSearch
Inherits Form
Private _Helper As ClassHelper
Dim sel_Records, sel_FT As String
Private Sub tsbtnRefresh_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh.Click
Refresh_Search()
@@ -50,16 +52,16 @@ Public Class frmGlobalSearch
Sub PREPARE_FT_SQL()
Dim sqlft = SQL_FULLTEXT
sqlft = sqlft.Replace("@FULLTEXT", txtSearch.Text)
Dim selDoc = String.Format("SELECT [DocID],[FULL_FILENAME],[Filename],[DISPLAY_NAME],[Doctype],[Creation_DateTime] As CreatedWhen,[Change_DateTime] as ChangedWhen,[IN_WORK] as [InWork?] " & _
"FROM VWPMO_DOC_SEARCH where DocID in " & vbNewLine & _
"({0}) " & vbNewLine & _
Dim selDoc = String.Format("SELECT [DocID],[FULL_FILENAME],[Filename],[DISPLAY_NAME],[Doctype],[Creation_DateTime] As CreatedWhen,[Change_DateTime] as ChangedWhen,[IN_WORK] as [InWork?] " &
"FROM VWPMO_DOC_SEARCH where DocID in " & vbNewLine &
"({0}) " & vbNewLine &
"AND DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {1})", sqlft, USERID_FK_INT_ECM)
sel_FT = selDoc
End Sub
Sub PREPARE_RECORD_SQL()
sel_Records = String.Format("select T.RECORD_ID,TR.FORM_ID AS ENTITY_ID ,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), TFV.GUID), 1) as Entity," & _
"T.VALUE,TR.ADDED_WHO as AddedWho,TR.ADDED_WHEN as AddedWhen,TR.CHANGED_WHO As ChangedWho,TR.CHANGED_WHEN as ChangedWhen from TBPMO_CONTROL_VALUE T,TBPMO_RECORD TR,TBPMO_FORM_VIEW TFV " & _
sel_Records = String.Format("select T.RECORD_ID,TR.FORM_ID AS ENTITY_ID ,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), TFV.GUID), 1) as Entity," &
"T.VALUE,TR.ADDED_WHO as AddedWho,TR.ADDED_WHEN as AddedWhen,TR.CHANGED_WHO As ChangedWho,TR.CHANGED_WHEN as ChangedWhen from TBPMO_CONTROL_VALUE T,TBPMO_RECORD TR,TBPMO_FORM_VIEW TFV " &
"where T.RECORD_ID = TR.GUID AND TR.FORM_ID = TFV.FORM_ID AND T.value like '%{1}%' ORDER BY T.RECORD_ID", USER_LANGUAGE, txtSearch.Text)
End Sub
Private Function Refresh_Records()
@@ -184,7 +186,7 @@ Public Class frmGlobalSearch
Me.Cursor = Cursors.WaitCursor
For Each row In GridViewFiles.GetSelectedRows
Dim SELECTED_DOC_PATH = GridViewFiles.GetRowCellValue(row, "FULL_FILENAME")
Dim SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(GridViewFiles.GetRowCellValue(row, "FULL_FILENAME"))
Dim SELECTED_DOC_ID = GridViewFiles.GetRowCellValue(row, "DocID")
If IsNothing(SELECTED_DOC_PATH) Then
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
@@ -250,6 +252,7 @@ Public Class frmGlobalSearch
End Function
Private Sub frmSearchAllOVer_Load(sender As Object, e As EventArgs) Handles Me.Load
_Helper = New ClassHelper
Load_DocGrid_Layout()
Load_RecordGrid_Layout()
End Sub