Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml
===================================================================
diff -u -r35747 -r35749
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35747)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer/Compose/Test.cls.xml	(.../Test.cls.xml)	(revision 35749)
@@ -22,6 +22,21 @@
 	#dim cubeiqrequest As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq = RequestComposer.Compose(CollisOpPallet)
 	
 	Do $$$AssertEquals(cubeiqrequest.packages.Count(),1)
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).id,"DHL.package.1")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).packageid,"DHL.package.1")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).length,"700")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).width,"300")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).height,"163")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).weight,"15.00")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).turnable,"False")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).sideupok,"False")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).endupok,"True")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).bottomonly,"False")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).toponly,"False")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).colour,"#255#0#0")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).deletewithsolution,"True")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).packagetype,"Box")
+	Do $$$AssertEquals(cubeiqrequest.packages.GetAt(1).stackcode,"")
 ]]></Implementation>
 </Method>
 
@@ -33,6 +48,12 @@
 	#dim cubeiqrequest As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq = RequestComposer.Compose(CollisOpPallet)
 	
 	Do $$$AssertEquals(cubeiqrequest.packagestoload.Count(),1)
+	Do $$$AssertEquals(cubeiqrequest.packagestoload.GetAt(1).id,"DHL.packagetoload.1")
+	Do $$$AssertEquals(cubeiqrequest.packagestoload.GetAt(1).solutionid,"DHL.stapelaar.Solution")
+	Do $$$AssertEquals(cubeiqrequest.packagestoload.GetAt(1).auto,"1")
+	Do $$$AssertEquals(cubeiqrequest.packagestoload.GetAt(1).packageid,"DHL.package.1")
+	Do $$$AssertEquals(cubeiqrequest.packagestoload.GetAt(1).quantity,"2")
+	Do $$$AssertEquals(cubeiqrequest.packagestoload.GetAt(1).batch,"#0#100#0")
 ]]></Implementation>
 </Method>
 
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35747 -r35749
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35747)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35749)
@@ -20,12 +20,10 @@
 	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)
+		
+		Do Requestcubeiq.packages.Insert(..MaakPackage(ColliOpPallet))
+		Do Requestcubeiq.packagestoload.Insert(..MaakPackageToLoad(ColliOpPallet))
 
-		#dim cubeiqPackageToLoad As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload).%New()
-		Do Requestcubeiq.packagestoload.Insert(cubeiqPackageToLoad)
-
 		#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)
 
@@ -35,6 +33,47 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakPackage">
+<FormalSpec>ColliOpPallet:APPS.TRANSP.Stapeling.dto.ColliOpPallet</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package</ReturnType>
+<Implementation><![CDATA[
+	#dim cubeiqPackage As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package).%New()
+	Set cubeiqPackage.id = "DHL.package." _ColliOpPallet.ProductID
+	Set cubeiqPackage.packageid = "DHL.package." _ColliOpPallet.ProductID
+	Set cubeiqPackage.length = ColliOpPallet.Afmeting.Lengte
+	Set cubeiqPackage.width = ColliOpPallet.Afmeting.Breedte
+	Set cubeiqPackage.height = ColliOpPallet.Afmeting.Hoogte
+	Set cubeiqPackage.weight = ##class(TECH.Format.impl.FormatAPI).%New().FormatNumber(ColliOpPallet.GewichtInKg,2,".")
+	Set cubeiqPackage.turnable = "False" 
+	Set cubeiqPackage.sideupok = "False" 
+	Set cubeiqPackage.endupok = "True" 
+	Set cubeiqPackage.bottomonly = "False" 
+	Set cubeiqPackage.toponly = "False" 
+	Set cubeiqPackage.colour = "#255#0#0" 
+	Set cubeiqPackage.deletewithsolution = "True" 
+	Set cubeiqPackage.packagetype = "Box" 
+	Set cubeiqPackage.stackcode = "" 
+	Quit cubeiqPackage
+]]></Implementation>
+</Method>
+
+<Method name="MaakPackageToLoad">
+<FormalSpec>ColliOpPallet:APPS.TRANSP.Stapeling.dto.ColliOpPallet</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload</ReturnType>
+<Implementation><![CDATA[
+	#dim cubeiqPackageToLoad As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.packagetoload).%New()
+	Set cubeiqPackageToLoad.id = "DHL.packagetoload." _ColliOpPallet.ProductID
+	Set cubeiqPackageToLoad.solutionid = "DHL.stapelaar.Solution"
+	Set cubeiqPackageToLoad.auto = "1"
+	Set cubeiqPackageToLoad.packageid = "DHL.package." _ColliOpPallet.ProductID
+	Set cubeiqPackageToLoad.quantity = ColliOpPallet.Aantal
+	Set cubeiqPackageToLoad.batch = "#0#100#0"
+	Quit cubeiqPackageToLoad
+]]></Implementation>
+</Method>
+
 <Method name="GeefCubeSetting">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.setting</ReturnType>
Index: APPS/TRANSP/Stapeling/dto/ColliOpPallet.cls.xml
===================================================================
diff -u -r35739 -r35749
--- APPS/TRANSP/Stapeling/dto/ColliOpPallet.cls.xml	(.../ColliOpPallet.cls.xml)	(revision 35739)
+++ APPS/TRANSP/Stapeling/dto/ColliOpPallet.cls.xml	(.../ColliOpPallet.cls.xml)	(revision 35749)
@@ -8,7 +8,7 @@
 <Type>TECH.String</Type>
 </Property>
 
-<Property name="Gewicht">
+<Property name="GewichtInKg">
 <Type>TECH.Decimal</Type>
 </Property>
 
@@ -37,6 +37,9 @@
 <Value name="4">
 <Value>Afmeting</Value>
 </Value>
+<Value name="5">
+<Value>GewichtInKg</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml
===================================================================
diff -u -r35739 -r35749
--- vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml	(.../CollisOpPallet.cls.xml)	(revision 35739)
+++ vhTest/Utils/APPS/TRANSP/Stapeling/dto/CollisOpPallet.cls.xml	(.../CollisOpPallet.cls.xml)	(revision 35749)
@@ -11,7 +11,7 @@
 
 	#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.GewichtInKg = 15 // KG
 	Set ColliOpPallet.ProductID = 1
 	Set ColliOpPallet.Afmeting = ##class(APPS.TRANSP.Stapeling.dto.Afmeting).%New(163,300,700)
 	Do CollisOpPallet.Insert(ColliOpPallet)
Index: vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35744 -r35749
--- vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35744)
+++ vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35749)
@@ -37,6 +37,13 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="MaakPackage">
+<FormalSpec>ColliOpPallet:APPS.TRANSP.Stapeling.dto.ColliOpPallet</FormalSpec>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.package</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>