MS_02.03
This commit is contained in:
SchreiberM
467
app/DD-Record-Organiser/frmTask_Management.vb
Normal file
467
app/DD-Record-Organiser/frmTask_Management.vb
Normal file
@@ -0,0 +1,467 @@
|
||||
Public Class frmTask_Management
|
||||
Private Shared _Instance As frmTask_Management = Nothing
|
||||
Private insert As Boolean = False
|
||||
Public Shared Function Instance() As frmTask_Management
|
||||
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
|
||||
_Instance = New frmTask_Management
|
||||
End If
|
||||
_Instance.BringToFront()
|
||||
Return _Instance
|
||||
End Function
|
||||
Private formloaded As Boolean = False
|
||||
Private _ENTITYID As Integer
|
||||
Private Sub TBPMO_WORKFLOWBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_WORKFLOWBindingNavigatorSaveItem.Click
|
||||
save_Workflow()
|
||||
End Sub
|
||||
Sub Save_workflow()
|
||||
Try
|
||||
Me.TBPMO_WORKFLOWBindingSource.EndEdit()
|
||||
If DD_DMSDataSet.TBPMO_WORKFLOW.GetChanges Is Nothing = False Then
|
||||
Me.CHANGED_WHOTextBox1.Text = Environment.UserName
|
||||
Me.TBPMO_WORKFLOWBindingSource.EndEdit()
|
||||
Me.TBPMO_WORKFLOWTableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW)
|
||||
toolstriplabel(True, "Änderungen Task erfolgreich gespeichert - " & Now)
|
||||
Else
|
||||
toolstriplabel(False, "")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Save TBPMO_WORKFLOW:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Sub toolstriplabel(visible As Boolean, txt As String)
|
||||
tslbl.Text = txt
|
||||
tslbl.Visible = visible
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmTaskmanagement_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTaskmanagement")
|
||||
End Sub
|
||||
Private Sub frmTaskmanagement_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTaskmanagement")
|
||||
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
VWPMO_GUI_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
TBPMO_WORKFLOW_FORMTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
TBPMO_WORKFLOWTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
VWPMO_WORKFLOW_FORMTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Try
|
||||
Me.VWPMO_GUI_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_GUI_ENTITY)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message, MsgBoxStyle.Exclamation)
|
||||
ClassLogger.Add(">> Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message, False)
|
||||
End Try
|
||||
Load_TreeView()
|
||||
Me.TBPMO_WORKFLOWTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW)
|
||||
Load_States()
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection)
|
||||
For Each node As TreeNode In tncoll
|
||||
|
||||
If node.IsSelected Then
|
||||
node.NodeFont = New Font(TreeViewEntities.Font.FontFamily, TreeViewEntities.Font.Size, FontStyle.Bold)
|
||||
node.Text = node.Text
|
||||
Else
|
||||
node.NodeFont = New Font(TreeViewEntities.Font.FontFamily, TreeViewEntities.Font.Size, FontStyle.Regular)
|
||||
End If
|
||||
|
||||
If node.Nodes.Count > 0 Then
|
||||
SetSelectedNodeStyle(node.Nodes)
|
||||
End If
|
||||
|
||||
Next
|
||||
TreeViewEntities.Refresh()
|
||||
End Sub
|
||||
Sub Load_TreeView()
|
||||
Try
|
||||
|
||||
Dim DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0", USER_LANGUAGE, CURRENT_SCREEN_ID)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
|
||||
If DT.Rows.Count > 0 Then
|
||||
TreeViewEntities.Nodes.Clear()
|
||||
For Each Row As DataRow In DT.Rows
|
||||
Dim Node As TreeNode
|
||||
Node = TreeViewEntities.Nodes.Add(Row.Item("CAPTION").ToString)
|
||||
Node.Tag = Row.Item("ID")
|
||||
Node.BackColor = Color.Orange
|
||||
'Jetzt die Ebene1Knoten einhängen
|
||||
DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID in (2,5) AND PARENT_ID = {2} ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, Row.Item("ID"))
|
||||
'Dim sql As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (2,5) AND T.PARENT_ID = " & Row.Item("GUID") & " ORDER BY LEVEL"
|
||||
Dim dtEbene1 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
|
||||
If dtEbene1.Rows.Count > 0 Then
|
||||
For Each row1 As DataRow In dtEbene1.Rows
|
||||
Dim Node1 As TreeNode
|
||||
Node1 = Node.Nodes.Add(row1.Item("CAPTION").ToString)
|
||||
Node1.Tag = row1.Item("ID")
|
||||
DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID in (3,5) AND PARENT_ID = {2} ORDER BY LEVEL", USER_LANGUAGE, CURRENT_SCREEN_ID, row1.Item("ID"))
|
||||
' Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID in (3,5) AND T.PARENT_ID = " & row1.Item("GUID") & " ORDER BY LEVEL"
|
||||
'Jetzt die Ebene2 Knoten einhängen
|
||||
Dim dtEbene2 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
|
||||
If dtEbene2.Rows.Count > 0 Then
|
||||
For Each row2 As DataRow In dtEbene2.Rows
|
||||
Dim Node2 As TreeNode
|
||||
Node2 = Node1.Nodes.Add(row2.Item("CAPTION").ToString)
|
||||
Node2.Tag = row2.Item("ID")
|
||||
Next
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
Next
|
||||
DT_SQL = String.Format("SELECT ID, Title,[dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FormViewID), {1}) AS 'CAPTION' FROM VWPMO_GUI_ENTITY WHERE FORM_TYPE_ID = 4 AND PARENT_ID = 0 ORDER BY CAPTION", USER_LANGUAGE, CURRENT_SCREEN_ID)
|
||||
'Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.FORM_TYPE_ID = 4 AND T.PARENT_ID = 0 ORDER BY T1.FORM_TITLE"
|
||||
Dim DT3 As DataTable = ClassDatabase.Return_Datatable(DT_SQL)
|
||||
If DT3.Rows.Count > 0 Then
|
||||
Dim Node As TreeNode
|
||||
Node = TreeViewEntities.Nodes.Add("INDEPENDENT ENTITIES")
|
||||
For Each row3 As DataRow In DT3.Rows
|
||||
Dim Node2 As TreeNode
|
||||
Node2 = Node.Nodes.Add(row3.Item("CAPTION").ToString)
|
||||
Node2.Tag = row3.Item("ID")
|
||||
Next
|
||||
End If
|
||||
TreeViewEntities.ExpandAll()
|
||||
TreeViewEntities.Nodes(0).EnsureVisible()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load_TreeView:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub Refresh_Workflow_Form(formid As Integer)
|
||||
Try
|
||||
Me.VWPMO_WORKFLOW_FORMTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WORKFLOW_FORM, formid)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Refresh_Workflow_Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub TBPMO_WORKFLOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WORKFLOWBindingSource.AddingNew
|
||||
DD_DMSDataSet.TBPMO_WORKFLOW.ADDED_WHOColumn.DefaultValue = Environment.UserName
|
||||
End Sub
|
||||
|
||||
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBPMO_WORKFLOW_FORMDataGridView_DragDrop(sender As Object, e As DragEventArgs)
|
||||
'Try
|
||||
' Dim i As Integer
|
||||
' i = TBPMO_WORKFLOWDataGridView.CurrentRow.Index
|
||||
' If TBPMO_WORKFLOWDataGridView.Item(0, i).Value Is Nothing = False Then
|
||||
' TBPMO_WORKFLOW_FORMTableAdapter.Insert(_FORMID, e.Data.GetData(DataFormats.Text), 1, Environment.UserName)
|
||||
' toolstriplabel(True, "Task erfolgreich zugeordnet - " & Now)
|
||||
' Refresh_Workflow_Form(_FORMID)
|
||||
' End If
|
||||
'Catch ex As Exception
|
||||
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
|
||||
'End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TBPMO_WORKFLOW_FORMDataGridView_DragEnter(sender As Object, e As DragEventArgs)
|
||||
' Check the format of the data being dropped.
|
||||
If (e.Data.GetDataPresent(DataFormats.Text)) Then
|
||||
' Display the copy cursor.
|
||||
e.Effect = DragDropEffects.Copy
|
||||
Else
|
||||
' Display the no-drop cursor.
|
||||
e.Effect = DragDropEffects.None
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Private Sub WH_FormsDataGridView_SelectionChanged(sender As Object, e As EventArgs)
|
||||
' If formloaded = True Then
|
||||
' Dim i As Integer
|
||||
' i = WH_FormsDataGridView.CurrentRow.Index
|
||||
' If WH_FormsDataGridView.Item(0, i).Value Is Nothing = False Then
|
||||
' _FORMID = WH_FormsDataGridView.Item(0, i).Value
|
||||
' Dim ColName = WH_FormsDataGridView.Item("ColName", i).Value
|
||||
' Try
|
||||
' btnAddTask2Entity.Text = "Task zu Entität '" & ColName.ToString & "' hinzufügen"
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
' Refresh_Workflow_Form(_FORMID)
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
Private Sub frmTaskmanagement_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
formloaded = True
|
||||
End Sub
|
||||
Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs)
|
||||
Try
|
||||
Me.TBPMO_WORKFLOW_FORMBindingSource.EndEdit()
|
||||
If DD_DMSDataSet.TBPMO_WORKFLOW_FORM.GetChanges Is Nothing = False Then
|
||||
Me.TBPMO_WORKFLOW_FORMTableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW_FORM)
|
||||
toolstriplabel(True, "Änderungen erfolgreich gespeichert - " & Now)
|
||||
Else
|
||||
toolstriplabel(False, "")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Save TBPMO_WORKFLOW_FORM:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton18_Click(sender As Object, e As EventArgs) Handles ToolStripButton18.Click
|
||||
Save_State()
|
||||
End Sub
|
||||
Sub Save_State()
|
||||
Try
|
||||
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.EndEdit()
|
||||
If DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.GetChanges Is Nothing = False Then
|
||||
Me.CHANGED_WHOTextBox.Text = Environment.UserName
|
||||
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.EndEdit()
|
||||
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE)
|
||||
toolstriplabel(True, "Änderungen erfolgreich gespeichert - " & Now)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Save TBPMO_WORKFLOW_TASK_STATE:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub TBPMO_WORKFLOW_TASK_STATEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WORKFLOW_TASK_STATEBindingSource.AddingNew
|
||||
DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.ADDED_WHOColumn.DefaultValue = Environment.UserName
|
||||
DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn.DefaultValue = Environment.UserName
|
||||
End Sub
|
||||
|
||||
Private Sub btnAddTask2Entity_Click(sender As Object, e As EventArgs) Handles btnAddTask2Entity.Click
|
||||
Try
|
||||
Save_workflow()
|
||||
'Dim i As Integer
|
||||
'i = WH_FormsDataGridView.CurrentRow.Index
|
||||
'If WH_FormsDataGridView.Item(0, i).Value Is Nothing = False Then
|
||||
' _FORMID = WH_FormsDataGridView.Item(0, i).Value
|
||||
If _ENTITYID = 0 Then
|
||||
MsgBox("Please choose an entity.", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
TBPMO_WORKFLOW_FORMTableAdapter.Insert(_ENTITYID, GUIDTextBox1.Text, 1, Environment.UserName)
|
||||
toolstriplabel(True, "Task erfolgreich zugeordnet - " & Now)
|
||||
Refresh_Workflow_Form(_ENTITYID)
|
||||
' End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen Task zu Entität:")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btncolordialog_Click(sender As Object, e As EventArgs) Handles btncolordialog.Click
|
||||
If ColorDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
|
||||
Dim colour As Integer = ColorTranslator.ToWin32(ColorDialog1.Color)
|
||||
COLORTextBox.Text = colour
|
||||
COLORTextBox.BackColor = ColorDialog1.Color
|
||||
Save_State()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ListBoxStati_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBoxStati.DrawItem
|
||||
Dim clrSelectedText As Color = Color.Red 'Our color for selected text
|
||||
Dim clrHighlight As Color = Color.Yellow 'Our background for selected items
|
||||
If e.State = DrawItemState.Selected Then
|
||||
'This item is selected
|
||||
'e.DrawBackground()
|
||||
e.Graphics.FillRectangle(New SolidBrush(clrHighlight), e.Bounds) 'Fill the item's rectangle with our highlight
|
||||
e.Graphics.DrawString(ListBoxStati.Items.Item(e.Index), e.Font, New SolidBrush(clrSelectedText), e.Bounds) 'Draw the text for the item
|
||||
ElseIf e.State = DrawItemState.None Then
|
||||
'This item has no state
|
||||
e.DrawBackground() 'Draw our regular background
|
||||
e.Graphics.DrawString(ListBoxStati.Items.Item(e.Index), e.Font, Brushes.Black, e.Bounds) 'Draw the item text in its regular color
|
||||
End If
|
||||
'Draws a focus rectangle around the item if it has focus
|
||||
e.DrawFocusRectangle()
|
||||
End Sub
|
||||
|
||||
Private Sub COLORTextBox_TextChanged(sender As Object, e As EventArgs) Handles COLORTextBox.TextChanged
|
||||
Try
|
||||
COLORTextBox.BackColor = ColorTranslator.FromWin32(CInt(COLORTextBox.Text))
|
||||
Catch ex As Exception
|
||||
Console.WriteLine(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TreeViewEntities_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewEntities.AfterSelect
|
||||
Try
|
||||
If Not TreeViewEntities.SelectedNode Is Nothing Then
|
||||
Dim entityId As Integer = Integer.Parse(TreeViewEntities.SelectedNode.Tag)
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
btnAddTask2Entity.Text = "Task zu Entität '" & TreeViewEntities.SelectedNode.Text & "' hinzufügen ..."
|
||||
Else
|
||||
btnAddTask2Entity.Text = "Add Task to entity '" & TreeViewEntities.SelectedNode.Text & "'...."
|
||||
End If
|
||||
If Not IsNothing(TreeViewEntities.SelectedNode) Then
|
||||
TreeView1.Nodes(0).Text = TreeViewEntities.SelectedNode.Text
|
||||
Else
|
||||
TreeView1.Nodes(0).Text = "no entity chosen"
|
||||
End If
|
||||
TreeView1.Nodes(0).Nodes(0).Text = TITLETextBox.Text
|
||||
TreeView1.Nodes(0).Nodes(0).Nodes(0).Text = STATE_DESCTextBox.Text
|
||||
TreeView1.ExpandAll()
|
||||
_ENTITYID = entityId
|
||||
If Not IsNothing(ListBoxEntity_State.SelectedItem) And _ENTITYID > 0 Then
|
||||
Load_ENTITY_States(ListBoxEntity_State.SelectedItem)
|
||||
End If
|
||||
Refresh_Workflow_Form(_ENTITYID)
|
||||
SetSelectedNodeStyle(TreeViewEntities.Nodes)
|
||||
TreeViewEntities.ExpandAll()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in AfterSelect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndeleteEntityWorkflow.Click
|
||||
Try
|
||||
If ListBoxEntityWorkflow.SelectedIndex <> -1 Then
|
||||
Dim ID = ListBoxEntityWorkflow.SelectedValue
|
||||
|
||||
Dim del As String = "DELETE FROM TBPMO_WORKFLOW_FORM WHERE GUID = " & ID
|
||||
If ClassDatabase.Execute_non_Query(del) = True Then
|
||||
Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
txt = "The record has been deleted - " & Now
|
||||
End If
|
||||
Refresh_Workflow_Form(_ENTITYID)
|
||||
toolstriplabel(True, txt)
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in delete entity-workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub XtraTabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles XtraTabControl1.TabIndexChanged
|
||||
Select Case XtraTabControl1.TabIndex
|
||||
Case 1
|
||||
If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
|
||||
Load_ENTITY_States(GUIDTextBox1.Text)
|
||||
End If
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
Sub Load_ENTITY_States(Workflow_ID As Integer)
|
||||
Try
|
||||
Dim sql = String.Format("SELECT T.GUID,T1.STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE T, TBPMO_WORKFLOW_TASK_STATE T1 WHERE T.STATE_ID = T1.GUID AND T.WF_ID = {0} AND T.ENTITY_ID = {1}", Workflow_ID, _ENTITYID)
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Get Entity-States")
|
||||
ListBoxEntity_State.DataSource = DT
|
||||
ListBoxEntity_State.DisplayMember = DT.Columns(1).ColumnName
|
||||
ListBoxEntity_State.ValueMember = DT.Columns(0).ColumnName
|
||||
If DT.Rows.Count = 0 Then
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load_ENTITY_States" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TBPMO_WORKFLOWBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_WORKFLOWBindingSource.CurrentChanged
|
||||
If GUIDTextBox1.Text <> "" Then
|
||||
If Not IsNothing(TreeViewEntities.SelectedNode) Then
|
||||
_ENTITYID = Integer.Parse(TreeViewEntities.SelectedNode.Tag)
|
||||
TreeView1.Nodes(0).Text = TreeViewEntities.SelectedNode.Text
|
||||
Else
|
||||
_ENTITYID = 0
|
||||
TreeView1.Nodes(0).Text = "no entity chosen"
|
||||
End If
|
||||
|
||||
TreeView1.Nodes(0).Nodes(0).Text = TITLETextBox.Text
|
||||
TreeView1.Nodes(0).Nodes(0).Nodes(0).Text = STATE_DESCTextBox.Text
|
||||
TreeView1.ExpandAll()
|
||||
If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
|
||||
Load_ENTITY_States(GUIDTextBox1.Text)
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnAddState2Entity_Click_1(sender As Object, e As EventArgs) Handles btnAddState2Entity.Click
|
||||
Try
|
||||
If GUIDTextBox.Text <> "" And GUIDTextBox1.Text <> "" And _ENTITYID <> 0 Then
|
||||
Dim ins = String.Format("INSERT INTO TBPMO_WORKFLOW_ENTITY_STATE (WF_ID,ENTITY_ID,STATE_ID,ADDED_WHO) VALUES({0},{1},{2},'{3}')", GUIDTextBox1.Text, _ENTITYID, GUIDTextBox.Text, Environment.UserName)
|
||||
If ClassDatabase.Execute_non_Query(ins) Then
|
||||
Dim txt As String = "Der Datensatz wurde erfolgreich hinzugefügt - " & Now
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
txt = "The record was added successfully - " & Now
|
||||
End If
|
||||
|
||||
toolstriplabel(True, txt)
|
||||
Else
|
||||
Dim txt As String = "Unvorhergesehener Fehler bei Hinzufügen Datensatz - " & Now
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
txt = "Unexpected error while adding record - " & Now
|
||||
End If
|
||||
toolstriplabel(True, txt)
|
||||
End If
|
||||
If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
|
||||
Load_ENTITY_States(GUIDTextBox1.Text)
|
||||
End If
|
||||
Else
|
||||
Dim txt As String = "Bitte prüfen Sie ob ein Worflow, eine Entität und ein Status gewählt ist."
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
txt = "Please check wether a workflow, an entity amd a state are chosen properly."
|
||||
End If
|
||||
MsgBox(txt, MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Insert Entity-States" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnrefresh_Stati_Click(sender As Object, e As EventArgs) Handles tsbtnrefresh_Stati.Click
|
||||
Load_States()
|
||||
End Sub
|
||||
Sub Load_States()
|
||||
Try
|
||||
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Refresh TBPMO_WORKFLOW_TASK_STATE: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btndeleteEntityState_Click(sender As Object, e As EventArgs) Handles btndeleteEntityState.Click
|
||||
Try
|
||||
If ListBoxEntity_State.SelectedIndex <> -1 Then
|
||||
Dim ID = ListBoxEntity_State.SelectedValue
|
||||
Dim del = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE STATE_ID = " & ID
|
||||
If ClassDatabase.Execute_non_Query(del) = True Then
|
||||
del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & ID
|
||||
If ClassDatabase.Execute_non_Query(del) = True Then
|
||||
Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
txt = "The record has been deleted - " & Now
|
||||
End If
|
||||
If Not IsNothing(ListBoxEntity_State.SelectedItem) And _ENTITYID > 0 Then
|
||||
Load_ENTITY_States(ListBoxEntity_State.SelectedItem)
|
||||
End If
|
||||
toolstriplabel(True, txt)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in delete entity-workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TBPMO_WORKFLOW_TASK_STATEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_WORKFLOW_TASK_STATEBindingSource.CurrentChanged
|
||||
If GUIDTextBox.Text <> "" And _ENTITYID <> 0 Then
|
||||
If Not IsNothing(TreeViewEntities.SelectedNode) Then
|
||||
TreeView1.Nodes(0).Text = TreeViewEntities.SelectedNode.Text
|
||||
Else
|
||||
TreeView1.Nodes(0).Text = "no entity chosen"
|
||||
End If
|
||||
TreeView1.Nodes(0).Nodes(0).Text = TITLETextBox.Text
|
||||
TreeView1.Nodes(0).Nodes(0).Nodes(0).Text = STATE_DESCTextBox.Text
|
||||
TreeView1.ExpandAll()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user