Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml
===================================================================
diff -u -r38250 -r41650
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml	(.../StapelingBewaarder.cls.xml)	(revision 38250)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml	(.../StapelingBewaarder.cls.xml)	(revision 41650)
@@ -65,19 +65,27 @@
 	#dim StapelingResultaatIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(StapelingResultaat.Palletten)
 	While StapelingResultaatIterator.HasNext()
 	{
-		#dim StapelingResultaatPallet As APPS.TRANSP.Stapeling.dto.Pallet = StapelingResultaatIterator.Next()
-		#dim StapelingPallet As APPS.TRANSP.Offerte.impl.DHL.Data.Pallet = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Pallet).%New()
-		Set StapelingPallet.GewichtInKG = StapelingResultaatPallet.GewichtInKG
-		Set StapelingPallet.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New()
-		Set StapelingPallet.Afmeting.Breedte = StapelingResultaatPallet.Afmeting.Breedte
-		Set StapelingPallet.Afmeting.Hoogte = StapelingResultaatPallet.Afmeting.Hoogte
-		Set StapelingPallet.Afmeting.Lengte = StapelingResultaatPallet.Afmeting.Lengte
-		Do Stapeling.Palletten.Insert(StapelingPallet)
+		Do Stapeling.Palletten.Insert(..MaakStapelingPallet(StapelingResultaatIterator.Next()))
 	}
 	Quit Stapeling
 ]]></Implementation>
 </Method>
 
+<Method name="MaakStapelingPallet">
+<FormalSpec>StapelingResultaatPallet:APPS.TRANSP.Stapeling.dto.Pallet</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Offerte.impl.DHL.Data.Pallet</ReturnType>
+<Implementation><![CDATA[
+	#dim StapelingPallet As APPS.TRANSP.Offerte.impl.DHL.Data.Pallet = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Pallet).%New()
+	Set StapelingPallet.GewichtInKG = StapelingResultaatPallet.GewichtInKG
+	Set StapelingPallet.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New()
+	Set StapelingPallet.Afmeting.Breedte = StapelingResultaatPallet.Afmeting.Breedte
+	Set StapelingPallet.Afmeting.Hoogte = StapelingResultaatPallet.Afmeting.Hoogte
+	Set StapelingPallet.Afmeting.Lengte = StapelingResultaatPallet.Afmeting.Lengte
+	Quit StapelingPallet
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderOudeStapelingGegevens">
 <FormalSpec>Referentie:%String,Groep:%String</FormalSpec>
 <Private>1</Private>