Index: APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml
===================================================================
diff -u -r2466 -r2534
--- APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2466)
+++ APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2534)
@@ -93,7 +93,7 @@
 	Set ..ZaagList=##class(%ListOfObjects).%New()
 	While rsZaagList.Next() 
 	{	
-		;w rsZaagList.Data("ID"),"  "
+		w rsZaagList.Data("ID"),"  "
 		Set Opdracht=##class(APPS.Halux.PPS.TBXZaag.dto.Opdracht).GetOpdracht(rsZaagList.Data("ID"))
 		Do ..Add2List(Opdracht)
 	}
Index: DOM/PM/TBXProduct/impl/TBXBodemStrookImpl.cls.xml
===================================================================
diff -u -r2531 -r2534
--- DOM/PM/TBXProduct/impl/TBXBodemStrookImpl.cls.xml	(.../TBXBodemStrookImpl.cls.xml)	(revision 2531)
+++ DOM/PM/TBXProduct/impl/TBXBodemStrookImpl.cls.xml	(.../TBXBodemStrookImpl.cls.xml)	(revision 2534)
@@ -14,7 +14,7 @@
 
 <Method name="GeefDiepte">
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefDiepte()-$S($E($LG(..GeefKleuren()),3)="S":22,1:24)
+<Implementation><![CDATA[	Quit ..GeefDiepteVanLade()-$S($E($LG(..GeefKleuren()),3)="S":22,1:24)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/TBXZaag/impl/Builder.cls.xml
===================================================================
diff -u -r2466 -r2534
--- APPS/Halux/PPS/TBXZaag/impl/Builder.cls.xml	(.../Builder.cls.xml)	(revision 2466)
+++ APPS/Halux/PPS/TBXZaag/impl/Builder.cls.xml	(.../Builder.cls.xml)	(revision 2534)
@@ -93,7 +93,9 @@
 
 <Method name="RemoveBatches">
 <Implementation><![CDATA[
+	Quit:'$isObject(..Batch)
 	Set BatchID=..Batch.%Id()
+	Quit:BatchID=""
 	&sql(DECLARE DelBatch CURSOR FOR
 	SELECT ID into :ZaagID
 	FROM APPS_Halux_PPS_TBXZaag.Opdrachten
Index: DOM/PM/TBXProduct/impl/TBXBodemOpMaatImpl.cls.xml
===================================================================
diff -u -r2531 -r2534
--- DOM/PM/TBXProduct/impl/TBXBodemOpMaatImpl.cls.xml	(.../TBXBodemOpMaatImpl.cls.xml)	(revision 2531)
+++ DOM/PM/TBXProduct/impl/TBXBodemOpMaatImpl.cls.xml	(.../TBXBodemOpMaatImpl.cls.xml)	(revision 2534)
@@ -27,7 +27,7 @@
 
 <Method name="GeefDiepte">
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefDiepte()-$S($E(..GeefKleur())="S":22,1:24)
+<Implementation><![CDATA[	Quit ..GeefDiepteVanLade()-$S($E(..GeefKleur())="S":22,1:24)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/TBXProduct/impl/TBXRugStrookImpl.cls.xml
===================================================================
diff -u -r2533 -r2534
--- DOM/PM/TBXProduct/impl/TBXRugStrookImpl.cls.xml	(.../TBXRugStrookImpl.cls.xml)	(revision 2533)
+++ DOM/PM/TBXProduct/impl/TBXRugStrookImpl.cls.xml	(.../TBXRugStrookImpl.cls.xml)	(revision 2534)
@@ -5,7 +5,7 @@
 Halfabrikaat RugOpMaat maw stalen rug</Description>
 <IncludeCode>%Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.TBXProduct.impl.TBXRugImpl,DOM.PM.TBXProduct.impl.TBXSpaanplaatOpMaat</Super>
+<Super>DOM.PM.TBXProduct.impl.TBXRugImpl,DOM.PM.TBXProduct.impl.TBXSpaanplaatStrook</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefBreedte">