Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijder.cls.xml
===================================================================
diff -u -r29059 -r30545
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijder.cls.xml	(.../KartonSnijder.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijder.cls.xml	(.../KartonSnijder.cls.xml)	(revision 30545)
@@ -52,37 +52,32 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-// TODOPA enumeraties voor status en type maken
-
-]]></Content>
-</UDLText>
-
 <Method name="CallBackOptimizer">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ObjType,ObjRef,WerklijstItemID:%String,OptiID,Type,Status,Message</FormalSpec>
+<FormalSpec>ObjType:%String,ObjRef:%String,WerklijstItemID:%String,OptiID:%String,qType:BL.Prod.OptiBox.enu.QueueType,Status:BL.Prod.OptiBox.enu.QueueStatus,Message:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Logger = ##class(vhLib.Logger).%New("HALUX.KARTON")
-	Do Logger.Debug("CallBack kartonsnijder", "WerklijstItem: " _ WerklijstItemID _ " ObjType: " _ ObjType _ " ObjRef: " _ ObjRef _ " OptiID: " _ OptiID _ " Type: " _ Type _ " Status: " _ Status _ " Message: " _ Message)
-	#dim WerklijstItem As  APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(WerklijstItemID)
-	If (Type = $$$qtOptimizer) {
+	Do Logger.Debug("CallBack kartonsnijder", "WerklijstItem: " _ WerklijstItemID _ " ObjType: " _ ObjType _ " ObjRef: " _ ObjRef _ " OptiID: " _ OptiID _ " Type: " _ qType _ " Status: " _ Status _ " Message: " _ Message)
+	
+	#dim TeWijzigenSnijStatus As APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus = ""
+	#dim IsSnijOpdrachtUitgevoerd As %Boolean = $$$False
+	If (qType = $$$qtOptimizer) {
 		If (Status = $$$qsFinished) {
-			Set WerklijstItem.UitvoeringInfo.SnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Geoptimaliseerd()
+			Set TeWijzigenSnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Geoptimaliseerd()
 		} Else {
-			Set WerklijstItem.UitvoeringInfo.SnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Fout()
+			Set TeWijzigenSnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Fout()
 		}
-	} ElseIf (Type = $$$qtSnijden) {
+	} ElseIf (qType = $$$qtSnijden) {
 		If (Status = $$$qsFinished) {
-			Set WerklijstItem.Status = ##class(APPS.Halux.PPS.enu.WerklijstItemStatus).Uitgevoerd()
-			Set WerklijstItem.UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
-			Set WerklijstItem.UitvoeringInfo.SnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Klaar()
+			Set TeWijzigenSnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Klaar()
+			Set IsSnijOpdrachtUitgevoerd = $$$True
 		} Else {
-			Set WerklijstItem.UitvoeringInfo.SnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Fout()
+			Set TeWijzigenSnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Fout()
 		}
-	}		
-	Set WerklijstItem.TijdstipLaatsteWijziging = ##class(TECH.DateTime).CurrentTimeStamp()
-	Do WerklijstItem.Save()
+	}
+
+	Set WerklijstItemStatusUpdater = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater).%New()
+	Do WerklijstItemStatusUpdater.UpdateWerklijstItemStatusViaID(WerklijstItemID,IsSnijOpdrachtUitgevoerd,TeWijzigenSnijStatus)
 ]]></Implementation>
 </Method>
 </Class>