Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger/Ontvang/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger/Ontvang/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger/Ontvang/Test.cls.xml	(revision 36055)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger.Ontvang.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : GeefObjectVanBestand() wordt opgeroepen met de juiste bestandnaam">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefDespatchFileLocatie() _"DESADV_dummy.xml"
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+
+	#dim ClassName As %String = "APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03"
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"DELVRY03").DanDoeNiks()
+	
+	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterMock)
+	
+	Do Ontvanger.Ontvang()
+	Do XMLCorrelaterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : Correct bestand wordt na verwerking in archief map gezet">
+<Implementation><![CDATA[
+	#dim VolledigeBestandNaam1 As %String = ..GeefDespatchFileLocatie() _"DESADV_dummy.xml"	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(VolledigeBestandNaam1)
+
+	#dim ClassName As %String = "APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03"
+	#dim XMLCorrelaterStub As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
+	Do XMLCorrelaterStub.IndienMethodCall("GeefObjectVanBestand", VolledigeBestandNaam1,ClassName,"DELVRY03").DanDoeNiks()
+	
+	#dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger).%New(,FileUtilsFake,XMLCorrelaterMock)
+	
+	Do Ontvanger.Ontvang()
+
+	Do $$$AssertFalse(FileUtilsFake.FileExists(VolledigeBestandNaam1))
+	#dim VolledigeBestandNaam1NAVerwerking As %String = ..GeefDespatchFileLocatie() _"Archief\DESADV_dummy.xml"	
+	Do $$$AssertTrue(FileUtilsFake.FileExists(VolledigeBestandNaam1NAVerwerking))
+]]></Implementation>
+</Method>
+
+<Method name="GeefDespatchFileLocatie">
+<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\")
+]]></Implementation>
+</Method>
+
+<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="OnAfterOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[	do ##super(aTestCase)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvanger.cls.xml	(revision 36055)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvanger">
+<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,Converteerder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Converteerder,Bewaarder:APPS.EDIExport.AankoopOrderResponse.impl.BLUM.Bewaarder</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">
+<Implementation><![CDATA[
+	
+	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
+	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
+	While BestandenListIterator.HasNext()
+	{
+		Do ..VerwerkDespatchBestand(BestandenListIterator.Next().Name)
+	}
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDespatchBestand">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	try{
+		Do ..LeesXMLBestand(BestandVolledigeNaam)
+		Do ..KopieerNaarArchiefMap(BestandVolledigeNaam)
+	} catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim BerichtVoorGebruiker As %String = "Een DESPATCH bericht van BLUM kon niet verwerkt worden. : " _BestandVolledigeNaam
+		Do ##class(vhLib.Logger).%New("").ErrorMail("VerwerkDESPATCHBestand",(BerichtVoorGebruiker _" " _Exceptie.ToString()))
+		Do ..KopieerNaarErrorMap(BestandVolledigeNaam)		
+	}
+]]></Implementation>
+</Method>
+
+<Method name="KopieerNaarArchiefMap">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do ..KopieerNaarMap(BestandVolledigeNaam,"Archief")
+]]></Implementation>
+</Method>
+
+<Method name="KopieerNaarErrorMap">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do ..KopieerNaarMap(BestandVolledigeNaam,"Error")
+]]></Implementation>
+</Method>
+
+<Method name="KopieerNaarMap">
+<FormalSpec>BestandVolledigeNaam:%String,MapNaam:%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(),MapNaam) 
+		#dim NieuwBestandVolledigeNaam As %String = ##class(TECH.Files).AppendFile(NieuwBestandLocatie, Bestandsnaam)
+
+		Do ..FileUtils.CopyFile(BestandVolledigeNaam,NieuwBestandVolledigeNaam)
+		Do ..FileUtils.Delete(BestandVolledigeNaam)
+	} catch {}
+]]></Implementation>
+</Method>
+
+<Method name="LeesXMLBestand">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%ClassName(1)
+	Quit ..XmlCorrelater.GeefObjectVanBestand(BestandVolledigeNaam,ClassName,"DELVRY03")
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerwerkenBestanden">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ..FileUtils.GetFileList(..GeefBestandLocatie(),"DESADV*.xml",0)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLocatie">
+<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\")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>