Index: APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u -r38542 -r38551
--- APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38542)
+++ APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38551)
@@ -28,15 +28,22 @@
 <Private>1</Private>
 </Property>
 
+<UDLText name="T">
+<Content><![CDATA[
+/*Method %OnNew(FileAPI As TECH.File.FileAPI = "", FileUtils As TECH.File.FileUtils, VrachtwagenBestandenRepo As APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo, XmlCorrelater As TECH.XMLCorrelater, VrachtwagenVerwerker As APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker) As %Status [ Private, ProcedureBlock = 1, ServerOnly = 1 ]
+      */
+]]></Content>
+</UDLText>
+
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,VrachtwagenBestandenRepo:APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo,XmlCorrelater:TECH.XMLCorrelater,VrachtwagenVerwerker:APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker</FormalSpec>
+<FormalSpec>VrachtwagenBestandenRepo:APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo,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 ..FileAPI = $$$Inject(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
+	;Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
 	Set ..VrachtwagenBestandenRepo = $$$Inject(VrachtwagenBestandenRepo,##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo).%New())
 	Set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	Set ..Logger = ##class(vhLib.Logger).%New()
@@ -47,9 +54,32 @@
 <Method name="VerwerkVrachtwagen">
 <FormalSpec>VrachtWagen:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GeefDELVRY03VoorVrachtwagen">
+<FormalSpec>VrachtWagen:%String</FormalSpec>
+<ReturnType>APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</ReturnType>
 <Implementation><![CDATA[
-	w !,"verwerken vrachtwagen " _ VrachtWagen
-	quit 1
+	#Dim VrachtwagenBestandenIterator as TECH.Iterator
+	#Dim VrachtwagenBestand as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden
+	#Dim ClassName As %String = ##class(APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%ClassName(1)
+
+	#Dim DELVRY03 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03
+	#Dim DELVRY03tmp as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03
+	w !,"verwerken vrachtwagen " _ VrachtWagen	
+	set VrachtwagenBestandenIterator = ..VrachtwagenBestandenRepo.ZoekViaVrachtwagen(VrachtWagen)
+	if VrachtwagenBestandenIterator.HasNext() {
+		set VrachtwagenBestand = VrachtwagenBestandenIterator.Next()
+		set DELVRY03 = ..XmlCorrelater.GeefObjectVanBestand(VrachtwagenBestand.BestandNaam ,ClassName,"DELVRY03")	
+	}
+	while VrachtwagenBestandenIterator.HasNext(){
+		set VrachtwagenBestand = VrachtwagenBestandenIterator.Next()
+		set DELVRY03tmp = ..XmlCorrelater.GeefObjectVanBestand(VrachtwagenBestand.BestandNaam ,ClassName,"DELVRY03")	
+		Do DELVRY03.IDOC.E1EDL20.Insert(DELVRY03tmp.IDOC.E1EDL20.GetAt(1))
+	}	
+	quit DELVRY03
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(revision 0)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(revision 38551)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VolledigeBestandNaam1">
+<Type>%String</Type>
+</Property>
+
+<Property name="VolledigeBestandNaam2">
+<Type>%String</Type>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##class(Tools.Test.TestCase.OnBeforeAllTests).%New().Exec(..Debug)
+ 	set ..StartTime = ##class(TECH.DateTime).CurrentTimeStamp()
+ 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("MiniMail_VoegServerPrefixToe",0,..#Applicatie)
+
+	Set ..VolledigeBestandNaam1 = ..GeefDespatchFileLocatie() _"DESADV_1234567891_dummy.xml"	;
+	Set ..VolledigeBestandNaam2 = ..GeefDespatchFileLocatie() _"DESADV_1234567892_dummy.xml"	;
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("MSMGATEWAY",..GeefBestandLocatie(),..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="Test GeefDELVRY03VoorVrachtwagen de verschillende DELVRY03 voor een vrachtwagen samen">
+<Implementation><![CDATA[
+	#Dim DELVRY1 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%New().GeefDELVRY03()
+	#Dim DELVRY2 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%New().GeefDELVRY03()
+
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()	
+
+	
+	#Dim LijstVrachtwagenBestanden as %ListOfObjects =  ##class(%ListOfObjects).%New()
+
+	#Dim VrachtwagenBestandDummy as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden = ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden).%New()
+	set VrachtwagenBestandDummy.BestandNaam = ..VolledigeBestandNaam1
+	set VrachtwagenBestandDummy.Vrachtwagen = "6100003624"
+	set VrachtwagenBestandDummy.Tijdstip = ##class(TECH.DateTime).TimeStampBereken(##class(TECH.DateTime).CurrentTimeStamp(),-1, ##class(TECH.enu.DatePart).Uur())
+	Do LijstVrachtwagenBestanden.Insert(VrachtwagenBestandDummy)
+	#Dim VrachtwagenBestandDummy2 as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden = ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden).%New()
+	set VrachtwagenBestandDummy2.BestandNaam = ..VolledigeBestandNaam2
+	set VrachtwagenBestandDummy2.Vrachtwagen = "6100003624"
+	set VrachtwagenBestandDummy2.Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	Do LijstVrachtwagenBestanden.Insert(VrachtwagenBestandDummy2)
+	
+	#Dim VrachtwagenBestandenRepoFake as APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo = ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New(LijstVrachtwagenBestanden)
+
+	Do XMLCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand",..VolledigeBestandNaam1,##class(APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%ClassName(1),"DELVRY03").DanReturn(DELVRY1)
+	Do XMLCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand",..VolledigeBestandNaam2,##class(APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%ClassName(1),"DELVRY03").DanReturn(DELVRY2)
+
+	#Dim VrachtwagenVerwerker as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker).%New(VrachtwagenBestandenRepoFake,XMLCorrelaterMock)
+	#Dim DELVRYResult as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = VrachtwagenVerwerker.GeefDELVRY03VoorVrachtwagen("6100003624")
+	do XMLCorrelaterMock.Verifieer()
+	Do $$$AssertEquals(DELVRYResult.IDOC.E1EDL20.Count(),2)
+]]></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>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml
===================================================================
diff -u -r38542 -r38551
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38542)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38551)
@@ -30,6 +30,8 @@
 <Method name="ZoekViaVrachtwagen">
 <FormalSpec>Vrachtwagen:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..BaseList)
+]]></Implementation>
 </Method>
 
 <Method name="VerwijderViaVrachtwagen">