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">