Index: BL/Sys/FOP/Scheduler.cls.xml
===================================================================
diff -u -r29059 -r31415
--- BL/Sys/FOP/Scheduler.cls.xml	(.../Scheduler.cls.xml)	(revision 29059)
+++ BL/Sys/FOP/Scheduler.cls.xml	(.../Scheduler.cls.xml)	(revision 31415)
@@ -71,6 +71,33 @@
 	Quit blnJobbed
 ]]></Implementation>
 </Method>
+
+<Method name="ExporteerFopSchedulerXML">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>QItem:VHSys.Scheduler.QueueAbstract</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#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 "_QItem.%Id()_" Doc ("_FopDocKey_") niet bewaren in bestand. Fout=" _$$ParseStatus^vhLib(sc)
+		}
+	}
+	Quit msg
+]]></Implementation>
+</Method>
 </Class>