PdcApplication.OpenFile: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 15: Line 15:
<source lang="vb">
<source lang="vb">
dim sFileLocalPath as string = "C:\ECI\filename.pdf"
dim sFileLocalPath as string = "C:\ECI\filename.pdf"
dim sFileCloudToLocalPath as string = ""
if PDC.App.Info.RunninginCloud then
if PDC.App.Info.RunninginCloud then
   sFileCloudToLocalPath = PDC.App.TranslateToLocalPath(sFileLocalPath)
   dim sFileCloudToLocalPath as string = PDC.App.TranslateToLocalPath(sFileLocalPath)
 
  dim objReport as pdcReport
  objReport = PDC.App.Reports.Open(1409)
 
  objReport.PrintToFile(sFileCloudToLocalPath)
  if io.file.exists(sFileCloudToLocalPath) then
    PDC.App.OpenFile(sFileLocalPath)
  end if
else
else
   sFileCloudToLocalPath  = sFileLocalPath
   dim objReport as pdcReport
end if
  objReport = PDC.App.Reports.Open(1409)
dim objReport as pdcReport
objReport = PDC.App.Reports.Open(1409)


objReport.PrintToFile(sFileCloudToLocalPath)
  objReport.PrintToFile(sFileLocalPath)
if io.file.exists(sFileCloudToLocalPath) then
  if io.file.exists(sFileLocalPath) then
  PDC.App.OpenFile(sFileLocalPath)
    PDC.App.OpenFile(sFileLocalPath)
  end if
end if
end if
</source>
</source>

Revision as of 06:57, 5 June 2026

Declaration

OpenFile(strFilePath As String)

Description

Open a file based on a filepath. This function is mostly intended for use in the Cloud for when a file was saved to the users computer and now needs to be opened. But it also works on-prem.

Parameters

strFilePath: A path leading to a file or folder, for example: "C:\Users\Admin\Documents\". Keep in mind that this path needs to be from the perspective of the user.

Notes

This method is available both in the EciCloud and in the on-prem version of Bemet.


Code example

dim sFileLocalPath as string = "C:\ECI\filename.pdf"
if PDC.App.Info.RunninginCloud then
  dim sFileCloudToLocalPath as string = PDC.App.TranslateToLocalPath(sFileLocalPath)

  dim objReport as pdcReport
  objReport = PDC.App.Reports.Open(1409)

  objReport.PrintToFile(sFileCloudToLocalPath)
  if io.file.exists(sFileCloudToLocalPath) then
    PDC.App.OpenFile(sFileLocalPath)
  end if
else
  dim objReport as pdcReport
  objReport = PDC.App.Reports.Open(1409)

  objReport.PrintToFile(sFileLocalPath)
  if io.file.exists(sFileLocalPath) then
    PDC.App.OpenFile(sFileLocalPath)
  end if
end if

Availability

Bemet 2024R4 and higher.