DAtabase integriert
This commit is contained in:
@@ -32,7 +32,7 @@ Public Class ClassDOC_SEARCH
|
||||
OPTION4 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION4_CTRL")
|
||||
OPTION5 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION5_CTRL")
|
||||
End If
|
||||
LOGGER.Info("DT_RESULTLIST_SEL_VALUES.Rows.Count: " & DT_RESULTLIST_SEL_VALUES.Rows.Count, False)
|
||||
LOGGER.Info("DT_RESULTLIST_SEL_VALUES.Rows.Count: " & DT_RESULTLIST_SEL_VALUES.Rows.Count)
|
||||
|
||||
For Each oRow As DataRow In DT_RESULTLIST_SEL_VALUES.Rows
|
||||
If oRow.Item("COLUMN_VIEW").ToString = "VALUE1" Then
|
||||
@@ -222,7 +222,7 @@ Public Class ClassDOC_SEARCH
|
||||
"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
|
||||
LOGGER.Debug("SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False)
|
||||
LOGGER.Debug("SQL_DOC_SEARCH: " & SQL_DOC_SEARCH)
|
||||
If BG = True And CURRENT_SEARCH_TYPE = "ENTITY" Then
|
||||
If Not IsNothing(CURRENT_DT_DOC_ENTITY_SEARCH) Then
|
||||
Return CURRENT_DT_DOC_ENTITY_SEARCH
|
||||
@@ -241,7 +241,7 @@ Public Class ClassDOC_SEARCH
|
||||
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Async DTFILE_RESULT_ASYNC", ex.Message, ex.StackTrace)
|
||||
End Try
|
||||
|
||||
Return DTFILE_RESULT_ASYNC 'ClassDatabase.Return_Datatable(SQL_DOC_SEARCH, True)
|
||||
Return DTFILE_RESULT_ASYNC
|
||||
Catch ex As Exception
|
||||
LOGGER.Error("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message)
|
||||
Return Nothing
|
||||
@@ -266,7 +266,7 @@ Public Class ClassDOC_SEARCH
|
||||
Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(BG)
|
||||
CURRENT_DOC_RESULTS = DT_FILE_RESULT
|
||||
If IsNothing(DT_FILE_RESULT) Then
|
||||
LOGGER.Warn("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
|
||||
LOGGER.Warn("ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!")
|
||||
Return Nothing
|
||||
End If
|
||||
sw.Done()
|
||||
@@ -445,7 +445,7 @@ Public Class ClassDOC_SEARCH
|
||||
rowvalue = ""
|
||||
End If
|
||||
_step = "9.1 rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]"
|
||||
LOGGER.Debug("rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]", False)
|
||||
LOGGER.Debug("rowvalue for Colname [" & Colname & "]: [" & rowvalue.ToString & "]")
|
||||
Catch ex As Exception
|
||||
If CURRENT_SEARCH_TYPE = "RECORD" Then
|
||||
LOGGER.Warn("Unexpected Error in GetVariableValue for Column [" & Colname & "] - Error: " & ex.Message)
|
||||
@@ -462,11 +462,11 @@ Public Class ClassDOC_SEARCH
|
||||
End If
|
||||
End Try
|
||||
_step = "9.2 now: NewRow.Item(i) = rowvalue.ToString..."
|
||||
'LOGGER.Debug("9.2 now: NewRow.Item(i) = rowvalue.ToString...", False)
|
||||
'LOGGER.Debug("9.2 now: NewRow.Item(i) = rowvalue.ToString...")
|
||||
Try
|
||||
Dim oType = oDTGrid.Columns(i).DataType.ToString
|
||||
If oType = "System.DateTime" And Len(rowvalue) = 0 Then
|
||||
LOGGER.Debug("rowvalue Is empty and Column is Datetime...", False)
|
||||
LOGGER.Debug("rowvalue Is empty and Column is Datetime...")
|
||||
|
||||
rowvalue = "2099-12-31"
|
||||
ElseIf oType = "System.Boolean" Then
|
||||
@@ -489,9 +489,9 @@ Public Class ClassDOC_SEARCH
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn("Error in advising rowvalue to rowitem: " + ex.Message, False)
|
||||
LOGGER.Error("Error in advising rowvalue to rowitem: " + ex.Message, False)
|
||||
LOGGER.Warn("Type of column: " + oDTGrid.Columns(i).DataType.ToString(), False)
|
||||
LOGGER.Warn("Error in advising rowvalue to rowitem: " + ex.Message)
|
||||
LOGGER.Error("Error in advising rowvalue to rowitem: " + ex.Message)
|
||||
LOGGER.Warn("Type of column: " + oDTGrid.Columns(i).DataType.ToString())
|
||||
End Try
|
||||
|
||||
i += 1
|
||||
@@ -516,10 +516,10 @@ Public Class ClassDOC_SEARCH
|
||||
Public Shared Function CREATE_DOC_RELATED_LINKS(DOC_ID As Integer, RECORD_ID As Integer)
|
||||
Try
|
||||
Dim execute = String.Format("EXEC [dbo].[PRPMO_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
|
||||
If ClassDatabase.Execute_non_Query(execute) = True Then
|
||||
If MYDB_ECM.ExecuteNonQuery(execute) = True Then
|
||||
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
|
||||
execute = String.Format("EXEC [dbo].[PRPROXY_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
|
||||
ClassDatabase.Execute_non_Query(execute, True)
|
||||
MYDB_ECM.ExecuteNonQuery(execute)
|
||||
End If
|
||||
Return True
|
||||
Else
|
||||
@@ -536,7 +536,7 @@ Public Class ClassDOC_SEARCH
|
||||
MsgBox("No Record selected - Please select one!", MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
LOGGER.Debug("#### SETTING RIGHTS FOR FILE ######", False)
|
||||
LOGGER.Debug("#### SETTING RIGHTS FOR FILE ######")
|
||||
If ClassWDRights.Init = True Then
|
||||
If ClassWDRights.Doc_Renew_Rights(RESULT_DOCID, RESULT_DOC_PATH, DeleteRightsBefore) Then
|
||||
If ClassWDRights.MSG_RESULT <> "" Then
|
||||
@@ -554,33 +554,7 @@ Public Class ClassDOC_SEARCH
|
||||
MsgBox("Could not initialize right-module - Check the log!", MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
'DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", USER_USERNAME)
|
||||
'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.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
|
||||
' If USER_LANGUAGE <> "de-DE" Then
|
||||
' msg = "Attention: some rights could not be set: " & vbNewLine & DD_Rights.ClassRights.MSG_RESULT
|
||||
' End If
|
||||
' MsgBox(msg, MsgBoxStyle.Exclamation)
|
||||
' Return True
|
||||
' Else
|
||||
' Return True
|
||||
' End If
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
'Else
|
||||
' Return False
|
||||
'End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in SET_WD_RIGHTS: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
@@ -594,8 +568,11 @@ Public Class ClassDOC_SEARCH
|
||||
''' <remarks></remarks>
|
||||
Public Shared Function Get_File_Rights(DOC_ID As Integer)
|
||||
Try
|
||||
If DOC_ID = 0 Then
|
||||
Return "R"
|
||||
End If
|
||||
Dim sql = String.Format("SELECT dwAccessRight FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwObjectID = {0} and dwUserOrGroupID = {1}", DOC_ID, USERID_FK_INT_ECM)
|
||||
Dim result = clsDatabase.Execute_Scalar(sql, True)
|
||||
Dim result = MYDB_ECM.GetScalarValue(sql)
|
||||
If IsNothing(result) Or IsDBNull(result) Then
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user