Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/PalletSpecifications.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/PalletSpecifications.cls.xml	(revision 0)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/PalletSpecifications.cls.xml	(revision 36346)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.PalletSpecifications">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefEuroPallet">
+<ClassMethod>1</ClassMethod>
+<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="Stapelaar.EuroPallet"
+	Set Container.containerid="Stapelaar.EuroPallet"
+	Set Container.containertype="Rectangular"
+	Set Container.depth="1200.00"
+	Set Container.width="800.00"
+	Set Container.height="2070.00"
+	Set Container.maxweight="1200.00"
+	Set Container.settingsid="Default"
+	Set Container.backtofront="False" 
+	Set Container.bottomtotop="True" 
+	Set Container.loadbottomfirst="False"
+	Set Container.loadinlayers="True"
+	Set Container.spreadblocks="True"
+	Set Container.mixedlayers="True" 
+	Set Container.doorwidth="9999999.00"
+	Set Container.doorheight="9999999.00"
+	Set Container.valuemax="999999999.00"
+	
+	Quit Container
+]]></Implementation>
+</Method>
+
+<Method name="GeefWegwerpPallet">
+<ClassMethod>1</ClassMethod>
+<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="Stapelaar.WegwerpPallet"
+	Set Container.containerid="Stapelaar.WegwerpPallet"
+	Set Container.containertype="Rectangular"
+	Set Container.depth="1500.00"
+	Set Container.width="800.00"
+	Set Container.height="2070.00"
+	Set Container.maxweight="1200.00"
+	Set Container.settingsid="Default"
+	Set Container.backtofront="False" 
+	Set Container.bottomtotop="True" 
+	Set Container.loadbottomfirst="False"
+	Set Container.loadinlayers="True"
+	Set Container.spreadblocks="True"
+	Set Container.mixedlayers="True" 
+	Set Container.doorwidth="9999999.00"
+	Set Container.doorheight="9999999.00"
+	Set Container.valuemax="999999999.00"
+	
+	Quit Container
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml
===================================================================
diff -u -r36093 -r36346
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml	(.../ResponseNotifier.cls.xml)	(revision 36093)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier.cls.xml	(.../ResponseNotifier.cls.xml)	(revision 36346)
@@ -48,15 +48,30 @@
 	{
 		#dim LoadedContainer As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.loadedcontainer = LoadedContainersIterator.Next()
 		#dim Pallet As APPS.TRANSP.Stapeling.dto.Pallet = ##class(APPS.TRANSP.Stapeling.dto.Pallet).%New()
+		#dim PalletSpecificaties As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container = ..GeefPalletSpecificaties(LoadedContainer.containerid)
 		Set Pallet.GewichtInKG = LoadedContainer.totalweight		
 		Set Pallet.Afmeting.Hoogte = LoadedContainer.maxheight
-		Set Pallet.Afmeting.Lengte = LoadedContainer.maxlength
-		Set Pallet.Afmeting.Breedte = LoadedContainer.maxwidth
+		Set Pallet.Afmeting.Lengte = PalletSpecificaties.depth
+		Set Pallet.Afmeting.Breedte = PalletSpecificaties.width
 		Do StapelaarResultaat.Palletten.Insert(Pallet)
 	}
 	Quit StapelaarResultaat
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPalletSpecificaties">
+<FormalSpec>ContainerId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container</ReturnType>
+<Implementation><![CDATA[
+	If ContainerId [ ##class(APPS.TRANSP.Stapeling.enu.PalletFormaat).EuroPallet() 
+	{
+		Quit ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.PalletSpecifications).GeefEuroPallet()
+	} 
+	
+	Quit ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.PalletSpecifications).GeefWegwerpPallet()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier/Test.cls.xml
===================================================================
diff -u -r36002 -r36346
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier/Test.cls.xml	(.../Test.cls.xml)	(revision 36002)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseNotifier/Test.cls.xml	(.../Test.cls.xml)	(revision 36346)
@@ -38,8 +38,8 @@
 		#dim StapelingResultaat As APPS.TRANSP.Stapeling.dto.StapelingResultaat = Events.GetAt(1).Data.GeefStapelingResultaat()
 		do $$$AssertEquals(StapelingResultaat.Referentie,"Referentie")
 		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).GewichtInKG,100)
-		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).Afmeting.Breedte,70)
-		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).Afmeting.Lengte,80)
+		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).Afmeting.Breedte,"800.00")
+		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).Afmeting.Lengte,"1500.00")
 		do $$$AssertEquals(StapelingResultaat.Palletten.GetAt(1).Afmeting.Hoogte,90)
 	}
 ]]></Implementation>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r36344 -r36346
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 36344)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 36346)
@@ -62,11 +62,11 @@
 		#dim PalletFormat As APPS.TRANSP.Stapeling.enu.PalletFormaat = PalletFormatenIterator.Next()
 		If PalletFormat = ##class(APPS.TRANSP.Stapeling.enu.PalletFormaat).EuroPallet() 
 		{
-			Do Result.Insert(..GeefEuroPallet())
+			Do Result.Insert(##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.PalletSpecifications).GeefEuroPallet())
 		} 
 		If PalletFormat = ##class(APPS.TRANSP.Stapeling.enu.PalletFormaat).WegwerpPallet() 
 		{
-			Do Result.Insert(..GeefWegwerpPallet())
+			Do Result.Insert(##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.PalletSpecifications).GeefWegwerpPallet())
 		}
 	}
 	Quit Result
@@ -182,64 +182,6 @@
 ]]></Implementation>
 </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="Stapelaar.EuroPallet"
-	Set Container.containerid="Stapelaar.EuroPallet"
-	Set Container.containertype="Rectangular"
-	Set Container.depth="1200.00"
-	Set Container.width="800.00"
-	Set Container.height="2070.00"
-	Set Container.maxweight="1200.00"
-	Set Container.settingsid="Default"
-	Set Container.backtofront="False" 
-	Set Container.bottomtotop="True" 
-	Set Container.loadbottomfirst="False"
-	Set Container.loadinlayers="True"
-	Set Container.spreadblocks="True"
-	Set Container.mixedlayers="True" 
-	Set Container.doorwidth="9999999.00"
-	Set Container.doorheight="9999999.00"
-	Set Container.valuemax="999999999.00"
-	
-	Quit Container
-]]></Implementation>
-</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="Stapelaar.WegwerpPallet"
-	Set Container.containerid="Stapelaar.WegwerpPallet"
-	Set Container.containertype="Rectangular"
-	Set Container.depth="1500.00"
-	Set Container.width="800.00"
-	Set Container.height="2070.00"
-	Set Container.maxweight="1200.00"
-	Set Container.settingsid="Default"
-	Set Container.backtofront="False" 
-	Set Container.bottomtotop="True" 
-	Set Container.loadbottomfirst="False"
-	Set Container.loadinlayers="True"
-	Set Container.spreadblocks="True"
-	Set Container.mixedlayers="True" 
-	Set Container.doorwidth="9999999.00"
-	Set Container.doorheight="9999999.00"
-	Set Container.valuemax="999999999.00"
-	
-	Quit Container
-]]></Implementation>
-</Method>
-
 <Method name="GeefSolution">
 <FormalSpec>Referentie:%String</FormalSpec>
 <Private>1</Private>