Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml
===================================================================
diff -u -r35735 -r35736
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35735)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35736)
@@ -13,6 +13,17 @@
 	Do $$$AssertIsObject(cubeiqrequest)
 ]]></Implementation>
 </Method>
+
+<Method name="Test : Compose geeft cubeiq request met 1 Package weer">
+<Implementation><![CDATA[
+	#dim CollisOpPallet As APPS.TRANSP.Stapeling.dto.CollisOpPallet = ##class(vhTest.Utils.APPS.TRANSP.Stapeling.dto.CollisOpPallet).GeefCollisOpPallet()
+	
+	#dim RequestComposer As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer).%New()
+	#dim cubeiqrequest As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq = RequestComposer.Compose(CollisOpPallet)
+	
+	Do $$$AssertEquals(cubeiqrequest.packages.Count(),1)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml
===================================================================
diff -u -r35735 -r35736
--- vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml	(.../CollisOpPallet.cls.xml)	(revision 35735)
+++ vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml	(.../CollisOpPallet.cls.xml)	(revision 35736)
@@ -7,6 +7,10 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	#dim CollisOpPallet As APPS.TRANSP.Stapeling.dto.CollisOpPallet = ##class(APPS.TRANSP.Stapeling.dto.CollisOpPallet).%New()
+	#dim ColliOpPallet As APPS.TRANSP.Stapeling.dto.ColliOpPallet = ##class(APPS.TRANSP.Stapeling.dto.ColliOpPallet).%New()
+	
+	Do CollisOpPallet.Insert(ColliOpPallet)
+	
 	Quit CollisOpPallet
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r35727 -r35736
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 35727)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 35736)
@@ -7,6 +7,7 @@
 <FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.Palletten</ReturnType>
 <Implementation><![CDATA[
+	
 	#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()
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35735 -r35736
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35735)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35736)
@@ -8,6 +8,15 @@
 <ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq</ReturnType>
 <Implementation><![CDATA[
 	#dim Requestcubeiq As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq).%New()
+	
+	#dim CollisOpPalletIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CollisOpPallet)
+	while CollisOpPalletIterator.HasNext()
+	{
+		#dim ColliOpPallet As APPS.TRANSP.Stapeling.dto.ColliOpPallet = CollisOpPalletIterator.Next()
+		#dim cubeiqPackage As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package).%New()
+		Do Requestcubeiq.packages.Insert(cubeiqPackage)
+	}
+	
 	Quit Requestcubeiq
 ]]></Implementation>
 </Method>