Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35749 -r35753
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35749)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35753)
@@ -23,10 +23,7 @@
 		
 		Do Requestcubeiq.packages.Insert(..MaakPackage(ColliOpPallet))
 		Do Requestcubeiq.packagestoload.Insert(..MaakPackageToLoad(ColliOpPallet))
-
-		#dim Orientation As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.orientation = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.orientation).%New()
-		Do Requestcubeiq.orientations.Insert(Orientation)
-
+		Set Requestcubeiq.orientations = ..MaakOrientations(ColliOpPallet)
 	}
 	
 	Quit Requestcubeiq
@@ -74,6 +71,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakOrientations">
+<FormalSpec>ColliOpPallet:APPS.TRANSP.Stapeling.dto.ColliOpPallet</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Orientations As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim packageid As %String = "DHL.package." _ColliOpPallet.ProductID
+	Do Orientations.Insert(..MaakOrientation(packageid, "1", ColliOpPallet.Afmeting.Lengte, ColliOpPallet.Afmeting.Breedte, ColliOpPallet.Afmeting.Hoogte, "true"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "2", ColliOpPallet.Afmeting.Breedte, ColliOpPallet.Afmeting.Lengte, ColliOpPallet.Afmeting.Hoogte, "true"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "3", ColliOpPallet.Afmeting.Breedte, ColliOpPallet.Afmeting.Hoogte, ColliOpPallet.Afmeting.Lengte, "False"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "4", ColliOpPallet.Afmeting.Hoogte, ColliOpPallet.Afmeting.Breedte, ColliOpPallet.Afmeting.Lengte, "False"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "5", ColliOpPallet.Afmeting.Hoogte, ColliOpPallet.Afmeting.Lengte, ColliOpPallet.Afmeting.Breedte, "False"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "6", ColliOpPallet.Afmeting.Lengte, ColliOpPallet.Afmeting.Hoogte, ColliOpPallet.Afmeting.Breedte, "False"))
+	Quit Orientations
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrientation">
+<FormalSpec>packageid:%String,orientationnum:%String,length:%String,width:%String,height:%String,allowed:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.orientation</ReturnType>
+<Implementation><![CDATA[
+	#dim Orientation As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.orientation = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.orientation).%New()
+	Set Orientation.packageid = packageid 
+	Set Orientation.orientationnum = orientationnum
+	Set Orientation.length = ##class(TECH.Format.impl.FormatAPI).%New().FormatNumber(length,2,".")
+	Set Orientation.width = ##class(TECH.Format.impl.FormatAPI).%New().FormatNumber(width,2,".")
+	Set Orientation.height = ##class(TECH.Format.impl.FormatAPI).%New().FormatNumber(height,2,".")  
+	Set Orientation.allowed = allowed 
+	Set Orientation.bottomonly = "False" 
+	Set Orientation.toponly = "False"
+	Quit Orientation
+]]></Implementation>
+</Method>
+
 <Method name="GeefCubeSetting">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.setting</ReturnType>
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml
===================================================================
diff -u -r35749 -r35753
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35749)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35753)
@@ -57,14 +57,62 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Compose geeft cubeiq request met 1 Orientation weer">
+<Method name="Test : Compose geeft cubeiq request met 6 Orientations 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.orientations.Count(),1)
+	Do $$$AssertEquals(cubeiqrequest.orientations.Count(),6)
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(1).packageid, "DHL.package.1") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(1).orientationnum, "1") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(1).length, "700.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(1).width, "300.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(1).height, "163.00")  
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(1).allowed, "true") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(1).bottomonly, "False") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(1).toponly, "False")
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(2).packageid, "DHL.package.1") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(2).orientationnum, "2") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(2).length, "300.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(2).width, "700.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(2).height, "163.00")  
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(2).allowed, "true") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(2).bottomonly, "False")
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(2).toponly, "False")
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(3).packageid, "DHL.package.1")
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(3).orientationnum, "3") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(3).length, "300.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(3).width, "163.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(3).height, "700.00")  
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(3).allowed, "False") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(3).bottomonly, "False") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(3).toponly, "False")
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(4).packageid, "DHL.package.1") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(4).orientationnum, "4") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(4).length, "163.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(4).width, "300.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(4).height, "700.00")  
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(4).allowed, "False") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(4).bottomonly, "False") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(4).toponly, "False")
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(5).packageid, "DHL.package.1") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(5).orientationnum, "5") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(5).length, "163.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(5).width, "700.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(5).height, "300.00")  
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(5).allowed, "False") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(5).bottomonly, "False") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(5).toponly, "False")
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(6).packageid, "DHL.package.1") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(6).orientationnum, "6") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(6).length, "700.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(6).width, "163.00") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(6).height, "300.00")  
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(6).allowed, "False") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(6).bottomonly, "False") 
+	Do $$$AssertEquals(cubeiqrequest.orientations.GetAt(6).toponly, "False")
 ]]></Implementation>
 </Method>