Index: HADWIZ.mac.rou =================================================================== diff -u -r66932 -r67804 --- HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 66932) +++ HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 67804) @@ -122,8 +122,18 @@ Quit } ElseIf (ProductTypeAPI.IsTandemboxProduct(PRNr)) { - #dim BestandLocatie As %String = ##class(APPS.PM.Maatwerk.MaatwerkDoc).%New().GeefProductDisplayURL(PRNr) - Do:(BestandLocatie'="") DisplayDoc(BestandLocatie,0) + #dim GADataID As %String =$P(^KPR(PRNr,"G"),"\",13) + #dim BlnExists As %Boolean =##class(Prod.GAData.Product).%ExistsId(GADataID) + #dim BestandLocatie As %String + + If (BlnExists) { + Set BestandLocatie = ##class(APPS.PM.Maatwerk.MaatwerkDoc).%New().GeefProductDisplayURL(PRNr) + Do:(BestandLocatie'="") DisplayDoc(BestandLocatie,0) + } Else { + #dim BestandLocatie As %String = ##class(BL.Legacy.HADWIZ).%New().GenereerProductDetailBlad(PRNr, IsKaderdeurProduct) + Do:(BestandLocatie'="") DisplayDoc(BestandLocatie) + } + Do REFRESH^vhTERMINA() Quit }