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>