AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Multiselect

Browse Source
This commit is contained in:
Jonathan Jenne
2023-08-02 08:11:40 +02:00
parent 5cb526e7a4
commit 080a711067
10 changed files with 634 additions and 421 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
app/DD-Record-Organizer/frmEntities.vb
View File

@@ -422,16 +422,22 @@ Public Class frmEntities
End Sub
Private Sub BW_Entity_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BW_Entity.RunWorkerCompleted
ProgressPanel1.Visible = False
btncancel.Visible = False
If Not IsNothing(DT_RESULT) Then
Dim result = DT_RESULT.Rows(0).Item(0)
If result <> 0 Then
MsgBox("Unexpected Error in Executing Procedure - Check the log!", MsgBoxStyle.Critical)
Else
MsgBox("Procedure was executed successfully!", MsgBoxStyle.Information)
If e.Error IsNot Nothing Then
MsgBox("Unexpected Error in Executing Procedure - Check the log!", MsgBoxStyle.Critical, Text)
LOGGER.Error(e.Error)
Else
If Not IsNothing(DT_RESULT) Then
Dim result = DT_RESULT.Rows(0).Item(0)
If result <> 0 Then
MsgBox("Unexpected Error in Executing Procedure - Check the log!", MsgBoxStyle.Critical, Text)
Else
MsgBox("Procedure was executed successfully!", MsgBoxStyle.Information, Text)
End If
End If
End If
ProgressPanel1.Visible = False
btncancel.Visible = False
End Sub
Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click