Index: vhTest/Utils/APPS/VKP/Offerte/dto/VerpakkingList.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/VKP/Offerte/dto/VerpakkingList.cls.xml	(revision 36004)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefVerpakkingsList">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Offerte.dto.VerpakkingList</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingsList As APPS.VKP.Offerte.dto.VerpakkingList = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
+	#dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New()
+	Set Verpakking.Aantal = 2
+	Set Verpakking.Gewicht = 100
+	Set Verpakking.ProductID = 1
+	Set Verpakking.WaardeGoederen = 10.5 
+	Set Verpakking.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(90,80,70)
+	Do VerpakkingsList.Insert(Verpakking)
+	Quit VerpakkingsList
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r36003 -r36004
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 36003)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 36004)
@@ -161,6 +161,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: BerekenPalletGegevens Converteert Verpakkingslist naar CollisOpPallet">
+<Implementation><![CDATA[
+	#dim OfferteID As %String = 999
+	
+	set DummyVerpakkingen = ##class(vhTest.Utils.APPS.VKP.Offerte.dto.VerpakkingList).GeefVerpakkingsList()
+	
+	Set VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do VerkoopOfferteServiceMock.IndienMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(DummyVerpakkingen)
+	
+	#dim StapelingBepalerSpy As vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler = ##class(vhTest.Spy.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New()
+	Do StapelingBepalerSpy.IndienMethodCall("Bereken", $$$ElkeWaarde).DanDoeNiks()
+	
+	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock, , , , , StapelingBepalerSpy)
+	Do Service.BerekenPalletGegevens(OfferteID)
+	
+	#dim CollisOpPallet As APPS.TRANSP.Stapeling.dto.CollisOpPallet = StapelingBepalerSpy.GeefCollisOpPallet()
+	Do $$$AssertEquals(CollisOpPallet.Referentie, OfferteID)
+	Do $$$AssertEquals(CollisOpPallet.Settings.PalletFormaten.Count(), 2)
+	Do $$$AssertEquals(CollisOpPallet.Settings.PalletFormaten.GetAt(1), ##class(APPS.TRANSP.Stapeling.enu.PalletFormaat).EuroPallet())
+	Do $$$AssertEquals(CollisOpPallet.Settings.PalletFormaten.GetAt(2), ##class(APPS.TRANSP.Stapeling.enu.PalletFormaat).WegwerpPallet())
+	Do $$$AssertEquals(CollisOpPallet.Collis.Count(), 1)
+	#dim ColliOpPallet As APPS.TRANSP.Stapeling.dto.ColliOpPallet = CollisOpPallet.Collis.GetAt(1)
+	Do $$$AssertEquals(ColliOpPallet.Aantal, 2)
+	Do $$$AssertEquals(ColliOpPallet.GewichtInKg, .1)
+	Do $$$AssertEquals(ColliOpPallet.ProductID, 1)
+	Do $$$AssertEquals(ColliOpPallet.Afmeting.Hoogte, 90)
+	Do $$$AssertEquals(ColliOpPallet.Afmeting.Breedte, 80)
+	Do $$$AssertEquals(ColliOpPallet.Afmeting.Lengte, 70)
+]]></Implementation>
+</Method>
+
 <Method name="GeefHuidigeDatum">
 <Private>1</Private>
 <ReturnType>%Date</ReturnType>