Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r3147 -r3180
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 3147)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 3180)
@@ -238,7 +238,7 @@
 <FormalSpec>PlaatPRNr:%Integer,Lengte:%Float,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Set Log=..Logger.Debug("BeschadigingPlaat", "PRNr:"_$G(ZaagID)_", Lengte:"_Lengte_", Verantw:"_Verantwoordelijke_", Oms:"_Omschrijving)
+	Set Log=..Logger.Debug("BeschadigingPlaat", "PRNr:"_$G(PlaatPRNr)_", Lengte:"_Lengte_", Verantw:"_Verantwoordelijke_", Oms:"_Omschrijving)
 	Set D="\",U=";",Q="K"
 	Set DT=$$EXTDATE^vhDTyp($H,"DKP")
 	Set %Q1=$na(^TEMP("%1",$J))
Index: APPS/Halux/PPS/TBXZaag/impl/BeschadigingHelper.cls.xml
===================================================================
diff -u -r2817 -r3180
--- APPS/Halux/PPS/TBXZaag/impl/BeschadigingHelper.cls.xml	(.../BeschadigingHelper.cls.xml)	(revision 2817)
+++ APPS/Halux/PPS/TBXZaag/impl/BeschadigingHelper.cls.xml	(.../BeschadigingHelper.cls.xml)	(revision 3180)
@@ -31,7 +31,7 @@
 	Do ..Voegtoe(Grp,"Zaag",Verantw_";Zaag")
 	Do ..Voegtoe(Grp,"Rugwand",Verantw_";Rugwand")
 	Do ..Voegtoe(Grp,"Montage",Verantw_";Montage")
-	Do ..Voegtoe(Grp,"Verpakking",Verantw_"o;Verpakking")
+	Do ..Voegtoe(Grp,"Verpakking",Verantw_";Verpakking")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Opvolging/dto/StilstandLijstElement.cls.xml
===================================================================
diff -u -r2467 -r3180
--- APPS/Halux/Opvolging/dto/StilstandLijstElement.cls.xml	(.../StilstandLijstElement.cls.xml)	(revision 2467)
+++ APPS/Halux/Opvolging/dto/StilstandLijstElement.cls.xml	(.../StilstandLijstElement.cls.xml)	(revision 3180)
@@ -23,7 +23,7 @@
 <Implementation><![CDATA[
 	Set ..Groep=Groep
 	Set ..Omschrijving=Omschrijving
-	Set ..Code=$S(Code="":Omschrijving,1:Omschrijving)
+	Set ..Code=$S(Code="":Omschrijving,1:Code)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml
===================================================================
diff -u -r2875 -r3180
--- APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2875)
+++ APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 3180)
@@ -22,6 +22,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="Lengte">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="Kleuren">
 <Type>%String</Type>
 </Property>
@@ -49,6 +53,7 @@
 	Set dtoPlaat.Hoogte=Plaat.GeefDiepte()
 	Set dtoPlaat.HoogteOms=Plaat.GeefDiepteVanLade()
 	Set dtoPlaat.HoogteEnKleurOms=Plaat.GeefDiepte()_" "_dtoPlaat.Kleuren_" "_$S(Plaat.GeefFSC()="GEEN":"",1:"FSC")
+	Set dtoPlaat.Lengte=Plaat.GeefBreedte()
 	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
 	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
 	Set dtoPlaat.ImageURL=Plaat.GeefBiKleurenImageURL()
@@ -73,6 +78,7 @@
 	Set dtoPlaat.Hoogte=Plaat.GeefHoogte()
 	Set dtoPlaat.HoogteOms=Plaat.GeefHoogteVanLade()_" "_dtoPlaat.Hoogte
 	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren_" "_$S(Plaat.GeefFSC()="GEEN":"",1:"FSC")
+	Set dtoPlaat.Lengte=Plaat.GeefBreedte()
 	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
 	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
 	Set dtoPlaat.ImageURL=Plaat.GeefBiKleurenImageURL()
@@ -99,7 +105,7 @@
 
 <Method name="GeefRij">
 <ReturnType>%List</ReturnType>
-<Implementation><![CDATA[ Quit $LB(..Type,..HoogteEnKleurOms,..HoogteOms, ..Kleuren, ..ProductNr, ..KortTekst,..ImageURL,..Hoogte)
+<Implementation><![CDATA[ Quit $LB(..Type,..HoogteEnKleurOms,..HoogteOms, ..Kleuren, ..ProductNr, ..KortTekst,..ImageURL,..Hoogte,..Lengte)
 ]]></Implementation>
 </Method>
 </Class>
Index: WS/Halux/PPS/TBXZaagServer.cls.xml
===================================================================
diff -u -r2825 -r3180
--- WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 2825)
+++ WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 3180)
@@ -229,7 +229,6 @@
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Do ..GeefImplementatie(SessionKey, Werkpost)
-	Set HerwerkNaarLijn=""
 	Do ..iWerkpost.BeschadigingViaOpdracht(ZaagID,BodemOfRug,$P(Reden,";"),$P(Reden,";",2),HerwerkNaarLijn)
 ]]></Implementation>
 </Method>
@@ -311,8 +310,11 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Quit:Session'=..#SessionKey $$$ERROR("Foutieve sessie: "_Session)
-	Quit:Werkpost'=##class(APPS.Halux.common.enu.Werkpost).Zaag1() $$$ERROR("Foutieve werkpost: "_Werkpost)
+	If ##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()="PROD"
+	{
+		Quit:Session'=..#SessionKey $$$ERROR("Foutieve sessie: "_Session)
+		Quit:Werkpost'=##class(APPS.Halux.common.enu.Werkpost).Zaag1() $$$ERROR("Foutieve werkpost: "_Werkpost)
+	}
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml
===================================================================
diff -u -r3147 -r3180
--- APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 3147)
+++ APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 3180)
@@ -28,7 +28,7 @@
 <FormalSpec>LijnNr</FormalSpec>
 <SqlQuery><![CDATA[	Select Batch || '||' || isnull(SubBatch,'') as BatchKey, Batch || ' ' || isnull(SubBatch,'') as BatchOms,Batch || ' ' || isnull(SubBatch,'') || ' - nog ' || sum(case status when 'W' then 1 else 0 end) || ' van ' || count(*) as BatchLangeOms 
 	from APPS_Halux_PPS_TBXZaag.Opdrachten
-	where (isnull(SubBatch,'')='' or SubBatch='rework')
+	where (isnull(SubBatch,'')='' or SubBatch='Herwerk')
 	and isnull(Batch,0)<>0
 	and Batch->IsActief=1
 	group by Batch,SubBatch]]></SqlQuery>
Index: APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml
===================================================================
diff -u -r2752 -r3180
--- APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml	(.../PlaatMateriaalHelper.cls.xml)	(revision 2752)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml	(.../PlaatMateriaalHelper.cls.xml)	(revision 3180)
@@ -25,7 +25,7 @@
 <Type>%Query</Type>
 <FormalSpec>BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug</FormalSpec>
 <SqlProc>1</SqlProc>
-<Parameter name="ROWSPEC" value="Type:%String,HoogteEnKleurOms:%String,HoogteOms:%String, Kleuren:%String, ProductID:%Integer, Korttekst:%String, ImageURL:%String,Hoogte:%Float"/>
+<Parameter name="ROWSPEC" value="Type:%String,HoogteEnKleurOms:%String,HoogteOms:%String, Kleuren:%String, ProductID:%Integer, Korttekst:%String, ImageURL:%String,Hoogte:%Float,Lengte:%Integer"/>
 </Query>
 
 <Method name="qPlatenLijstExecute">