Fix Crash on ContextMenu open via FilterRow
This commit is contained in:
Jonathan Jenne
parent
37b9722d54
commit
41d849557e
10
app/DD_PM_WINDREAM/frmMain.Designer.vb
generated
10
app/DD_PM_WINDREAM/frmMain.Designer.vb
generated
@ -158,6 +158,7 @@ Partial Class frmMain
|
||||
'ChartTopLeft
|
||||
'
|
||||
resources.ApplyResources(Me.ChartTopLeft, "ChartTopLeft")
|
||||
Me.ChartTopLeft.Legend.Name = "Default Legend"
|
||||
Me.ChartTopLeft.Name = "ChartTopLeft"
|
||||
Me.ChartTopLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
|
||||
'
|
||||
@ -171,6 +172,7 @@ Partial Class frmMain
|
||||
'ChartTopRight
|
||||
'
|
||||
resources.ApplyResources(Me.ChartTopRight, "ChartTopRight")
|
||||
Me.ChartTopRight.Legend.Name = "Default Legend"
|
||||
Me.ChartTopRight.Name = "ChartTopRight"
|
||||
Me.ChartTopRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
|
||||
'
|
||||
@ -199,6 +201,7 @@ Partial Class frmMain
|
||||
'ChartBottomLeft
|
||||
'
|
||||
resources.ApplyResources(Me.ChartBottomLeft, "ChartBottomLeft")
|
||||
Me.ChartBottomLeft.Legend.Name = "Default Legend"
|
||||
Me.ChartBottomLeft.Name = "ChartBottomLeft"
|
||||
Me.ChartBottomLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
|
||||
'
|
||||
@ -212,6 +215,7 @@ Partial Class frmMain
|
||||
'ChartBottomRight
|
||||
'
|
||||
resources.ApplyResources(Me.ChartBottomRight, "ChartBottomRight")
|
||||
Me.ChartBottomRight.Legend.Name = "Default Legend"
|
||||
Me.ChartBottomRight.Name = "ChartBottomRight"
|
||||
Me.ChartBottomRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
|
||||
'
|
||||
@ -523,6 +527,7 @@ Partial Class frmMain
|
||||
resources.ApplyResources(Me.NavBarGroupProfiles, "NavBarGroupProfiles")
|
||||
Me.NavBarGroupProfiles.Expanded = True
|
||||
Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
|
||||
Me.NavBarGroupProfiles.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupProfiles.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles"
|
||||
'
|
||||
'cmsNavPane
|
||||
@ -543,20 +548,23 @@ Partial Class frmMain
|
||||
resources.ApplyResources(Me.NavBarGroupMore, "NavBarGroupMore")
|
||||
Me.NavBarGroupMore.Expanded = True
|
||||
Me.NavBarGroupMore.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
|
||||
Me.NavBarGroupMore.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupMore.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.NavBarGroupMore.ItemLinks.AddRange(New DevExpress.XtraNavBar.NavBarItemLink() {New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemOverview), New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemDashboard)})
|
||||
Me.NavBarGroupMore.Name = "NavBarGroupMore"
|
||||
'
|
||||
'NavBarItemOverview
|
||||
'
|
||||
Me.NavBarItemOverview.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.NavBarItemOverview.Appearance.Image = CType(resources.GetObject("NavBarItemOverview.Appearance.Image"), System.Drawing.Image)
|
||||
Me.NavBarItemOverview.Appearance.Options.UseImage = True
|
||||
resources.ApplyResources(Me.NavBarItemOverview, "NavBarItemOverview")
|
||||
Me.NavBarItemOverview.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.NavBarItemOverview.ImageOptions.LargeImage = CType(resources.GetObject("NavBarItemOverview.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.NavBarItemOverview.Name = "NavBarItemOverview"
|
||||
'
|
||||
'NavBarItemDashboard
|
||||
'
|
||||
resources.ApplyResources(Me.NavBarItemDashboard, "NavBarItemDashboard")
|
||||
Me.NavBarItemDashboard.ImageOptions.LargeImage = CType(resources.GetObject("NavBarItemDashboard.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.NavBarItemDashboard.Name = "NavBarItemDashboard"
|
||||
'
|
||||
'NotifyIcon1
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -960,13 +960,14 @@ Public Class frmMain
|
||||
End Function
|
||||
Private Sub tsmiMarkedFilesFinish_Click(sender As Object, e As EventArgs) Handles tsmiMarkedFilesFinish.Click
|
||||
Try
|
||||
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
|
||||
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
|
||||
Dim workedFiles As Integer = 0
|
||||
Dim oSelectedRows As Integer() = GridView_Docs.GetSelectedRows()
|
||||
Dim oHitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
|
||||
Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle
|
||||
Dim oWorkedFiles As Integer = 0
|
||||
|
||||
Dim profileId = 0
|
||||
Dim oProfileId = 0
|
||||
|
||||
If selectedRows.Count = 0 Then
|
||||
If oSelectedRows.Count = 0 Then
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Bitte selektieren Sie einige 1 oder mehr Dokumente", MsgBoxStyle.Exclamation, "Massenabschluss")
|
||||
Else
|
||||
@ -976,32 +977,11 @@ Public Class frmMain
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If GridView_Docs.IsGroupRow(hitInfo.RowHandle) Then
|
||||
Dim groupRowHandle = hitInfo.RowHandle
|
||||
|
||||
Dim childRows As Integer = GridView_Docs.GetChildRowCount(groupRowHandle)
|
||||
|
||||
If childRows > 0 Then
|
||||
Dim childRowHandle = GridView_Docs.GetChildRowHandle(groupRowHandle, 0)
|
||||
|
||||
profileId = GridView_Docs.GetRowCellValue(childRowHandle, "PROFILE_ID")
|
||||
Else
|
||||
MsgBox("This profile has no documents!")
|
||||
End If
|
||||
Else
|
||||
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")
|
||||
End If
|
||||
End If
|
||||
oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.First(), "PROFILE_ID")
|
||||
|
||||
If Init_windream() Then
|
||||
|
||||
CURRENT_ProfilGUID = profileId
|
||||
CURRENT_ProfilGUID = oProfileId
|
||||
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
|
||||
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
|
||||
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX")
|
||||
@ -1015,16 +995,16 @@ Public Class frmMain
|
||||
dt.Columns.Add("DOC_GUID")
|
||||
dt.Columns.Add("FULL_PATH")
|
||||
|
||||
For Each rowhandle As Integer In selectedRows
|
||||
For Each oRowHandle As Integer In oSelectedRows
|
||||
Dim R As DataRow = dt.NewRow
|
||||
Dim DOC_ID = GridView_Docs.GetRowCellValue(rowhandle, "DOC_ID")
|
||||
Dim DOC_ID = GridView_Docs.GetRowCellValue(oRowHandle, "DOC_ID")
|
||||
CURRENT_DOC_ID = DOC_ID
|
||||
Dim DOC_PATH = GridView_Docs.GetRowCellValue(rowhandle, "FULL_FILE_PATH")
|
||||
Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, "FULL_FILE_PATH")
|
||||
CURRENT_DOC_PATH = DOC_PATH
|
||||
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
|
||||
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
|
||||
R("DOC_ID") = CURRENT_DOC_ID
|
||||
R("FULL_PATH") = CURRENT_DOC_PATH
|
||||
R("DOC_GUID") = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
|
||||
R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
|
||||
dt.Rows.Add(R)
|
||||
Next
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user