Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml
===================================================================
diff -u -r38725 -r45183
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 38725)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/VrachtwagenVerwerker.cls.xml	(.../VrachtwagenVerwerker.cls.xml)	(revision 45183)
@@ -11,84 +11,79 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="LijstVrachtwagenBestanden">
+<Type>%ListOfObjects</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)
+	Do ##super()
 
 	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="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestCase)
+	Do ..MaakDummyVrachtwagenBestanden()
+]]></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()
+	Set DespatchDELVRY03 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%New()
+	#dim DELVRY1 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = DespatchDELVRY03.GeefDELVRY03()
+	#dim DELVRY2 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = DespatchDELVRY03.GeefDELVRY03()
 
 	#dim XMLCorrelaterMock As vhTest.Mock.TECH.XMLCorrelater = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()	
+		
+	#dim VrachtwagenBestandenRepoFake as APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo = ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New(..LijstVrachtwagenBestanden)
 
-	
-	#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")
+	#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 ..DataExporteerder.ExporteerDataTransferObject(DELVRYResult,"Result.xml")
+	
+	do $$$AssertReferentieBestanden(..GeefBestandLocatie())
+	
 	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()
-
+	Set DespatchDELVRY03 = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03).%New()
+	#dim DELVRY1 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = DespatchDELVRY03.GeefDELVRY03()
+	#dim DELVRY2 as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = DespatchDELVRY03.GeefDELVRY03()
+	#dim CSBSODouble as APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFaktuur.CSBSO = ##class(vhTest.Utils.APPS.AKP.AankoopControle.BLUM.TXT.TransportEnFactuur.CSBSO).GeefCSBSO()
+	
 	#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 VrachtwagenBestandenRepoFake as APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo = ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New(..LijstVrachtwagenBestanden)
 	
-	#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)
+	
+	#dim VrachtwagenVerwerker as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker).%New(VrachtwagenBestandenRepoFake,XMLCorrelaterMock,ConverteerderV2Mock,BewaarderMock)
+	#dim MergedDELVRY as APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 = VrachtwagenVerwerker.GeefDELVRY03VoorVrachtwagen("6100003624")
+	
+	Do ConverteerderV2Mock.VerwachtMethodCall("Converteer",MergedDELVRY).DanReturn(CSBSODouble)
+	Do BewaarderMock.VerwachtMethodCall("Bewaar",CSBSODouble).DanDoeNiks()
 
+
 	Do VrachtwagenVerwerker.VerwerkVrachtwagen("6100003624")
 
 	Do XMLCorrelaterMock.Verifieer()
@@ -103,25 +98,11 @@
 	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
 	Do FileUtilsFake.VoegToeFileInfo(..VolledigeBestandNaam1)
 	Do FileUtilsFake.VoegToeFileInfo(..VolledigeBestandNaam2)
+		
+	#dim VrachtwagenBestandenRepoFake as APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo = ##class(vhTest.Fake.APPS.AKP.AankoopControle.BLUM.VrachtwagenBestandenRepo).%New(..LijstVrachtwagenBestanden)
 	
-	#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 VrachtwagenVerwerker as APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker = ##class(APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenVerwerker).%New(VrachtwagenBestandenRepoFake,,,,,FileUtilsFake)
 	
-	#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))
@@ -134,29 +115,14 @@
 
 <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 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)
 	
-	#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))
@@ -175,6 +141,23 @@
 	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\EDI_BLUM_XML_IN\")
 ]]></Implementation>
 </Method>
+
+<Method name="MaakDummyVrachtwagenBestanden">
+<Implementation><![CDATA[
+	Set ..LijstVrachtwagenBestanden = ##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)
+]]></Implementation>
+</Method>
 </Class>