MS
This commit is contained in:
@@ -371,8 +371,7 @@ Public Class frmConstructorDesigner
|
||||
Try
|
||||
'Dim check = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
|
||||
If chkWDSearch_Active.Checked Then
|
||||
GroupBoxDocSearch.Enabled = True
|
||||
GroupBoxSupervisorControls.Enabled = True
|
||||
XtraTabControlSV.Enabled = True
|
||||
Load_TBAD_Users()
|
||||
Load_Supervisor()
|
||||
Load_Supervisor_Controls_Choose()
|
||||
@@ -381,8 +380,7 @@ Public Class frmConstructorDesigner
|
||||
' ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
|
||||
'End If
|
||||
Else
|
||||
GroupBoxDocSearch.Enabled = False
|
||||
GroupBoxSupervisorControls.Enabled = False
|
||||
XtraTabControlSV.Enabled = False
|
||||
'If check = True Then
|
||||
' ClassDatabase.Execute_Scalar("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = 1 WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID, True)
|
||||
'End If
|
||||
|
||||
Reference in New Issue
Block a user