Index: HADWIZ.mac.rou =================================================================== diff -u -r66931 -r66932 --- HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 66931) +++ HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 66932) @@ -104,7 +104,7 @@ DISPLAY(PRNr,Aantal,Munt) New HalID,Groep,GenTyp,ProductTypeAPI - New IsKaderdeurProduct,KaderdeurViaBullzipPdf + New IsKaderdeurProduct,KaderdeurViaBullzipPdf,GenereerDetailBladAlsPdf Set:'$G(Aantal) Aantal=1 Set:'$L($G(Munt)) Munt="EUR" Do STORE^vhTERMINA() @@ -113,7 +113,9 @@ #dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI() #dim IsKaderdeurProduct As %Boolean = ProductTypeAPI.IsKaderdeurProduct(PRNr) Set KaderdeurViaBullzipPdf = (IsKaderdeurProduct) && (##class(BL.Legacy.HADWIZ).IsInetpubFolderBeschikbaar()) - If (KaderdeurViaBullzipPdf) || (ProductTypeAPI.IsLegraboxProduct(PRNr)) || (ProductTypeAPI.IsTAORboxProduct(PRNr) ) || (ProductTypeAPI.IsMerivoboxProduct(PRNr) ) { + + Set GenereerDetailBladAlsPdf = (KaderdeurViaBullzipPdf) || (ProductTypeAPI.IsLegraboxProduct(PRNr)) || (ProductTypeAPI.IsTAORboxProduct(PRNr) ) || (ProductTypeAPI.IsMerivoboxProduct(PRNr) ) + If GenereerDetailBladAlsPdf { #dim BestandLocatie As %String = ##class(BL.Legacy.HADWIZ).%New().GenereerProductDetailBlad(PRNr, IsKaderdeurProduct) Do:(BestandLocatie'="") DisplayDoc(BestandLocatie) Do REFRESH^vhTERMINA()