Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml
===================================================================
diff -u -r64134 -r66252
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(.../Test.cls.xml)	(revision 64134)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(.../Test.cls.xml)	(revision 66252)
@@ -32,9 +32,10 @@
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
 	#dim AantalEuroPalleten As %Integer = 5
+	#dim AantalWegwerpPalletten as %Integer = 2
 	
 	#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 LeveringMock2 As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch(), AantalEuroPalleten, AantalWegwerpPalletten)
 	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(LeveringMock1, LeveringMock2)
 	
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
@@ -51,7 +52,7 @@
 	#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(NacalculatieDtoMetBelgischAdres.AantalEuroPallet, AantalEuroPalleten+AantalWegwerpPalletten)
 	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)
@@ -66,11 +67,12 @@
 	#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 AantalEuroPalletten As %Integer = 3
+	#dim AantalWegwerpPalletten As %Integer = 2
 	
 	#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 LeveringMock2 As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId, HFBelgie.GeefAdres(), AantalEuroPalletten * 20)
+	#dim LeveringMock3 As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch(), AantalEuroPalletten,AantalWegwerpPalletten)
 	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(LeveringMock1, LeveringMock2, LeveringMock3)
 	
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
@@ -84,9 +86,9 @@
 	
 	Do $$$AssertEquals(TransportData.Count(), 2)
 	#dim NacalculatieDtoMetBelgischAdres As APPS.TRANSP.dto.Nacalculatie = TransportData.GetAt(2)
-	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.AantalEuroPallet, AantalEuroPalleten)
+	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.AantalEuroPallet, AantalEuroPalletten+AantalWegwerpPalletten)
 	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.LeveradresGemeente, ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch().GeefGemeente())
-	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.TeBetalen, (..#PalletprijsDuPont * AantalEuroPalleten))
+	Do $$$AssertEquals(NacalculatieDtoMetBelgischAdres.TeBetalen, (..#PalletprijsDuPont * AantalEuroPalletten))
 	
 	Do RitMock.Verifieer()
 ]]></Implementation>
@@ -182,7 +184,7 @@
 </Method>
 
 <Method name="GeefLeveringMock">
-<FormalSpec>KlantId:DOM.VKP.enu.Klant,LeverAdres:DOM.VKP.LeverAdres,AantalEuroPalletten:%Integer</FormalSpec>
+<FormalSpec>KlantId:DOM.VKP.enu.Klant,LeverAdres:DOM.VKP.LeverAdres,AantalEuroPalletten:%Integer,AantalWegwerpPalletten:%Integer=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Mock.DOM.TRANSP.Levering</ReturnType>
 <Implementation><![CDATA[
@@ -192,6 +194,7 @@
 	Do LeveringMock.IndienMethodCall("GeefAantalEuroPalletten").DanReturn(AantalEuroPalletten)
 	Do LeveringMock.IndienMethodCall("GeefAantalHalveEuroPalletten").DanReturn($$$DummyInteger)
 	Do LeveringMock.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn($$$DummyInteger)
+	Do LeveringMock.IndienMethodCall("GeefAantalWegwerpPalletten").DanReturn(AantalWegwerpPalletten)
 	Do LeveringMock.IndienMethodCall("GeefAdres").DanReturn(LeverAdres)
 	
 	Set BonIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r65634 -r66252
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 65634)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 66252)
@@ -97,7 +97,7 @@
 				If ..MagNacalculatieToevoegen(Levering, KlantId) {
 					Set NacalculatieDto = ##class(APPS.TRANSP.dto.Nacalculatie).%New()
 					Set NacalculatieDto.AantalColli = Levering.GeefAantalColli()
-					Set NacalculatieDto.AantalEuroPallet = Levering.GeefAantalEuroPalletten()
+					Set NacalculatieDto.AantalEuroPallet = Levering.GeefAantalEuroPalletten() + Levering.GeefAantalWegwerpPalletten()
 					Set NacalculatieDto.AantalHalveEuroPallet = Levering.GeefAantalHalveEuroPalletten()
 					Set NacalculatieDto.AantalBuitenmaatsePallet = Levering.GeefAantalBuitenmaatsPalletten()