Index: zTryout/PV/TBXZaag/Test.cls.xml
===================================================================
diff -u -r2743 -r2795
--- zTryout/PV/TBXZaag/Test.cls.xml	(.../Test.cls.xml)	(revision 2743)
+++ zTryout/PV/TBXZaag/Test.cls.xml	(.../Test.cls.xml)	(revision 2795)
@@ -202,13 +202,24 @@
 <FormalSpec>BatchID,SubBatch</FormalSpec>
 <Implementation><![CDATA[
 	Set BatchID=8728
-	Set bl=##class(APPS.Halux.PPS.TBXZaag.Werkpost).%New()
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New()
 	Do bl.GeefBufferLengte(.L1,.L2)
 	w L1," ",L2,!
 	;method WriteXML(top As %String, diffGram As %Boolean = "", writeSchema As %Boolean = "", namespaces As %XML.Namespaces = "", local As %Boolean, ignoreNull As %Boolean) returns %Status
 ]]></Implementation>
 </Method>
 
+<Method name="TestBeschadigd">
+<Description>
+Do ##class(zTryout.PV.TBXZaag.Test).TestBeschadigd(427)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ZaagID</FormalSpec>
+<Implementation><![CDATA[
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New("Z1")
+	Do bl.BeschadigingLade(ZaagID,"B+R",0,"L;TEST")
+]]></Implementation>
+</Method>
+
 <Method name="Test2">
 <Description>
 Do ##class(zTryout.PV.TBXZaag.Test).Test2()</Description>
@@ -217,7 +228,7 @@
 <Implementation><![CDATA[
 	Set IDs=$lb(8717,8718,8728,8732,8733,8741,8744,8745,8746,8747,8748,8749,8750,8751,8752)
 	Set IDs=$lb(8728,8732,8718,8744)
-	Set bl=##class(APPS.Halux.PPS.TBXZaag.Werkpost).%New()
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New()
 	For I=1:1:$LL(IDs)
 	{	Set BatchID=$LI(IDs,I), SubBatch=""
 		Set rsZaagList=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.ZaagLijstHelper:qZaagLijstHelper")