Index: vhTest/Utils/APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(revision 35996)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefStapeling">
+<ClassMethod>1</ClassMethod>
+<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"
+	#dim Pallet As APPS.TRANSP.Offerte.impl.DHL.Data.Pallet = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Pallet).%New()
+	Set Pallet.Gewicht = 100
+	Set Pallet.Afmeting = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Afmeting).%New(90,80,70)
+	Do Stapeling.Palletten.Insert(Pallet)
+	Quit Stapeling
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r35968 -r35996
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 35968)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 35996)
@@ -24,20 +24,22 @@
 <FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.Palletten</ReturnType>
 <Implementation><![CDATA[
-	#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ..StapelingRepository.GeefViaReferentie(BerekenInput.Referentie)
-	
 	#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = ##class(APPS.TRANSP.OfferteService.dto.Palletten).%New()
-	
-	#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = ##class(APPS.TRANSP.OfferteService.dto.Pallet).%New()
-	Set Pallet.Gewicht = 100
-	/// KCA HIER OPGELET !!! 
-	/// AfMetingen Berekeninput zijn in millimeter !!!
-	/// pallet ook in millimeter doorgeven. de omrekening naar meter gebeurt enkel juist voor de gewichtberekening.
-	/// Gewichten in software in GRAM !!!
-	/// pallet ook in gram doorgeven. de omrekening naar KG gebeurt enkel juist voor de gewichtberekening.
-	Set Pallet.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(1,1,1)
-	Do Palletten.Insert(Pallet)
-	
+
+	#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ..StapelingRepository.GeefViaReferentie(BerekenInput.Referentie)
+
+	#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()
+		/// Gewichten in software in GRAM !!!
+		Set Pallet.Gewicht = PalletData.Gewicht 
+		/// AfMetingen Berekeninput zijn in millimeter !!!
+		Set Pallet.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(PalletData.Afmeting.Hoogte,PalletData.Afmeting.Breedte, PalletData.Afmeting.Lengte)
+		Do Palletten.Insert(Pallet)
+	}
+
 	Quit Palletten
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r35963 -r35996
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 35963)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 35996)
@@ -6,7 +6,8 @@
 <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()
-	Do StapelingRepository.IndienMethodCall("GeefViaReferentie", $$$ElkeWaarde).DanDoeNiks()
+	#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 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()
@@ -16,9 +17,9 @@
 	Do $$$AssertEquals(Palletten.Count(),1)
 	#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = Palletten.GetAt(1)
 	Do $$$AssertEquals(Pallet.Gewicht,100)
-	Do $$$AssertEquals(Pallet.Afmeting.Breedte,1)
-	Do $$$AssertEquals(Pallet.Afmeting.Hoogte,1)
-	Do $$$AssertEquals(Pallet.Afmeting.Lengte,1)
+	Do $$$AssertEquals(Pallet.Afmeting.Hoogte,90)
+	Do $$$AssertEquals(Pallet.Afmeting.Breedte,80)
+	Do $$$AssertEquals(Pallet.Afmeting.Lengte,70)
 ]]></Implementation>
 </Method>
 </Class>