Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r35744 -r35745
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35744)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35745)
@@ -13,6 +13,7 @@
 	Set Requestcubeiq.containersettings = ..GeefcontainerSettings()
 	Do Requestcubeiq.containers.Insert(..GeefEuroPallet())
 	Do Requestcubeiq.containers.Insert(..GeefWegwerpPallet())
+	Set Requestcubeiq.solutions = ..GeefSolution()
 	
 	#dim CollisOpPalletIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CollisOpPallet)
 	while CollisOpPalletIterator.HasNext()
@@ -48,6 +49,7 @@
 </Method>
 
 <Method name="GeefcontainerSettings">
+<Private>1</Private>
 <ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containersetting</ReturnType>
 <Implementation><![CDATA[
 	#dim ContainerSetting As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containersetting = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containersetting).%New()
@@ -62,13 +64,14 @@
 </Method>
 
 <Method name="GeefEuroPallet">
+<Private>1</Private>
 <ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container</ReturnType>
 <Implementation><![CDATA[
 	#dim Container As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container).%New()
 	Set Container.bottomtotoploading="True"
 	Set Container.partialloadonfloor="True" 
-	Set Container.id="11111"
-	Set Container.containerid="11111"
+	Set Container.id="DHL.stapelaar.EuroPallet"
+	Set Container.containerid="DHL.stapelaar.EuroPallet"
 	Set Container.containertype="Rectangular"
 	Set Container.depth="1200.00"
 	Set Container.width="800.00"
@@ -90,13 +93,14 @@
 </Method>
 
 <Method name="GeefWegwerpPallet">
+<Private>1</Private>
 <ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container</ReturnType>
 <Implementation><![CDATA[
 	#dim Container As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container).%New()
 	Set Container.bottomtotoploading="True"
 	Set Container.partialloadonfloor="True" 
-	Set Container.id="22222"
-	Set Container.containerid="22222"
+	Set Container.id="DHL.stapelaar.WegwerpPallet"
+	Set Container.containerid="DHL.stapelaar.WegwerpPallet"
 	Set Container.containertype="Rectangular"
 	Set Container.depth="1500.00"
 	Set Container.width="800.00"
@@ -116,6 +120,26 @@
 	Quit Container
 ]]></Implementation>
 </Method>
+
+<Method name="GeefSolution">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.solution</ReturnType>
+<Implementation><![CDATA[
+	#dim solution As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.solution = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.solution).%New()
+	Set solution.id = "DHL.stapelaar.Solution"
+	Set solution.solutionid = "DHL.stapelaar.Solution"
+	Set solution.date = ..GeefHuidigeDatum()
+	Set solution.stage = "1"
+	Quit solution
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$FormatDateTime^vhLib("dd/mm/YYYY",$H)
+]]></Implementation>
+</Method>
 </Class>