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

MS Diverse Verbesserungen beim laden , NOLOCK etc

Browse Source
This commit is contained in:
Developer01
2026-04-30 16:15:00 +02:00
parent 08c6a6c125
commit 11147ca0ff
20 changed files with 311 additions and 202 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organizer/Classes/ClassDocGrid.vb
View File

@@ -141,7 +141,7 @@ Public Class ClassDocGrid
For Each oRowHandle In oSelectedRows
Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID")
Dim oSQL = $"Select * FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
Dim oSQL = $"Select * FROM TBPMO_DOCRESULT_LIST WITH (NOLOCK) where DocID = {oDocId}"
Dim oDTRow As DataTable = MYDB_ECM.GetDatatable(oSQL)
Dim odwParentID = oDTRow.Rows(0).Item("dwParentID")

2
app/DD-Record-Organizer/Classes/ClassFileResult.vb
View File

@@ -42,7 +42,7 @@ Public Class ClassFileResult
End Function
Public Shared Function GET_DATATABLE_INDICES_PMO()
Try
Dim sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WHERE ACTIVE = 1 AND ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_ENTITY_ID, CURRENT_DOKARTID)
Dim sql = String.Format("SELECT * FROM TBPMO_INDEX_MAN WITH (NOLOCK) WHERE ACTIVE = 1 AND ENTITY_ID = (SELECT CASE REDUNDANT_ENTITY WHEN 0 THEN GUID ELSE REDUNDANT_ENTITY END AS ENTITY_ID FROM TBPMO_FORM WHERE GUID = {0}) AND DOCTYPE_ID = {1}", CURRENT_ENTITY_ID, CURRENT_DOKARTID)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
LOGGER.Debug("GET_DATATABLE_INDICES_PMO: " & sql)
CURRENT_TBPMO_INDEX_MAN = DT

2
app/DD-Record-Organizer/Classes/ClassHelper.vb
View File

@@ -501,7 +501,7 @@ Public Class ClassHelper
End Function
Public Shared Function GetDocrecordLinks(pRECORDID As Integer)
Try
Dim oSQL = $"SELECT * FROM TBPMO_DOC_RECORD_LINK WHERE RECORD_ID = {pRECORDID}"
Dim oSQL = $"SELECT * FROM TBPMO_DOC_RECORD_LINK WITH (NOLOCK) WHERE RECORD_ID = {pRECORDID}"
CURRENT_DT_TBPMO_DOC_RECORD_LINK = MYDB_ECM.GetDatatable(oSQL)
Catch ex As Exception
LOGGER.Warn("Unexpected Error in GetDocrecordLinks: " & ex.Message)

12
app/DD-Record-Organizer/Classes/ClassImport_Windream.vb
View File

@@ -7,7 +7,7 @@ Public Class ClassImport_Windream
Try
Dim err As Boolean = False
CURRENT_FILENAME = QuellDatei_Path
Dim DT_DOCTYPE As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DOCTYPE_ID)
Dim DT_DOCTYPE As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBDD_DOKUMENTART WITH (NOLOCK) WHERE GUID = " & DOCTYPE_ID)
If Not IsNothing(DT_DOCTYPE) Then
Dim Targetpath As String = DT_DOCTYPE.Rows(0).Item("ZIEL_PFAD")
Dim Dokart As String = DT_DOCTYPE.Rows(0).Item("BEZEICHNUNG")
@@ -24,7 +24,7 @@ Public Class ClassImport_Windream
If streamresult = True Then
Dim sql As String = String.Format("SELECT DocID FROM VWPMO_DOC_SYNC WHERE CONVERT(DATE,Change_DateTime) = CONVERT(DATE,GETDATE()) AND FULL_FILENAME = '{0}'", CURRENT_FILEIN_WD)
CURRENT_DOC_ID = MYDB_ECM.GetScalarValue(sql)
sql = $"SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = {DOCTYPE_ID} AND ENTITY_ID = {CURRENT_ENTITY_ID}"
sql = $"SELECT * FROM TBDD_INDEX_AUTOM WITH (NOLOCK) WHERE DOCTYPE_ID = {DOCTYPE_ID} AND ENTITY_ID = {CURRENT_ENTITY_ID}"
Dim dt As DataTable = MYDB_ECM.GetDatatable(sql)
Dim indexierung_erfolgreich As Boolean = False
If dt Is Nothing = False Then
@@ -108,7 +108,7 @@ Public Class ClassImport_Windream
myLogger = LOGCONFIG.GetLogger()
Dim FILE_DELIMITER, VERSION_DELIMITER, _WDOBJECTTYPE, _NewFileString As String
Dim sql As String = "select TOP 1 VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES where NAME In ('fileFLOW', 'Global-Indexer')"
Dim sql As String = "select TOP 1 VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WITH (NOLOCK) where NAME In ('fileFLOW', 'Global-Indexer')"
Dim DT1 As DataTable = MYDB_ECM.GetDatatable(sql)
FILE_DELIMITER = DT1.Rows(0).Item("FILE_DELIMITER")
VERSION_DELIMITER = DT1.Rows(0).Item("VERSION_DELIMITER")
@@ -116,7 +116,7 @@ Public Class ClassImport_Windream
Dim err As Boolean = False
Dim oWMTARGET_FOLDER As String
Dim oExtension As String = Path.GetExtension(CURRENT_FILENAME)
Dim oDT As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & DocTypeID)
Dim oDT As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBDD_DOKUMENTART WITH (NOLOCK) WHERE GUID = " & DocTypeID)
'sql_history_INSERT_INTO = "INSERT INTO TBGI_HISTORY (FILENAME_ORIGINAL,FILENAME_NEW"
'sql_history_Index_Values = ""
Dim AnzahlIndexe As Integer = 1
@@ -459,7 +459,7 @@ Public Class ClassImport_Windream
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
oReturnValue = ""
Else
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & pDoctypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WITH (NOLOCK) WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & pDoctypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
Dim DT_FORMAT As DataTable = MYDB_ECM.GetDatatable(sql1)
If Not IsNothing(DT_FORMAT) Then
If DT_FORMAT.Rows.Count > 0 Then
@@ -680,7 +680,7 @@ Public Class ClassImport_Windream
LOGGER.Warn("Variable folder should be filled with value of Control-ID '" & CONTROL_ID & "', but result was DBNULL.")
LOGGER.Warn("SQL-Command: " & CURRENT_LAST_SQL)
Else
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WITH (NOLOCK) WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")"
Dim DT_FORMAT As DataTable = MYDB_ECM.GetDatatable(sql1)
If Not IsNothing(DT_FORMAT) Then
If DT_FORMAT.Rows.Count > 0 Then

32
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@@ -167,7 +167,7 @@ Public Class ClassInit
Throw New Exception("Find more information in the logfile.")
End If
Dim oSql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1")
Dim oSql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WITH (NOLOCK) WHERE GUID = 1")
Dim KONFIG_DT As DataTable = MYDB_ECM.GetDatatable(oSql)
If KONFIG_DT.Rows.Count = 1 Then
Try
@@ -188,7 +188,7 @@ Public Class ClassInit
End If
End If
oSql = "SELECT * FROM TBDD_SQL_COMMANDS"
oSql = "SELECT * FROM TBDD_SQL_COMMANDS WITH (NOLOCK) "
Dim oDTSQL_COMMANDS As DataTable = MYDB_ECM.GetDatatable(oSql)
For Each oRow As DataRow In oDTSQL_COMMANDS.Rows
If oRow.Item("TITLE") = "ADDI_DOC_SEARCH_RECORD" Then
@@ -206,7 +206,7 @@ Public Class ClassInit
Next
Try
oSql = "SELECT * FROM TBDD_CATALOG"
oSql = "SELECT * FROM TBDD_CATALOG WITH (NOLOCK)"
Dim oDTTBDD_CATALOG As DataTable = MYDB_ECM.GetDatatable(oSql)
For Each oRow As DataRow In oDTTBDD_CATALOG.Rows
If oRow.Item("CAT_TITLE") = "DDSUPPORT_PORTAL" Then
@@ -223,7 +223,7 @@ Public Class ClassInit
LOGGER.Debug("WM_RWA2 = " + WM_RWA1)
ElseIf oRow.Item("CAT_TITLE") = "OF_FILESTORE_ENTITY" Then
OF_FILESTORE_ENTITY = oRow.Item("CAT_STRING")
Dim oSQL1 = String.Format("select A.GUID from TBPMO_FORM_CONSTRUCTOR A INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B ON A.GUID = B.CONSTRUCT_ID WHERE B.FORM_ID = {0}", OF_FILESTORE_ENTITY)
Dim oSQL1 = String.Format("select A.GUID from TBPMO_FORM_CONSTRUCTOR A WITH (NOLOCK) INNER JOIN TBPMO_FORM_CONSTRUCTOR_DETAIL B WITH (NOLOCK) ON A.GUID = B.CONSTRUCT_ID WHERE B.FORM_ID = {0}", OF_FILESTORE_ENTITY)
OF_FILESTORE_CONSTRUCTOR = MYDB_ECM.GetScalarValue(oSQL1)
LOGGER.Debug(String.Format("OF_FILESTORE_ENTITY = {0}", OF_FILESTORE_ENTITY.ToString))
End If
@@ -232,24 +232,24 @@ Public Class ClassInit
LOGGER.Error(ex)
End Try
oSql = "SELECT * FROM TBPMO_CONTROL"
oSql = "SELECT * FROM TBPMO_CONTROL WITH (NOLOCK)"
CURRENT_TBPMO_CONTROL = MYDB_ECM.GetDatatable(oSql)
oSql = "SELECT * FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1"
oSql = "SELECT * FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WITH (NOLOCK) WHERE VISIBLE = 1"
DT_DOCSEARCH_RESULTLIST_CONFIG = MYDB_ECM.GetDatatable(oSql)
oSql = "SELECT * FROM TBPMO_DOCSEARCH_VARIABLE_CONTROLS"
oSql = "SELECT * FROM TBPMO_DOCSEARCH_VARIABLE_CONTROLS WITH (NOLOCK)"
CURRENT_VARIABLE_CONTROLS = MYDB_ECM.GetDatatable(oSql)
oSql = "SELECT * FROM TBPMO_FORM_VIEW"
oSql = "SELECT * FROM TBPMO_FORM_VIEW WITH (NOLOCK)"
CURRENT_TBPMO_FORM_VIEW = MYDB_ECM.GetDatatable(oSql)
oSql = "select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T, TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WHERE T.CONFIG_ID = T1.GUID"
oSql = "select T.*, T1.HEADER_CAPTION,T1.TYPE_ID ,T1.ENTITY_ID,T1.LANGUAGE from TBPMO_DOCRESULT_DROPDOWN_ITEMS T WITH (NOLOCK), TBPMO_DOCSEARCH_RESULTLIST_CONFIG T1 WITH (NOLOCK) WHERE T.CONFIG_ID = T1.GUID"
CURRENT_TBPMO_DOCRESULT_DROPDOWN_ITEMS = MYDB_ECM.GetDatatable(oSql)
oSql = "SELECT * FROM TBFILE_EXTENSION_OVERRIDE"
oSql = "SELECT * FROM TBFILE_EXTENSION_OVERRIDE WITH (NOLOCK)"
CURRENT_TBFILE_EXTENSION_OVERRIDE = MYDB_ECM.GetDatatable(oSql)
oSql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE")
oSql = String.Format("select* from TBPMO_FILE_FORMATS_CHANGE WITH (NOLOCK)")
Dim oDTFF_CHANGE As DataTable = MYDB_ECM.GetDatatable(oSql)
For Each oRow As DataRow In oDTFF_CHANGE.Rows
FILE_FORMATS_CHANGE_DURING_EDIT.Add(oRow.Item("FILE_EXT"))
Next
oSql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE"
oSql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE WITH (NOLOCK)"
Dim oDTTBPMO_WD_OBJECTTYPE = MYDB_ECM.GetDatatable(oSql)
If oDTTBPMO_WD_OBJECTTYPE.Rows.Count = 1 Then
WMOBJECTTYPE = oDTTBPMO_WD_OBJECTTYPE.Rows(0).Item("OBJECT_TYPE").ToString
@@ -302,7 +302,7 @@ Public Class ClassInit
ClassHelper.InsertEssential_Log(0, "USER-ID", String.Format("User '{0}' not listed in Userconfiguration", USER_USERNAME))
Return False
Else
DTTBPMO_SERVICE_RIGHT_CONFIG = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1")
DTTBPMO_SERVICE_RIGHT_CONFIG = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_SERVICE_RIGHT_CONFIG WITH (NOLOCK) WHERE GUID = 1")
WM_DOMAIN = DTTBPMO_SERVICE_RIGHT_CONFIG.Rows(0).Item("AD_DOMAIN")
WM_USER = DTTBPMO_SERVICE_RIGHT_CONFIG.Rows(0).Item("AD_USER")
WM_SERVER = DTTBPMO_SERVICE_RIGHT_CONFIG.Rows(0).Item("AD_SERVER")
@@ -392,12 +392,12 @@ Public Class ClassInit
End If
'Me.Close()
oFNSQL = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = " & USER_GUID)
oFNSQL = String.Format("select * from TBPMO_RIGHT_USER WITH (NOLOCK) WHERE USER_ID = " & USER_GUID)
CURRENT_TBPMO_RIGHT_USER = MYDB_ECM.GetDatatable(oFNSQL)
Init_CONN_SWITCH()
DT_CLIENT_USER = MYDB_ECM.GetDatatable("SELECT T.*, T1.LICENSE_PMO, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T,TBDD_CLIENT T1 WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID)
DT_CLIENT_USER = MYDB_ECM.GetDatatable("SELECT T.*, T1.LICENSE_PMO, T1.CLIENT_NAME FROM TBDD_CLIENT_USER T WITH (NOLOCK), TBDD_CLIENT T1 WITH (NOLOCK) WHERE T.CLIENT_ID = T1.GUID AND T.USER_ID = " & USER_GUID)
If DT_CLIENT_USER.Rows.Count > 1 Then
frmClientLogin.ShowDialog()
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
@@ -482,8 +482,10 @@ Public Class ClassInit
SQL_LIC_NAMED_USER = SQL_LIC_NAMED_USER.Replace("@MODULE", "Record-Organizer")
SQL_LIC_NAMED_USER = SQL_LIC_NAMED_USER.Replace("@CLIENT", CLIENT_SELECTED.ToString)
oFNSQL = SQL_LIC_NAMED_USER
LOGGER.Debug("SQL_LIC_NAMED_USER: " & SQL_LIC_NAMED_USER)
Else
oFNSQL = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Record-Organizer' AND CLIENT_ID = {0}", CLIENT_SELECTED)
LOGGER.Debug("Using default SQL for License-Check: " & oFNSQL)
End If
Dim anzahl = MYDB_ECM.GetScalarValue(oFNSQL)

2
app/DD-Record-Organizer/Classes/ClassOfficeTemplate.vb
View File

@@ -4,7 +4,7 @@ Public Class ClassOfficeTemplate
Try
Dim sql_Template As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE TEMPLATE_ID = " & Template_ID
Dim DT_TEMPLATE As System.Data.DataTable = MYDB_ECM.GetDatatable(sql_Template)
Dim sql_patterns As String = String.Format("select * from TBPMO_TEMPLATE_PATTERN where TEMPLATE_ENT_ID = (SELECT GUID FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = {0} AND TEMPLATE_ID = {1})", CURRENT_ENTITY_ID, Template_ID)
Dim sql_patterns As String = String.Format("select * from TBPMO_TEMPLATE_PATTERN WITH (NOLOCK) where TEMPLATE_ENT_ID = (SELECT GUID FROM TBPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = {0} AND TEMPLATE_ID = {1})", CURRENT_ENTITY_ID, Template_ID)
Dim DT_PATTERNS As System.Data.DataTable = MYDB_ECM.GetDatatable(sql_patterns)
If IsNothing(DT_PATTERNS) Then

5
app/DD-Record-Organizer/Classes/ClassRightManagement.vb
View File

@@ -36,9 +36,10 @@
Else
If DT_RIGHTS_USER Is Nothing Or DT_RIGHTS_GROUP Is Nothing Then
Dim Sql As String
Sql = String.Format("select * from TBPMO_RIGHT_USER WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
Sql = String.Format("select * from TBPMO_RIGHT_USER WITH (NOLOCK) WHERE USER_ID = {0} AND ENTITY_ID = {1}", USER_GUID, ENTITY_ID)
DT_RIGHTS_USER = MYDB_ECM.GetDatatable(sql)
Sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
Sql = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WITH (NOLOCK) WHERE ENTITY_ID = {0}
AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WITH (NOLOCK) WHERE USER_ID = {1})", ENTITY_ID, USER_GUID)
DT_RIGHTS_GROUP = MYDB_ECM.GetDatatable(sql)
End If

2
app/DD-Record-Organizer/Classes/ClassWDRights.vb
View File

@@ -38,7 +38,7 @@ Public Class ClassWDRights
Try
MSG_RESULT = ""
LOGGER.Debug(String.Format("Init ClassWDRights started - " & Now & " ..."))
Dim DT_KONFIG As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1")
Dim DT_KONFIG As DataTable = MYDB_ECM.GetDatatable("SELECT * FROM TBPMO_SERVICE_RIGHT_CONFIG WITH (NOLOCK) WHERE GUID = 1")
AD_DOMAIN = DT_KONFIG.Rows(0).Item("AD_DOMAIN")
AD_USER = DT_KONFIG.Rows(0).Item("AD_USER")
WD_RIGHT_ADMIN = DT_KONFIG.Rows(0).Item("WD_RIGHT")

4
app/DD-Record-Organizer/Classes/Commands/ClassFunctionCommands.vb
View File

@@ -48,7 +48,7 @@
Public Shared Function LoadFunction(ControlId As Integer) As DataRow
Try
Dim SQL As String = "SELECT * FROM TBPMO_FUNCTION_GENERAL WHERE CONTROL_ID = " & ControlId
Dim SQL As String = "SELECT * FROM TBPMO_FUNCTION_GENERAL WITH (NOLOCK) WHERE CONTROL_ID = " & ControlId
Dim dt As DataTable = MYDB_ECM.GetDatatable(SQL)
If dt.Rows.Count = 1 Then
@@ -64,7 +64,7 @@
Public Shared Function GETCONTROL_ID_FOR_COL_NAME(FORM_ID As Integer, Column_Name As String)
Try
Dim SQL As String = "SELECT GUID FROM TBPMO_CONTROL WHERE FORM_ID = " & FORM_ID & " AND COL_NAME = '" & Column_Name & "'"
Dim SQL As String = "SELECT GUID FROM TBPMO_CONTROL WITH (NOLOCK) WHERE FORM_ID = " & FORM_ID & " AND COL_NAME = '" & Column_Name & "'"
Dim result = MYDB_ECM.GetScalarValue(SQL)
Return result
Catch ex As Exception