Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2785 -r2795
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2785)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2795)
@@ -38,15 +38,16 @@
 <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 PRNr=ZaagOpdracht.Product.%Id()
+	Quit:PRNr=""
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
-	Set Lade = ProductAPI.GeefProduct(Queue.Product.%Id())
+	Set Lade = ProductAPI.GeefProduct(PRNr)
 	Set Lengte=0
-	If (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemEnRug())
+	If (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())
 	{
 		Set Breedte=Lade.GeefBodemBreedte()
 		Set Plaat=Lade.GeefBodem()
-		Quit:'isObject(Plaat)
+		Quit:'$isObject(Plaat)
 		Set PlaatPRNr=Plaat.GeefPRNr()
 		If Plaat.%Extends("DOM.PM.TBXPRodukt.TBXBodemStrook")
 		{
@@ -59,11 +60,11 @@
 		Quit:'Lengte
 		Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Reden)
 	}
-	ElseIf (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemEnRug())
+	ElseIf (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())
 	{
 		Set Breedte=Lade.GeefRugBreedte()
 		Set Plaat=Lade.GeefRug()
-		Quit:'isObject(Plaat)
+		Quit:'$isObject(Plaat)
 		Set PlaatPRNr=Plaat.GeefPRNr()
 		If Plaat.%Extends("DOM.PM.TBXPRodukt.TBXRugStrook")
 		{
@@ -87,7 +88,9 @@
 <FormalSpec>PlaatPRNr:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Do ^cA604
+	Do
+	. New PlaatPRNr,Lengte,Reden
+	. Do ^cA604
 	Set Aktie=$P(Reden,";",1)
  	Set Ref=$P(Reden,";",2)
 	Do STORE^PRSTOCK("W",Aktie,PlaatPRNr,Lengte,Ref)
@@ -96,7 +99,7 @@
 
 <Method name="ControleMeting">
 <FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
-<Implementation><![CDATA[	Set Log=..Logger.Debug("Controlemeetiing", "ZaagID:"_$G(ZaagID)_", B+R:"_BodemOfRug_", Gewenst"_GewensteLengte_", Gemeten: "_GemetenLengte)
+<Implementation><![CDATA[	Set Log=..Logger.Debug("ControleMeting", "ZaagID:"_$G(ZaagID)_", B+R:"_BodemOfRug_", Gewenst"_GewensteLengte_", Gemeten: "_GemetenLengte)
 ]]></Implementation>
 </Method>
 
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")