Index: BL/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r2731 -r2821
--- BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2731)
+++ BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2821)
@@ -209,6 +209,9 @@
 	. Set Text=Text_"~Aantal lege vakken : "_$G(QtyEmpty)
 	. Set:$G(QtyLade)+$G(QtyEmpty) Text=Text_"~Bezettingsgraad    : "_$J($G(QtyLade)/($G(QtyLade)+$G(QtyEmpty))*100,0,2)_"%"
 	. Set Text=Text_"~Aantal VHossen     : "_$G(QtyVHoss)
+	. Set BatchService=##class(APPS.Halux.common.BatchService).%New()
+	. Set Batch=BatchService.GeefBatch(BatchID)
+	. Do Batch.RaiseBatchGeslotenEvent()
 	;
 	Set blProplus=##class(BL.PPS.TBX.DocsProPlus).%New()
 	Do blProplus.Init(BatchID,"+")
@@ -235,7 +238,7 @@
 	. Set:$G(QtyLade)+$G(QtyEmpty) Text=Text_"~Bezettingsgraad    : "_$J($G(QtyLade)/($G(QtyLade)+$G(QtyEmpty))*100,0,2)_"%"
 	. Set Text=Text_"~Aantal VHossen     : "_$G(QtyVHoss)
 	. Set BatchService=##class(APPS.Halux.common.BatchService).%New()
-	. Set Batch=BatchService.GeefBatch(BatchNr)
+	. Set Batch=BatchService.GeefBatch(BatchID)
 	. Do Batch.RaiseBatchGeslotenEvent()
 	If (Opties'="D") Do
 	. Set blDocsV1=##class(BL.PPS.TBX.DocsV1).%New()
@@ -271,7 +274,7 @@
 	. Do bl.BldLeanV1Sequence(.QtyLade) ; start with optimisation
 	. Set Text=Text_"~Aantal laden       : "_$G(QtyLade)
 	. Set BatchService=##class(APPS.Halux.common.BatchService).%New()
-	. Set Batch=BatchService.GeefBatch(BatchNr)
+	. Set Batch=BatchService.GeefBatch(BatchID)
 	. Do Batch.RaiseBatchGeslotenEvent()
 	; 
 	Set bl=##class(BL.PPS.TBX.DocsV1).%New()