try catch /o\
This commit is contained in:
Jonathan Jenne
parent
ee644016d1
commit
37b9722d54
@ -959,88 +959,92 @@ Public Class frmMain
|
|||||||
End Try
|
End Try
|
||||||
End Function
|
End Function
|
||||||
Private Sub tsmiMarkedFilesFinish_Click(sender As Object, e As EventArgs) Handles tsmiMarkedFilesFinish.Click
|
Private Sub tsmiMarkedFilesFinish_Click(sender As Object, e As EventArgs) Handles tsmiMarkedFilesFinish.Click
|
||||||
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
|
Try
|
||||||
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
|
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
|
||||||
Dim workedFiles As Integer = 0
|
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
|
||||||
|
Dim workedFiles As Integer = 0
|
||||||
|
|
||||||
Dim profileId = 0
|
Dim profileId = 0
|
||||||
|
|
||||||
If selectedRows.Count = 0 Then
|
If selectedRows.Count = 0 Then
|
||||||
If USER_LANGUAGE = "de-DE" Then
|
If USER_LANGUAGE = "de-DE" Then
|
||||||
MsgBox("Bitte selektieren Sie einige 1 oder mehr Dokumente", MsgBoxStyle.Exclamation, "Massenabschluss")
|
MsgBox("Bitte selektieren Sie einige 1 oder mehr Dokumente", MsgBoxStyle.Exclamation, "Massenabschluss")
|
||||||
|
Else
|
||||||
|
MsgBox("Please select some documents!", MsgBoxStyle.Exclamation, "Mass Validation")
|
||||||
|
End If
|
||||||
|
|
||||||
|
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
|
Else
|
||||||
MsgBox("Please select some documents!", MsgBoxStyle.Exclamation, "Mass Validation")
|
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
|
End If
|
||||||
|
|
||||||
Exit Sub
|
If Init_windream() Then
|
||||||
End If
|
|
||||||
|
|
||||||
If GridView_Docs.IsGroupRow(hitInfo.RowHandle) Then
|
CURRENT_ProfilGUID = profileId
|
||||||
Dim groupRowHandle = hitInfo.RowHandle
|
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")
|
||||||
|
If CURRENT_PROFILE_VEKTOR_LOG = "" Then
|
||||||
|
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX")
|
||||||
|
End If
|
||||||
|
|
||||||
Dim childRows As Integer = GridView_Docs.GetChildRowCount(groupRowHandle)
|
|
||||||
|
|
||||||
If childRows > 0 Then
|
Dim dt As New DataTable
|
||||||
Dim childRowHandle = GridView_Docs.GetChildRowHandle(groupRowHandle, 0)
|
dt.Columns.Add("DOC_ID")
|
||||||
|
dt.Columns.Add("DOC_GUID")
|
||||||
|
dt.Columns.Add("FULL_PATH")
|
||||||
|
|
||||||
profileId = GridView_Docs.GetRowCellValue(childRowHandle, "PROFILE_ID")
|
For Each rowhandle As Integer In selectedRows
|
||||||
|
Dim R As DataRow = dt.NewRow
|
||||||
|
Dim DOC_ID = GridView_Docs.GetRowCellValue(rowhandle, "DOC_ID")
|
||||||
|
CURRENT_DOC_ID = DOC_ID
|
||||||
|
Dim DOC_PATH = GridView_Docs.GetRowCellValue(rowhandle, "FULL_FILE_PATH")
|
||||||
|
CURRENT_DOC_PATH = DOC_PATH
|
||||||
|
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
|
||||||
|
R("DOC_ID") = CURRENT_DOC_ID
|
||||||
|
R("FULL_PATH") = CURRENT_DOC_PATH
|
||||||
|
R("DOC_GUID") = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
|
||||||
|
dt.Rows.Add(R)
|
||||||
|
Next
|
||||||
|
|
||||||
|
CURRENT_DT_MASS_CHANGE_DOCS = Nothing
|
||||||
|
CURRENT_DT_MASS_CHANGE_DOCS = dt
|
||||||
|
|
||||||
|
frmMassValidator.ShowDialog()
|
||||||
|
|
||||||
|
Load_Profile_items()
|
||||||
|
Decide_Load()
|
||||||
Else
|
Else
|
||||||
MsgBox("This profile has no documents!")
|
If USER_LANGUAGE = "de-DE" Then
|
||||||
|
MsgBox("Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!", MsgBoxStyle.Critical, "Massenabschluss")
|
||||||
|
Else
|
||||||
|
MsgBox("Massvalidation could not be completed because of an error in windream", MsgBoxStyle.Critical, "Massvalidation")
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
Else
|
Catch ex As Exception
|
||||||
If hitInfo.RowHandle >= 0 Then
|
MsgBox("Unhandled Error in tsmiMarkedFilesFinish_Click: " & ex.Message)
|
||||||
profileId = GridView_Docs.GetRowCellValue(hitInfo.RowHandle, "PROFILE_ID")
|
End Try
|
||||||
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
|
|
||||||
|
|
||||||
If Init_windream() Then
|
|
||||||
|
|
||||||
CURRENT_ProfilGUID = profileId
|
|
||||||
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")
|
|
||||||
If CURRENT_PROFILE_VEKTOR_LOG = "" Then
|
|
||||||
CURRENT_PROFILE_VEKTOR_LOG = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX")
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
Dim dt As New DataTable
|
|
||||||
dt.Columns.Add("DOC_ID")
|
|
||||||
dt.Columns.Add("DOC_GUID")
|
|
||||||
dt.Columns.Add("FULL_PATH")
|
|
||||||
|
|
||||||
For Each rowhandle As Integer In selectedRows
|
|
||||||
Dim R As DataRow = dt.NewRow
|
|
||||||
Dim DOC_ID = GridView_Docs.GetRowCellValue(rowhandle, "DOC_ID")
|
|
||||||
CURRENT_DOC_ID = DOC_ID
|
|
||||||
Dim DOC_PATH = GridView_Docs.GetRowCellValue(rowhandle, "FULL_FILE_PATH")
|
|
||||||
CURRENT_DOC_PATH = DOC_PATH
|
|
||||||
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
|
|
||||||
R("DOC_ID") = CURRENT_DOC_ID
|
|
||||||
R("FULL_PATH") = CURRENT_DOC_PATH
|
|
||||||
R("DOC_GUID") = GridView_Docs.GetRowCellValue(rowhandle, "GUID")
|
|
||||||
dt.Rows.Add(R)
|
|
||||||
Next
|
|
||||||
|
|
||||||
CURRENT_DT_MASS_CHANGE_DOCS = Nothing
|
|
||||||
CURRENT_DT_MASS_CHANGE_DOCS = dt
|
|
||||||
|
|
||||||
frmMassValidator.ShowDialog()
|
|
||||||
|
|
||||||
Load_Profile_items()
|
|
||||||
Decide_Load()
|
|
||||||
Else
|
|
||||||
If USER_LANGUAGE = "de-DE" Then
|
|
||||||
MsgBox("Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!", MsgBoxStyle.Critical, "Massenabschluss")
|
|
||||||
Else
|
|
||||||
MsgBox("Massvalidation could not be completed because of an error in windream", MsgBoxStyle.Critical, "Massvalidation")
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click
|
Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click
|
||||||
Item_Scope()
|
Item_Scope()
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user