Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2817 -r2821
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2817)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2821)
@@ -238,6 +238,8 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set D="\",U=";",Q="K"
+	Set DT=$$EXTDATE^vhDTyp($H,"DKP")
+	Set %Q1=$na(^TEMP("%1",$J))
 	Set Aktie=Verantwoordelijke
  	Set Ref=Omschrijving
 	Do STORE^PRSTOCK("W",Aktie,PlaatPRNr,-Lengte,Ref)
Index: CHUI/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r2809 -r2821
--- CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2809)
+++ CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2821)
@@ -830,7 +830,7 @@
 	
 	Set BatchService=##class(APPS.Halux.common.BatchService).%New()
 	Set Batch=BatchService.GeefBatch(BatchNr)
-	Do Batch.ZetHergeopend()
+	Do Batch.RaiseBatchHergeopendEvent()
 	
 	Do ..ToonHeader()
 	Do ..Write()
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()
Index: WS/Halux/PPS/TBXZaagServer.cls.xml
===================================================================
diff -u -r2817 -r2821
--- WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 2817)
+++ WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 2821)
@@ -224,13 +224,13 @@
 <br/> De Reden bevat zowel de verantwoordelijke als de omschrijving van de reden (met ";" gescheiden)
 <br/> Als rework wordt true is dan wordt er een nieuwe zaagopdracht toegevoegd aan een batch.
 <br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
-<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.common.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Rework:%Boolean,Reden:%String</FormalSpec>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.common.enu.Werkpost,ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,HerwerkNaarLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Reden:%String</FormalSpec>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Do ..GeefImplementatie(SessionKey, Werkpost)
-	
-	Do ..iWerkpost.BeschadigingViaOpdracht(ZaagID,BodemOfRug,$P(Reden,";"),$P(Reden,";",2),Rework)
+	Set HerwerkNaarLijn=""
+	Do ..iWerkpost.BeschadigingViaOpdracht(ZaagID,BodemOfRug,$P(Reden,";"),$P(Reden,";",2),HerwerkNaarLijn)
 ]]></Implementation>
 </Method>
 
@@ -245,7 +245,7 @@
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Do ..GeefImplementatie(SessionKey, Werkpost)
-	Do ..iWerkpost.BeschadigingPlaat(PlaatPRNr,Lengte,Reden)
+	Do ..iWerkpost.BeschadigingPlaat(PlaatPRNr,Lengte,$P(Reden,";"),$P(Reden,";",2))
 ]]></Implementation>
 </Method>