try catch /o\
This commit is contained in:
Jonathan Jenne
parent
ee644016d1
commit
37b9722d54
@ -959,88 +959,92 @@ Public Class frmMain
|
||||
End Try
|
||||
End Function
|
||||
Private Sub tsmiMarkedFilesFinish_Click(sender As Object, e As EventArgs) Handles tsmiMarkedFilesFinish.Click
|
||||
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
|
||||
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
|
||||
Dim workedFiles As Integer = 0
|
||||
Try
|
||||
Dim selectedRows As Integer() = GridView_Docs.GetSelectedRows()
|
||||
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 USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Bitte selektieren Sie einige 1 oder mehr Dokumente", MsgBoxStyle.Exclamation, "Massenabschluss")
|
||||
If selectedRows.Count = 0 Then
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
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
|
||||
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
|
||||
|
||||
Exit Sub
|
||||
End If
|
||||
If Init_windream() Then
|
||||
|
||||
If GridView_Docs.IsGroupRow(hitInfo.RowHandle) Then
|
||||
Dim groupRowHandle = hitInfo.RowHandle
|
||||
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 childRows As Integer = GridView_Docs.GetChildRowCount(groupRowHandle)
|
||||
|
||||
If childRows > 0 Then
|
||||
Dim childRowHandle = GridView_Docs.GetChildRowHandle(groupRowHandle, 0)
|
||||
Dim dt As New DataTable
|
||||
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
|
||||
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
|
||||
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
|
||||
|
||||
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
|
||||
Catch ex As Exception
|
||||
MsgBox("Unhandled Error in tsmiMarkedFilesFinish_Click: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click
|
||||
Item_Scope()
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user