Index: vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml
===================================================================
diff -u -r35736 -r35739
--- vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml	(.../CollisOpPallet.cls.xml)	(revision 35736)
+++ vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml	(.../CollisOpPallet.cls.xml)	(revision 35739)
@@ -5,10 +5,15 @@
 
 <Method name="GeefCollisOpPallet">
 <ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.Stapeling.dto.CollisOpPallet</ReturnType>
 <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()
-	
+	Set ColliOpPallet.Aantal = 2
+	Set ColliOpPallet.Gewicht = 15 // KG
+	Set ColliOpPallet.ProductID = 1
+	Set ColliOpPallet.Afmeting = ##class(APPS.TRANSP.Stapeling.dto.Afmeting).%New(163,300,700)
 	Do CollisOpPallet.Insert(ColliOpPallet)
 	
 	Quit CollisOpPallet
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35737 -r35739
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35737)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35739)
@@ -9,6 +9,8 @@
 <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()
 	
+	Set Requestcubeiq.settings = ..GeefCubeSetting()
+	
 	#dim CollisOpPalletIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CollisOpPallet)
 	while CollisOpPalletIterator.HasNext()
 	{
@@ -23,6 +25,24 @@
 	Quit Requestcubeiq
 ]]></Implementation>
 </Method>
+
+<Method name="GeefCubeSetting">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.setting</ReturnType>
+<Implementation><![CDATA[
+	#dim Setting As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.setting = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.setting).%New()
+	Set Setting.id = "Default"
+	Set Setting.maxnumdecimals = "2"
+	Set Setting.maxblocksize = "128"
+	Set Setting.lengthunit = "mm"
+	Set Setting.volumeunit = "mm3"
+	Set Setting.weightunit = "kg"
+	Set Setting.companyname = "Van Hoecke"
+	Set Setting.drawasblockslimit = "1"
+	Set Setting.createpackageid = "False"
+	Quit Setting
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35735 -r35739
--- vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35735)
+++ vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35739)
@@ -13,6 +13,12 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="GeefCubeSetting">
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.setting</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/TRANSP/Stapeling/dto/ColliOpPallet.cls.xml
===================================================================
diff -u -r35726 -r35739
--- APPS/TRANSP/Stapeling/dto/ColliOpPallet.cls.xml	(.../ColliOpPallet.cls.xml)	(revision 35726)
+++ APPS/TRANSP/Stapeling/dto/ColliOpPallet.cls.xml	(.../ColliOpPallet.cls.xml)	(revision 35739)
@@ -6,31 +6,25 @@
 
 <Property name="ProductID">
 <Type>TECH.String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="Gewicht">
 <Type>TECH.Decimal</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="Aantal">
 <Type>TECH.Integer</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="Afmeting">
 <Type>APPS.TRANSP.Stapeling.dto.Afmeting</Type>
-<Private>1</Private>
 </Property>
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>ColliOpPalletState</State>
 <StreamLocation>^APPS.TRANSP5C9B.ColliOpPalletS</StreamLocation>
 <Data name="ColliOpPalletState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>ProductID</Value>
 </Value>
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml
===================================================================
diff -u -r35737 -r35739
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35737)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35739)
@@ -35,6 +35,25 @@
 	Do $$$AssertEquals(cubeiqrequest.packagestoload.Count(),1)
 ]]></Implementation>
 </Method>
+
+<Method name="Test : Compose geeft cubeiq request met settings 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.settings.id, "Default")
+	Do $$$AssertEquals(cubeiqrequest.settings.companyname, "Van Hoecke")
+	Do $$$AssertEquals(cubeiqrequest.settings.createpackageid, "False")
+	Do $$$AssertEquals(cubeiqrequest.settings.drawasblockslimit, "1")
+	Do $$$AssertEquals(cubeiqrequest.settings.lengthunit, "mm")
+	Do $$$AssertEquals(cubeiqrequest.settings.maxblocksize, "128")
+	Do $$$AssertEquals(cubeiqrequest.settings.maxnumdecimals, "2")
+	Do $$$AssertEquals(cubeiqrequest.settings.volumeunit, "mm3")
+	Do $$$AssertEquals(cubeiqrequest.settings.weightunit, "kg")
+]]></Implementation>
+</Method>
 </Class>