This commit is contained in:
SchreiberM
2016-09-22 14:58:28 +02:00
parent 8a7c16d022
commit d8817e84a8
6 changed files with 513 additions and 635 deletions

View File

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