Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar/BerekenVerkoopPrijs/Test.cls.xml
===================================================================
diff -u -r37061 -r37605
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar/BerekenVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 37061)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar/BerekenVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 37605)
@@ -3,18 +3,33 @@
 <Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar.BerekenVerkoopPrijs.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: BerekenVerkoopprijs voor Hein geeft steeds 40 euro voor DHL Freight">
+<Method name="Test: BerekenVerkoopprijs voor Hein geeft 40 euro voor 1 pallet DHL Freight">
 <Implementation><![CDATA[
+	#dim OfferteItem As APPS.TRANSP.OfferteService.dto.OfferteItem
 	Set OfferteItem = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteItem).GeefOfferteItem()
 	Set OfferteItem.Code = ##class(APPS.TRANSP.enu.ServiceCode).DHLFreight()
+	Set OfferteItem.AantalPalletten = 1
 	Set OfferteItem.Kostprijs = 10.00
 	Set VerkoopprijsBerekenaar = ##class(WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar).%New()
 	Do $$$AssertEquals(VerkoopprijsBerekenaar.BerekenVerkoopPrijs(OfferteItem), 40.00)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: BerekenVerkoopprijs voor Hein geeft 120 euro voor 3 palletten DHL Freight">
+<Implementation><![CDATA[
+	#dim OfferteItem As APPS.TRANSP.OfferteService.dto.OfferteItem
+	Set OfferteItem = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteItem).GeefOfferteItem()
+	Set OfferteItem.Code = ##class(APPS.TRANSP.enu.ServiceCode).DHLFreight()
+	Set OfferteItem.AantalPalletten = 3
+	Set OfferteItem.Kostprijs = 10.00
+	Set VerkoopprijsBerekenaar = ##class(WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar).%New()
+	Do $$$AssertEquals(VerkoopprijsBerekenaar.BerekenVerkoopPrijs(OfferteItem), 120.00)
+]]></Implementation>
+</Method>
+
 <Method name="Test: BerekenVerkoopprijs voor Hein geeft offerteItem kostprijs 10 euro voor UPS Standard">
 <Implementation><![CDATA[
+	#dim OfferteItem As APPS.TRANSP.OfferteService.dto.OfferteItem
 	Set OfferteItem = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteItem).GeefOfferteItem()
 	Set OfferteItem.Code = ##class(APPS.TRANSP.enu.ServiceCode).UPSExpressStandard()
 	Set OfferteItem.Kostprijs = 10.00
Index: WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar.cls.xml
===================================================================
diff -u -r37061 -r37605
--- WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar.cls.xml	(.../VerkoopprijsBerekenaar.cls.xml)	(revision 37061)
+++ WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar.cls.xml	(.../VerkoopprijsBerekenaar.cls.xml)	(revision 37605)
@@ -7,7 +7,7 @@
 <FormalSpec>OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem</FormalSpec>
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[
-	Quit:OfferteItem.Code=##class(APPS.TRANSP.enu.ServiceCode).DHLFreight() 40.00
+	Quit:OfferteItem.Code=##class(APPS.TRANSP.enu.ServiceCode).DHLFreight() (40.00 * OfferteItem.AantalPalletten)
 	Quit OfferteItem.Kostprijs
 ]]></Implementation>
 </Method>