Index: APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml	(revision 38542)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="VerwerkVrachtwagen">
+<Abstract>1</Abstract>
+<FormalSpec>VrachtWagen:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml	(revision 38542)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker">
+<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.AKP.AankoopControle.BLUM.VrachtwagenVerwerker,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="VerwerkVrachtwagen">
+<FormalSpec>VrachtWagen:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VerwerkVrachtwagen",VrachtWagen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml
===================================================================
diff -u -r38532 -r38542
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38532)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38542)
@@ -17,7 +17,8 @@
 </Method>
 
 <Method name="GeefVrachtwagensVolgensDatum">
-<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefVrachtwagensVolgensDatum")
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVrachtwagensVolgensDatum")
 ]]></Implementation>
 </Method>
 
@@ -29,6 +30,7 @@
 
 <Method name="ZoekViaVrachtwagen">
 <FormalSpec>Vrachtwagen:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZoekViaVrachtwagen",Vrachtwagen)
 ]]></Implementation>
 </Method>
Index: APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenBestandenRepo.cls.xml
===================================================================
diff -u -r38532 -r38542
--- APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38532)
+++ APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38542)
@@ -9,8 +9,10 @@
 </Parameter>
 
 <Method name="GeefVrachtwagensVolgensDatum">
+<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#Dim SqlStatement as %String
 	set SqlStatement = "SELECT ID FROM "_SqlTableName_" order by Tijdstip"
 	
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
@@ -25,18 +27,20 @@
 <Method name="BestaatViaBestandnaam">
 <FormalSpec>Bestandnaam:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ##class(zTryout.JCL.Blum).BestandNaamIndexExists(Bestandnaam)
+<Implementation><![CDATA[	quit ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden).BestandNaamIndexExists(Bestandnaam)
 ]]></Implementation>
 </Method>
 
 <Method name="ZoekViaVrachtwagen">
 <FormalSpec>Vrachtwagen:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ..ZoekViaFilter("Vrachtwagen = ?",$listbuild(Vrachtwagen))
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderViaVrachtwagen">
 <FormalSpec>Vrachtwagen:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	//do ..VerwijderViaFilter("Vrachtwagen = ?",$listbuild(Vrachtwagen))
 ]]></Implementation>
 </Method>
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml	(revision 38542)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo">
+<Super>TECH.RegisteredObject,APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo</Super>
+
+<Property name="BaseList">
+<Type>%ListOfObjects</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ObjectLijst:%ListOfObjects</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..BaseList = ObjectLijst
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVrachtwagensVolgensDatum">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..BaseList)
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaBestandnaam">
+<FormalSpec>Bestandnaam:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="ZoekViaVrachtwagen">
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
+<Method name="VerwijderViaVrachtwagen">
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim i as %Integer
+	for i=..BaseList.Count() :-1:1{
+		if ..BaseList.GetAt(i).Vrachtwagen = Vrachtwagen{
+			Do ..BaseList.RemoveAt(i)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml
===================================================================
diff -u -r38532 -r38542
--- APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38532)
+++ APPS/AKP/AankoopControle/BLUM/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38542)
@@ -6,6 +6,7 @@
 
 <Method name="GeefVrachtwagensVolgensDatum">
 <Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
 </Method>
 
 <Method name="BestaatViaBestandnaam">
@@ -17,6 +18,7 @@
 <Method name="ZoekViaVrachtwagen">
 <Abstract>1</Abstract>
 <FormalSpec>Vrachtwagen:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
 </Method>
 
 <Method name="VerwijderViaVrachtwagen">
Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2.cls.xml
===================================================================
diff -u -r38532 -r38542
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2.cls.xml	(.../DespatchBerichtOntvangerV2.cls.xml)	(revision 38532)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2.cls.xml	(.../DespatchBerichtOntvangerV2.cls.xml)	(revision 38542)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeApi">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="FileUtils">
 <Type>TECH.File.FileUtils</Type>
 <Private>1</Private>
@@ -28,46 +33,96 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VrachtwagenVerwerker">
+<Type>APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils,VrachtwagenBestandenRepo:APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo,XmlCorrelater:TECH.XMLCorrelater</FormalSpec>
+<FormalSpec>DateTimeAPI:TECH.DateTime.DateTimeAPI,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>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie(..#Applicatie)	
 	Set ..FileAPI = $$$Inject(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
+	Set ..DateTimeApi = $$$Inject(DateTimeAPI,##class(TECH.Context).Instance().GeefDateTimeAPI())
 	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
 	Set ..VrachtwagenBestandenRepo = $$$Inject(VrachtwagenBestandenRepo,##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo).%New())
+	Set ..VrachtwagenVerwerker = $$$Inject(VrachtwagenVerwerker ,##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker).%New())
 	Set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	Set ..Logger = ##class(vhLib.Logger).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Ontvang">
-<ReturnType>%ListOfObjects</ReturnType>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1") ##class(%ListOfObjects).%New()	
-	Do ..Logger.Info("XML Transportberichten verwerken V2","Begin registratie bestanden")		
+	do ..ScanEnRegistreerBestanden()
+	quit ..VerwerkVrachtwagens()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVrachtwagens">
+<Implementation><![CDATA[
+	#Dim count as %Integer = 0
+	#Dim VrachtwagenBestandIterator as TECH.Iterator
+	#Dim VrachtwagenBestand as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden
+	Do ..Logger.Info("Transportberichten verwerken V2","Begin verwerken vrachtwagens")
+	
+	for {
+		set VrachtwagenBestandIterator = ..VrachtwagenBestandenRepo.GeefVrachtwagensVolgensDatum()
+		if VrachtwagenBestandIterator.HasNext() {
+			Set VrachtwagenBestand = VrachtwagenBestandIterator.Next()
+			if ..DateTimeApi.TimeStampVerschil(##class(TECH.enu.DatePart).Uur(),VrachtwagenBestand.Tijdstip,..DateTimeApi.CurrentTimeStamp()) >= 1 {
+				if ..VrachtwagenVerwerker.VerwerkVrachtwagen(VrachtwagenBestand.Vrachtwagen) {
+					set count = count + 1
+					Do ..VerwijderVrachtwagen(VrachtwagenBestand.Vrachtwagen)				
+				} 
+			} else {
+				Quit
+			}
+		} else {
+			Quit
+		}
+	}	
+	Do ..Logger.Info("Transportberichten verwerken V2","Einde verwerken vrachtwagens")
+	
+	quit $$$Not(count = 0)
+]]></Implementation>
+</Method>
+
+<Method name="ScanEnRegistreerBestanden">
+<Implementation><![CDATA[
 	#Dim BestandenList = ..GeefTeVerwerkenBestanden()
 	#Dim BestandenListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(BestandenList)
-	
+	Do ..Logger.Info("XML Transportberichten verwerken V2","Begin registratie bestanden")		
 	While BestandenListIterator.HasNext()
 	{	
-		Do ..RegistreerBestand(BestandenListIterator.Next().Name)
+		Do ..RegistreerVrachtwagenBestand(BestandenListIterator.Next().Name)
 	}
 	Do ..Logger.Info("Transportberichten verwerken V2","Einde registratie bestanden")
-	quit BestandenList
 ]]></Implementation>
 </Method>
 
-<Method name="RegistreerBestand">
+<Method name="VerwijderVrachtwagen">
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VrachtwagenBestandenRepo.VerwijderViaVrachtwagen(Vrachtwagen)
+	Do ..Logger.Info("XML Transportberichten verwerken V2","Verwijderen vrachtwagen " _ Vrachtwagen)
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerVrachtwagenBestand">
 <FormalSpec>BestandsNaam:%String</FormalSpec>
 <Implementation><![CDATA[
 	#Dim VrachtwagenBestand as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden
Index: APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u
--- APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(revision 0)
+++ APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(revision 38542)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker">
+<Super>TECH.RegisteredObject,APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker</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>
+
+<Property name="VrachtwagenBestandenRepo">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<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>
+<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 ..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()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVrachtwagen">
+<FormalSpec>VrachtWagen:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	w !,"verwerken vrachtwagen " _ VrachtWagen
+	quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2/Ontvang/Test.cls.xml
===================================================================
diff -u -r38532 -r38542
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 38532)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 38542)
@@ -11,18 +11,6 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="VolledigeBestandNaam3">
-<Type>%String</Type>
-</Property>
-
-<Property name="VolledigeBestandNaam4">
-<Type>%String</Type>
-</Property>
-
-<Property name="VolledigeBestandNaam5">
-<Type>%String</Type>
-</Property>
-
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	do ##class(Tools.Test.TestCase.OnBeforeAllTests).%New().Exec(..Debug)
@@ -31,64 +19,93 @@
 
 	Set ..VolledigeBestandNaam1 = ..GeefDespatchFileLocatie() _"DESADV_1234567891_dummy.xml"	;
 	Set ..VolledigeBestandNaam2 = ..GeefDespatchFileLocatie() _"DESADV_1234567892_dummy.xml"	;
-	Set ..VolledigeBestandNaam3 = ..GeefDespatchFileLocatie() _"DESADV_1234567893_dummy.xml"	;
-	Set ..VolledigeBestandNaam4 = ..GeefDespatchFileLocatie() _"DESADV_1234567894_dummy.xml"	;
-	Set ..VolledigeBestandNaam5 = ..GeefDespatchFileLocatie() _"DESADV_1234567895_dummy.xml"	;
 	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("MSMGATEWAY",..GeefBestandLocatie(),..#Applicatie)
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Ontvang scant directory en registreert reeds geregistreerd bestand niet">
+<Method name="Test : ScanEnRegistreerBestanden scant directory en registreert reeds geregistreerd bestand niet">
 <Implementation><![CDATA[
-	#Dim VrachtwagenBestandenRepomock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New()
+	#Dim VrachtwagenVerwerkerMock as APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker).%New()
 	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()	
 	#Dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
 	Do FileUtilsFake.VoegToeFileInfo(..VolledigeBestandNaam1)
 
+	#Dim VrachtwagenBestandenRepomock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New()
+
 	#Dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2;
-	Set Ontvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New(,FileUtilsFake,VrachtwagenBestandenRepomock,XMLCorrelaterMock)
 	
 	Do VrachtwagenBestandenRepomock.VerwachtMethodCall("BestaatViaBestandnaam",..VolledigeBestandNaam1).DanReturn(1)
 	
 	#Dim DELVRY03 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%New().GeefDELVRY03()
+
+	Set Ontvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New(,,FileUtilsFake,VrachtwagenBestandenRepomock,XMLCorrelaterMock,VrachtwagenVerwerkerMock)	
+	Do Ontvanger.ScanEnRegistreerBestanden()
 	
-	Do Ontvanger.Ontvang()
-	
 	Do VrachtwagenBestandenRepomock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Ontvang scant directory en zet deze in VachtwagenBestanden via Repo">
+<Method name="Test : ScanEnRegistreerBestanden">
 <Implementation><![CDATA[
 	#Dim VrachtwagenBestandenRepomock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New()
+	#Dim VrachtwagenVerwerkerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker).%New()
 	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()	
 	#Dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
-	#Dim VrachwagenBestandDummy as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden = ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden).%New()
+	#Dim LijstVrachtwagenBestanden as %ListOfObjects =  ##class(%ListOfObjects).%New()
+	#Dim VrachtwagenBestandenDynIterator as TECH.Iterator
 	
+	#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 FileUtilsFake.VoegToeFileInfo(..VolledigeBestandNaam1)
-	Do FileUtilsFake.VoegToeFileInfo(..VolledigeBestandNaam2)
 	
-
-	#Dim Ontvanger As APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2;
-	Set Ontvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New(,FileUtilsFake,VrachtwagenBestandenRepomock,XMLCorrelaterMock)
-	
 	Do VrachtwagenBestandenRepomock.VerwachtMethodCall("BestaatViaBestandnaam",..VolledigeBestandNaam1).DanReturn(0)
-	Do VrachtwagenBestandenRepomock.VerwachtMethodCall("BestaatViaBestandnaam",..VolledigeBestandNaam2).DanReturn(0)
-	Do VrachtwagenBestandenRepomock.VerwachtMethodCall("Maak").DanReturn(VrachwagenBestandDummy)
-	Do VrachtwagenBestandenRepomock.VerwachtMethodCall("Bewaar",VrachwagenBestandDummy).DanDoeNiks()
-	
+	Do VrachtwagenBestandenRepomock.VerwachtMethodCall("Maak").DanReturn(VrachtwagenBestandDummy)
+	Do VrachtwagenBestandenRepomock.VerwachtMethodCall("Bewaar",VrachtwagenBestandDummy).DanDoeNiks()
 	#Dim DELVRY03 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%New().GeefDELVRY03()
-
 	Do XMLCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand",..VolledigeBestandNaam1,##class(APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%ClassName(1),"DELVRY03").DanReturn(DELVRY03)
-	Do XMLCorrelaterMock.VerwachtMethodCall("GeefObjectVanBestand",..VolledigeBestandNaam2,##class(APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%ClassName(1),"DELVRY03").DanReturn(DELVRY03)
 	
-	Do Ontvanger.Ontvang()
+	Set Ontvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New(,,FileUtilsFake,VrachtwagenBestandenRepomock,XMLCorrelaterMock,VrachtwagenVerwerkerMock)	
+	Do Ontvanger.ScanEnRegistreerBestanden()
 	
 	Do VrachtwagenBestandenRepomock.Verifieer()
 	Do XMLCorrelaterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test : VerwerkVrachtwagen verwerkt vrachtwagens die langer dan een uur geleden in de repository gezet zijn">
+<Implementation><![CDATA[
+	#Dim VrachtwagenBestandenRepoFake as vhTest.Fake.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo 
+	#Dim VrachtwagenVerwerkerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker).%New()
+	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()	
+	#Dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	#Dim LijstVrachtwagenBestanden as %ListOfObjects =  ##class(%ListOfObjects).%New()
+	#Dim VrachtwagenBestandenDynIterator as TECH.Iterator
+	
+	#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 = "6100003625"
+	set VrachtwagenBestandDummy2.Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	Do LijstVrachtwagenBestanden.Insert(VrachtwagenBestandDummy2)
+
+	set VrachtwagenBestandenRepoFake = ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New(LijstVrachtwagenBestanden)	
+	
+	Do VrachtwagenVerwerkerMock.VerwachtMethodCall("VerwerkVrachtwagen","6100003624").DanReturn(1)
+	
+	Set Ontvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New(,,FileUtilsFake,VrachtwagenBestandenRepoFake,XMLCorrelaterMock,VrachtwagenVerwerkerMock)
+	Do Ontvanger.VerwerkVrachtwagens()
+	
+	;Do XMLCorrelaterMock.Verifieer()
+	Do VrachtwagenVerwerkerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefDespatchFileLocatie">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>