Index: APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml
===================================================================
diff -u
--- APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(revision 0)
+++ APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger.cls.xml	(revision 35226)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="XmlCorrelater">
+<Type>TECH.XMLCorrelater</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileUtils">
+<Type>TECH.File.FileUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,XmlCorrelater:TECH.XMLCorrelater</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
+	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
+	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Ontvang">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
+	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
+	While BestandenListIterator.HasNext()
+	{
+		#dim ORDERS05 As APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05 = ..LeesXMLBestand(BestandenListIterator.Next().Name)
+	}
+	Quit BestandenList
+]]></Implementation>
+</Method>
+
+<Method name="LeesXMLBestand">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<ReturnType>APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassName As %String = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.XML.ORDERS05).%ClassName(1)
+	Quit ..XmlCorrelater.GeefObjectVanBestand(BestandVolledigeNaam,ClassName,"ORDERS05")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerwerkenBestanden">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim GevondenBestanden As %ListOfObjects = ..FileUtils.GetFileList(..GeefBestandLocatie(),"*.xml")
+	Quit GevondenBestanden
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	set BestandLocatie = ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_IN\AankoopOrder\")
+	quit BestandLocatie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/impl/BLUM/Ontvanger/Ontvang/Test.cls.xml	(revision 35226)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger.Ontvang.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("MSMGATEWAY",..GeefBestandLocatie(),..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Onvangt() leest xml bestand zonder foutmelding">
+<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 XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.IndienMethodCall("GeefObjectVanBestand", $$$ElkeWaarde,$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock)
+	
+	Do $$$AssertEquals(Ontvanger.Ontvang().Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="Test : GeefObjectVanBestand() wordt opgeroepen met de juiste bestandnaam">
+<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 XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand", VolledigeBestandNaam,ClassName,"ORDERS05").DanDoeNiks()
+	
+	#dim Ontvanger As APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger = ##class(APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Ontvanger).%New(,FileUtilsFake,XMLCorrelaterMock)
+	
+	Do Ontvanger.Ontvang()
+	Do XMLCorrelaterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefAankoopOrderLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("MSMGATEWAY")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_IN\AankoopOrder\")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>