AdditionalSearches

2019-05-20 11:37:17 +02:00
parent aca45281bc
commit a4f7efff3c
13 changed files with 1820 additions and 1620 deletions
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -23,6 +23,7 @@ Public Class frmMain
    Private GRID_LOAD_TYPE As String = "OVERVIEW"
    Private GRID_INV_COL_REMOVED As Boolean = False
    Private NO_WORKFLOWITEMS As Boolean = False
+    Dim DT_CHARTS As DataTable
    'Private _windream As New ClassWindream_allgemein

    Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -144,7 +145,18 @@ Public Class frmMain
            End Try

            Load_Profile_items()
+            Try

+                Dim sql = "SELECT * FROM TBPM_CHART"
+                DT_CHARTS = ClassDatabase.Return_Datatable(sql)
+                If DT_CHARTS.Rows.Count = 0 Then
+                    NavBarItemDashboard.Visible = False
+                Else
+                    NavBarItemDashboard.Visible = True
+                End If
+            Catch ex As Exception
+                LOGGER.Warn($"Could not load Charts: {ex.Message}")
+            End Try
            Check_Timer_Notification()
            Restore_Form_Position()
            Try
@@ -266,8 +278,13 @@ Public Class frmMain
                GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
                GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
                GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
-                GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
-                GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
+                Try
+                    GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
+                    GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
+                Catch ex As Exception
+                    GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
+                    GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
+                End Try
            End If

        Catch ex As Exception
@@ -281,7 +298,7 @@ Public Class frmMain
        Dim profileGroupOpen As Boolean = False

        Try
-            Dim CurrGroup As NavBarGroup = NavBarControl1.Groups(0)
+            Dim CurrGroup As NavBarGroup = NavBarControl1.Groups(1)
            profileGroupOpen = CurrGroup.Expanded
            Try

@@ -298,21 +315,25 @@ Public Class frmMain
                Exit Sub
            End If

-            For Each profile As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
-                Dim item1 As NavBarItem = NavBarControl1.Items.Add()
-                item1.Caption = profile.Item("TITLE")
-                item1.Hint = profile.Item("TITLE")
-                item1.Appearance.TextOptions.WordWrap = WordWrap.Wrap
-                item1.Tag = "itmProfile#" & profile.Item("GUID").ToString
+            For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
+                If CInt(oProfileRow.Item("FILE_COUNT")) > 0 Then
+                    Dim item1 As NavBarItem = NavBarControl1.Items.Add()
+                    item1.Caption = oProfileRow.Item("TITLE")
+                    item1.Hint = oProfileRow.Item("TITLE")
+                    item1.Appearance.TextOptions.WordWrap = WordWrap.Wrap
+                    item1.Tag = "itmProfile#" & oProfileRow.Item("GUID").ToString

-                Dim _image As Image = Nothing
-                _image = DevExpress.Images.ImageResourceCache.Default.GetImage("images/business%20objects/bofileattachment_16x16.png")
-                item1.LargeImage = _image
-                item1.SmallImage = _image
+                    Dim _image As Image = Nothing
+                    _image = DevExpress.Images.ImageResourceCache.Default.GetImage("images/business%20objects/bofileattachment_16x16.png")
+                    item1.LargeImage = _image
+                    item1.SmallImage = _image
+
+                    NavBarControl1.Groups(1).ItemLinks.Add(item1)
+
+                    AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
+                End If

-                NavBarControl1.Groups(0).ItemLinks.Add(item1)

-                AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
            Next

            CurrGroup.Expanded = profileGroupOpen
@@ -349,7 +370,7 @@ Public Class frmMain
    End Sub
    Function Load_Profiles_for_User() As Boolean
        Try
-            Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
+            Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
            CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(sql)

            If IsNothing(CURR_DT_VWPM_PROFILE_ACTIVE) Then
@@ -365,23 +386,27 @@ Public Class frmMain
    End Function
    Sub Layout_Single_Profile()
        If GridControl_Docs.Visible = False Then
+            BindingNavigator1.Visible = True
+            BindingNavigator1.Dock = DockStyle.Top
            GridControl_Docs.Visible = True
-            pnlNavigator.Visible = True
+            GridControl_Docs.Dock = DockStyle.Fill
            SplitContainerDashboard.Visible = False
+            SplitContainerDashboard.Dock = DockStyle.None
+
        End If
    End Sub
    Sub Layout_Dashboard()
        Try

            If GridControl_Docs.Visible = True Then
+                BindingNavigator1.Visible = False
+                BindingNavigator1.Dock = DockStyle.None
                GridControl_Docs.Visible = False
-                pnlNavigator.Visible = False
+                GridControl_Docs.Dock = DockStyle.None
+
                Dim groupCount As Integer
                Dim charts As List(Of ChartControl)
                SplitContainerDashboard.Visible = True
-                Dim DT_CHARTS As DataTable
-                Dim sql = "SELECT * FROM TBPM_CHART"
-                DT_CHARTS = ClassDatabase.Return_Datatable(sql, True)
                Dim Groups As DataRowCollection = DT_CHARTS.Rows
                groupCount = Groups.Count
                Configure_Split_Containers(groupCount)
@@ -536,6 +561,7 @@ Public Class frmMain
                ' Show SplitContainerBottom
                SplitContainerDashboard.Panel2Collapsed = False
        End Select
+        SplitContainerDashboard.Dock = DockStyle.Fill
    End Sub

    Sub Load_single_Profile()
@@ -553,7 +579,7 @@ Public Class frmMain
            Next

            If result = 1 Then
-                lblViewType.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
+                ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE

                Dim sql = foundRows(0)("SQL_VIEW")
                sql = sql.Replace("@USER_ID", USER_ID)
@@ -571,7 +597,7 @@ Public Class frmMain

                Dim Columns_Removed = GridView_CheckInvalidColumns()
                RestoreLayout()
-                lblViewType.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
+                ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
            End If

        Catch ex As Exception
@@ -633,8 +659,14 @@ Public Class frmMain
        GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
        GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
        GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
-        GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
-        GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
+        Try
+            GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
+            GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
+        Catch ex As Exception
+            GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
+            GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
+        End Try
+

    End Sub
    Private Function GridView_CheckInvalidColumns() As Boolean
@@ -704,9 +736,16 @@ Public Class frmMain
                    Create_Basic_View()

                    Try
-                        GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
-                        GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
-                        GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
+                        Try
+                            GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
+                            GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
+                            GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
+                        Catch ex As Exception
+                            GridView_Docs.Columns.Item("GROUP_TEXT").GroupIndex = 0
+                            GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
+                            GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
+                        End Try
+
                        For I = 0 To GridView_Docs.GroupCount - 1
                            Dim v = GridView_Docs.GroupedColumns(I).ToString
                            Dim ii = Nothing
@@ -850,8 +889,8 @@ Public Class frmMain
    End Sub

    Sub Load_Profil_from_Grid(ID As Integer)
-        'Try
-        Me.Visible = False
+        Try
+            Me.Visible = False
            CURRENT_ProfilGUID = ID
            CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
            CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
@@ -864,10 +903,10 @@ Public Class frmMain
            End If

            frmValidator.ShowDialog()
-        'Catch ex As Exception
-        '    LOGGER.Error(ex)
-        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
-        'End Try
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
+        End Try
        Me.Visible = True
        Decide_Load()

@@ -900,8 +939,8 @@ Public Class frmMain
        Item_Scope()
    End Sub
    Private Sub Item_Scope()
-        'Try
-        CURRENT_JUMP_DOC_GUID = 0
+        Try
+            CURRENT_JUMP_DOC_GUID = 0
            Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
            Dim groupRowText
            Dim PROFIL_ID
@@ -923,7 +962,12 @@ Public Class frmMain
            End If
            Dim PROFIL_TITLE
            If GRID_LOAD_TYPE = "OVERVIEW" Then
-                groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("PROFILE_GROUP_TEXT: ", "")))
+                Try
+                    groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("PROFILE_GROUP_TEXT: ", "")))
+                Catch ex As Exception
+                    groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("GROUP_TEXT: ", "")))
+                End Try
+
                Dim _SPLIT As String()
                _SPLIT = groupRowText.Split("|")
                PROFIL_TITLE = LTrim(RTrim(_SPLIT(0).ToString))
@@ -971,13 +1015,14 @@ Public Class frmMain
                    End If

                End If
-
+            Else
+                MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical)

            End If
-        'Catch ex As Exception
-        '    LOGGER.Error(ex)
-        '    MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
-        'End Try
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
    End Sub
    Private Function Init_windream()
        Try
@@ -1016,8 +1061,12 @@ Public Class frmMain
                Exit Sub
            End If

-            oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.First(), "PROFILE_ID")
+            oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.Last(), GridView_Docs.Columns("PROFILE_ID"))

+            If oProfileId = 0 Then
+                MsgBox("Could not select a profile!", MsgBoxStyle.Exclamation, "Mass Validation")
+                Exit Sub
+            End If
            If Init_windream() Then

                CURRENT_ProfilGUID = oProfileId
@@ -1050,7 +1099,7 @@ Public Class frmMain
                CURRENT_DT_MASS_CHANGE_DOCS = Nothing
                CURRENT_DT_MASS_CHANGE_DOCS = dt

-                frmMassValidator.ShowDialog()
+                frmMassValidator.Show()

                Load_Profile_items()
                Decide_Load()
@@ -1081,7 +1130,7 @@ Public Class frmMain
        Layout_Single_Profile()
        GRID_LOAD_TYPE = "OVERVIEW"
        CURRENT_CLICKED_PROFILE_ID = 0
-        lblViewType.Text = "Gesamtübersicht"
+        ToolStripLabelViewTape.Text = "Gesamtübersicht"
        Cursor = Cursors.WaitCursor
        Try
            Dim sel = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID ={0}", USER_ID)
@@ -1127,13 +1176,14 @@ Public Class frmMain
            If Not IsNothing(CURR_DT_PROFILEGRID) Then
                NO_WORKFLOWITEMS = False
                If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
-                    lblViewType.Text = "Aktuell keine Workflowdaten vorhanden!"
+                    ToolStripLabelViewTape.Text = "Aktuell keine Workflowdaten vorhanden!"

                    NO_WORKFLOWITEMS = True

                    'MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
                    GridControl_Docs.Visible = False
-                    pnlNavigator.Visible = False
+                    BindingNavigator1.Visible = False
+                    BindingNavigator1.Dock = DockStyle.None
                    GridControl_Docs.DataSource = Nothing
                    Try
                        GridView_Docs.Columns.Clear()
@@ -1144,8 +1194,12 @@ Public Class frmMain
                    Cursor = Cursors.Default
                    Exit Sub
                End If
+                BindingNavigator1.Visible = True
+                BindingNavigator1.Dock = DockStyle.Top
+
                GridControl_Docs.Visible = True
-                pnlNavigator.Visible = True
+                GridControl_Docs.Dock = DockStyle.Fill
+
                ' Spalte für Status Icon erstellen
                Dim columnStateIcon As New DataColumn()
                columnStateIcon.DataType = GetType(Image)
@@ -1174,7 +1228,7 @@ Public Class frmMain
                bindsourcegrid.DataSource = CURR_DT_PROFILEGRID
                GridControl_Docs.DataSource = bindsourcegrid

-                lblViewType.Text = "Gesamtübersicht"
+                ToolStripLabelViewTape.Text = "Gesamtübersicht"
                'GridControlDocRow.ForceInitialize()
                '  GridControl1.DataSource = CURR_DT_PROFILEGRID

@@ -1193,13 +1247,23 @@ Public Class frmMain
                            oindex += 1
                        Next
                    Else
-                        GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = oindex
+                        Try
+                            GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = oindex
+                        Catch ex As Exception
+                            GridView_Docs.Columns.Item("GROUP_TEXT").GroupIndex = oindex
+                        End Try
+
                    End If

+                    Try
+                        GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
+                        GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
+                    Catch ex As Exception
+                        GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
+                        GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
+                    End Try


-                    GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
-                    GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
                    For index = 0 To GridView_Docs.GroupCount - 1
                        Dim v = GridView_Docs.GroupedColumns(index).ToString
                        LOGGER.Debug($"Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
@@ -1267,8 +1331,10 @@ Public Class frmMain
            Else
                NO_WORKFLOWITEMS = True
                GridControl_Docs.Visible = False
-                pnlNavigator.Visible = False
+                BindingNavigator1.Visible = False
+                BindingNavigator1.Dock = DockStyle.None
                GridControl_Docs.DataSource = Nothing
+                GridControl_Docs.Dock = DockStyle.None
                Try
                    GridView_Docs.Columns.Clear()
                Catch ex As Exception
@@ -1327,7 +1393,7 @@ Public Class frmMain
            Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
            ' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)

-            If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
+            If info.Column.FieldName = "PROFILE_GROUP_TEXT" Or info.Column.FieldName = "GROUP_TEXT" Then
                info.GroupText = info.GroupValueText

                Dim _color As String = "Grey"
@@ -1335,6 +1401,9 @@ Public Class frmMain
                For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
                    If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
                        _color = row.Item("PROFILE_GROUP_COLOR")
+                    ElseIf row.Item("GROUP_TEXT") = info.GroupValueText Then
+                        _color = row.Item("GROUP_COLOR")
+
                    End If
                Next

@@ -1425,4 +1494,16 @@ Public Class frmMain
            GridView_Docs.OptionsView.ShowGroupedColumns = True
        End If
    End Sub
+
+    Private Sub GridView_Docs_MouseUp(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseUp
+
+    End Sub
+
+    Private Sub GridControl_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridControl_Docs.DoubleClick
+
+    End Sub
+
+    Private Sub GridView_Docs_ValidateRow(sender As Object, e As Views.Base.ValidateRowEventArgs) Handles GridView_Docs.ValidateRow
+
+    End Sub
 End Class