AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: fix mass validation not working for single profile, fix context menu not disabling certain actions

Browse Source
This commit is contained in:
Jonathan Jenne
2018-06-28 15:24:19 +02:00
parent 4c45b66098
commit 9e1c0ac927
2 changed files with 21 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -796,11 +796,18 @@ Public Class frmMain
Private Sub ContextMenuGrid_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuGrid.Opening
CMFileStart.Enabled = False
CMGroupStart.Enabled = False
CMMassValidation.Enabled = False
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
If selectedRows.Count > 0 Then
CMMassValidation.Enabled = True
End If
Select Case GridViewItem_Clicked
Case "GROUP"
CMGroupStart.Enabled = True
Case "ROW"
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
If selectedRows.Count > 1 Then
CMFileStart.Enabled = False
Else
@@ -902,12 +909,11 @@ Public Class frmMain
Return False
End Try
End Function
Private Sub MarkierteDateienAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkierteDateienAbschliessenToolStripMenuItem.Click
Private Sub MarkierteDateienAbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMMassValidation.Click
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
Dim workedFiles As Integer = 0
Dim profileId = 0
If selectedRows.Count = 0 Then
@@ -933,10 +939,14 @@ Public Class frmMain
MsgBox("This profile has no documents!")
End If
Else
Dim parentRowHandle = GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)
Dim dataRowHandle = GridView_Docs.GetDataRowHandleByGroupRowHandle(parentRowHandle)
If hitInfo.RowHandle >= 0 Then
profileId = GridView_Docs.GetRowCellValue(hitInfo.RowHandle, "PROFILE_ID")
Else
Dim parentRowHandle = GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)
Dim dataRowHandle = GridView_Docs.GetDataRowHandleByGroupRowHandle(parentRowHandle)
profileId = GridView_Docs.GetRowCellValue(dataRowHandle, "PROFILE_ID")
profileId = GridView_Docs.GetRowCellValue(dataRowHandle, "PROFILE_ID")
End If
End If
If Init_windream() Then
@@ -1228,10 +1238,6 @@ Public Class frmMain
End Try
End Sub
Private Sub GridView_Docs_RowClick(sender As Object, e As RowClickEventArgs) Handles GridView_Docs.RowClick
End Sub
Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick
Item_Scope()
End Sub