Index: vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/Test.cls.xml
===================================================================
diff -u -r30732 -r30740
--- vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/Test.cls.xml	(.../Test.cls.xml)	(revision 30732)
+++ vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/Test.cls.xml	(.../Test.cls.xml)	(revision 30740)
@@ -71,7 +71,7 @@
 
 <Method name="TestLosseComponent">
 <Implementation><![CDATA[
-	#dim KartonSnijdenData As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData = ..GeefKartonSnijdenData()
+	#dim KartonSnijdenData As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData = ..GeefKartonSnijdenData("V1 Bodem en deksel")
 	#dim WerklijstItemID As %String = ..#DummyWerklijstItemID
 	#dim IsRework As %Boolean = $$$False
 	Do ..AssertKartonSnijderOptiBox(KartonSnijdenData, WerklijstItemID, IsRework)
@@ -94,46 +94,44 @@
 
 <Method name="TestV1LosseOnderdelenDoos">
 <Implementation><![CDATA[
-	#dim KartonSnijdenData As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData = ..GeefKartonSnijdenData()
+	#dim KartonSnijdenData As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData = ..GeefKartonSnijdenData("V1 LosseOnderdelen")
 	#dim WerklijstItemID As %String = ..#DummyWerklijstItemID
 	#dim IsRework As %Boolean = $$$False
 	
+	// Andere afmetingen om de verschillende testcases te kunnen onderscheiden
+	Set KartonSnijdenData.KartonSpecificatie.Volume.Breedte = KartonSnijdenData.KartonSpecificatie.Volume.Breedte+1
+	Set KartonSnijdenData.KartonSpecificatie.Volume.Diepte = KartonSnijdenData.KartonSpecificatie.Volume.Diepte+1
+	Set KartonSnijdenData.KartonSpecificatie.Volume.Hoogte = KartonSnijdenData.KartonSpecificatie.Volume.Hoogte+1
+	
 	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LODoosUitvoeringInfo).%New()
 	Set UitvoeringInfo.BreedteGeleidervak = 30
 	Set UitvoeringInfo.AantalDozen = 1
-	Set UitvoeringInfo.Breedte = KartonSnijdenData.KartonSpecificatie.Volume.Breedte+1
-	Set UitvoeringInfo.Diepte = KartonSnijdenData.KartonSpecificatie.Volume.Diepte+1
-	Set UitvoeringInfo.Hoogte = KartonSnijdenData.KartonSpecificatie.Volume.Hoogte+1
+	Set UitvoeringInfo.Breedte = KartonSnijdenData.KartonSpecificatie.Volume.Breedte
+	Set UitvoeringInfo.Diepte = KartonSnijdenData.KartonSpecificatie.Volume.Diepte
+	Set UitvoeringInfo.Hoogte = KartonSnijdenData.KartonSpecificatie.Volume.Hoogte
 	Set UitvoeringInfo.DoosGroep = KartonSnijdenData.DoosGroep
-	Set UitvoeringInfo.DoosNaam = "V1 LosseOnderdelen"   ; KartonSnijdenData.DoosNaam
+	Set UitvoeringInfo.DoosNaam = KartonSnijdenData.DoosNaam
 	Set UitvoeringInfo.IsRework = IsRework
 	Set UitvoeringInfo.ProductID = KartonSnijdenData.ProductID
 	Set UitvoeringInfo.ToeleveringID = KartonSnijdenData.ToeleveringID
 	Set UitvoeringInfo.WerklijstItemID = WerklijstItemID
-
+	
 	Do ..AssertKartonSnijderOudeWijze(UitvoeringInfo)
 ]]></Implementation>
 </Method>
 
 <Method name="TestV1LadeDoos">
 <Implementation><![CDATA[
-	#dim KartonSnijdenData As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData = ..GeefKartonSnijdenData()
+	#dim KartonSnijdenData As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData = ..GeefKartonSnijdenData("V1 Doos met deksel")
 	#dim WerklijstItemID As %String = ..#DummyWerklijstItemID
 	#dim IsRework As %Boolean = $$$False
-	
-	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosUitvoeringInfo).%New()
-	Set UitvoeringInfo.AantalDozen = 1
-	Set UitvoeringInfo.Breedte = KartonSnijdenData.KartonSpecificatie.Volume.Breedte+2
-	Set UitvoeringInfo.Diepte = KartonSnijdenData.KartonSpecificatie.Volume.Diepte+2
-	Set UitvoeringInfo.Hoogte = KartonSnijdenData.KartonSpecificatie.Volume.Hoogte+2
-	Set UitvoeringInfo.DoosGroep = KartonSnijdenData.DoosGroep
-	Set UitvoeringInfo.DoosNaam = "V1 Doos met deksel"   ; KartonSnijdenData.DoosNaam
-	Set UitvoeringInfo.IsRework = IsRework
-	Set UitvoeringInfo.ProductID = KartonSnijdenData.ProductID
-	Set UitvoeringInfo.ToeleveringID = KartonSnijdenData.ToeleveringID
-	Set UitvoeringInfo.WerklijstItemID = WerklijstItemID
 
-	Do ..AssertKartonSnijderOudeWijze(UitvoeringInfo)
+	// Andere afmetingen om de verschillende testcases te kunnen onderscheiden
+	Set KartonSnijdenData.KartonSpecificatie.Volume.Breedte = KartonSnijdenData.KartonSpecificatie.Volume.Breedte+2
+	Set KartonSnijdenData.KartonSpecificatie.Volume.Diepte = KartonSnijdenData.KartonSpecificatie.Volume.Diepte+2
+	Set KartonSnijdenData.KartonSpecificatie.Volume.Hoogte = KartonSnijdenData.KartonSpecificatie.Volume.Hoogte+2
+	
+	Do ..AssertKartonSnijderOptiBox(KartonSnijdenData, WerklijstItemID, IsRework)
 ]]></Implementation>
 </Method>
 
@@ -145,28 +143,30 @@
 
 	#dim ExportSubfolder As %String = ""
 	Do ..DataExporteerder.ExporteerStream(..OptimizeService.GetRequestsAsStream(),"OptiboxRequests",ExportSubfolder)
-	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie(""))
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
 <Method name="AssertKartonSnijderOudeWijze">
-<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonVoorLadeUitvoeringInfo,ExportSubfolder:%String=""</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonVoorLadeUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder).%New().VerwerkUitvoeringInfo(UitvoeringInfo)  ; .KartonSnijdenDoos(KartonSnijdenData, WerklijstItemID, IsRework)
 
+	#dim ExportSubfolder As %String = ""
 	Do ..DataExporteerder.ExporteerStream(..OptimizeService.GetRequestsAsStream(),"OptiboxRequests",ExportSubfolder)
-	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie(""))
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKartonSnijdenData">
+<FormalSpec>DoosNaam:%String</FormalSpec>
 <Private>1</Private>
 <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.DoosNaam = DoosNaam
 	Set KartonSnijdenData.ToeleveringID = ..#DummyToeleveringID
 	Set KartonSnijdenData.ProductID = ..#TestProductID
 	Set KartonSnijdenData.KartonSpecificatie = ..MaakBodemDoosKartonSpecificatie(777,444,111)