AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS1611

Browse Source
This commit is contained in:
SchreiberM
2016-11-17 12:25:23 +01:00
parent ba4040e3e4
commit 8ffa31303b
20 changed files with 3837 additions and 3872 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
app/DD-Record-Organiser/frmConstructorDesigner.vb
View File

@@ -166,7 +166,7 @@ Public Class frmConstructorDesigner
Public Sub RecordSearch_Config()
Try
'Zurücksetzen
lblSaveDocSearch.Visible = False
Dim res = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
If res = True Then
@@ -174,6 +174,12 @@ Public Class frmConstructorDesigner
Else
chkWDSearch_Active.Checked = False
End If
res = ClassDatabase.Execute_Scalar("SELECT DOC_SEARCH_TAB1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
If CBool(res) = True Then
chkDOC_SEARCH_TAB1.Checked = True
Else
chkDOC_SEARCH_TAB1.Checked = False
End If
Catch ex As Exception
MsgBox("Error in RecordSearch_Config:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -340,6 +346,19 @@ Public Class frmConstructorDesigner
lblSaveDocSearch.Visible = True
lblSaveDocSearch.Text = "Data saved - " & Now
End If
Dim DOC_SEARCH_TAB1 As Integer
If chkDOC_SEARCH_TAB1.Checked Then
DOC_SEARCH_TAB1 = 1
Else
DOC_SEARCH_TAB1 = 0
End If
sql = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET DOC_SEARCH_TAB1 = " & DOC_SEARCH_TAB1 & " , CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID
If ClassDatabase.Execute_non_Query(sql, True) = True Then
lblSaveDocSearch.Visible = True
lblSaveDocSearch.Text = "Data saved - " & Now
End If
Catch ex As Exception
MsgBox("Error in Save DocView-properties 2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
lblSaveDocSearch.Visible = False
@@ -378,11 +397,13 @@ Public Class frmConstructorDesigner
Load_Supervisor()
Load_Supervisor_Controls_Choose()
Load_Supervisor_Controls()
chkDOC_SEARCH_TAB1.Enabled = True
'If check = False 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
Else
XtraTabControlSV.Enabled = False
chkDOC_SEARCH_TAB1.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