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

MS_12.03.2016

Browse Source
This commit is contained in:
SchreiberM
2016-03-14 09:21:32 +01:00
parent c3965e6243
commit 32a1c4cf5e
31 changed files with 2208 additions and 2864 deletions
Download Patch File Download Diff File Expand all files Collapse all files

353
app/DD-Record-Organiser/frmTask_Management.vb
View File

@@ -44,7 +44,6 @@
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
@@ -52,7 +51,7 @@
ClassLogger.Add(">> Error in VWPMO_GUI_ENTITYTableAdapter: " & ex.Message, False)
End Try
Load_TreeView()
Me.TBPMO_WORKFLOWTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW)
Me.TBPMO_WORKFLOWTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW, USER_LANGUAGE)
Load_States()
Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -134,13 +133,6 @@
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
@@ -231,27 +223,27 @@
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
'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
' 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
@@ -292,26 +284,28 @@
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()
'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)
Refresh_Inserts
'If Not IsNothing(ListBoxEntity_State.SelectedItem) And _ENTITYID > 0 Then
' Load_ENTITY_States(ListBoxEntity_State.SelectedItem)
'End If
SetSelectedNodeStyle(TreeViewEntities.Nodes)
TreeViewEntities.ExpandAll()
Load_ENTITY_States("ENT")
End If
Catch ex As Exception
MsgBox("Error in AfterSelect:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -320,19 +314,28 @@
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)
Dim i As Integer
i = DataGridView1.CurrentRow.Index
If DataGridView1.Item(0, i).Value Is Nothing = False Then
Dim i1 = DataGridView1.Item(0, i).Value
Dim del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
If ClassDatabase.Execute_non_Query(del) Then
Load_ENTITY_States("ENT")
End If
End If
'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
@@ -347,16 +350,31 @@
End Select
End Sub
Sub Load_ENTITY_States(Workflow_ID As Integer)
Sub Load_ENTITY_States(Type As String)
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 sql As String
Dim txtlbl As String
Select Case Type
Case "WF"
sql = String.Format("SELECT GUID as ID,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),FV_ID), 1) AS Entity,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5),WF_ID), 1) AS [Task/Workflow],dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),STATE_ID), 1) AS [State],Final FROM VWPMO_WORKFLOW_ENTITY_STATE WHERE WF_ID = {1}", USER_LANGUAGE, GUIDTextBox1.Text)
txtlbl = "Worflow/Tasks for selected workflow"
Case "ENT"
txtlbl = "Worflow/Tasks for selected entity"
sql = String.Format("SELECT GUID as ID,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),FV_ID), 1) AS Entity,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5),WF_ID), 1) AS [Task/Workflow],dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),STATE_ID), 1) AS [State],Final FROM VWPMO_WORKFLOW_ENTITY_STATE WHERE ENTITY_ID = {1}", USER_LANGUAGE, _ENTITYID)
Case "STATE"
txtlbl = "Worflow/Tasks for selected state"
sql = String.Format("SELECT GUID as ID,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5),FV_ID), 1) AS Entity,dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5),WF_ID), 1) AS [Task/Workflow],dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5),STATE_ID), 1) AS [State],Final FROM VWPMO_WORKFLOW_ENTITY_STATE WHERE STATE_ID = {1}", USER_LANGUAGE, GUIDTextBox.Text)
End Select
' 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
DataGridView1.DataSource = DT
lblSelection.Text = txtlbl
'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
'End If
Catch ex As Exception
MsgBox("Error in Load_ENTITY_States" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -364,34 +382,159 @@
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
Refresh_Inserts()
'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()
'TreeView1.Nodes(0).Nodes(0).Text = TITLETextBox.Text
'TreeView1.Nodes(0).Nodes(0).Nodes(0).Text = STATE_DESCTextBox.Text
'TreeView1.ExpandAll()
Load_ENTITY_States("WF")
If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
Load_ENTITY_States(GUIDTextBox1.Text)
End If
End If
End Sub
Sub Refresh_Inserts()
txtWorkflow.Text = TITLETextBox.Text
txtWorkflow.Tag = GUIDTextBox1.Text
txtState.Text = STATE_DESCTextBox.Text
txtState.Tag = GUIDTextBox.Text
If Not IsNothing(TreeViewEntities.SelectedNode) Then
txtEntity.Text = TreeViewEntities.SelectedNode.Text
Dim entityId As Integer = Integer.Parse(TreeViewEntities.SelectedNode.Tag)
txtEntity.Tag = entityId
Else
txtEntity.Text = ""
txtEntity.Tag = Nothing
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
Private Sub btnAddState2Entity_Click_1(sender As Object, e As EventArgs) Handles btnAddState2Entity.Click
' 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
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)
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE)
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
Load_ENTITY_States("STATE")
'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()
Refresh_Inserts
End If
End Sub
Private Sub ListBoxEntityWorkflow_SelectedIndexChanged(sender As Object, e As EventArgs)
Try
'If ListBoxEntityWorkflow.SelectedIndex <> -1 Then
' Dim ID = ListBoxEntityWorkflow.SelectedValue
' Dim text = ListBoxEntityWorkflow.SelectedItem.ToString
' txtEntity.Text = text
' txtEntity.Tag = ID
' txtState.Text = STATE_DESCTextBox.Text
' txtState.Tag = GUIDTextBox.Text
'End If
Catch ex As Exception
MsgBox("Error in SelectedIndexChanged entity-workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnAddWorkflowConfig_Click(sender As Object, e As EventArgs) Handles btnAddWorkflowConfig.Click
Try
If GUIDTextBox1.Text <> "" And _ENTITYID <> 0 Then
Dim final
Select Case chkfinal.Checked
Case False
final = 0
Case True
final = 1
End Select
Dim ins = String.Format("INSERT INTO TBPMO_WORKFLOW_ENTITY_STATE (WF_ID,ENTITY_ID,STATE_ID,ADDED_WHO,FINAL) VALUES({0},{1},{2},'{3}',{4})", GUIDTextBox1.Text, txtEntity.Tag, txtState.Tag, Environment.UserName, final)
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
@@ -400,9 +543,7 @@
End If
toolstriplabel(True, txt)
End If
If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
Load_ENTITY_States(GUIDTextBox1.Text)
End If
Load_ENTITY_States("ENT")
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
@@ -414,54 +555,4 @@
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