Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2091 -r2104
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2091)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2104)
@@ -117,11 +117,11 @@
 	
 	If Opties["D" Do   ; Print and Save as PDF-file
 	. Set sc=..VHossDocs()
-	. Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc))
+	;. Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc))
 	. Set sc=..VHossDocsToFile() 
-	. Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc))
+	;. Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc))
 	. Set sc=..VHossXMLToFile() 
-	. Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc))
+	;. Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc))
 	;update in batch
 	Set PrintLijstInfo = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(..BatchID)
 	Set PrintList=PrintLijstInfo.PrintLijst
@@ -928,21 +928,17 @@
 	Set sc=##class(BL.Flow.Basis.Doc).DocSetRenderData(Task.AddDoc(), "STREAM", DataStream, ..FOPTemplate, "PDF" ,$LB(), $LB())
 	Set DataStream=""   ; Unswizzle CacheStream after being copied into the TaskDoc 
 	Set FName="VHossDocs_"_KLNr_" "_$TR($zdt($H,8),":")_".pdf"
-	Set Dir=##class(BL.Sys.FOP.CommonTasks).LoggedOnUserPath()
-	Set:(Dir="") Dir="\\fop\e$\FOP\PDFTemp"
-	;Do ##class(BL.Flow.Basis.Doc).BuildFileData("File", .FName,.Dir,.FilePath, "")
-	Set:($$$ISOK(sc)) sc=Task.AddActionFile(FName,Dir)
-	Quit:($$$ISERR(sc)) sc
 	
-	/// VHossDocs in archief map plaatsen
-		Set DoelLocatie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation")
-		Set DoelLocatie = ##class(TECH.Files).AppendFile(DoelLocatie,..BatchID)
-		Set:($$$ISOK(sc)) sc=Task.AddActionFile(FName,DoelLocatie)
+	Set DoelLocatie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation")
+	Set DoelLocatie = ##class(TECH.Files).AppendFile(DoelLocatie,..BatchID)	
+	
+	Set:($$$ISOK(sc)) sc=Task.AddActionFile(FName,DoelLocatie)
 	Quit:($$$ISERR(sc)) sc
 
 	Set %blnProxy=0
 	Set sc=##class(BL.Sys.FOP.CommonTasks).RunFopTask(Task,$$$rmBatch,)
 	Kill %blnProxy
+		
 	Quit sc
 ]]></Implementation>
 </Method>