Index: FOPTask.csp
===================================================================
diff -u -r84 -r94
--- FOPTask.csp	(.../FOPTask.csp)	(revision 84)
+++ FOPTask.csp	(.../FOPTask.csp)	(revision 94)
@@ -98,6 +98,19 @@
 		return;
 	}
 
+	function cspExporteerFopSchedulerXML (QItemID,QArchID,msgConfirm2)  {
+		// This function contains a CSP-server method call.  It must be inside the CSP-page !!!
+		if (!QItemID && !QArchID)  return;
+		var msg;
+		var msgTitle="Exporteer DocumentData naar XML";
+		var msgConfirm1="Het inhoud van de document(en) van QueueItem zal als .xml bewaard worden. Doorgaan?";
+		if (msgConfirm1 && msgConfirm1.length) { if (!confirmVB(msgConfirm1,msgTitle))  return; }
+		if (msgConfirm2 && msgConfirm2.length) { if (!confirmVB(msgConfirm2,msgTitle,vb_MsgIconExclamation))  return; }
+		msg=#server(..ExporteerFopSchedulerXML(QItemID,QArchID))#; 
+		if (msg && msg.length)  alertVB(msg,msgTitle);
+		return;
+	}
+
 	function ToggleDiv (objDiv)  {
 		if (!objDiv)  return;
 		if ((!objDiv)||(objDiv.tagName!="DIV"))  return;
@@ -165,6 +178,7 @@
 		<LI><A href="javascript:;" onclick="cspRepostTaskFromQueue(QItemID,msgConfirmSpec);">Herbeginnen</A> (als nieuwe opdracht / Repost this Task)</LI>
 		<LI><A href="javascript:;" onclick="cspMoveTaskToArchive(QItemID,msgConfirmSpec);">Verplaatsen</A> (naar archief / Move this Task to Archive)</LI>
 		<LI><A href="javascript:;" onclick="cspRemoveQItem(QItemID,msgConfirmSpec);">Verwijderen</A> (uit de Queue / Remove this Task from Queue)</LI>
+		<LI><A href="javascript:;" onclick="cspExporteerFopSchedulerXML(QItemID,'');">Exporteer data</A> (document als .XML bewaren)</LI>
 		<LI><A href="FOPQueueMgr.csp" target="_blank">Manage Queue Items</A></LI>
 	</UL>
 	<hr>
@@ -173,6 +187,7 @@
 	<P class="clsSubHeader">Acties voor deze taak:<P>
 	<UL>
 		<LI><A href="javascript:;" onclick="cspRepostTaskFromArchive(QArchID,msgConfirmSpec);">Herbeginnen</A> (als nieuwe opdracht / Repost this Task)</LI>
+		<LI><A href="javascript:;" onclick="cspExporteerFopSchedulerXML('',QArchID);">Exporteer data</A> (document als .XML bewaren)</LI>
 	</UL>
 	<hr>
 </CSP:IF>
@@ -391,6 +406,34 @@
 	Quit msg
 </SCRIPT>
 
+<SCRIPT method="ExporteerFopSchedulerXML" language="Cache" arguments="QItemID,QArchID" returntype="%String">
+	If $L(QArchID) {
+		Set QItem=##class(Sys.FOP.QueueArchive).%OpenId(QArchID)
+	}
+	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)
+		}
+	}
+	Quit msg
+</SCRIPT>
 
 <SCRIPT method="OnPreHTTP" language="Cache" arguments="" returntype="%Boolean">
 #define CvtNOBR(%v)           "('<NOBR>'||"_%v_"||'</NOBR>') "_%v