AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Switch back to FNPM_GET_NEXT_DOC_INFO

Browse Source
This commit is contained in:
Jonathan Jenne 2021-11-08 13:58:31 +01:00
parent 1ac05c6fdd
commit 84cf092bc4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2202,8 +2202,12 @@ Public Class frmValidator
If PROFIL_sortbynewest = True Then If PROFIL_sortbynewest = True Then
oBIT = 1 oBIT = 1
End If End If
Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}" ' 08.11.2021: Switch back to FNPM_GET_NEXT_DOC_INFO because the prodedure breaks a bunch of installations
Dim oDT As DataTable = Database_ECM.GetDatatable(oSQL) ', "Get_Next_GUID") ' Because it does not check for user rights ........,.....
'Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}"
Dim oSQL = $"SELECT * from [dbo].[FNPM_GET_NEXT_DOC_INFO] ({CURRENT_ProfilGUID},{oBIT},{CURRENT_DOC_GUID},'{USER_USERNAME}')"
Dim oDT As DataTable = Database_ECM.GetDatatable(oSQL)
If oDT.Rows.Count > 0 Then If oDT.Rows.Count > 0 Then
oNewGUID = oDT.Rows(0).Item(0) oNewGUID = oDT.Rows(0).Item(0)
CURRENT_DOC_ID = oDT.Rows(0).Item(1) CURRENT_DOC_ID = oDT.Rows(0).Item(1)