From ad671443b9125965d8061692456f2f3fb25ac90f Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 21 Apr 2022 15:51:13 +0200 Subject: [PATCH] Show Message when exporting report by hand --- MultiTool.Form/frmImportMain.vb | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/MultiTool.Form/frmImportMain.vb b/MultiTool.Form/frmImportMain.vb index 152fdde..3ced463 100644 --- a/MultiTool.Form/frmImportMain.vb +++ b/MultiTool.Form/frmImportMain.vb @@ -282,9 +282,21 @@ Public Class frmImportMain ' Generate the report Dim oReport = ReportGenerator.GenerateReport(oDocument, CurrentTemplate) Dim oFilePath = ReportGenerator.GetReportFilePath(oDocument, CurrentTemplate) + Dim oFileInfo = New FileInfo(oFilePath) ' Export it to pdf oReport.ExportToPdf(oFilePath) + + Dim oMessage = $"Die Datei wurde im Verzeichnis '{oFileInfo.Directory}' abgelegt. Möchten Sie die Datei jetzt öffnen?" + Dim oResult = MsgBox(oMessage, MsgBoxStyle.Question Or MsgBoxStyle.YesNo, Text) + + If oResult = MsgBoxResult.Yes Then + Try + Process.Start(oFilePath) + Catch ex As Exception + FormHelper.ShowError(ex, "Export Report") + End Try + End If End Sub Private Async Sub btnTestTransferFile_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnTestTransferFile.ItemClick @@ -739,6 +751,9 @@ Public Class frmImportMain WebService.RaiseWebServiceProgress("Bericht erzeugen") ' Generate the report + + ' TODO: Call GetReportFilePath in GenerateReport to better control + ' when filename is generated and use it as placeholder Dim oReport = ReportGenerator.GenerateReport(pDocument, CurrentTemplate) Dim oFilePath = ReportGenerator.GetReportFilePath(pDocument, CurrentTemplate)