Index: BL/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r2588 -r2731
--- BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2588)
+++ BL/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2731)
@@ -234,6 +234,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(BatchNr)
+	. Do Batch.RaiseBatchGeslotenEvent()
 	If (Opties'="D") Do
 	. Set blDocsV1=##class(BL.PPS.TBX.DocsV1).%New()
 	. Do blDocsV1.Init(BatchID,"A")
@@ -267,6 +270,9 @@
 	If 'bl.ExistSequence() Do
 	. 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)
+	. Do Batch.RaiseBatchGeslotenEvent()
 	; 
 	Set bl=##class(BL.PPS.TBX.DocsV1).%New()
 	Do bl.Init(BatchID,ProdGrpBatch)