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)