Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml
===================================================================
diff -u -r68929 -r69113
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 68929)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 69113)
@@ -83,7 +83,7 @@
 	
 	Try {
 		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-		Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, UitvoeringInfo.ProductID, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit), UitvoeringInfo.WerklijstItemID)	
+		Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, UitvoeringInfo.ProductID, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit), "T." _ UitvoeringInfo.ToeleveringID, CallBack)	
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. Doosgroep: '"_UitvoeringInfo.DoosGroep_"', DoosNaam: '"_ UitvoeringInfo.DoosNaam _", PRNr: '"_ UitvoeringInfo.ProductID _"', MachineID: '"_ UitvoeringInfo.MachineID _"'."_Exception.GeefOmschrijving())