Index: HADWIZ.mac.rou =================================================================== diff -u -r64315 -r64318 --- HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 64315) +++ HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 64318) @@ -118,7 +118,7 @@ } ElseIf (ProductTypeAPI.IsTandemboxProduct(PRNr)) { #dim BestandLocatie As %String = ##class(APPS.PM.Maatwerk.MaatwerkDoc).%New().GeefProductDisplayURL(PRNr) - Do:(BestandLocatie'="") DisplayDoc(BestandLocatie) + Do:(BestandLocatie'="") DisplayDoc(BestandLocatie,0) Do REFRESH^vhTERMINA() Quit } @@ -187,7 +187,7 @@ . Do REFRESH^vhTERMINA() Quit -DisplayDoc(FilePath) +DisplayDoc(FilePath,UseDefaultBrowser="1") New R,K,FP,ID Set Url=FilePath Do:$L(FilePath) @@ -208,6 +208,9 @@ . Set FP=2301 . Write @F . Write Url2 + . Set FP=2401 + . Write @F + . Write UseDefaultBrowser . Set FP=2001 . Write @F,"VBA:\\" . Read K:1