Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bereken/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bereken/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bereken/Test.cls.xml	(revision 36000)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.PallettenBepaler.Bereken.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: schrijft optiboxbestand aan de hand van CollisOpPallet">
+<Implementation><![CDATA[
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	#dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New(FileUtilsFake)
+	#dim RequestWriter As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake)
+
+	#dim StapelingBepaler As APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New(,, RequestWriter)
+
+	#dim ColliOpPalletDummy As APPS.TRANSP.Stapeling.dto.CollisOpPallet = ##class(vhTest.Utils.APPS.TRANSP.Stapeling.dto.CollisOpPallet).GeefCollisOpPallet()
+	Set ColliOpPalletDummy.Referentie = "UniekeSleutel"	
+	Do StapelingBepaler.Bereken(ColliOpPalletDummy)
+	
+	#dim XMlStream As %Stream = FileAPIFake.GeefFileWriter().GeefInhoudBestandNaam(..GeefBestandVolledigNaam())
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<cubeiq>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<settings>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<setting id=""Default"" maxnumdecimals=""2"" maxblocksize=""128"" lengthunit=""mm"" volumeunit=""mm3"" weightunit=""kg"" companyname=""Van Hoecke"" drawasblockslimit=""1"" createpackageid=""False""></setting>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</settings>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<containersettings>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<containersetting id=""Default"" settingsid=""Default"" loadingmargin=""0"" maxruntime=""600"" maxnonimproveiters=""300""></containersetting>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</containersettings>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<containers>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<container bottomtotoploading=""True"" partialloadonfloor=""True"" id=""Stapelaar.EuroPallet"" containerid=""Stapelaar.EuroPallet"" containertype=""Rectangular"" depth=""1200.00"" width=""800.00"" height=""2200.00"" maxweight=""1200.00"" settingsid=""Default"" backtofront=""False"" bottomtotop=""True"" loadbottomfirst=""False"" loadinlayers=""True"" spreadblocks=""True"" mixedlayers=""True"" doorwidth=""9999999.00"" doorheight=""9999999.00"" valuemax=""999999999.00""></container>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<container bottomtotoploading=""True"" partialloadonfloor=""True"" id=""Stapelaar.WegwerpPallet"" containerid=""Stapelaar.WegwerpPallet"" containertype=""Rectangular"" depth=""1500.00"" width=""800.00"" height=""2200.00"" maxweight=""1200.00"" settingsid=""Default"" backtofront=""False"" bottomtotop=""True"" loadbottomfirst=""False"" loadinlayers=""True"" spreadblocks=""True"" mixedlayers=""True"" doorwidth=""9999999.00"" doorheight=""9999999.00"" valuemax=""999999999.00""></container>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</containers>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<packages>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<package id=""Package.1"" packageid=""Package.1"" length=""700"" width=""300"" height=""163"" weight=""15.00"" turnable=""False"" sideupok=""False"" endupok=""True"" bottomonly=""False"" toponly=""False"" colour=""#255#0#0"" deletewithsolution=""True"" packagetype=""Box""></package>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</packages>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<orientations>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<orientation packageid=""Package.1"" orientationnum=""1"" length=""700.00"" width=""300.00"" height=""163.00"" allowed=""true"" bottomonly=""False"" toponly=""False""></orientation>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<orientation packageid=""Package.1"" orientationnum=""2"" length=""300.00"" width=""700.00"" height=""163.00"" allowed=""true"" bottomonly=""False"" toponly=""False""></orientation>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<orientation packageid=""Package.1"" orientationnum=""3"" length=""300.00"" width=""163.00"" height=""700.00"" allowed=""False"" bottomonly=""False"" toponly=""False""></orientation>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<orientation packageid=""Package.1"" orientationnum=""4"" length=""163.00"" width=""300.00"" height=""700.00"" allowed=""False"" bottomonly=""False"" toponly=""False""></orientation>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<orientation packageid=""Package.1"" orientationnum=""5"" length=""163.00"" width=""700.00"" height=""300.00"" allowed=""False"" bottomonly=""False"" toponly=""False""></orientation>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<orientation packageid=""Package.1"" orientationnum=""6"" length=""700.00"" width=""163.00"" height=""300.00"" allowed=""False"" bottomonly=""False"" toponly=""False""></orientation>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</orientations>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<solutions>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</solutions>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<containerstoload>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<containertoload id=""Stapelaar.EuroPallet"" solutionid=""Stapelaar.Solution"" auto=""0"" containerid=""Stapelaar.EuroPallet"" containernum=""1"" sequence=""1""></containertoload>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<containertoload id=""Stapelaar.WegwerpPallet"" solutionid=""Stapelaar.Solution"" auto=""0"" containerid=""Stapelaar.WegwerpPallet"" containernum=""2"" sequence=""2""></containertoload>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</containerstoload>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<packagestoload>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "<packagetoload id=""Packagetoload.1"" solutionid=""Stapelaar.Solution"" auto=""1"" packageid=""Package.1"" quantity=""2"" batch=""#0#100#0""></packagetoload>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</packagestoload>"))
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream, "</cubeiq>"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandVolledigNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Files).AppendFile(..GeefLocatie(),"Stapelaar_UniekeSleutel.xml")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("OptiBoxBigPath")
+	Quit ##class(TECH.Files).AppendSubPath(BestandLocatie,"\Cube_IQ_InputFolder\")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r35996 -r36000
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 35996)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 36000)
@@ -3,19 +3,31 @@
 <Class name="APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="OptiboxRequestComposer">
+<Type>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OptiboxRequestWriter">
+<Type>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="StapelingRepository">
 <Type>APPS.TRANSP.Offerte.impl.DHL.StapelingRepository</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>StapelingRepository:APPS.TRANSP.Offerte.impl.DHL.StapelingRepository</FormalSpec>
+<FormalSpec>StapelingRepository:APPS.TRANSP.Offerte.impl.DHL.StapelingRepository,OptiboxRequestComposer:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer,OptiboxRequestWriter:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..StapelingRepository = $$$Inject(StapelingRepository,##class(APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New())
+	Set ..OptiboxRequestComposer = $$$Inject(OptiboxRequestComposer, ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer).%New())
+	Set ..OptiboxRequestWriter = $$$Inject(OptiboxRequestWriter, ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -45,7 +57,9 @@
 </Method>
 
 <Method name="Bereken">
-<Implementation><![CDATA[]]></Implementation>
+<FormalSpec>CollisOpPallet:APPS.TRANSP.Stapeling.dto.CollisOpPallet</FormalSpec>
+<Implementation><![CDATA[	Do ..OptiboxRequestWriter.WriteRequest(CollisOpPallet.Referentie, ..OptiboxRequestComposer.Compose(CollisOpPallet))
+]]></Implementation>
 </Method>
 </Class>
 
Index: vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml
===================================================================
diff -u -r35955 -r36000
--- vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 35955)
+++ vhUnitTest/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter/WriteRequest/Test.cls.xml	(.../Test.cls.xml)	(revision 36000)
@@ -14,7 +14,6 @@
 	
 	#dim XMlStream As %Stream = FileAPIFake.GeefFileWriter().GeefInhoudBestandNaam(..GeefBestandVolledigNaam())
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"cubeiq"))
-	Do ..GeefBestandLocatie()
 ]]></Implementation>
 </Method>