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

MS: RightDelete frmValidator

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-04-26 11:29:54 +02:00
parent 271ebf517c
commit 06001ccf8d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -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