Index: BL/Legacy/HADWIZ.cls.xml =================================================================== diff -u -r63885 -r66927 --- BL/Legacy/HADWIZ.cls.xml (.../HADWIZ.cls.xml) (revision 63885) +++ BL/Legacy/HADWIZ.cls.xml (.../HADWIZ.cls.xml) (revision 66927) @@ -175,6 +175,22 @@ ]]> + + +Bepaalt of de destination directory "inetpub-folder op FOP via netwerk-share" beschikbaar/bereikbaar is voor Kaderdeur pdf. +1 +%Boolean + + + ProductID:%String,IsKaderdeurProduct:%Boolean=0 %String @@ -183,11 +199,12 @@ set InputParameters.ProductID = ProductID #dim Bestand As %String = ..GeefBestandNaam(ProductID) - Set WebServerUrlBepaler = ##class(APPS.common.Document.impl.DocBase.WebServerUrlBepaler).%New() + 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() If IsKaderdeurProduct { + Set BestandLocatie = WebServerUrlBepaler.GeefNetwerkLocatieViaSharedMap(Bestand) Do ProductieDetailBladService.BewaarKaderdeurPDF(InputParameters,BestandLocatie) } Else {