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>