MS05082016

2016-08-05 14:28:00 +02:00
parent 76c1d9d66b
commit a0761e43c5
37 changed files with 11589 additions and 6467 deletions
--- a/app/DD-Record-Organiser/frmRecordView.vb
+++ b/app/DD-Record-Organiser/frmRecordView.vb
@@ -11,6 +11,7 @@ Public Class frmRecordView
    Public Const SW_SHOW As Short = 5
    Private DT_RESULTLIST_OPTIONS As DataTable
    Private DT_WINDREAM_RESULTLIST As DataTable
+    Private _Changed As Boolean = False

    <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
    Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
@@ -33,6 +34,11 @@ Public Class frmRecordView
        Public hProcess As IntPtr
    End Structure

+    Private Sub frmRecordView_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        ClassWindowLocation.SaveFormLocationSize(Me, 0, CURRENT_SCREEN_ID, "frmRecordView")
+        My.Settings.Save()
+    End Sub
+
    Private Sub frmRecordView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            If USER_LANGUAGE <> "de-DE" Then
@@ -51,6 +57,9 @@ Public Class frmRecordView
            DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, "GETVARIABLE CONTROLS")
            Dim sql_ResultList = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND LANGUAGE = '{1}'", ENTITY_ID, USER_LANGUAGE) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
            DT_WINDREAM_RESULTLIST = ClassDatabase.Return_Datatable(sql_ResultList, "GETRESULTLIST KONFIG")
+            TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
+            ClassWindowLocation.LoadFormLocationSize(Me, 0, CURRENT_SCREEN_ID, "frmRecordView")
+
        Catch ex As Exception
            MsgBox("Unexpected error in loading form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
@@ -118,9 +127,14 @@ Public Class frmRecordView
    End Sub
    Private Sub Load_Tasks()
        Try
-            Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
+            'Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
            Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
            Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName, JUMP_RECORD_ID)
+            If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then
+                TabControlBottom.TabPages(1).Appearance.Header.BackColor = Color.Red
+            Else
+                TabControlBottom.TabPages(1).Appearance.Header.BackColor = Nothing
+            End If

            Dim Sql = "SELECT GUID FROM TBPMO_FORM_VIEW WHERE SCREEN_ID = 1 AND FORM_ID = " & ENTITY_ID
            FORMVIEW_ID = ClassDatabase.Execute_Scalar(sql)
@@ -131,40 +145,112 @@ Public Class frmRecordView
        End Try
    End Sub

-    Private Sub TabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TabControl1.SelectedPageChanged
-        If TabControl1.SelectedTabPageIndex = 1 Then
-            If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count = 0 Then
-                COMMENTTextBox.Enabled = False
-                DUE_DATEDateTimePicker.Enabled = False
-                DateTimePickerTASK_DATE.Enabled = False
-                STATE_IDComboBox.Enabled = False
-                lblnoTasks.Visible = True
-                btnSaveWorkflow.Enabled = False
-            Else
-                Try
-                    If WF_IDTextBox.Text <> "" Then
-                        Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, ENTITY_ID)
-                    End If
-                Catch ex As Exception
-                    MsgBox("Error in load States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                End Try
-                COMMENTTextBox.Enabled = True
-                DUE_DATEDateTimePicker.Enabled = True
-                DateTimePickerTASK_DATE.Enabled = True
-                STATE_IDComboBox.Enabled = True
-                lblnoTasks.Visible = False
-                btnSaveWorkflow.Enabled = True
-            End If
-        End If
+    Private Sub TabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TabControlBottom.SelectedPageChanged
+        Try
+            If TabControlBottom.SelectedTabPageIndex = 1 Then
+                If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count = 0 Then
+                    COMMENTTextBox.Enabled = False
+                    DUE_DATEDateTimePicker.Enabled = False
+                    DateTimePickerTASK_DATE.Enabled = False
+                    STATE_IDComboBox.Enabled = False
+                    lblTaskState.Visible = True
+                    btnSaveWorkflow.Enabled = False
+                Else
+                    Try
+                        If WF_IDTextBox.Text <> "" Then
+                            ' Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, ENTITY_ID)
+                            Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_IDTextBox.Text)
+                            If Not IsNothing(sel) Then
+                                Load_Selectable_Users(sel)
+                            End If
+                        End If
+                    Catch ex As Exception
+                        MsgBox("Error in load States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                    End Try
+                    COMMENTTextBox.Enabled = True
+                    DUE_DATEDateTimePicker.Enabled = True
+                    DateTimePickerTASK_DATE.Enabled = True
+                    STATE_IDComboBox.Enabled = True
+                    lblTaskState.Text = "No active workflows"
+                    lblTaskState.Visible = False

+                    btnSaveWorkflow.Enabled = True
+                    Load_TASK_USER()
+                    Load_States()
+
+                End If
+                _Changed = False
+            End If
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+    Sub Load_States()
+        Try
+            Dim sql As String = String.Format("SELECT STATE_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE " &
+                                              "INACTIVE = 0 AND ENTITY_ID = {1} AND STATE_ID NOT IN (" & _
+                                              "SELECT STATE_ID FROM TBPMO_WORKFLOW_TASK_HISTORY WHERE WF_TASK_ID = {2})", USER_LANGUAGE, ENTITY_ID, WF_TASK_IDTextBox.Text)
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "States WF")
+            If DT.Rows.Count > 0 Then
+                STATE_IDComboBox.Enabled = True
+                STATE_IDComboBox.DataSource = DT
+                STATE_IDComboBox.DisplayMember = DT.Columns(1).ColumnName
+                STATE_IDComboBox.ValueMember = DT.Columns(0).ColumnName
+                lblTaskState.Visible = False
+            Else
+                lblTaskState.Text = "Workflow-Ende erreicht!"
+                If USER_LANGUAGE <> "de-DE" Then
+                    lblTaskState.Text = "Workflow End is reached!"
+                End If
+                lblTaskState.Visible = True
+                STATE_IDComboBox.Enabled = False
+            End If
+
+        Catch ex As Exception
+            MsgBox("Error in Getting States for Workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+
+    End Sub
+    Sub Load_Selectable_Users(sel As String)
+        Try
+            DD_ECMAdmin.TBAD_Users.Clear()
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
+            For Each userrow As DataRow In DT.Rows
+                Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
+                newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
+
+                newUserRow.Username = userrow.Item(1)
+                Try
+                    newUserRow.Email = userrow.Item(2)
+                Catch ex As Exception
+                    newUserRow.Email = ""
+                End Try
+
+                newUserRow.ID = userrow.Item(0)
+                DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
+                'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
+            Next
+        Catch ex As Exception
+            MsgBox("Error in Load_Selectable_Users_for_Groups:" & vbNewLine & ex.Message & vbNewLine & "Check whether User is listed in User Client Relation!", MsgBoxStyle.Critical)
+        End Try
    End Sub

    Private Sub btnSaveWorkflow_Click(sender As Object, e As EventArgs) Handles btnSaveWorkflow.Click
        Try
+            If _Changed = False Then
+                Exit Sub
+            End If
            Dim upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', STATE_ID = {2}, ACTIVE = {3}, CHANGED_WHO = '{4}', TASK_DATE = '{5}' " & _
                                    "WHERE GUID = {6}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, Environment.UserName, DateTimePickerTASK_DATE.Value, WF_TASK_IDTextBox.Text)
            If ClassDatabase.Execute_non_Query(upd, True) Then
                Load_Tasks()
+                Load_States()
+                If XtraTabControl1.SelectedTabPageIndex = 1 Then
+                    Load_History()
+                End If
+                _Changed = False
            Else
                MsgBox("Update not successfull. Please check logfile.", MsgBoxStyle.Exclamation)
            End If
@@ -175,6 +261,16 @@ Public Class frmRecordView
    End Sub

    Private Sub frmRecordView_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        Try
+            Select Case JUMP_STATE
+                Case 2
+                    TabControlBottom.SelectedTabPageIndex = 1
+            End Select
+            SplitContainerMain.SplitterDistance = My.Settings.frmRecordViewSplitter
+        Catch ex As Exception
+
+        End Try
+        
    End Sub

    Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
@@ -370,4 +466,127 @@ Public Class frmRecordView
        End Try

    End Sub
+
+    Private Sub btnAddUser_Click(sender As Object, e As EventArgs) Handles btnAddUser.Click
+        For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
+            If row.Item(0) = CBool(True) Then
+                Dim sql = "select count(*) from TBPMO_WORKFLOW_TASK_USER Where USER_ID = " & row.Item(5) & " AND WF_TASK_ID = " & WF_TASK_IDTextBox.Text
+                If ClassDatabase.Execute_Scalar(sql) = 0 Then
+                    '##
+                    Dim Ins = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID],ADDED_WHO) VALUES (" & WF_TASK_IDTextBox.Text & ", " & row.Item(5) & ",'" & Environment.UserName & "')"
+                    If ClassDatabase.Execute_non_Query(Ins) = False Then
+                        MsgBox(String.Format("Error in Adding User {0} to Task", row.Item(1)), MsgBoxStyle.Critical)
+                    Else
+                        Load_TASK_USER()
+                    End If
+
+                End If
+            End If
+        Next
+        For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
+            row.Item(0) = CBool(False)
+        Next
+    End Sub
+    Sub Load_TASK_USER()
+        Try
+            'Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE LOWER(USERNAME) = '" & Environment.UserName & "' AND WF_TASK_ID = " & Me.GUIDTextBox.Text
+            Dim sql = "SELECT * FROM VWPMO_WF_USER WHERE WF_TASK_ID = " & WF_TASK_IDTextBox.Text
+            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
+            Dim count As Integer = 0
+            If DT Is Nothing = False Then
+                ListViewExclusiveUser.Items.Clear()
+                For Each row As DataRow In DT.Rows
+                    ListViewExclusiveUser.Items.Add(row.Item("GUID").ToString)
+                    ListViewExclusiveUser.Items(count).SubItems.Add(row.Item("USERNAME").ToString)
+                    count += 1
+                Next
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Load_TASK_USER:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub STATE_IDComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles STATE_IDComboBox.SelectedIndexChanged
+        Try
+            If IsNumeric(STATE_IDComboBox.SelectedValue) Then
+                Get_Description()
+                _Changed = True
+            End If
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+    Private Sub STATE_IDComboBox_SelectedValueChanged(sender As Object, e As EventArgs) Handles STATE_IDComboBox.SelectedValueChanged
+        Try
+            If IsNumeric(STATE_IDComboBox.SelectedValue) Then
+                _Changed = True
+                Get_Description()
+            End If
+        Catch ex As Exception
+
+        End Try
+    End Sub
+    Sub Get_Description()
+        Try
+            Dim sql = String.Format("SELECT COMMENT FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE WF_ID = {0} AND STATE_ID = {1} AND ENTITY_ID = {2}", WF_IDTextBox.Text, STATE_IDComboBox.SelectedValue, ENTITY_ID)
+            Dim result = ClassDatabase.Execute_Scalar(sql)
+            txtDescriptionStep.Text = result
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+
+    Private Sub DateTimePickerTASK_DATE_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePickerTASK_DATE.ValueChanged
+        Try
+            _Changed = True
+        Catch ex As Exception
+            _Changed = False
+        End Try
+
+    End Sub
+
+    Private Sub DUE_DATEDateTimePicker_ValueChanged(sender As Object, e As EventArgs) Handles DUE_DATEDateTimePicker.ValueChanged
+        Try
+            _Changed = True
+        Catch ex As Exception
+            _Changed = False
+        End Try
+    End Sub
+
+    Private Sub COMMENTTextBox_TextChanged(sender As Object, e As EventArgs) Handles COMMENTTextBox.TextChanged
+        Try
+            _Changed = True
+        Catch ex As Exception
+            _Changed = False
+        End Try
+    End Sub
+
+    Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
+        Select Case XtraTabControl1.SelectedTabPageIndex
+            Case 1
+                Load_History()
+        End Select
+    End Sub
+    Sub Load_History()
+        Try
+            Me.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_HISTORY, WF_TASK_IDTextBox.Text)
+        Catch ex As System.Exception
+            MsgBox("Error in Load History:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub btndeleteuser_Click(sender As Object, e As EventArgs) Handles btndeleteuser.Click
+        Try
+            If (Me.ListViewExclusiveUser.SelectedItems.Count > 0) Then
+                Dim sql = "DELETE FROM TBPMO_WORKFLOW_TASK_USER WHERE GUID = " & Me.ListViewExclusiveUser.SelectedItems.Item(0).Text
+                ClassDatabase.Execute_non_Query(sql)
+                Load_TASK_USER()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in btndeleteuser:")
+        End Try
+    End Sub
 End Class