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 {