Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml
===================================================================
diff -u -r64108 -r64134
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(.../Test.cls.xml)	(revision 64108)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(.../Test.cls.xml)	(revision 64134)
@@ -3,103 +3,125 @@
 <Class name="vhUnitTest.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler.BepaalTransportData.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="PalletprijsDuPont">
+<Type>%Double</Type>
+<Default>28</Default>
+</Parameter>
+
+<Parameter name="PalletprijsNederland4OfMeerPalletten">
+<Type>%Double</Type>
+<Default>35.96</Default>
+</Parameter>
+
 <Method name="Test: Bij TransporteurIterator dat de transporteur niet bevat mag geen nacalculatie toegevoegd worden">
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
 	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
-	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	
-	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(, ,RitIterator)
+	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(,,RitIterator)
+	
+	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).DHL())
 	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 	
-	Do $$$AssertIsObject(TransportData)
 	Do $$$AssertEquals(TransportData.Count(), 0)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaardgedrag met nacalculatie">
+<Method name="Test: Standaardgedrag -&gt; Transportdata heeft voor elke levering gegevens">
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
-	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(..GeefLeveringMock(KlantId))
+	#dim AantalEuroPalleten As %Integer = 5
 	
+	#dim LeveringMock1 As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Nederlands(), $$$DummyInteger)
+	#dim LeveringMock2 As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch(), AantalEuroPalleten)
+	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(LeveringMock1, LeveringMock2)
+	
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
 	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
 	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
 	
-	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
-	
 	Set VerkoopApiMock =  ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Set TransportdataVoorKlantBepaler = 
-		##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(VerkoopApiMock, ,RitIterator)
+	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(VerkoopApiMock, ,RitIterator)
 	
+	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 	
-	Do $$$AssertIsObject(TransportData)
-	Do $$$AssertEquals(TransportData.Count(), 1)
+	Do $$$AssertEquals(TransportData.Count(), 2)
+	#dim NacalculatieDtoMetNederlandsAdres As APPS.TRANSP.dto.Nacalculatie = TransportData.GetAt(1)
+	#dim NacalculatieDtoMetBelgischAdres As APPS.TRANSP.dto.Nacalculatie = TransportData.GetAt(2)
+	Do $$$AssertEquals(NacalculatieDtoMetNederlandsAdres.AantalEuroPallet, 0)
+	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.AantalEuroPallet, AantalEuroPalleten)
+	Do $$$AssertEquals(NacalculatieDtoMetNederlandsAdres.LeveradresGemeente, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Nederlands().GeefGemeente())
+	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.LeveradresGemeente, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch().GeefGemeente())
+	Do $$$AssertEquals(NacalculatieDtoMetNederlandsAdres.TeBetalen, 0)
+	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.TeBetalen, (..#PalletprijsNederland4OfMeerPalletten * 5)/2)
 	
 	Do RitMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor leveradres HFBelgie mag geen nacalculatie toegevoegd worden">
+<Method name="Test: Leveradres van HFBelgie -&gt; Transportdata heeft voor elke levering gegevens behalve voor leveradres HFBelgie">
 <Implementation><![CDATA[
-	Set VerkoopApi = ##class(DOM.VKP.impl.VerkoopAPI).%New()
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
+	Set VerkoopApi = ##class(DOM.VKP.impl.VerkoopAPI).%New()
 	#dim HFBelgie As DOM.VKP.VanHoeckeKlant = VerkoopApi.GeefKlant(KlantId)
+	#dim AantalEuroPalleten As %Integer = 5
 	
-	#dim LeveringMock As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId)	
-	Do LeveringMock.VerwachtMethodCall("GeefAdres").DanReturn(HFBelgie.GeefAdres())
-	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(LeveringMock)
+	#dim LeveringMock1 As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Nederlands(), $$$DummyInteger)
+	#dim LeveringMock2 As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId, HFBelgie.GeefAdres(), AantalEuroPalleten * 20)
+	#dim LeveringMock3 As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch(), AantalEuroPalleten)
+	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(LeveringMock1, LeveringMock2, LeveringMock3)
 	
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
 	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
 	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
 	
-	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
-	
 	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(,,RitIterator)
 	
+	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 	
-	Do $$$AssertIsObject(TransportData)
-	Do $$$AssertEquals(TransportData.Count(), 0)
+	Do $$$AssertEquals(TransportData.Count(), 2)
+	#dim NacalculatieDtoMetBelgischAdres As APPS.TRANSP.dto.Nacalculatie = TransportData.GetAt(2)
+	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.AantalEuroPallet, AantalEuroPalleten)
+	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.LeveradresGemeente, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch().GeefGemeente())
+	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.TeBetalen, (..#PalletprijsDuPont * AantalEuroPalleten))
 	
-	Do LeveringMock.Verifieer()
 	Do RitMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Leeg leveradres van een rit geeft InvalidInputException">
+<Method name="Test: Leeg leveradres van een rit -&gt; InvalidInputException">
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
 	
-	#dim LeveringMock As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId)	
-	Do LeveringMock.VerwachtMethodCall("GeefAdres").DanReturn("")
+	#dim LeveringMock As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId, "", $$$DummyInteger)
 	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(LeveringMock)
 	
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
 	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
 	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
 	
-	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
-	
 	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(, ,RitIterator)
 	
 	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Leveradressen konden niet vergeleken worden omwille van een of meerdere lege leveradressen.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substring))
 	
+	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 	
 	Do LeveringMock.Verifieer()
 	Do RitMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Leeg leveradres van een klant geeft InvalidInputException">
+<Method name="Test: Leeg leveradres van een klant -&gt; InvalidInputException">
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
-	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(..GeefLeveringMock(KlantId))
+	Set VerkoopApi = ##class(DOM.VKP.impl.VerkoopAPI).%New()
+	#dim HFBelgie As DOM.VKP.VanHoeckeKlant = VerkoopApi.GeefKlant(KlantId)
+	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(..GeefLeveringMock(KlantId, HFBelgie.GeefAdres(), $$$DummyInteger))
 	
 	Set VanHoeckeKlantMock = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
 	Do VanHoeckeKlantMock.VerwachtMethodCall("GeefAdres").DanReturn("")
@@ -111,13 +133,12 @@
 	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
 	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
 	
-	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
-	
 	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(VerkoopApiMock, ,RitIterator)
 	
 	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Leveradressen konden niet vergeleken worden omwille van een of meerdere lege leveradressen.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substring))
 	
+	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 	
 	Do VanHoeckeKlantMock.Verifieer()
@@ -146,52 +167,45 @@
 	
 	Do RitMock.IndienMethodCall("GeefID").DanReturn(LaatstVerwerkteRit + 1)
 	Do RitMock.IndienMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).TTC())
-	Do RitMock.IndienMethodCall("GeefOphaalTimeStamp").DanReturn($$$ElkeWaarde)
+	Do RitMock.IndienMethodCall("GeefOphaalTimeStamp").DanReturn($$$DummyTimeStamp)
 	
 	Quit RitMock
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRitIterator">
+<FormalSpec>RitMock...:vhTest.Mock.DOM.TRANSP.Rit</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ArrayOneDimIterator).%New(.RitMock)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeveringMock">
-<FormalSpec>KlantId:DOM.VKP.enu.Klant</FormalSpec>
+<FormalSpec>KlantId:DOM.VKP.enu.Klant,LeverAdres:DOM.VKP.LeverAdres,AantalEuroPalletten:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Mock.DOM.TRANSP.Levering</ReturnType>
 <Implementation><![CDATA[
 	Set LeveringMock = ##class(vhTest.Mock.DOM.TRANSP.Levering).%New()
 	Do LeveringMock.IndienMethodCall("GeefGeleverdAanKlantID").DanReturn(KlantId)
-	Do LeveringMock.IndienMethodCall("GeefAantalColli").DanReturn($$$ElkeWaarde)
-	Do LeveringMock.IndienMethodCall("GeefAantalEuroPalletten").DanReturn($$$ElkeWaarde)
-	Do LeveringMock.IndienMethodCall("GeefAantalHalveEuroPalletten").DanReturn($$$ElkeWaarde)
-	Do LeveringMock.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn($$$ElkeWaarde)
+	Do LeveringMock.IndienMethodCall("GeefAantalColli").DanReturn($$$DummyInteger)
+	Do LeveringMock.IndienMethodCall("GeefAantalEuroPalletten").DanReturn(AantalEuroPalletten)
+	Do LeveringMock.IndienMethodCall("GeefAantalHalveEuroPalletten").DanReturn($$$DummyInteger)
+	Do LeveringMock.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn($$$DummyInteger)
+	Do LeveringMock.IndienMethodCall("GeefAdres").DanReturn(LeverAdres)
 	
-	#dim LeverAdresMock As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Nederlands()
 	Set BonIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
-	Do LeveringMock.IndienMethodCall("GeefAdres").DanReturn(LeverAdresMock)
 	Do LeveringMock.IndienMethodCall("GeefBonIterator").DanReturn(BonIterator)
 	
 	Quit LeveringMock
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRitIterator">
-<FormalSpec>RitMock:vhTest.Mock.DOM.TRANSP.Rit</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.ListIterator</ReturnType>
-<Implementation><![CDATA[
-	Set Ritten = ##class(%ListOfObjects).%New()
-	Do Ritten.Insert(RitMock)
-	Quit ##class(TECH.ListIterator).%New(Ritten)
-]]></Implementation>
-</Method>
-
 <Method name="GeefLeveringIterator">
-<FormalSpec>LeveringMock:vhTest.Mock.DOM.TRANSP.Levering</FormalSpec>
+<FormalSpec>LeveringMock...:vhTest.Mock.DOM.TRANSP.Levering</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.ListIterator</ReturnType>
-<Implementation><![CDATA[
-	Set Leveringen = ##class(%ListOfObjects).%New()	
-	Do Leveringen.Insert(LeveringMock)
-	Quit ##class(TECH.ListIterator).%New(Leveringen)
+<Implementation><![CDATA[	Quit ##class(TECH.ArrayOneDimIterator).%New(.LeveringMock)
 ]]></Implementation>
 </Method>
 </Class>