Index: vhUnitTest/WSimpl/AX/DocGen/FactuurService/RenderFactuur/Test.cls.xml
===================================================================
diff -u -r48855 -r51126
--- vhUnitTest/WSimpl/AX/DocGen/FactuurService/RenderFactuur/Test.cls.xml	(.../Test.cls.xml)	(revision 48855)
+++ vhUnitTest/WSimpl/AX/DocGen/FactuurService/RenderFactuur/Test.cls.xml	(.../Test.cls.xml)	(revision 51126)
@@ -55,6 +55,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bestemming Archive roept PrintAndFileDoc op met correcte parameters">
+<Implementation><![CDATA[
+	#dim pxFactuur As BL.Flow.Proxy.pxFactuur = ..MaakFactuurDto(..#FactuurId)
+
+	Set MockFlowFactuurDoc = ##class(vhTest.Mock.BL.Flow.Factuur.IDoc).%New()
+		Do MockFlowFactuurDoc.VerwachtMethodCall("RenderAndFileDocFromDto", $$$ElkeWaarde, $$$ElkeWaarde, ..#FactuurId, ..#KlantNummer).DanReturn($$$OK)
+		Do MockFlowFactuurDoc.VerwachtMethodCall("PrintAndFileDoc",..#FactuurId,"F","O","PP",pxFactuur).DanReturn($$$OK)
+	Set FactuurService = ##class(WSimpl.AX.DocGen.FactuurService.RenderFactuur).%New(MockFlowFactuurDoc)
+	
+	Do ..AssertRenderFactuur(FactuurService, pxFactuur, ##class(WS.AX.DocGen.enu.BestemmingCode).Archive(), 1)
+	Do MockFlowFactuurDoc.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Bestemming Printer voor Proforma roept PrintAndFileDoc op met correcte parameters">
 <Implementation><![CDATA[
 	#dim pxFactuur As BL.Flow.Proxy.pxFactuur = ..MaakFactuurDto(..#FactuurId, "P")
Index: WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml
===================================================================
diff -u -r50235 -r51126
--- WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml	(.../RenderFactuur.cls.xml)	(revision 50235)
+++ WSimpl/AX/DocGen/FactuurService/RenderFactuur.cls.xml	(.../RenderFactuur.cls.xml)	(revision 51126)
@@ -43,7 +43,8 @@
 	#dim sc As %Status = ..FlowFactuurDoc.RenderAndFileDocFromDto(pxDoc, .FilePath, FactuurNr, KlantNr)
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
 	
-	If (Destination = ##class(WS.AX.DocGen.enu.BestemmingCode).Printer()) {
+	If ( (Destination = ##class(WS.AX.DocGen.enu.BestemmingCode).Printer()) 
+		 || (Destination = ##class(WS.AX.DocGen.enu.BestemmingCode).Archive()) ) {
 		#dim scPrintToPPOD As %Status = ..MaakFopTaakVoorPrintFacturen(FactuurData,(NrOfCopies\1))
 		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(scPrintToPPOD)
 	}