From 84cf092bc47b87e6dfac2a1fd53f0f2a8cf5a197 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 8 Nov 2021 13:58:31 +0100 Subject: [PATCH] Switch back to FNPM_GET_NEXT_DOC_INFO --- app/DD_PM_WINDREAM/frmValidator.vb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 8590259..8284460 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -2202,8 +2202,12 @@ Public Class frmValidator If PROFIL_sortbynewest = True Then oBIT = 1 End If - Dim oSQL = $"EXEC PRPM_GET_NEXT_DOC_INFO {CURRENT_ProfilGUID},{CURRENT_DOC_ID},{USER_ID}" - Dim oDT As DataTable = Database_ECM.GetDatatable(oSQL) ', "Get_Next_GUID") + ' 08.11.2021: Switch back to FNPM_GET_NEXT_DOC_INFO because the prodedure breaks a bunch of installations + ' 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 oNewGUID = oDT.Rows(0).Item(0) CURRENT_DOC_ID = oDT.Rows(0).Item(1)