Index: vhTest/Fake/APPS/Halux/PPS/Verpakking/FalendeOptiBox.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/Verpakking/FalendeOptiBox.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/Verpakking/FalendeOptiBox.cls.xml	(revision 31380)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.Verpakking.FalendeOptiBox">
+<Super>TECH.RegisteredObject,BL.Prod.OptiBox.Optimize</Super>
+
+<Method name="OneBox">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[ObjType:%String,ObjRef:%String,&Params:%String,Qty:%Integer,BasisRef:%String,PRNr:%String,CallBack:%List,SnijPrioriteit:%String,PPSOutput:%String,MachineID:%String]]></FormalSpec>
+<ReturnType>BL.Sys.Proxy.pxStatus</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.Sys.Proxy.pxStatus).Create(0,"Fake_Falende_Message","Fake_Falende_Data","Fake_Falende_InternalMessage")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/TestException.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/TestException.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/TestException.cls.xml	(revision 31380)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.KartonSnijdenDoos.TestException">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.Halux.PPS.Verpakking.KartonEchtSnijden",$$$False,..#Applicatie)
+]]></Implementation>
+</Method>
+
+<Method name="TestMetSnijDoosException">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Fake_Falende_Message (Fake_Falende_InternalMessage)")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.SnijDoosException",Substrings))
+
+	Set KartonSnijdenDataDummy = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData).%New()
+	Set KartonSnijdenDataDummy.DoosNaam="V1 Doos met deksel"
+	Set KartonSnijdenDataDummy.DoosGroep = "TAORBOX"
+
+	Set FalendeOptiBoxOptimize = ##class(vhTest.Fake.APPS.Halux.PPS.Verpakking.FalendeOptiBox).%New()
+	Set KartonSnijderOptiBox = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox).%New(FalendeOptiBoxOptimize)
+
+	Do KartonSnijderOptiBox.KartonSnijdenDoos(KartonSnijdenDataDummy, "UT_WerklijstItemID", $$$False)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox.cls.xml
===================================================================
diff -u -r30763 -r31380
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 30763)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 31380)
@@ -9,6 +9,7 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>OptiBoxOptimize:BL.Prod.OptiBox.Optimize=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -17,7 +18,7 @@
 	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("APPS.Halux.PPS.Verpakking.KartonEchtSnijden")) {
 		Set ..OptiBox = ##class(BL.Prod.OptiBox.Optimize).%New()
 	} Else {
-		Set ..OptiBox = ##class(APPS.Halux.PPS.Verpakking.impl.LoggendeOptiBox).%New()
+		Set ..OptiBox = $$$Implementation(OptiBoxOptimize,##class(APPS.Halux.PPS.Verpakking.impl.LoggendeOptiBox).%New())
 	}
 	Quit $$$OK
 ]]></Implementation>
@@ -71,8 +72,8 @@
 			)
 	
 	If $$$Not(ProxyStatus.IsOK) {
-		Do ##class(vhLib.Logger).%New("Optibox").WarningMail("SnijDoos",ProxyStatus.FullMsg()_$C(13,10)_$C(13,10)_$$GetStackToString^vhLib.System())
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Optimizer fout: "_ProxyStatus.FullMsg())
+		Do ##class(vhLib.Logger).%New().WarningMail("OptiBox SnijDoos",ProxyStatus.FullMsg()_$$$CRLF_$$$CRLF_$$GetStackToString^vhLib.System())
+		Do ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.SnijDoosException).Throw("Optimizer fout: "_ProxyStatus.FullMsg())
 	}
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/SnijDoosException.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/SnijDoosException.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/SnijDoosException.cls.xml	(revision 31380)
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.SnijDoosException">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.GeneralErrorException</Super>
+</Class>
+
+
+</Export>