Index: APPS/Halux/PPS/TBXZaag/IWerkpost.cls.xml
===================================================================
diff -u -r2761 -r2763
--- APPS/Halux/PPS/TBXZaag/IWerkpost.cls.xml	(.../IWerkpost.cls.xml)	(revision 2761)
+++ APPS/Halux/PPS/TBXZaag/IWerkpost.cls.xml	(.../IWerkpost.cls.xml)	(revision 2763)
@@ -6,12 +6,14 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="BeschadigingLade">
+<FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Rework:%Boolean,Reden:%String</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="BeschadigingPlaat">
-<FormalSpec>BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Kleur:%String,Hoogte:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<FormalSpec>PlaatPRNr:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
+<Implementation><![CDATA[	
+]]></Implementation>
 </Method>
 
 <Method name="ControleMeting">
Index: WS/Halux/PPS/TBXZaagServer.cls.xml
===================================================================
diff -u -r2741 -r2763
--- WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 2741)
+++ WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 2763)
@@ -103,6 +103,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRedenBeschadiging">
+<Description><![CDATA[
+      Geef een resultset met alle mogelijke reden van beschadiging (Groep, Omschrijving, Code)
+<br/> Wordt opgehaald bij opstart van de zaag
+<br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.common.enu.Werkpost</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	Do ..GeefImplementatie(SessionKey, Werkpost)
+	Set DataSet=..iWerkpost.GeefRedenBeschadigingen($G(Werkpost))
+	Set DataSet.DiffGram=1
+	Set DataSet.NeedSchema=1
+	Quit DataSet
+]]></Implementation>
+</Method>
+
 <Method name="SyncBatches">
 <Description><![CDATA[
       Geeft een resultset met (ProductieLijn, BatchKey, BatchChanged, LengteBuffer, AantalBuffer)
@@ -210,7 +228,7 @@
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Do ..GeefImplementatie(SessionKey, Werkpost)
-	$$$ThrowError($$$errGeneralError,"Not implemented")
+	Do ..iWerkpost.BeschadigingLade(ZaagID,BodemOfRug,Rework,Reden)
 ]]></Implementation>
 </Method>
 
@@ -225,7 +243,7 @@
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Do ..GeefImplementatie(SessionKey, Werkpost)
-	$$$ThrowError($$$errGeneralError,"Not implemented")
+	Do ..iWerkpost.BeschadigingPlaat(PlaatPRNr,Lengte,Reden)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2761 -r2763
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2761)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2763)
@@ -32,12 +32,60 @@
 </Method>
 
 <Method name="BeschadigingLade">
-<Implementation><![CDATA[]]></Implementation>
+<FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Rework:%Boolean,Reden:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
+	If '$isObject(ZaagOpdracht) $$$ThrowError($$$errObjectExpected,"Zaagopdracht wrong ID:"_ZaagID)
+	Set Product=ZaagOpdracht.Product.%Id()
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
+	Set Lade = ProductAPI.GeefProduct(Queue.Product.%Id())
+	Set Lengte=0
+	If BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem()
+	{
+		Set Breedte=Lade.GeefBodemBreedte()
+		Set Plaat=Lade.GeefBodem()
+		Quit:'isObject(Plaat)
+		Set PlaatPRNr=Plaat.GeefPRNr()
+		If Plaat.%Extends("DOM.PM.TBXPRodukt.TBXBodemStrook")
+		{
+			Set Lengte=Breedte/Plaat.GeefBreedte()
+		}
+		Else  ; voorgezaagde bodem
+		{
+			Set Lengte=1
+		}
+	}
+	ElseIf BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug()
+	{
+		Set Breedte=Lade.GeefRugBreedte()
+		Set Plaat=Lade.GeefRug()
+		Quit:'isObject(Plaat)
+		Set PlaatPRNr=Plaat.GeefPRNr()
+		If Plaat.%Extends("DOM.PM.TBXPRodukt.TBXBodemStrook")
+		{
+			Set Lengte=Breedte/Plaat.GeefBreedte()
+		}
+		Else  ; voorgezaagde bodem
+		{
+			Set Lengte=1
+		}
+	}
+	Quit:'Lengte
+	Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Reden)
+	
+	; TODO - rework
+]]></Implementation>
 </Method>
 
 <Method name="BeschadigingPlaat">
-<FormalSpec>BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Kleur:%String,Hoogte:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<FormalSpec>PlaatPRNr:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Do ^cA604
+	Set Aktie=$P(Reden,";",1)
+ 	Set Ref=$P(Reden,";",2)
+	Do STORE^PRSTOCK("W",Aktie,PlaatPRNr,Lengte,Ref)
+]]></Implementation>
 </Method>
 
 <Method name="ControleMeting">