From 06001ccf8db39ed00d9c675d5b0bb749a39f79b4 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 26 Apr 2018 11:29:54 +0200 Subject: [PATCH] MS: RightDelete frmValidator --- app/DD_PM_WINDREAM/frmValidator.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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