MS_04.01
This commit is contained in:
SchreiberM
@@ -6,7 +6,7 @@ Public Class ClassDOC_SEARCH
|
||||
Private Shared ENTITY_ID As Integer
|
||||
Private Shared RECORD_ID As Integer
|
||||
Private Shared AsyncRunning As Boolean = False
|
||||
Private Shared Function GET_DOCSEARCH_DATATABLE(Type As String, Optional fulltext_String As String = "", Optional BG As Boolean = False)
|
||||
Private Shared Function GET_DOCSEARCH_DATATABLE(Optional BG As Boolean = False)
|
||||
Try
|
||||
Dim OPTION1
|
||||
Dim OPTION2
|
||||
@@ -58,7 +58,7 @@ Public Class ClassDOC_SEARCH
|
||||
End If
|
||||
|
||||
Dim SQL_DOC_SEARCH
|
||||
If Type = "ENTITY" Then
|
||||
If CURRENT_SEARCH_TYPE = "ENTITY" Then
|
||||
SQL_DOC_SEARCH = String.Format("SELECT T.*," & vbNewLine & _
|
||||
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine & _
|
||||
@@ -96,7 +96,7 @@ Public Class ClassDOC_SEARCH
|
||||
|
||||
End If
|
||||
|
||||
ElseIf Type = "RECORD" Then
|
||||
ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
|
||||
SQL_DOC_SEARCH = String.Format("SELECT T.* ," & vbNewLine & _
|
||||
"ISNULL(T1.VALUE,'') AS OPTION1," & vbNewLine & _
|
||||
"ISNULL(T2.VALUE,'') AS OPTION2," & vbNewLine & _
|
||||
@@ -118,6 +118,7 @@ Public Class ClassDOC_SEARCH
|
||||
"VWPMO_DOC_SEARCH T " & vbNewLine & _
|
||||
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _
|
||||
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _
|
||||
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC ON TR.FORM_ID = TRC.ENTITY_ID AND TRC.LANGUAGE = '{7}' AND TRC.GUID = {8}" & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC1 ON TR.FORM_ID = TRC1.ENTITY_ID AND TRC1.LANGUAGE = '{7}' AND TRC1.GUID = {9}" & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC2 ON TR.FORM_ID = TRC2.ENTITY_ID AND TRC2.LANGUAGE = '{7}' AND TRC2.GUID = {10}" & vbNewLine & _
|
||||
@@ -126,36 +127,96 @@ Public Class ClassDOC_SEARCH
|
||||
"LEFT JOIN TBPMO_CONTROL_VALUE T2 ON TRL.RECORD_ID = T2.RECORD_ID AND T2.CONTROL_ID = {3} " & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_CONTROL_VALUE T3 ON TRL.RECORD_ID = T3.RECORD_ID AND T3.CONTROL_ID = {4} " & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_CONTROL_VALUE T4 ON TRL.RECORD_ID = T4.RECORD_ID AND T4.CONTROL_ID = {5} " & vbNewLine & _
|
||||
"WHERE TRL.RECORD_ID = {0} AND TR.FORM_ID = {1} AND T.DocID = (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {6} AND dwObjectID = T.DocID)", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4)
|
||||
ElseIf Type = "FULLTEXT" Then
|
||||
"WHERE TRL.RECORD_ID = {0} AND TR.FORM_ID = {1} AND TRIGHTS.dwUserOrGroupID = {6}", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4)
|
||||
Return ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True)
|
||||
ElseIf CURRENT_SEARCH_TYPE = "FULLTEXT" Then
|
||||
Dim sqlft = SQL_FULLTEXT
|
||||
sqlft = sqlft.Replace("@FULLTEXT", fulltext_String)
|
||||
SQL_DOC_SEARCH = String.Format("SELECT T.*," & vbNewLine & _
|
||||
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX1') AS DOCIDX1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX2') AS DOCIDX2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX3') AS DOCIDX3," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX4') AS DOCIDX4," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN1','{1}') AS DROPDOWN1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN2','{1}') AS DROPDOWN2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN3','{1}') AS DROPDOWN3," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN4','{1}') AS DROPDOWN4" & vbNewLine & _
|
||||
sqlft = sqlft.Replace("@FULLTEXT", CURRENT_FULLTEXT_PATTERN)
|
||||
SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine & _
|
||||
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX1') AS DOCIDX1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX2') AS DOCIDX2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX3') AS DOCIDX3," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX4') AS DOCIDX4," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN1','{1}') AS DROPDOWN1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN2','{1}') AS DROPDOWN2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN3','{1}') AS DROPDOWN3," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN4','{1}') AS DROPDOWN4" & vbNewLine & _
|
||||
"FROM " & vbNewLine & _
|
||||
"VWPMO_DOC_SEARCH T" & vbNewLine & _
|
||||
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _
|
||||
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _
|
||||
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _
|
||||
"LEFT OUTER JOIN TBPMO_CONTROL_VALUE TCTRL ON TR.GUID = TCTRL.RECORD_ID" & vbNewLine & _
|
||||
"WHERE TR.FORM_ID = {0} AND TRIGHTS.dwUserOrGroupID = {2} AND (" & vbNewLine & _
|
||||
"TCTRL.VALUE LIKE '%{6}%' OR" & vbNewLine & _
|
||||
"T.DocID IN ({5}" & vbNewLine & _
|
||||
"))", ENTITY_ID, USER_LANGUAGE, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft, CURRENT_FULLTEXT_PATTERN)
|
||||
ElseIf CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
|
||||
SQL_DOC_SEARCH = String.Format("SELECT T.* ," & vbNewLine & _
|
||||
"ISNULL(T1.VALUE,'') AS OPTION1," & vbNewLine & _
|
||||
"ISNULL(T2.VALUE,'') AS OPTION2," & vbNewLine & _
|
||||
"ISNULL(T3.VALUE,'') AS OPTION3," & vbNewLine & _
|
||||
"ISNULL(T4.VALUE,'') AS OPTION4," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN1','{7}') AS DROPDOWN1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN2','{7}') AS DROPDOWN2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN3','{7}') AS DROPDOWN3," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN4','{7}') AS DROPDOWN4," & vbNewLine & _
|
||||
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC.GUID) AS VALUE1," & vbNewLine & _
|
||||
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC1.GUID) AS VALUE2," & vbNewLine & _
|
||||
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC2.GUID) AS VALUE3," & vbNewLine & _
|
||||
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC3.GUID) AS VALUE4" & vbNewLine & _
|
||||
"FROM " & vbNewLine & _
|
||||
"VWPMO_DOC_SEARCH T " & vbNewLine & _
|
||||
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _
|
||||
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _
|
||||
"INNER JOIN TBPMO_STRUCTURE_NODES_USER_TEMP TTEMP ON TR.GUID = TTEMP.RECORD_ID" & vbNewLine & _
|
||||
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC ON TR.FORM_ID = TRC.ENTITY_ID AND TRC.LANGUAGE = '{7}' AND TRC.GUID = {8}" & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC1 ON TR.FORM_ID = TRC1.ENTITY_ID AND TRC1.LANGUAGE = '{7}' AND TRC1.GUID = {9}" & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC2 ON TR.FORM_ID = TRC2.ENTITY_ID AND TRC2.LANGUAGE = '{7}' AND TRC2.GUID = {10}" & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC3 ON TR.FORM_ID = TRC3.ENTITY_ID AND TRC3.LANGUAGE = '{7}' AND TRC3.GUID = {11}" & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_CONTROL_VALUE T1 ON TRL.RECORD_ID = T1.RECORD_ID AND T1.CONTROL_ID = {2} " & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_CONTROL_VALUE T2 ON TRL.RECORD_ID = T2.RECORD_ID AND T2.CONTROL_ID = {3} " & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_CONTROL_VALUE T3 ON TRL.RECORD_ID = T3.RECORD_ID AND T3.CONTROL_ID = {4} " & vbNewLine & _
|
||||
"LEFT JOIN TBPMO_CONTROL_VALUE T4 ON TRL.RECORD_ID = T4.RECORD_ID AND T4.CONTROL_ID = {5} " & vbNewLine & _
|
||||
"WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {0} AND TRIGHTS.dwUserOrGroupID = {6}", USER_GUID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4)
|
||||
ElseIf CURRENT_SEARCH_TYPE = "FULLTEXT_SUBNODES" Then
|
||||
Dim sqlft = SQL_FULLTEXT
|
||||
sqlft = sqlft.Replace("@FULLTEXT", CURRENT_FULLTEXT_PATTERN)
|
||||
SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine & _
|
||||
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{1}) AS OPTION1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({5},T.DocID,{1}) AS OPTION2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN1','{0}') AS DROPDOWN1," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN2','{0}') AS DROPDOWN2," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN3','{0}') AS DROPDOWN3," & vbNewLine & _
|
||||
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN4','{0}') AS DROPDOWN4" & vbNewLine & _
|
||||
"FROM " & vbNewLine & _
|
||||
"VWPMO_DOC_SEARCH T" & vbNewLine & _
|
||||
"WHERE T.DocID IN (select DISTINCT DOC_ID from TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0}) " & vbNewLine & _
|
||||
"AND T.DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {2} AND dwObjectID = T.DocID) AND " & vbNewLine & _
|
||||
"T.DocID IN ({5})", ENTITY_ID, USER_LANGUAGE, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft)
|
||||
|
||||
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _
|
||||
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _
|
||||
"INNER JOIN TBPMO_STRUCTURE_NODES_USER_TEMP TTEMP ON TR.GUID = TTEMP.RECORD_ID" & vbNewLine & _
|
||||
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _
|
||||
"WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {2} AND TRIGHTS.dwUserOrGroupID = {3}" & vbNewLine & _
|
||||
"AND T.DocID IN ({6})", USER_LANGUAGE, ENTITY_ID, USER_GUID, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft)
|
||||
End If
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False)
|
||||
If BG = True And Type = "ENTITY" Then
|
||||
If BG = True And CURRENT_SEARCH_TYPE = "ENTITY" Then
|
||||
If Not IsNothing(CURRENT_DT_DOC_ENTITY_SEARCH) Then
|
||||
Return CURRENT_DT_DOC_ENTITY_SEARCH
|
||||
End If
|
||||
|
||||
End If
|
||||
Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
|
||||
Return ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True)
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message, True)
|
||||
Return Nothing
|
||||
@@ -165,9 +226,9 @@ Public Class ClassDOC_SEARCH
|
||||
ENTITY_ID = ENT_ID
|
||||
DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS
|
||||
DT_RESULTLIST_SEL_VALUES = vDT_RESULTLIST_SELVALUES
|
||||
Return GET_DOCSEARCH_DATATABLE(vType, ftString, BG)
|
||||
Return GET_DOCSEARCH_DATATABLE(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)
|
||||
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, Optional BG As Boolean = False, Optional Preload As Boolean = False)
|
||||
Dim COL_ARRAY_RESULTLIST As List(Of String)
|
||||
ENTITY_ID = ENT_ID
|
||||
DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS
|
||||
@@ -177,7 +238,7 @@ Public Class ClassDOC_SEARCH
|
||||
Dim sw As New Stopwatch
|
||||
sw.Start()
|
||||
Dim elapsed As Double
|
||||
Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(vType, ftString, BG)
|
||||
Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(BG)
|
||||
CURRENT_DOC_RESULTS = DT_FILE_RESULT
|
||||
If IsNothing(DT_FILE_RESULT) Then
|
||||
ClassLogger.Add(">> ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
|
||||
@@ -323,11 +384,11 @@ Public Class ClassDOC_SEARCH
|
||||
rowvalue = FILE_ROW.Item(Colname)
|
||||
'If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue for Colname '" & Colname & "': '" & rowvalue.ToString & "'", False)
|
||||
Catch ex As Exception
|
||||
If vType = "RECORD" Then ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message)
|
||||
If CURRENT_SEARCH_TYPE = "RECORD" Then ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "'- Error: " & ex.Message)
|
||||
If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then
|
||||
rowvalue = ""
|
||||
Else
|
||||
If vType <> "RECORD" Then
|
||||
If CURRENT_SEARCH_TYPE <> "RECORD" Then
|
||||
rowvalue = "Not displayable in Group-Search"
|
||||
Else
|
||||
rowvalue = "Error getting rowvalue"
|
||||
@@ -386,52 +447,6 @@ Public Class ClassDOC_SEARCH
|
||||
If DD_Rights.clsDatabase.Init(MyConnectionString) = True Then
|
||||
If DD_Rights.ClassRights.Init(ENTITY_ID, LogErrorsOnly) = True Then
|
||||
If DD_Rights.ClassRights.Collect_Users(CURRENT_RECORD_ID, ENTITY_ID) = True Then
|
||||
'If DD_Rights.ClassRights.TransferRights2Service(RESULT_DOCID, RESULT_DOC_PATH, False) Then
|
||||
' Dim sql_select = String.Format("SELECT * FROM VWPMO_RIGHTS_2B_WORKED WHERE DOC_ID = {0}", RESULT_DOCID)
|
||||
' Dim DT_RIGHTS2B_CHANGED As DataTable = ClassDatabase.Return_Datatable(sql_select)
|
||||
' If Not IsNothing(DT_RIGHTS2B_CHANGED) Then
|
||||
' If DT_RIGHTS2B_CHANGED.Rows.Count > 0 Then
|
||||
' Try
|
||||
' For Each rightRow As DataRow In DT_RIGHTS2B_CHANGED.Rows
|
||||
' Dim GUID = rightRow.Item("GUID")
|
||||
' Dim USER_ID = rightRow.Item("USER_ID")
|
||||
' Dim USERNAME = rightRow.Item("USERNAME").ToString.ToUpper
|
||||
' Dim TYPE = rightRow.Item("RIGHT_MODIFY")
|
||||
' Dim FILE_RIGHT = rightRow.Item("FILE_RIGHT_ID")
|
||||
' Dim upd
|
||||
' Dim Result As Boolean
|
||||
' Select Case TYPE
|
||||
' Case "ADD RIGHT"
|
||||
' Result = DD_Rights.ClassRights.SetRightExplicit(RESULT_DOCID, RESULT_DOC_PATH, USERNAME, FILE_RIGHT, ClassWindream.oSession)
|
||||
' End Select
|
||||
' 'upd = String.Format("UPDATE TBPMO_RIGHTS_WORK_SERVICE SET WORKING = 0 WHERE GUID = {0}", GUID)
|
||||
' 'If clsDatabase.Execute_non_Query(upd) = True Then
|
||||
' If Result = True Then
|
||||
' upd = String.Format("UPDATE TBPMO_RIGHTS_WORK_SERVICE SET WORKED = 1 WHERE GUID = {0}", GUID)
|
||||
' ClassDatabase.Execute_non_Query(upd)
|
||||
' Dim msg = DD_Rights.ClassRights.MSG_RESULT
|
||||
' ClassLogger.Add(msg, False)
|
||||
' If DD_Rights.ClassRights.DeleteRightExplicit(RESULT_DOCID, RESULT_DOC_PATH, WD_GROUP1, ClassWindream.oSession) = False Then
|
||||
' msg = DD_Rights.ClassRights.MSG_RESULT
|
||||
' ClassLogger.Add(msg, False)
|
||||
' Else
|
||||
' Return True
|
||||
' End If
|
||||
|
||||
' Else
|
||||
' Dim msg = String.Format("ERROR: {0} ", DD_Rights.ClassRights.MSG_RESULT)
|
||||
' ClassLogger.Add(msg, True)
|
||||
' End If
|
||||
' 'End If
|
||||
|
||||
|
||||
' Next
|
||||
' Catch ex As Exception
|
||||
' ClassLogger.Add("Unexpected Error : " & ex.Message, True)
|
||||
' End Try
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
If DD_Rights.ClassRights.File_DeleteAndSetRight(RESULT_DOCID, RESULT_DOC_PATH, True) Then
|
||||
If DD_Rights.ClassRights.MSG_RESULT <> "" Then
|
||||
Dim msg = "Achtung: einige Rechte konnten nicht gesetzt werden: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
|
||||
|
||||
Reference in New Issue
Block a user