massValidator

app/DD_PM_WINDREAM/frmMain.vb

@@ -936,18 +936,22 @@ Public Class frmMain
                 Else
                     CMFileStart.Enabled = True
                 End If
+                If CURRENT_CLICKED_PROFILE_ID > 0 Then
+                    CMGroupStart.Enabled = True
+                End If
         End Select
 
     End Sub
 
     Private Sub CMFileStart_Click(sender As Object, e As EventArgs) Handles CMFileStart.Click
-        Item_Scope()
+        Item_Scope("CMROW")
     End Sub
-    Private Sub Item_Scope()
+    Private Sub Item_Scope(startedFrom As String)
         Try
             'GridView_Docs.EndSelection()
             CURRENT_JUMP_DOC_GUID = 0
             Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
+
             Dim groupRowText
             Dim PROFIL_ID
             If hitInfo.InGroupRow Then
@@ -987,7 +991,7 @@ Public Class frmMain
 
                 Dim expression As String
                 expression = "PROFILE_ID = " & PROFIL_ID
-                If hitInfo.InGroupRow Then
+                If hitInfo.InGroupRow Or (startedFrom = "CMGROUP" And hitInfo.InDataRow) Then
                     CURRENT_JUMP_DOC_GUID = 0
                     CURRENT_DOC_GUID = 0
                     CURRENT_ProfilGUID = PROFIL_ID
@@ -1123,7 +1127,7 @@ Public Class frmMain
         End Try
     End Sub
     Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click
-        Item_Scope()
+        Item_Scope("CMGROUP")
     End Sub
 
     Private Sub NavBarItemOverview_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemOverview.LinkClicked
@@ -1427,7 +1431,7 @@ Public Class frmMain
     End Sub
 
     Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick
-        Item_Scope()
+        Item_Scope("DOUBLECLICK")
     End Sub
 
     Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow
@@ -1478,8 +1482,10 @@ Public Class frmMain
                 ' Ein/Ausklappen verhindern
                 DXMouseEventArgs.GetMouseArgs(e).Handled = True
                 GridViewItem_Clicked = "GROUP"
+                CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
             ElseIf hi.InDataRow Then
                 GridViewItem_Clicked = "ROW"
+                Dim profileid = CURRENT_CLICKED_PROFILE_ID
             Else
                 GridViewItem_Clicked = Nothing
             End If