diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 7a7596a..2ecc1f7 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -711,9 +711,13 @@ Public Class frmMain If IsNumeric(_tag) Then If CURRENT_CLICKED_PROFILE_ID <> _tag Then OverviewOrDEtail = "DETAIL" - CURRENT_CLICKED_PROFILE_ID = _tag - CURRENT_CLICKED_PROFILE_TITLE = e.Link.Item.Caption - GRID_LOAD_TYPE = "PROFILE#" & CURRENT_CLICKED_PROFILE_ID.ToString + If Not Application.OpenForms().OfType(Of frmValidator).Any Then + CURRENT_CLICKED_PROFILE_ID = _tag + CURRENT_CLICKED_PROFILE_TITLE = e.Link.Item.Caption + End If + + + GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString TimerRefresh.Stop() GridView_Docs.ShowLoadingPanel() DetailLinkActive = True @@ -2128,10 +2132,16 @@ 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")) + If Not Application.OpenForms().OfType(Of frmValidator).Any Then + CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) + End If + ElseIf hi.InDataRow Then GridViewItem_Clicked = "ROW" - CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) + If Not Application.OpenForms().OfType(Of frmValidator).Any Then + CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) + End If + Else GridViewItem_Clicked = Nothing End If @@ -2140,7 +2150,10 @@ Public Class frmMain If CURRENT_CLICKED_PROFILE_ID > 0 Then For Each orow As DataRow In CURRENT_DT_PROFILES.Rows If orow.Item("GUID") = CURRENT_CLICKED_PROFILE_ID Then - CURRENT_CLICKED_PROFILE_TITLE = orow.Item("TITLE") + If Not Application.OpenForms().OfType(Of frmValidator).Any Then + CURRENT_CLICKED_PROFILE_TITLE = orow.Item("TITLE") + End If + Exit For End If Next