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