Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox.cls.xml	(revision 30547)
@@ -0,0 +1,118 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OptiBox">
+<Type>BL.Prod.OptiBox.Optimize</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	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()
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KartonSnijdenDoos">
+<FormalSpec>KartonSnijdenData:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData,WerklijstItemID:%String,IsRework:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	#dim mdParams As %String
+	Do ..MaakMultDimParams(.mdParams,KartonSnijdenData)
+	Do ..SnijDoos(KartonSnijdenData,WerklijstItemID,.mdParams)
+	;Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakMultDimParams">
+<FormalSpec><![CDATA[&mdParams:%String,KartonSnijdenData:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill mdParams
+	Set mdParams("BREEDTE") = KartonSnijdenData.Breedte
+	Set mdParams("DIEPTE") = KartonSnijdenData.Diepte
+	Set mdParams("HOOGTE") = KartonSnijdenData.Hoogte
+]]></Implementation>
+</Method>
+
+<Method name="SnijDoos">
+<FormalSpec><![CDATA[KartonSnijdenData:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData,WerklijstItemID:%String,&Params:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim CallBack As %List = $LB("APPS.Halux.PPS.Verpakking.impl.KartonSnijder", "CallBackOptimizer", WerklijstItemID)
+	#dim Status As %Status
+	
+	#dim ProxyStatus As BL.Sys.Proxy.pxStatus
+	Set ProxyStatus = ..OptiBox.OneBox(
+			KartonSnijdenData.DoosGroep,
+			KartonSnijdenData.DoosNaam,
+			.Params,
+			KartonSnijdenData.AantalDozen,
+			"T." _ KartonSnijdenData.ToeleveringID,
+			KartonSnijdenData.ProductID,
+			CallBack,
+			..GeefSnijPrioriteit(KartonSnijdenData, $$$False),   // UitvoeringInfo.IsRework 
+			0,		// PPSOutput
+			KartonSnijdenData.MachineID	
+			)
+			
+	If ProxyStatus.IsOK {
+		Set Status = $$$OK 
+	} Else {
+		Do ##class(vhLib.Logger).%New("Optibox").WarningMail("SnijDoos",ProxyStatus.FullMsg()_$C(13,10)_$C(13,10)_$$GetStackToString^vhLib.System())
+		Set Status = $$$ERROR($$$GeneralError, "Optimizer fout")
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefSnijPrioriteit">
+<FormalSpec>KartonSnijdenData:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData,IsRework:%Boolean</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $S(IsRework:7, 1: KartonSnijdenData.SnijPrioriteit)
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<FormalSpec>LODoosInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.LODoosUitvoeringInfo</FormalSpec>
+<ReturnType>%Status</ReturnType>
+</Method>
+
+<Method name="VerwerkLODoosUitvoeringInfo">
+<FormalSpec>LODoosInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.LODoosUitvoeringInfo</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill Params
+	Set Params("BREEDTE") = LODoosInfo.Breedte
+	Set Params("DIEPTE") = LODoosInfo.Diepte
+	Set Params("HOOGTE") = LODoosInfo.Hoogte
+	Set Params("BREEDTECP")= LODoosInfo.BreedteGeleidervak
+	Quit ..SnijDoos(LODoosInfo, .Params)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLadeDoosUitvoeringInfo">
+<FormalSpec>LadeDoosInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.LadeDoosUitvoeringInfo</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill Params
+	Set Params("BREEDTE") = LadeDoosInfo.Breedte
+	Set Params("DIEPTE") = LadeDoosInfo.Diepte
+	Set Params("HOOGTE") = LadeDoosInfo.Hoogte
+	Quit ..SnijDoos(LadeDoosInfo, .Params)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijder.cls.xml
===================================================================
diff -u -r30545 -r30547
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijder.cls.xml	(.../KartonSnijder.cls.xml)	(revision 30545)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijder.cls.xml	(.../KartonSnijder.cls.xml)	(revision 30547)
@@ -9,13 +9,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KartonSnijderOptiBox">
+<Type>APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SnijVisitor = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijVisitor).%New()
+	Set ..KartonSnijderOptiBox = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -45,10 +51,26 @@
 <Method name="VerwerkUitvoeringInfo">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonVoorLadeUitvoeringInfo</FormalSpec>
 <Implementation><![CDATA[
-	#dim Status As %Status = UitvoeringInfo.AcceptKartonVisitor(..SnijVisitor)
-	If (' $$$ISOK(Status) ) {
-		Set UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()
+	If UitvoeringInfo.%Extends(##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonVoorLadeUitvoeringInfo).%ClassName($$$True)) {
+		// Implementatie voor KartonVoorLadeUitvoeringInfo  (vorige versie) 
+		#dim Status As %Status = UitvoeringInfo.AcceptKartonVisitor(..SnijVisitor)
+		If (' $$$ISOK(Status) ) {
+			Set UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()
+		}
 	}
+	Else {
+		// Implementatie voor KartonSnijdenUitvoeringInfo  (nieuwe versie, met KartonSnijdenData als embedded object) 
+		Do ..KartonSnijderOptiBox.KartonSnijdenDoos(UitvoeringInfo.KartonSnijdenData, UitvoeringInfo.WerklijstItemID, UitvoeringInfo.IsRework)
+
+		; TO DO : KartonSnijderOptiBox binnen Try-Catch zetten 
+		Try {
+		}
+		Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Set UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()
+			; plus error loggen ... 
+		}
+	}
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/OptiBox/KartonSnijdenDoos/Test.cls.xml	(revision 30547)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox.KartonSnijdenDoos.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="KartonSnijderOptiBox">
+<Type>APPS.Halux.PPS.Verpakking.impl.KartonSnijder.OptiBox</Type>
+<Private>1</Private>
+</Property>
+
+<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")
+]]></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 IsRework As %Boolean = $$$False
+	Do ..KartonSnijderOptiBox.KartonSnijdenDoos(KartonSnijdenData, WerklijstItemID, IsRework)
+]]></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()
+	
+	Quit KartonSnijdenData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>