Index: APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2.cls.xml
===================================================================
diff -u -r38653 -r38725
--- APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2.cls.xml	(.../DespatchBerichtOntvangerV2.cls.xml)	(revision 38653)
+++ APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2.cls.xml	(.../DespatchBerichtOntvangerV2.cls.xml)	(revision 38725)
@@ -67,7 +67,9 @@
 <Implementation><![CDATA[
 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")'="1") ##class(%ListOfObjects).%New()
 	Quit:(##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportSAPBasedXML")'="1") ##class(%ListOfObjects).%New()
+	w !,"scannen"
 	do ..ScanEnRegistreerBestanden()
+	w !,"Verwerken"
 	quit ..VerwerkVrachtwagens()
 ]]></Implementation>
 </Method>
@@ -84,11 +86,21 @@
 		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)				
-				} 
+			if ..DateTimeApi.TimeStampVerschil(##class(TECH.enu.DatePart).Minuut(),VrachtwagenBestand.Tijdstip,..DateTimeApi.CurrentTimeStamp()) >= 2 {
+				try {
+					w !,"Verwerken " _ VrachtwagenBestand.Vrachtwagen
+					if ..VrachtwagenVerwerker.VerwerkVrachtwagen(VrachtwagenBestand.Vrachtwagen) {
+						Do ..VrachtwagenVerwerker.KopieerBestandenVrachtwagenNaarArchiefMap(VrachtwagenBestand.Vrachtwagen)
+						Do ..VrachtwagenBestandenRepo.VerwijderViaVrachtwagen(VrachtwagenBestand.Vrachtwagen)
+						set count = count + 1
+					} 
+				} catch {
+					#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+					#Dim BerichtVoorGebruiker As %String = "Een vrachtwagen met mogelijk meerdere DESADV berichten van BLUM kon niet verwerkt worden. : " _ VrachtwagenBestand.Vrachtwagen
+					Do ##class(vhLib.Logger).%New("").ErrorMail("VerwerkVrachtwagens",(BerichtVoorGebruiker _" " _Exception.ToString()))
+					Do ..VrachtwagenVerwerker.KopieerBestandenVrachtwagenNaarErrorMap(VrachtwagenBestand.Vrachtwagen)
+					Do ..VrachtwagenBestandenRepo.VerwijderViaVrachtwagen(VrachtwagenBestand.Vrachtwagen)
+				}
 			} else {
 				Quit
 			}
@@ -115,17 +127,9 @@
 ]]></Implementation>
 </Method>
 
-<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>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#Dim VrachtwagenBestand as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden
 	#Dim Delvry03 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2/Ontvang/Test.cls.xml
===================================================================
diff -u -r38553 -r38725
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 38553)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/DespatchBerichtOntvangerV2/Ontvang/Test.cls.xml	(.../Test.cls.xml)	(revision 38725)
@@ -13,8 +13,8 @@
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	do ##class(Tools.Test.TestCase.OnBeforeAllTests).%New().Exec(..Debug)
- 	set ..StartTime = ##class(TECH.DateTime).CurrentTimeStamp()
+	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"	;
@@ -52,12 +52,11 @@
 	#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())
+	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 VrachtwagenBestandenRepomock.VerwachtMethodCall("BestaatViaBestandnaam",..VolledigeBestandNaam1).DanReturn(0)
@@ -81,22 +80,22 @@
 	#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())
+	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()
+	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)	
+	Set VrachtwagenBestandenRepoFake = ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New(LijstVrachtwagenBestanden)	
 	
 	Do VrachtwagenVerwerkerMock.VerwachtMethodCall("VerwerkVrachtwagen","6100003624").DanReturn(1)
+	Do VrachtwagenVerwerkerMock.VerwachtMethodCall("KopieerBestandenVrachtwagenNaarArchiefMap","6100003624").DanDoeNiks()
 	
 	Set Ontvanger = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New(,,FileUtilsFake,VrachtwagenBestandenRepoFake,XMLCorrelaterMock,VrachtwagenVerwerkerMock)
 	Do Ontvanger.VerwerkVrachtwagens()
@@ -105,6 +104,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : VerwerkVrachtwagens">
+<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 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 = "6100003625"
+	Set VrachtwagenBestandDummy2.Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	Do LijstVrachtwagenBestanden.Insert(VrachtwagenBestandDummy2)
+
+	Set VrachtwagenBestandenRepoFake = ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New(LijstVrachtwagenBestanden)	
+
+	#Dim Verwerker as APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2
+	Set Verwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchBerichtOntvangerV2).%New(,,,VrachtwagenBestandenRepoFake,,VrachtwagenVerwerkerMock)
+	Do VrachtwagenVerwerkerMock.VerwachtMethodCall("VerwerkVrachtwagen","6100003624").DanReturn(1)
+	Do VrachtwagenVerwerkerMock.VerwachtMethodCall("KopieerBestandenVrachtwagenNaarArchiefMap","6100003624").DanDoeNiks()
+	
+	Do $$$AssertEquals(Verwerker.VerwerkVrachtwagens(),1)
+	
+	Do VrachtwagenVerwerkerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefDespatchFileLocatie">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u -r38553 -r38725
--- APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38553)
+++ APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38725)
@@ -23,20 +23,32 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Delvry03Converteerder">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerderV2</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Bewaarder">
+<Type>APPS.AKP.AankoopControle.BLUM.impl.Bewaarder</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VrachtwagenBestandenRepo:APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo,XmlCorrelater:TECH.XMLCorrelater</FormalSpec>
+<FormalSpec>VrachtwagenBestandenRepo:APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo,XmlCorrelater:TECH.XMLCorrelater,Converteerder:APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerderV2,Bewaarder:APPS.AKP.AankoopControle.BLUM.impl.Bewaarder,FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils</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 ..Bewaarder = $$$Inject(Bewaarder,##class(APPS.AKP.AankoopControle.BLUM.impl.Bewaarder).%New())
+	set ..Delvry03Converteerder = $$$Inject(Converteerder,##class(APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerderV2).%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()
@@ -45,12 +57,88 @@
 </Method>
 
 <Method name="VerwerkVrachtwagen">
-<FormalSpec>VrachtWagen:%String</FormalSpec>
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit 1
+<Implementation><![CDATA[
+	w !,"VerwerkVrachtwagen " _ Vrachtwagen
+	Do ..BewaarCSBSO(..ConverteerDELVRY03(..GeefDELVRY03VoorVrachtwagen(Vrachtwagen)))	
+	quit 1
 ]]></Implementation>
 </Method>
 
+<Method name="KopieerBestandenVrachtwagenNaarArchiefMap">
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
+<Implementation><![CDATA[
+	w !,"Archiveren"
+	#Dim VrachtwagenBestandenIterator as TECH.Iterator
+	#Dim VrachtwagenBestand as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden
+	set VrachtwagenBestandenIterator = ..VrachtwagenBestandenRepo.ZoekViaVrachtwagen(Vrachtwagen)
+	while VrachtwagenBestandenIterator.HasNext(){
+		set VrachtwagenBestand = VrachtwagenBestandenIterator.Next()
+		Do ..KopieerNaarArchiefMap(VrachtwagenBestand.BestandNaam)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="KopieerBestandenVrachtwagenNaarErrorMap">
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
+<Implementation><![CDATA[
+	w !,"Archiveren naar error"
+	#Dim VrachtwagenBestandenIterator as TECH.Iterator
+	#Dim VrachtwagenBestand as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestanden
+	set VrachtwagenBestandenIterator = ..VrachtwagenBestandenRepo.ZoekViaVrachtwagen(Vrachtwagen)
+	while VrachtwagenBestandenIterator.HasNext(){
+		set VrachtwagenBestand = VrachtwagenBestandenIterator.Next()
+		Do ..KopieerNaarErrorMap(VrachtwagenBestand.BestandNaam)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BewaarCSBSO">
+<FormalSpec>CSBSO:APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do ..Bewaarder.Bewaar(CSBSO)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerDELVRY03">
+<FormalSpec>DELVRY03:APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO</ReturnType>
+<Implementation><![CDATA[
+	#Dim CSBSO as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ..Delvry03Converteerder.Converteer(DELVRY03)
+	quit CSBSO
+]]></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="GeefDELVRY03VoorVrachtwagen">
 <FormalSpec>VrachtWagen:%String</FormalSpec>
 <ReturnType>APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03</ReturnType>
@@ -61,7 +149,6 @@
 
 	#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()
@@ -75,6 +162,15 @@
 	quit DELVRY03
 ]]></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>
 
 
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u -r38551 -r38725
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38551)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38725)
@@ -13,8 +13,8 @@
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	do ##class(Tools.Test.TestCase.OnBeforeAllTests).%New().Exec(..Debug)
- 	set ..StartTime = ##class(TECH.DateTime).CurrentTimeStamp()
+	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"	;
@@ -34,14 +34,14 @@
 	#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())
+	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()
+	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)
@@ -51,11 +51,122 @@
 
 	#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 XMLCorrelaterMock.Verifieer()
 	Do $$$AssertEquals(DELVRYResult.IDOC.E1EDL20.Count(),2)
 ]]></Implementation>
 </Method>
 
+<Method name="Test Verwerkvrachtwagen roept bewaarder converteerder aan ">
+<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 BewaarderMock As vhTest.Mock.APPS.AKP.AankoopControle.BLUM.Bewaarder = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.Bewaarder).%New()	
+	#dim ConverteerderV2Mock As vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerderV2 = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.DespatchNaarCSBSOConverteerderV2).%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)
+
+	Do BewaarderMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	Do ConverteerderV2Mock.VerwachtMethodCall("Converteer",$$$ElkeWaarde).DanDoeNiks()
+	
+	#Dim VrachtwagenVerwerker as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker).%New(VrachtwagenBestandenRepoFake,XMLCorrelaterMock,ConverteerderV2Mock,BewaarderMock)
+
+	Do VrachtwagenVerwerker.VerwerkVrachtwagen("6100003624")
+
+	Do XMLCorrelaterMock.Verifieer()
+	Do BewaarderMock.Verifieer()
+	Do ConverteerderV2Mock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : KopieerBestandenVrachtwagenNaarArchiefMap doet de nodig calls">
+<Implementation><![CDATA[
+	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(..VolledigeBestandNaam1)
+	Do FileUtilsFake.VoegToeFileInfo(..VolledigeBestandNaam2)
+	
+	#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)
+
+	
+	#Dim VrachtwagenVerwerker as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker).%New(VrachtwagenBestandenRepoFake,,,,,FileUtilsFake)
+	
+	do VrachtwagenVerwerker.KopieerBestandenVrachtwagenNaarArchiefMap("6100003624")	
+
+	Do $$$AssertFalse(FileUtilsFake.FileExists(..VolledigeBestandNaam1))
+	Do $$$AssertFalse(FileUtilsFake.FileExists(..VolledigeBestandNaam2))
+	
+	Do $$$AssertTrue(FileUtilsFake.FileExists( ..GeefDespatchFileLocatie() _ "Archief\DESADV_1234567891_dummy.xml"	))
+	Do $$$AssertTrue(FileUtilsFake.FileExists( ..GeefDespatchFileLocatie() _ "Archief\DESADV_1234567892_dummy.xml"	))
+]]></Implementation>
+</Method>
+
+<Method name="Test : KopieerBestandenVrachtwagenNaarErrorMap doet de nodig calls">
+<Implementation><![CDATA[
+	
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	Do FileUtilsFake.VoegToeFileInfo(..VolledigeBestandNaam1)
+	Do FileUtilsFake.VoegToeFileInfo(..VolledigeBestandNaam2)
+	
+	#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)
+
+	
+	#Dim VrachtwagenVerwerker as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker).%New(VrachtwagenBestandenRepoFake,,,,,FileUtilsFake)
+	
+	do VrachtwagenVerwerker.KopieerBestandenVrachtwagenNaarErrorMap("6100003624")	
+
+	Do $$$AssertFalse(FileUtilsFake.FileExists(..VolledigeBestandNaam1))
+	Do $$$AssertFalse(FileUtilsFake.FileExists(..VolledigeBestandNaam2))
+	
+	Do $$$AssertTrue(FileUtilsFake.FileExists( ..GeefDespatchFileLocatie() _ "Error\DESADV_1234567891_dummy.xml"	))
+	Do $$$AssertTrue(FileUtilsFake.FileExists( ..GeefDespatchFileLocatie() _ "Error\DESADV_1234567892_dummy.xml"	))
+]]></Implementation>
+</Method>
+
 <Method name="GeefDespatchFileLocatie">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenBestandenRepo.cls.xml
===================================================================
diff -u -r38542 -r38725
--- APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38542)
+++ APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenBestandenRepo.cls.xml	(.../VrachtwagenBestandenRepo.cls.xml)	(revision 38725)
@@ -41,7 +41,7 @@
 <Method name="VerwijderViaVrachtwagen">
 <FormalSpec>Vrachtwagen:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	//do ..VerwijderViaFilter("Vrachtwagen = ?",$listbuild(Vrachtwagen))
+<Implementation><![CDATA[	do ..VerwijderViaFilter("Vrachtwagen = ?",$listbuild(Vrachtwagen))
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u -r38542 -r38725
--- APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38542)
+++ APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38725)
@@ -9,6 +9,16 @@
 <FormalSpec>VrachtWagen:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="KopieerBestandenVrachtwagenNaarArchiefMap">
+<Abstract>1</Abstract>
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
+</Method>
+
+<Method name="KopieerBestandenVrachtwagenNaarErrorMap">
+<Abstract>1</Abstract>
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u -r38542 -r38725
--- vhTest/Mock/APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38542)
+++ vhTest/Mock/APPS/AKP/AankoopControle/BLUM/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38725)
@@ -9,6 +9,18 @@
 <Super>APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="KopieerBestandenVrachtwagenNaarArchiefMap">
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("KopieerBestandenVrachtwagenNaarArchiefMap",Vrachtwagen)
+]]></Implementation>
+</Method>
+
+<Method name="KopieerBestandenVrachtwagenNaarErrorMap">
+<FormalSpec>Vrachtwagen:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("KopieerBestandenVrachtwagenNaarErrorMap",Vrachtwagen)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVrachtwagen">
 <FormalSpec>VrachtWagen:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>