MS_05.11.2015
This commit is contained in:
SchreiberM
@@ -1,4 +1,6 @@
|
||||
Public Class frmConstructorDesigner
|
||||
Dim SELECTED_ENTITY_ID As Integer
|
||||
Dim SELECTED_CONSTRUCTOR_DETAIL_ID As Integer
|
||||
Dim formloaded As Boolean = False
|
||||
Private Sub TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Click
|
||||
Try
|
||||
@@ -15,13 +17,14 @@
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Saving FormConstructor:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmConstructorDesigner_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_ECMAdmin1.TBPMO_FORM_CONSTRUCTOR". Sie können sie bei Bedarf verschieben oder entfernen.
|
||||
Try
|
||||
XtraTabControl2.SelectedTabPageIndex = 0
|
||||
formloaded = False
|
||||
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
@@ -52,11 +55,115 @@
|
||||
Private Sub Load_Detail(ID As Integer)
|
||||
Try
|
||||
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL, ID)
|
||||
SELECTED_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & ID, True)
|
||||
Catch ex As System.Exception
|
||||
MsgBox("Error Loading Details:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Select Case XtraTabControl2.SelectedTabPageIndex
|
||||
Case 0
|
||||
Load_QuickDisplay()
|
||||
|
||||
Case 2
|
||||
RecordSearch_Config()
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
Public Sub Load_QuickDisplay()
|
||||
Try
|
||||
If SELECTED_CONSTRUCTOR_DETAIL_ID = 0 Then Exit Sub
|
||||
Dim formId = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID, True)
|
||||
Dim sql = "SELECT T.GUID, T.COL_NAME AS 'COL_NAME' FROM TBPMO_CONTROL T, TBPMO_CONTROL_SCREEN T1, TBPMO_CONTROL_TYPE T2 WHERE T.SHOW_COLUMN = 1 AND T.[COL_NAME] <> '' AND T.GUID = T1.CONTROL_ID AND T.CONTROL_TYPE_ID = T2.GUID AND T.FORM_ID = " & formId & " AND LEN(ISNULL(T.COL_NAME,'')) > 0 and t.CONTROL_TYPE_ID not in (1,5,12) " & _
|
||||
"AND T2.GUID not in (1,5,7,8,9) AND T.GUID NOT IN (SELECT CONTROL_ID FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY WHERE CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID & ") ORDER BY T1.TAB_INDEX"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "LOAD QUICKDISPLAY")
|
||||
listBoxControls.DataSource = DT
|
||||
listBoxControls.DisplayMember = DT.Columns(1).ColumnName
|
||||
listBoxControls.ValueMember = DT.Columns(0).ColumnName
|
||||
|
||||
Dim DT2 = ClassDatabase.Return_Datatable("SELECT T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL T1 WHERE T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = " & SELECTED_CONSTRUCTOR_DETAIL_ID, "LOAD QUICKDISPLAY")
|
||||
ListBoxConfiguredDisplay.DataSource = DT2
|
||||
ListBoxConfiguredDisplay.DisplayMember = DT2.Columns(1).ColumnName
|
||||
ListBoxConfiguredDisplay.ValueMember = DT2.Columns(0).ColumnName
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Error Load_QuickDisplay:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Public Sub RecordSearch_Config()
|
||||
Try
|
||||
'Zurücksetzen
|
||||
txtWindreamsuche.Text = ""
|
||||
cmbSearchPattern1.SelectedIndex = -1
|
||||
cmbSearchPattern2.SelectedIndex = -1
|
||||
cmbSearchPattern3.SelectedIndex = -1
|
||||
cmbSearchPattern4.SelectedIndex = -1
|
||||
cmbSearchPattern5.SelectedIndex = -1
|
||||
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
|
||||
chkWDSearch_Active.Checked = True
|
||||
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
|
||||
If DT.Rows.Count = 1 Then
|
||||
If Not IsDBNull(DT.Rows(0).Item(0)) Then
|
||||
txtWindreamsuche.Text = ClassHelper.CheckDBNull(DT.Rows(0).Item(0), "String")
|
||||
'Form-ID (Entity)
|
||||
'Record -ID
|
||||
Dim result
|
||||
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(1), "String")
|
||||
If result <> "" Then
|
||||
If result.ToString.ToUpper.Contains("RECORD") Then
|
||||
cmbSearchPattern1.SelectedIndex = 1
|
||||
Else
|
||||
cmbSearchPattern1.SelectedIndex = 0
|
||||
End If
|
||||
End If
|
||||
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(2), "String")
|
||||
If result <> "" Then
|
||||
If result.ToString.ToUpper.Contains("RECORD") Then
|
||||
cmbSearchPattern2.SelectedIndex = 1
|
||||
Else
|
||||
cmbSearchPattern2.SelectedIndex = 0
|
||||
End If
|
||||
End If
|
||||
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(3), "String")
|
||||
If result <> "" Then
|
||||
If result.ToString.ToUpper.Contains("RECORD") Then
|
||||
cmbSearchPattern3.SelectedIndex = 1
|
||||
Else
|
||||
cmbSearchPattern3.SelectedIndex = 0
|
||||
End If
|
||||
End If
|
||||
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(4), "String")
|
||||
If result <> "" Then
|
||||
If result.ToString.ToUpper.Contains("RECORD") Then
|
||||
cmbSearchPattern4.SelectedIndex = 1
|
||||
Else
|
||||
cmbSearchPattern4.SelectedIndex = 0
|
||||
End If
|
||||
End If
|
||||
result = ClassHelper.CheckDBNull(DT.Rows(0).Item(5), "String")
|
||||
If result <> "" Then
|
||||
If result.ToString.ToUpper.Contains("RECORD") Then
|
||||
cmbSearchPattern5.SelectedIndex = 1
|
||||
Else
|
||||
cmbSearchPattern5.SelectedIndex = 0
|
||||
End If
|
||||
End If
|
||||
'cmbSearchPattern1.SelectedIndex = cmbSearchPattern1.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(1), "String"))
|
||||
'cmbSearchPattern2.SelectedIndex = cmbSearchPattern2.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(2), "String"))
|
||||
'cmbSearchPattern3.SelectedIndex = cmbSearchPattern3.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(3), "String"))
|
||||
'cmbSearchPattern4.SelectedIndex = cmbSearchPattern4.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(4), "String"))
|
||||
'cmbSearchPattern5.SelectedIndex = cmbSearchPattern5.FindStringExact(ClassHelper.CheckDBNull("@" & DT.Rows(0).Item(5), "String"))
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
chkWDSearch_Active.Checked = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in RecordSearch_Config:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub frmConstructorDesigner_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
formloaded = True
|
||||
Load_TreeViewEbene()
|
||||
@@ -121,9 +228,10 @@
|
||||
Try
|
||||
If Not TreeView1.SelectedNode Is Nothing Then
|
||||
Dim construct_id As Integer = Integer.Parse(TreeView1.SelectedNode.Tag)
|
||||
SELECTED_CONSTRUCTOR_DETAIL_ID = construct_id
|
||||
Me.tslblSaveDetail.Visible = False
|
||||
Load_Detail(construct_id)
|
||||
|
||||
lblSave1.Visible = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in AfterSelect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -172,5 +280,110 @@
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Save Constructor-Details:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
Try
|
||||
Try
|
||||
Dim SP1, SP2, SP3, SP4, SP5
|
||||
If cmbSearchPattern1.SelectedIndex <> -1 Then
|
||||
SP1 = "@" & cmbSearchPattern1.Text
|
||||
Else
|
||||
SP1 = ""
|
||||
End If
|
||||
If cmbSearchPattern2.SelectedIndex <> -1 Then
|
||||
SP2 = "@" & cmbSearchPattern2.Text
|
||||
Else
|
||||
SP2 = ""
|
||||
End If
|
||||
If cmbSearchPattern3.SelectedIndex <> -1 Then
|
||||
SP3 = "@" & cmbSearchPattern3.Text
|
||||
Else
|
||||
SP3 = ""
|
||||
End If
|
||||
If cmbSearchPattern4.SelectedIndex <> -1 Then
|
||||
SP4 = "@" & cmbSearchPattern4.Text
|
||||
Else
|
||||
SP4 = ""
|
||||
End If
|
||||
If cmbSearchPattern5.SelectedIndex <> -1 Then
|
||||
SP5 = "@" & cmbSearchPattern5.Text
|
||||
Else
|
||||
SP5 = ""
|
||||
End If
|
||||
Dim sql = "UPDATE TBPMO_FORM_VIEW SET WINDREAM_SEARCH = '" & txtWindreamsuche.Text & "',SEARCH_PATTERN1 = '" & SP1 & "',SEARCH_PATTERN2= '" & SP2 & "',SEARCH_PATTERN3= '" & SP3 & _
|
||||
"',SEARCH_PATTERN4 = '" & SP4 & "',SEARCH_PATTERN5 = '" & SP5 & "', CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
|
||||
If ClassDatabase.Execute_non_Query(sql) = True Then
|
||||
lblSave1.Visible = True
|
||||
lblSave1.Text = "Erfolgreich gespeichert - " & Now
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Save DocView-properties:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
lblSave1.Visible = False
|
||||
End Try
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If Not Me.txtWindreamsuche.Text = "" Then
|
||||
Me.OFDWindreamsuche.FileName = Me.WINDREAM_SEARCHTextBox.Text
|
||||
End If
|
||||
|
||||
If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
Me.WINDREAM_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnWindreamsuche_Click(sender As Object, e As EventArgs) Handles btnWindreamsuche.Click
|
||||
If Not Me.txtWindreamsuche.Text = "" Then
|
||||
Me.OFDWindreamsuche.FileName = Me.txtWindreamsuche.Text
|
||||
End If
|
||||
|
||||
If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
Me.txtWindreamsuche.Text = Me.OFDWindreamsuche.FileName
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub chkWDSearch_Active_CheckedChanged(sender As Object, e As EventArgs) Handles chkWDSearch_Active.CheckedChanged
|
||||
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
|
||||
grpbxWD_RecordSearch.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
|
||||
grpbxWD_RecordSearch.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
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Checked Change WD-Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
|
||||
Select Case XtraTabControl2.SelectedTabPageIndex
|
||||
Case 0
|
||||
Load_QuickDisplay()
|
||||
Case 2
|
||||
RecordSearch_Config()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub btnAddControl_Click(sender As Object, e As EventArgs) Handles btnAddControl.Click
|
||||
Try
|
||||
Dim i = listBoxControls.SelectedValue
|
||||
If Not IsNothing(i) Then
|
||||
Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",'" & Environment.UserName & "')"
|
||||
If ClassDatabase.Execute_non_Query(insert, True) Then
|
||||
Load_QuickDisplay()
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Adding Control to Quick-Display: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user