Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r36346 -r36410
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 36346)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 36410)
@@ -204,25 +204,28 @@
 	
 	#dim ContainersToLoad As %ListOfObjects = ##class(%ListOfObjects).%New()
 	
-	#dim ContainerToLoad As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload).%New()
-	Set ContainerToLoad.id = "Stapelaar.EuroPallet"
-	Set ContainerToLoad.containerid = "Stapelaar.EuroPallet"
-	Set ContainerToLoad.solutionid = Referentie
-	Set ContainerToLoad.auto = "0"
-	Set ContainerToLoad.containernum = "1"
-	Set ContainerToLoad.sequence = "1"
-	Do ContainersToLoad.Insert(ContainerToLoad)
+	 
+	for ContainerNummer=1:1:5
+	{
+		Do ContainersToLoad.Insert(..MaakContainerToLoad(Referentie,"Stapelaar.EuroPallet",ContainerNummer))
+		Do ContainersToLoad.Insert(..MaakContainerToLoad(Referentie,"Stapelaar.WegwerpPallet",ContainerNummer+5))
+	}
+	Quit ContainersToLoad
+]]></Implementation>
+</Method>
 
+<Method name="MaakContainerToLoad">
+<FormalSpec>Referentie:%String,ContainerId:%String,ContainerNummer:%String</FormalSpec>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload</ReturnType>
+<Implementation><![CDATA[
 	Set ContainerToLoad = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload).%New()
-	Set ContainerToLoad.id = "Stapelaar.WegwerpPallet"
-	Set ContainerToLoad.containerid = "Stapelaar.WegwerpPallet"
+	Set ContainerToLoad.id = ContainerId
+	Set ContainerToLoad.containerid = ContainerId
 	Set ContainerToLoad.solutionid = Referentie
 	Set ContainerToLoad.auto = "0"
-	Set ContainerToLoad.containernum = "2"
-	Set ContainerToLoad.sequence = "2"
-	Do ContainersToLoad.Insert(ContainerToLoad)
-	
-	Quit ContainersToLoad
+	Set ContainerToLoad.containernum = ContainerNummer
+	Set ContainerToLoad.sequence = ContainerNummer
+	Quit ContainerToLoad
 ]]></Implementation>
 </Method>