diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index 1d7766e..9723b0b 100644
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -348,7 +348,9 @@ Public Class frmValidator
                         WD_Search = dr.Item("WD_SEARCH")
                         finalProfile = dr.Item("FINAL_PROFILE")
                         Move2Folder = dr.Item("MOVE2Folder")
-                        Right_Delete = dr.Item("RIGHT_FILE_DELETE")
+                        Dim sql = String.Format("SELECT RIGHT1 FROM TBDD_USER_MODULES WHERE USER_ID = {0} AND MODULE_ID = (SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'PM')", CURRENT_USERID)
+                        Right_Delete = CBool(ClassDatabase.Execute_Scalar(sql, MyConnectionString))
+
                         If CURRENT_JUMP_DOC_GUID <> 0 Then
                             Anzahl_ValDoks = 1
                         Else