Index: vhTestFiles/UnitTests/APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.KartonSnijdenDoos/Test/Test/OptiboxRequests.txt
===================================================================
diff -u
--- vhTestFiles/UnitTests/APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.KartonSnijdenDoos/Test/Test/OptiboxRequests.txt	(revision 0)
+++ vhTestFiles/UnitTests/APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.KartonSnijdenDoos/Test/Test/OptiboxRequests.txt	(revision 30706)
@@ -0,0 +1,23 @@
+Method : SetLocation
+Param1 : http://optiboxDEV/PanOptimizerWS
+
+Method : QueueOptimization
+Param1 : <OPTIREQ>
+  <BOX>
+    <BOXDEF>
+      <BOXSELECT>TAORBOX V1 BOTTOM-LID</BOXSELECT>
+      <DEPTH>444</DEPTH>
+      <HEIGHT>111</HEIGHT>
+      <LEVEL>BIT</LEVEL>
+      <OPTITYPE>BOX</OPTITYPE>
+      <PLACE>PALLET</PLACE>
+      <PRODUCT>OL.UTPROD00</PRODUCT>
+      <REF>T.UT_ToeleveringID.1</REF>
+      <ROTATE>XZF</ROTATE>
+      <WEIGHT>0</WEIGHT>
+      <WIDTH>777</WIDTH>
+    </BOXDEF>
+  </BOX>
+  <PRIORITY>9</PRIORITY>
+  <SERVER>ServerName</SERVER>
+</OPTIREQ>
Index: vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/Test.cls.xml
===================================================================
diff -u -r30547 -r30706
--- vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/Test.cls.xml	(.../Test.cls.xml)	(revision 30547)
+++ vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/Test.cls.xml	(.../Test.cls.xml)	(revision 30706)
@@ -3,38 +3,139 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.KartonSnijdenDoos.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="TestProductID">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Parameter name="DummyToeleveringID">
+<Type>%String</Type>
+<Default>UT_ToeleveringID</Default>
+</Parameter>
+
+<Parameter name="DummyWerklijstItemID">
+<Type>%String</Type>
+<Default>UT_WerklijstItemID</Default>
+</Parameter>
+
 <Property name="KartonSnijderOptiBox">
 <Type>APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="objTestData">
+<Type>vhUnitTest.DOM.PM.TestData</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OptimizeService">
+<Type>APPS.Halux.PPS.Verpakking.OptimizeService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super()
+	Do ..ResetPersistentData()
+	Set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
+	Do ..CreateTestData()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..CleanUpTestData()
+	Do ..UndoResetPersistentData()
+	Do ##super()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	Set ..KartonSnijderOptiBox = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox).%New()
 
-	do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.Halux.PPS.Verpakking.KartonEchtSnijden",$$$false,"vhUnitTest")
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.Halux.PPS.Verpakking.KartonEchtSnijden",$$$true,..#Applicatie)
+	#dim VerpakkingAPI As vhTest.Mock.APPS.Halux.PPS.Verpakking.VerpakkingAPI = ##class(vhTest.Mock.APPS.Halux.PPS.Verpakking.VerpakkingAPI).MockInstance()
+	Set ..OptimizeService = ##class(vhTest.Fake.APPS.Halux.PPS.Verpakking.RequestsLoggendeOptimizeService).%New()
+	Do VerpakkingAPI.IndienMethodCall("GeefOptimizeService").DanReturn(..OptimizeService)
+
+	Do ##class(vhTest.Fake.TECH.System.SystemAPI).Activeer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test">
 <Implementation><![CDATA[
 	#dim KartonSnijdenData As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData = ..GeefKartonSnijdenData()
-	#dim WerklijstItemID As %String = "UT_WerklijstItemID"
+	#dim WerklijstItemID As %String = ..#DummyWerklijstItemID
 	#dim IsRework As %Boolean = $$$False
 	Do ..KartonSnijderOptiBox.KartonSnijdenDoos(KartonSnijdenData, WerklijstItemID, IsRework)
+
+	Do ..DataExporteerder.ExporteerStream(..OptimizeService.GetRequestsAsStream(),"OptiboxRequests")
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie(""))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKartonSnijdenData">
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData</ReturnType>
 <Implementation><![CDATA[
 	Set KartonSnijdenData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData).%New()
-	
+	Set KartonSnijdenData.DoosGroep = "TAORBOX"
+	Set KartonSnijdenData.DoosNaam = "V1 Bodem en deksel"
+	Set KartonSnijdenData.ToeleveringID = ..#DummyToeleveringID
+	Set KartonSnijdenData.ProductID = ..#TestProductID
+	Set KartonSnijdenData.KartonSpecificatie = ..MaakBodemDoosKartonSpecificatie(777,444,111)
 	Quit KartonSnijdenData
 ]]></Implementation>
 </Method>
+
+<Method name="MaakBodemDoosKartonSpecificatie">
+<FormalSpec>Breedte:%Numeric,Diepte:%Numeric,Hoogte:%Numeric</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Verpakking.dto.KartonSpecificatieBase</ReturnType>
+<Implementation><![CDATA[
+	#dim BenamingVerpakkingsOnderdeel As DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).Bodem()
+	#dim KartonSamenstelling As DOM.PM.Verpakking.enu.KartonSamenstelling = ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun()
+	
+	Set KartonSpecificatie = ##class(DOM.PM.Verpakking.dto.KartonSpecificatieSerial).%New()
+	Set KartonSpecificatie.BenamingVerpakkingsOnderdeel = BenamingVerpakkingsOnderdeel
+	Set KartonSpecificatie.KartonSamenstelling = KartonSamenstelling
+	Set KartonSpecificatie.Volume.Breedte = Breedte
+	Set KartonSpecificatie.Volume.Diepte = Diepte
+	Set KartonSpecificatie.Volume.Hoogte = Hoogte
+	Set KartonSpecificatie.NodigeLengte=""    ; Niet van toepassing 
+	Set KartonSpecificatie.NodigeBreedte=""   ; Niet van toepassing 
+	Quit KartonSpecificatie
+]]></Implementation>
+</Method>
+
+<Method name="CreateTestData">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..objTestData.CreeerTestData(1000,1000)
+]]></Implementation>
+</Method>
+
+<Method name="CleanUpTestData">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..objTestData.VerwijderTestData(1000,1000)
+]]></Implementation>
+</Method>
+
+<Method name="ResetPersistentData">
+<Implementation><![CDATA[	do ##class(vhTest.Utils.PersistentDataResetter).Reset()
+]]></Implementation>
+</Method>
+
+<Method name="UndoResetPersistentData">
+<Private>1</Private>
+<Implementation><![CDATA[	do ##class(vhTest.Utils.PersistentDataResetter).UndoReset()
+]]></Implementation>
+</Method>
 </Class>