Problem opening a PDF with script

Question

HI All, 
 I am going in circles on this one. I have several versions of this running on other systems with no problem. It opens a PDF it it exists from PO Receipt History inquiry. It is on Sage 100 2016 Advanced. It is running on Server 2012 R2. It is a button script & is passed the Receipt no. Variable. It is set to run on the server. The company is set for external access (they have other scripts that work just fine) The client saves the vendor packing slips using the receipt no. to the folder specified. 
 The issue is that if the file exists, nothing happens. It doesn't lock up. If the file doesn't exist, I get the msgbox that it doesn't exist. I have tested pasting the strfilepath into the run box in Sage and it opens the pdf. I am baffled. I have tried a number versions based on reading vb sites but nothing works. 
 
 Dim sh Dim strFilePath sRecNo = PO_ReceiptHistory_bus_ReceiptNo 
 strFilePath ="\acctsage\DocScan\PackList\" &sRecNo& ".pdf" 
 Set sh = CreateObject("Wscript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") 
 If fso.FileExists(strFilePath) Then Set sh = CreateObject("Wscript.Shell") sh.Run strFilePath Set sh = Nothing Else 
 sMsg = "file "& sRecNo &".pdf not found!" retMsg = oSession.AsObject(oSession.UI).MessageBox(sMsg) End If 
 Set fso = Nothing 
 
 Bob Osborn

David Speck · Answer

The Shell.Run method should only be used if the script is set to run on the client and you'll have to pass the ReceiptNo to the script since you can't use the oBusObj.GetValue method. The below image shows where i have passed a field value to the script.

The downside to this though is that i have encountered issues when the field value contains a double quote or other character that normally needs to be enclosed in double quotes due to vbscript's syntax. You won't have this issue if the script is set to run on the server and you DO NOT pass the field value as seen in the above example. Instead use retval = oBusObj.GetValue("FieldName$", variableToReturnValueIn) 
 In order to get the pdf to open on the client, you will need to create a .bat file and place it somewhere all users can access, I would suggest on the server in MAS90\CM\Script. 
 Paste the following into the .bat file. 
 start "" %1 
 Paste the following into the script attached to the button (see updated edit further down). 
 Dim sReceiptNo : sReceiptNo = "" : retval = oBusObj.GetValue("ReceiptNo$", sReceiptNo)
retval = oScript.Execute("CALL ""[wdx]SYZDLL;SHELL_AND_WAIT""," _ 
	& """""""C:\Sage\Sage 100 Advanced ERP\MAS90\CM\Script\OpenOnClient.bat"""" " _ 
	& """""C:\Sage\Sage 100 Advanced ERP\MAS90\CM\Script\Receipt_" & sReceiptNo & ".pdf""""""") 
 This will use wdx to open the bat file on the client, the bat file then takes the 1st parameter passed to it and opens it using the default program on the client. 
 You can thank Alnoor Cassim for this piece, "CALL ""[wdx]SYZDLL;SHELL_AND_WAIT", I never would have known about that if it wasn't for his post here . 
 Also, it is possible to instead launch wscript.exe and pass a.vbs file that can accept arguments and then use the Shell.Run method to launch the pdf but i find the .bat file is simpler. 
 
 EDIT: 
 I remembered there was a way to do this without the .bat file. 
 Use the following code in the button script. 
 Dim sReceiptNo : sReceiptNo = "" : retval = oBusObj.GetValue("ReceiptNo$", sReceiptNo)
retval = oScript.Execute("CALL ""[wdx]SYZDLL;SHELL_AND_WAIT""," _ 
	& """cmd /C start """""""" """"C:\Sage\Sage 100 Advanced ERP\MAS90\CM\Script\" _ & "Receipt_" & sReceiptNo & ".pdf"""" /Q""") 
 
 EDIT 2: 
 So while i was tinkering with another project i came across the provideX SYSTEM_HELP and INVOKE commands. You can use them from a User Defined Script or a Button Script set to run on the server. 
 Both commands will use the system's command shell to open the path which means if you have a program assigned to open the file or protocol then it will be opened using that program. You can pass a URL or file path to either command. I have demonstrated both below 
 SYSTEM_HELP: 
 retval = oScript.Execute("SYSTEM_HELP ""http://google.com""") 
 INVOKE: 
 retval = oScript.Execute("INVOKE WAIT ""[WDX]""""C:\Sage\Sage 100 Advanced ERP\MAS90\CM\Script\Invoice_111216ATOZ.pdf""""""") 
 The WAIT parameter is optional when using the INVOKE command.

Sage 100

Problem opening a PDF with script

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING