Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r36358 -r37622
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 36358)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 37622)
@@ -6,9 +6,14 @@
 <Method name="Test: geeft palletten weer aan de hand van berekeninput">
 <Implementation><![CDATA[
 	#dim StapelingRepository As vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New()
+	
 	#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling).GeefStapeling()
-	Do StapelingRepository.IndienMethodCall("GeefViaReferentie", $$$ElkeWaarde).DanReturn(Stapeling)
+	#dim StapelingList As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do StapelingList.Insert(Stapeling)
+	#dim StapelingIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(StapelingList)
 	
+	Do StapelingRepository.IndienMethodCall("ZoekViaReferentie", $$$ElkeWaarde).DanReturn(StapelingIterator)
+	
 	#dim StapelingBepaler As APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New(StapelingRepository)
 	#dim BerekenInputDummy As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	
Index: vhTest/Mock/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository.cls.xml
===================================================================
diff -u -r37619 -r37622
--- vhTest/Mock/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository.cls.xml	(.../StapelingRepository.cls.xml)	(revision 37619)
+++ vhTest/Mock/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository.cls.xml	(.../StapelingRepository.cls.xml)	(revision 37622)
@@ -14,6 +14,13 @@
 <Default>APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling</Default>
 </Parameter>
 
+<Method name="ZoekViaReferentie">
+<FormalSpec>Referentie:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaReferentie",Referentie)
+]]></Implementation>
+</Method>
+
 <Method name="GeefViaReferentie">
 <FormalSpec>Referentie:%String</FormalSpec>
 <ReturnType>TECH.Persistent</ReturnType>
Index: vhTest/Utils/APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml
===================================================================
diff -u -r36388 -r37622
--- vhTest/Utils/APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(.../Stapeling.cls.xml)	(revision 36388)
+++ vhTest/Utils/APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(.../Stapeling.cls.xml)	(revision 37622)
@@ -8,6 +8,7 @@
 <Implementation><![CDATA[
 	#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling).%New()
 	Set Stapeling.Referentie = "DummyReferentie"
+	Set Stapeling.Groep = "DummyGroep"
 	#dim Pallet As APPS.TRANSP.Offerte.impl.DHL.Data.Pallet = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Pallet).%New()
 	Set Pallet.GewichtInKG = 100
 	Set Pallet.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New(90,80,70)
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r37611 -r37622
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 37611)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 37622)
@@ -43,18 +43,20 @@
 <Implementation><![CDATA[
 	#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = ##class(APPS.TRANSP.OfferteService.dto.Palletten).%New()
 
-	#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ..StapelingRepository.GeefViaReferentie(BerekenInput.Referentie)
+	#dim StapelingIterator As TECH.Iterator = ..StapelingRepository.ZoekViaReferentie(BerekenInput.Referentie)
+	While StapelingIterator.HasNext() {
+		#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = StapelingIterator.Next()
 
-	#dim PallettenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Stapeling.Palletten)
-	While PallettenIterator.HasNext()
-	{
-		#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = ##class(APPS.TRANSP.OfferteService.dto.Pallet).%New()
-		#dim PalletData As APPS.TRANSP.Offerte.impl.DHL.Data.Pallet = PallettenIterator.Next()
-		Set Pallet.GewichtInKG = (PalletData.GewichtInKG)
-		Set Pallet.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New(PalletData.Afmeting.Hoogte + ..#PalletHoogte,PalletData.Afmeting.Breedte, PalletData.Afmeting.Lengte)
-		Do Palletten.Insert(Pallet)
+		#dim PallettenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Stapeling.Palletten)
+		While PallettenIterator.HasNext()
+		{
+			#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = ##class(APPS.TRANSP.OfferteService.dto.Pallet).%New()
+			#dim PalletData As APPS.TRANSP.Offerte.impl.DHL.Data.Pallet = PallettenIterator.Next()
+			Set Pallet.GewichtInKG = (PalletData.GewichtInKG)
+			Set Pallet.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New(PalletData.Afmeting.Hoogte + ..#PalletHoogte,PalletData.Afmeting.Breedte, PalletData.Afmeting.Lengte)
+			Do Palletten.Insert(Pallet)
+		}
 	}
-
 	Quit Palletten
 ]]></Implementation>
 </Method>