Index: FOPTask.csp
===================================================================
diff -u -r94 -r105
--- FOPTask.csp	(.../FOPTask.csp)	(revision 94)
+++ FOPTask.csp	(.../FOPTask.csp)	(revision 105)
@@ -413,25 +413,7 @@
 	Else {
 		Set QItem=##class(BL.Sys.FOP.Scheduler).OpenQItem(QItemID)
 	}
-	
-	#dim FopTask As Sys.FOP.Task = QItem.Task
-	#dim ExportDir As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("DefaultExportDirectory")
-	
-	#dim msg As %String = ""
-	Set msg="Bestanden bewaard als .xml : "_$$$CRLF
-	Set FopDocIterator = ##class(TECH.ListIterator).%New(FopTask.Docs)
-	While (FopDocIterator.HasNext()) {
-		#dim FopDoc As Sys.FOP.emDoc = FopDocIterator.Next()
-		#dim FopDocKey As %String = FopDocIterator.Key()
-		#dim BestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(ExportDir,"FopTaskDoc_"_FopTask.ID_"_"_FopDocKey_"_"_($P($H,",",2))_".xml")
-		#dim sc As %Status = ##class(BL.Sys.FOP.DataMgr).SaveDocDataToFile(FopDoc,BestandVolledigeNaam)
-		If $$$ISOK(sc) {
-			Set msg = msg_" - "_BestandVolledigeNaam_$$$CRLF
-		}
-		Else {
-			Set msg = msg_"Kon data van QueueItem "_QItemID_" Doc ("_FopDocKey_") niet bewaren in bestand. Fout=" _$$ParseStatus^vhLib(sc)
-		}
-	}
+	#dim msg As %String = ##class(BL.Sys.FOP.Scheduler).ExporteerFopSchedulerXML(QItem)
 	Quit msg
 </SCRIPT>