Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(revision 35399)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Bewaar">
+<FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",COASO)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml
===================================================================
diff -u -r35247 -r35399
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 35247)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 35399)
@@ -86,6 +86,52 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : Onvangt() leest xml en Converteer wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam As %String = ..GeefAankoopOrderLocatie() _"DummyBestand.xml"
+
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam)
+	
+	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder).%New()
+	Do ConverteerderMock.VerwachtMethodCall("Converteer", $$$ElkeWaarde).DanDoeNiks()
+
+	#dim ClassName As %String = "APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05"
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam,ClassName,"ORDERS05").DanDoeNiks()
+
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock,ConverteerderMock)
+	
+	Do Ontvanger.Ontvang()
+	Do ConverteerderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Onvangt() leest xml en Bewaar wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam As %String = ..GeefAankoopOrderLocatie() _"DummyBestand.xml"
+
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam)
+	
+	#dim ClassName As %String = "APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05"
+	#dim ConverteerderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder).%New()
+	#dim COASODummy As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
+	Do ConverteerderMock.IndienMethodCall("Converteer", $$$ElkeWaarde).DanReturn(COASODummy)
+
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam,ClassName,"ORDERS05").DanDoeNiks()
+
+	#dim BewaarderMock As vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
+	Do BewaarderMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock,ConverteerderMock,BewaarderMock)
+	
+	Do Ontvanger.Ontvang()
+	Do BewaarderMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefAankoopOrderLocatie">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml
===================================================================
diff -u -r35396 -r35399
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35396)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(.../Ontvanger.cls.xml)	(revision 35399)
@@ -23,8 +23,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Bewaarder">
+<Type>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder</FormalSpec>
+<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder,Bewaarder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,7 +39,7 @@
 	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
 	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	set ..Converteerder = $$$Inject(Converteerder, ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder).%New())
-
+	set ..Bewaarder = $$$Inject(Bewaarder,##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -59,7 +64,8 @@
 	try
 	{
 		#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ..Converteerder.Converteer(..LeesXMLBestand(BestandVolledigeNaam))
-		// Schrijf dto naar bestand in IN map of ^BLimp
+		Do ..Bewaarder.Bewaar(COASO)
+		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
 	} 
 	catch 
 	{
@@ -113,6 +119,21 @@
 	} catch {}
 ]]></Implementation>
 </Method>
+
+<Method name="KopieerNaarArchiefMap">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	try {
+		#dim Bestandsnaam As %String = ##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam)
+		#dim NieuwBestandLocatie As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie(),"Archief") 
+		#dim NieuwBestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(NieuwBestandLocatie, Bestandsnaam)
+		
+		Do ..FileUtils.CopyFile(BestandVolledigeNaam,NieuwBestandVolledigeNaam)
+		Do ..FileUtils.Delete(BestandVolledigeNaam)
+	} catch {}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder.cls.xml	(revision 35399)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder</Super>
+
+<Method name="Bewaar">
+<FormalSpec>COASO:APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r35398 -r35399
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35398)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 35399)
@@ -19,7 +19,7 @@
 
 <Method name="Test : Bewaar COASO header in BLImp">
 <Implementation><![CDATA[
-	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New().GeefCOASO()
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
@@ -33,7 +33,7 @@
 
 <Method name="Test : Bewaar COASO detail in BLImp">
 <Implementation><![CDATA[
-	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New().GeefCOASO()
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
@@ -47,7 +47,7 @@
 
 <Method name="Test : Bewaar COASO met meerdere detaillijnen in BLImp">
 <Implementation><![CDATA[
-	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New().GeefCOASO()
+	#Dim COASODouble As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(vhTest.Utils.APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).GeefCOASO()
 	#Dim Bewaarder As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder).%New()
 	
 	Do Bewaarder.Bewaar(COASODouble)
Index: vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(revision 35399)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder</Super>
+
+<Method name="Converteer">
+<FormalSpec>ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
+<ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Converteerder.cls.xml	(revision 35399)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Converteer">
+<FormalSpec>ORDERS05:APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</FormalSpec>
+<ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Converteer",ORDERS05)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml
===================================================================
diff -u -r35397 -r35399
--- vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 35397)
+++ vhTest/Utils/APPS/EDIExport/AankoopOrderResponse/BLUM/dto/COASO.cls.xml	(.../COASO.cls.xml)	(revision 35399)
@@ -4,6 +4,7 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="GeefCOASO">
+<ClassMethod>1</ClassMethod>
 <ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO</ReturnType>
 <Implementation><![CDATA[
 	#dim COASO As APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.dto.COASO).%New()