MS

2016-10-04 11:41:03 +02:00
parent dd158e8414
commit c831a56a88
8 changed files with 1056 additions and 506 deletions
--- a/app/DD-Record-Organiser/frmRecordView.vb
+++ b/app/DD-Record-Organiser/frmRecordView.vb
@@ -1,5 +1,6 @@
 Imports System.IO
 Imports System.Runtime.InteropServices
+Imports DevExpress.XtraEditors

 Public Class frmRecordView
    Private recordView As ClassRecordView
@@ -9,6 +10,7 @@ Public Class frmRecordView
    Private Const SEE_MASK_FLAG_NO_UI = &H400
    Public Const SW_SHOW As Short = 5
    Private DT_RESULTLIST_OPTIONS As DataTable
+    Private DT_RESULTLIST_VARIABLE_VALUE As DataTable
    Private DT_WINDREAM_RESULTLIST As DataTable
    Private DT_DOCRESULT_DROPDOWN_ITEMS As DataTable
    Private _Changed As Boolean = False
@@ -55,6 +57,8 @@ Public Class frmRecordView
            ENTITY_ID = ClassDatabase.Execute_Scalar(sql)
            sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
            DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, "GETVARIABLE CONTROLS")
+            sql = String.Format("select * from TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE VISIBLE = 1 AND ENTITY_ID = {0} AND LANGUAGE = '{1}' AND COLUMN_VIEW LIKE 'VALUE%'", ENTITY_ID, USER_LANGUAGE)
+            DT_RESULTLIST_VARIABLE_VALUE = ClassDatabase.Return_Datatable(sql, "GETVARIABLE VALUES")
            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")
            sql_ResultList = String.Format("select * from TBPMO_DOCRESULT_DROPDOWN_ITEMS WHERE CONFIG_ID IN (SELECT GUID FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE ENTITY_ID = {0} AND TYPE_ID = 4 AND LANGUAGE = '{1}')", ENTITY_ID, USER_LANGUAGE)
@@ -90,11 +94,37 @@ Public Class frmRecordView
    End Sub

    Private Sub OnDateSelectedValueChanged(sender As Object, e As EventArgs)
+        Try
+            Dim DatePicker As DateEdit = sender
+            Dim value As DateTime = DatePicker.EditValue
+            Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
+            Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
+            Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
+            Dim user As String = Environment.UserName

+            Dim dateString = value.ToString("yyyy-MM-dd") 'hh:mm:ss.fff
+
+            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, dateString, user)
+            ClassDatabase.Execute_non_Query(Sql)
+        Catch ex As Exception
+            MsgBox("Error in OnDateSelectedValueChanged:" & vbNewLine & ex.Message)
+        End Try
    End Sub

    Private Sub OnTextSelectedValueChanged(sender As Object, e As EventArgs)
+        Try
+            Dim TextBox As TextEdit = sender
+            Dim value = TextBox.EditValue
+            Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
+            Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
+            Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
+            Dim user As String = Environment.UserName

+            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, user)
+            ClassDatabase.Execute_non_Query(Sql)
+        Catch ex As Exception
+            MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message)
+        End Try
    End Sub

    Private Sub RUN_WDSEARCH_GRID()
@@ -103,7 +133,7 @@ Public Class frmRecordView
            Dim sw As New Stopwatch
            sw.Start()
            Dim elapsed As Double
-            Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_WINDREAM_RESULTLIST, ENTITY_ID, JUMP_RECORD_ID, "RECORD")
+            Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, JUMP_RECORD_ID, "RECORD")
            If IsNothing(DT_RESULT) Then
                Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
                tslblWindreamView.Text = msg
@@ -160,9 +190,9 @@ Public Class frmRecordView
            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)
-            sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
-            PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(sql)
+            FORMVIEW_ID = ClassDatabase.Execute_Scalar(Sql)
+            Sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
+            PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(Sql)
        Catch ex As Exception
            MsgBox("Error in Load_Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
@@ -397,7 +427,7 @@ Public Class frmRecordView
                Cursor = Cursors.Default
            End If
        Next
-        
+
    End Sub

    Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
@@ -428,7 +458,7 @@ Public Class frmRecordView
                End If
            End If
        Next
-        
+
    End Sub

    Private Sub PropertiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertiesToolStripMenuItem.Click
@@ -451,7 +481,7 @@ Public Class frmRecordView
                End If
            End If
        Next
-        
+
        Cursor = Cursors.Default
    End Sub

@@ -699,4 +729,21 @@ Public Class frmRecordView
    Private Sub GridViewDoc_Search_FocusedRowChanged_1(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
        ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
    End Sub
+
+    Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
+        ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
+    End Sub
+
+    Private Sub GridControlDocSearch_DoubleClick_1(sender As Object, e As EventArgs) Handles GridControlDocSearch.DoubleClick
+        'Get_Doc_Items()
+        ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
+        If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
+            MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
+            Exit Sub
+        End If
+        For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
+            ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
+        Next
+
+    End Sub
 End Class