Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r38258 -r38259
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 38258)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 38259)
@@ -181,6 +181,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: BerekenPalletGegevens roept StapelingBepaler Bereken op met enkel CollisOpPallet per opgegeven verpakkingtype en ladetype">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 999
+	
+	#dim DummyVerpakkingen As APPS.VKP.Offerte.dto.VerpakkingList
+	Set DummyVerpakkingen = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	Do DummyVerpakkingen.RemoveAt(5)
+	Do DummyVerpakkingen.RemoveAt(3)
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(DummyVerpakkingen)
+	
+	Set StapelingBepalerSpy = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New()
+	Do StapelingBepalerSpy.VerwachtMethodCall("Bereken",$$$ElkeWaarde)
+	
+	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock, , , , , StapelingBepalerSpy)
+	Do Service.BerekenPalletGegevens(OfferteID)
+	
+	Do VerkoopOfferteServiceMock.Verifieer()
+	Do StapelingBepalerSpy.Verifieer()
+	
+	#dim CollisOpPalletList As %ListOfObjects = StapelingBepalerSpy.GeefCollisOpPalletList()
+	if $$$AssertEquals(CollisOpPalletList.Count(),3) {
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(1).Groep, ##class(APPS.VKP.Offerte.enu.LadeType).Taorbox() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).V1())
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(2).Groep,##class(APPS.VKP.Offerte.enu.LadeType).Taorbox() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox())
+		Do $$$AssertEquals(CollisOpPalletList.GetAt(3).Groep, ##class(APPS.VKP.Offerte.enu.LadeType).LegraboxPure() _"_" _##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox())
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Test: BerekenPalletGegevens Converteert Verpakkingslist naar CollisOpPallet">
 <Implementation><![CDATA[
 	#dim OfferteID As %String = 999