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>