ms

2016-09-01 12:44:54 +02:00
parent 55b4b1e4ec
commit ba5e88b91b
19 changed files with 3153 additions and 2853 deletions
--- a/app/DD-Record-Organiser/frmRecordView.vb
+++ b/app/DD-Record-Organiser/frmRecordView.vb
@@ -3,7 +3,7 @@ Imports System.Runtime.InteropServices

 Public Class frmRecordView
    Private recordView As ClassRecordView
-    Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID As Integer
+    Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID As Integer
    Private RESULT_DOC_PATH As String
    Private Const SEE_MASK_INVOKEIDLIST = &HC
    Private Const SEE_MASK_NOCLOSEPROCESS = &H40
@@ -156,10 +156,13 @@ Public Class frmRecordView
                    lblTaskState.Visible = True
                    btnSaveWorkflow.Enabled = False
                Else
+                    If WF_TASK_IDTextBox.Text <> "" Then
+                        WF_TASK_ID = WF_TASK_IDTextBox.Text
+                    End If
                    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)
+                            Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID)
                            If Not IsNothing(sel) Then
                                Load_Selectable_Users(sel)
                            End If
@@ -177,6 +180,7 @@ Public Class frmRecordView
                    btnSaveWorkflow.Enabled = True
                    Load_TASK_USER()
                    Load_States()
+                    Check_end()

                End If
                _Changed = False
@@ -186,12 +190,38 @@ Public Class frmRecordView
        End Try


+    End Sub
+    Sub Check_end()
+        Try
+            Dim sql As String = String.Format("SELECT FINISHED FROM TBPMO_WORKFLOW_TASK WHERE GUID = {0}", WF_TASK_ID)
+            Dim finished = ClassDatabase.Execute_Scalar(sql)
+            If Not IsNothing(finished) Then
+                If CBool(finished) = True Then
+                    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
+                    btnSaveWorkflow.Enabled = False
+                Else
+                    STATE_IDComboBox.Enabled = True
+                    btnSaveWorkflow.Enabled = True
+                End If
+            Else
+                STATE_IDComboBox.Enabled = True
+                btnSaveWorkflow.Enabled = True
+            End If
+        Catch ex As Exception
+            MsgBox("Error in Check_end:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        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)
+                                              "SELECT STATE_ID FROM TBPMO_WORKFLOW_TASK_HISTORY WHERE WF_TASK_ID = {2})", USER_LANGUAGE, ENTITY_ID, WF_TASK_ID)
            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "States WF")
            If DT.Rows.Count > 0 Then
                STATE_IDComboBox.Enabled = True
@@ -242,11 +272,20 @@ Public Class frmRecordView
            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)
+            Dim upd
+            If STATE_IDComboBox.SelectedIndex <> -1 Then
+                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_ID)
+                STATE_IDComboBox.SelectedIndex = -1
+            Else
+                upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', ACTIVE = {2}, CHANGED_WHO = '{3}', TASK_DATE = '{4}' " & _
+                                   "WHERE GUID = {5}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, 1, Environment.UserName, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
+                STATE_IDComboBox.SelectedIndex = -1
+            End If
            If ClassDatabase.Execute_non_Query(upd, True) Then
                Load_Tasks()
                Load_States()
+                Check_end()
                If XtraTabControl1.SelectedTabPageIndex = 1 Then
                    Load_History()
                End If
@@ -270,10 +309,10 @@ Public Class frmRecordView
        Catch ex As Exception

        End Try
-        
+        Me.BringToFront()
    End Sub

-    Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
+    Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs)
        Try
            RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
        Catch ex As Exception
@@ -281,7 +320,7 @@ Public Class frmRecordView
        End Try
    End Sub

-    Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
+    Private Sub GridControlDocSearch_DoubleClick(sender As Object, e As EventArgs)
        Try
            RESULT_DOC_PATH = GridViewDoc_Search.GetFocusedRowCellValue(GridViewDoc_Search.Columns("FULLPATH"))
        Catch ex As Exception
@@ -359,7 +398,7 @@ Public Class frmRecordView
        Drag_Drop(e)
    End Sub

-    Private Sub GridControlDocSearch_DragDrop(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragDrop
+    Private Sub GridControlDocSearch_DragDrop(sender As Object, e As DragEventArgs)
        Drag_Drop(e)
    End Sub

@@ -367,7 +406,7 @@ Public Class frmRecordView
        Drag_Enter(e)
    End Sub

-    Private Sub GridControlDocSearch_DragEnter(sender As Object, e As DragEventArgs) Handles GridControlDocSearch.DragEnter
+    Private Sub GridControlDocSearch_DragEnter(sender As Object, e As DragEventArgs)
        Drag_Enter(e)
    End Sub
    Sub Drag_Enter(e As DragEventArgs)
@@ -470,10 +509,10 @@ Public Class frmRecordView
    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
+                Dim sql = "select count(*) from TBPMO_WORKFLOW_TASK_USER Where USER_ID = " & row.Item(5) & " AND WF_TASK_ID = " & WF_TASK_ID
                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 & "')"
+                    Dim Ins = "Insert INTO TBPMO_WORKFLOW_TASK_USER (WF_TASK_ID,[USER_ID],ADDED_WHO) VALUES (" & WF_TASK_ID & ", " & 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
@@ -490,7 +529,7 @@ Public Class frmRecordView
    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 sql = "SELECT * FROM VWPMO_WF_USER WHERE WF_TASK_ID = " & WF_TASK_ID
            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
            Dim count As Integer = 0
            If DT Is Nothing = False Then
@@ -572,7 +611,7 @@ Public Class frmRecordView
    End Sub
    Sub Load_History()
        Try
-            Me.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_HISTORY, WF_TASK_IDTextBox.Text)
+            Me.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_HISTORY, WF_TASK_ID)
        Catch ex As System.Exception
            MsgBox("Error in Load History:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
@@ -589,4 +628,10 @@ Public Class frmRecordView
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in btndeleteuser:")
        End Try
    End Sub
+
+    Private Sub GridViewDoc_Search_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles GridViewDoc_Search.RowStyle
+        If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
+            e.Appearance.BackColor = Color.Yellow
+        End If
+    End Sub
 End Class