Licensing

app/DD_PM_WINDREAM/frmMain.vb

@@ -22,6 +22,7 @@ Public Class frmMain
     Private GridCursorLocation As Point
     Private GRID_LOAD_TYPE As String = "OVERVIEW"
     Private GRID_INV_COL_REMOVED As Boolean = False
+    Private NO_WORKFLOWITEMS As Boolean = False
     'Private _windream As New ClassWindream_allgemein
 
     Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
@@ -209,6 +210,9 @@ Public Class frmMain
     End Function
 
     Private Sub SaveGridLayout()
+        If NO_WORKFLOWITEMS = True Then
+            Exit Sub
+        End If
         Try
             Dim xml As String = GetXML_LayoutName()
             GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
@@ -218,6 +222,10 @@ Public Class frmMain
     End Sub
 
     Private Sub RestoreLayout()
+        If NO_WORKFLOWITEMS = True Then
+            Exit Sub
+        End If
+
         Try
             Dim xml As String = GetXML_LayoutName()
             GridView_Docs.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
@@ -532,7 +540,11 @@ Public Class frmMain
                 sql = sql.Replace("@DATE", Now.ToShortDateString)
                 sql = sql.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
                 CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
-
+                If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
+                    NO_WORKFLOWITEMS = True
+                Else
+                    NO_WORKFLOWITEMS = False
+                End If
                 Create_Basic_View()
 
                 Dim Columns_Removed = GridView_CheckInvalidColumns()
@@ -657,7 +669,11 @@ Public Class frmMain
                 CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
 
                 If Not IsNothing(CURR_DT_PROFILEGRID) Then
-
+                    If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
+                        NO_WORKFLOWITEMS = True
+                    Else
+                        NO_WORKFLOWITEMS = False
+                    End If
                     Create_Basic_View()
 
                     Try
@@ -670,8 +686,6 @@ Public Class frmMain
                             GridView_Docs.GroupedColumns(I).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
                         Next
 
-
-
                         GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
                         GridView_Docs.OptionsView.ShowGroupedColumns = False
                     Catch ex As Exception
@@ -1072,8 +1086,12 @@ Public Class frmMain
             CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
 
             If Not IsNothing(CURR_DT_PROFILEGRID) Then
+                NO_WORKFLOWITEMS = False
                 If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
                     lblViewType.Text = "Aktuell keine Workflowdaten vorhanden!"
+
+                    NO_WORKFLOWITEMS = True
+
                     'MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
                     GridControl_Docs.Visible = False
                     pnlNavigator.Visible = False