Index: BL/Legacy/HADWIZ.cls.xml =================================================================== diff -u -r71803 -r73820 --- BL/Legacy/HADWIZ.cls.xml (.../HADWIZ.cls.xml) (revision 71803) +++ BL/Legacy/HADWIZ.cls.xml (.../HADWIZ.cls.xml) (revision 73820) @@ -245,7 +245,13 @@ set InputParameters.ProductID = ProductID #dim Bestand As %String = ..GeefBestandNaam(ProductID) - Set WebServerUrlBepaler = ##class(APPS.common.Document.impl.DocBase.WebServerUrlBepaler).%New("fop") + #dim IsActiefDocBaseV7 As %Boolean = ##class(BL.Sys.FOP.DocBaseV7Helper).StelInEnGeefTerugTijdelijkActiefVoorFakeTask(";PRODUCTIEDETAILBLAD;FileDoc;","\inetpub\pdfs") + If IsActiefDocBaseV7 && $$$Not(IsKaderdeurProduct) { + Set WebServerUrlBepaler = ##class(APPS.common.Document.impl.DocBase.WebServerUrlDocBaseV7Bepaler).%New() + } + Else { + Set WebServerUrlBepaler = ##class(APPS.common.Document.impl.DocBase.WebServerUrlBepaler).%New("fop") + } #dim BestandLocatie As %String = WebServerUrlBepaler.GeefLokaalPadOpIISServer(Bestand) set ProductieDetailBladService = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.ProductieDetailDocumentService).%New() @@ -272,6 +278,7 @@ } #dim BestandLocatieAlsUrl As %String = WebServerUrlBepaler.GeefUrl(Bestand) + Kill %WVActivateDocBaseV7 Quit BestandLocatieAlsUrl ]]>