Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2884 -r2888
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2884)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2888)
@@ -180,10 +180,11 @@
 <Method name="BeschadigingViaOpdracht">
 <FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String,HerwerkNaarLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn=""</FormalSpec>
 <Implementation><![CDATA[
+	Set Log=..Logger.Debug("Beschadiging", "ZaagID:"_$G(ZaagID)_", B+R:"_BodemOfRug)
 	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
 	If '$isObject(ZaagOpdracht) $$$ThrowError($$$errObjectExpected,"Zaagopdracht wrong ID:"_ZaagID)
 	Set LadePRNr=ZaagOpdracht.Product.%Id()
-	Quit:LadePRNr=""
+	If 'LadePRNr $$$ThrowError($$$errObjectExpected,"Geen product:"_PRNr_" in ZaagOpdracht:"_ZaagID)
 	Do ..BeschadigingViaLade(LadePRNr, BodemOfRug, Verantwoordelijke, Omschrijving)
 	Do:HerwerkNaarLijn'="" ..Herwerk(ZaagID,BodemOfRug,HerwerkNaarLijn)
 ]]></Implementation>
@@ -192,7 +193,7 @@
 <Method name="BeschadigingViaLade">
 <FormalSpec>LadePRNr:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[
-	Quit:LadePRNr=""
+	If 'LadePRNr $$$ThrowError($$$errObjectExpected,"Geen product:"_PRNr)
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
 	Set Lade = ProductAPI.GeefProduct(LadePRNr)
 	Set Lengte=0
@@ -249,12 +250,13 @@
 <Method name="Herwerk">
 <FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,HerwerkNaarLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn=""</FormalSpec>
 <Implementation><![CDATA[
+	Set Log=..Logger.Debug("Herwerk", "ZaagID:"_$G(ZaagID)_", B+R:"_BodemOfRug)
 	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
 	If '$isObject(ZaagOpdracht) $$$ThrowError($$$errObjectExpected,"Zaagopdracht wrong ID:"_ZaagID)
 	Set LadePRNr=ZaagOpdracht.Product.%Id()
-	Quit:LadePRNr=""
+	If 'LadePRNr $$$ThrowError($$$errObjectExpected,"Geen product:"_PRNr_" in ZaagOpdracht:"_ZaagID)
 	Set Queue=ZaagOpdracht.Queue
-	Quit:'$isObject(Queue)
+	If '$isObject(Queue) $$$ThrowError($$$errObjectExpected,"Geen queue in zaagopdracht"_ZaagID)
 	Set MaakBatch=##class(APPS.Halux.PPS.TBXZaag.impl.MaakBatch).%New(Queue.BatchID)
 	Do MaakBatch.MaakHerwerkOpdracht(Queue,BodemOfRug,HerwerkNaarLijn)
 ]]></Implementation>