Index: vhTest/Utils/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/XML/Request/cubeiq.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/XML/Request/cubeiq.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/XML/Request/cubeiq.cls.xml	(revision 35758)
@@ -0,0 +1,253 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Geefcubeiq">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq</ReturnType>
+<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()
+	Set Requestcubeiq.containersettings = ..GeefcontainerSettings()
+	Do Requestcubeiq.containers.Insert(..GeefEuroPallet())
+	Do Requestcubeiq.containers.Insert(..GeefWegwerpPallet())
+	Set Requestcubeiq.solutions = ..GeefSolution()
+	Set Requestcubeiq.containerstoload = ..GeefContainersToLoad()
+	
+	Do Requestcubeiq.packages.Insert(..MaakPackage())
+	Do Requestcubeiq.packagestoload.Insert(..MaakPackageToLoad())
+	Set Requestcubeiq.orientations = ..MaakOrientations()
+	
+	Quit Requestcubeiq
+]]></Implementation>
+</Method>
+
+<Method name="MaakPackage">
+<ClassMethod>1</ClassMethod>
+<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.1"
+	Set cubeiqPackage.packageid = "DHL.package.1"
+	Set cubeiqPackage.length = "700"
+	Set cubeiqPackage.width = "300"
+	Set cubeiqPackage.height = "163"
+	Set cubeiqPackage.weight = "15.00"
+	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">
+<ClassMethod>1</ClassMethod>
+<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.1" 
+	Set cubeiqPackageToLoad.solutionid = "DHL.stapelaar.Solution"
+	Set cubeiqPackageToLoad.auto = "1"
+	Set cubeiqPackageToLoad.packageid = "DHL.package.1" 
+	Set cubeiqPackageToLoad.quantity = "2"
+	Set cubeiqPackageToLoad.batch = "#0#100#0"
+	Quit cubeiqPackageToLoad
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrientations">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Orientations As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim packageid As %String = "DHL.package.1"
+	Do Orientations.Insert(..MaakOrientation(packageid, "1", "700", "300", "163", "true"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "2", "300", "700", "163", "true"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "3", "300", "163", "700", "False"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "4", "163", "300", "700", "False"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "5", "163", "700", "300", "False"))
+	Do Orientations.Insert(..MaakOrientation(packageid, "6", "700", "163", "300", "False"))
+	Quit Orientations
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrientation">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>packageid:%String,orientationnum:%String,length:%String,width:%String,height:%String,allowed:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.orientation</ReturnType>
+<Implementation><![CDATA[
+	#dim Orientation As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.orientation = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.orientation).%New()
+	Set Orientation.packageid = packageid 
+	Set Orientation.orientationnum = orientationnum
+	Set Orientation.length = ##class(TECH.Format.impl.FormatAPI).%New().FormatNumber(length,2,".")
+	Set Orientation.width = ##class(TECH.Format.impl.FormatAPI).%New().FormatNumber(width,2,".")
+	Set Orientation.height = ##class(TECH.Format.impl.FormatAPI).%New().FormatNumber(height,2,".")  
+	Set Orientation.allowed = allowed 
+	Set Orientation.bottomonly = "False" 
+	Set Orientation.toponly = "False"
+	Quit Orientation
+]]></Implementation>
+</Method>
+
+<Method name="GeefCubeSetting">
+<ClassMethod>1</ClassMethod>
+<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>
+
+<Method name="GeefcontainerSettings">
+<ClassMethod>1</ClassMethod>
+<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()
+	Set ContainerSetting.id = "Default"
+	Set ContainerSetting.settingsid = "Default"
+	Set ContainerSetting.loadingmargin = "0"
+	Set ContainerSetting.maxruntime = "600"
+	Set ContainerSetting.maxnonimproveiters = "300"
+
+	Quit ContainerSetting
+]]></Implementation>
+</Method>
+
+<Method name="GeefEuroPallet">
+<ClassMethod>1</ClassMethod>
+<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="DHL.stapelaar.EuroPallet"
+	Set Container.containerid="DHL.stapelaar.EuroPallet"
+	Set Container.containertype="Rectangular"
+	Set Container.depth="1200.00"
+	Set Container.width="800.00"
+	Set Container.height="2200.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>
+<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="DHL.stapelaar.WegwerpPallet"
+	Set Container.containerid="DHL.stapelaar.WegwerpPallet"
+	Set Container.containertype="Rectangular"
+	Set Container.depth="1500.00"
+	Set Container.width="800.00"
+	Set Container.height="2200.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">
+<ClassMethod>1</ClassMethod>
+<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="GeefContainersToLoad">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	
+	#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 = "DHL.stapelaar.EuroPallet"
+	Set ContainerToLoad.containerid = "DHL.stapelaar.EuroPallet"
+	Set ContainerToLoad.solutionid = "DHL.stapelaar.Solution"
+	Set ContainerToLoad.auto = "0"
+	Set ContainerToLoad.containernum = "1"
+	Set ContainerToLoad.sequence = "1"
+	Do ContainersToLoad.Insert(ContainerToLoad)
+
+	Set ContainerToLoad = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.containertoload).%New()
+	Set ContainerToLoad.id = "DHL.stapelaar.WegwerpPallet"
+	Set ContainerToLoad.containerid = "DHL.stapelaar.WegwerpPallet"
+	Set ContainerToLoad.solutionid = "DHL.stapelaar.Solution"
+	Set ContainerToLoad.auto = "0"
+	Set ContainerToLoad.containernum = "2"
+	Set ContainerToLoad.sequence = "2"
+	Do ContainersToLoad.Insert(ContainerToLoad)
+	
+	Quit ContainersToLoad
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeDatum">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$FormatDateTime^vhLib("dd/mm/YYYY",$H)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(revision 0)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(revision 35758)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileUtils">
+<Type>TECH.File.FileUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileAPI:TECH.File.FileAPI="",FileUtils:TECH.File.FileUtils</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.Context).Instance().GeefFileAPI())
+	Set ..FileUtils = $$$Inject(FileUtils,##class(TECH.File.impl.FileUtils).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WriteRequest">
+<FormalSpec>Requestcubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(revision 35758)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter.WriteRequest.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ">
+<Implementation><![CDATA[
+	#dim FileAPIMock As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New()
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	#dim RequestWriter As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIMock, FileUtilsFake)
+	
+	#dim RequestcubeiqDummy As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq = ##class(vhTest.Utils.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq).Geefcubeiq()
+	Do RequestWriter.WriteRequest(RequestcubeiqDummy)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>