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 = USER_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_WORKFLOWTableAdapter.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, USER_LANGUAGE)
            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 TBPMO_WORKFLOWBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WORKFLOWBindingSource.AddingNew
        DD_DMSDataSet.TBPMO_WORKFLOW.ADDED_WHOColumn.DefaultValue = USER_USERNAME
    End Sub

    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click

    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 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 = USER_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 = USER_USERNAME
        DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE.CHANGED_WHOColumn.DefaultValue = USER_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, USER_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 <> System.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
                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)
        End Try
    End Sub

    Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndeleteEntityWorkflow.Click
        Try
            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, False) Then
                    Load_ENTITY_States("ENT")
                End If
            End If
            'If ListBoxEntityWorkflow.SelectedIndex <> -1 Then
            '    Dim ID = ListBoxEntityWorkflow.SelectedValue

            '    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(Type As String)
        Try
            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)
            DataGridView1.DataSource = DT
            lblSelection.Text = txtlbl
            DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
            '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
            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()
            Load_ENTITY_States("WF")
            If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then

            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, USER_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, 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, USER_USERNAME, final)
                If ClassDatabase.Execute_non_Query(ins, False) 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
                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
                    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 DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        Try
            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 sel = "SELECT COMMENT FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
                Dim result = ClassDatabase.Execute_Scalar(sel)
                txtComment.Text = result
            End If
        Catch ex As Exception
            MsgBox("Error in getting Workflow Comment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub txtComment_TextChanged(sender As Object, e As EventArgs) Handles txtComment.TextChanged

    End Sub

    Private Sub btnSaveComment_Click(sender As Object, e As EventArgs) Handles btnSaveComment.Click
        If txtComment.Text <> "" Then
            Try
                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 upd = "UPDATE TBPMO_WORKFLOW_ENTITY_STATE SET COMMENT = '" & txtComment.Text & "' WHERE GUID = " & i1
                    If ClassDatabase.Execute_non_Query(upd, False) = False Then
                        MsgBox("Workflow Comment could not be updated -Check log", MsgBoxStyle.Critical)
                    End If
                End If
            Catch ex As Exception
                MsgBox("Error in Updating Workflow Comment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End Try
        End If
    End Sub
End Class