Index: zTryout/JBL/KostDumper.cls.xml
===================================================================
diff -u -r29059 -r39812
--- zTryout/JBL/KostDumper.cls.xml	(.../KostDumper.cls.xml)	(revision 29059)
+++ zTryout/JBL/KostDumper.cls.xml	(.../KostDumper.cls.xml)	(revision 39812)
@@ -1,50 +1,50 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="zTryout.JBL.KostDumper">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="Dump">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductID:%String</FormalSpec>
 <Implementation><![CDATA[
-		Set LadeImpl = ##class(DOM.PM.LBXProduct.impl.LBXLadeImpl).%New(ProductID)
-		#dim IK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = LadeImpl.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	Set LadeImpl = ##class(DOM.PM.LBXProduct.impl.LBXLadeImpl).%New(ProductID)
+	#dim IK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = LadeImpl.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	
+	set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
+	#dim Product As DOM.PM.MaatwerkProduct = BerekeningService.MaakProductVanKenmerken(IK,"K||15535",1)
+	w !,Product.GeefID()
 		
-		#dim Product As DOM.PM.MaatwerkProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).MaakProductVanKenmerken(IK,"K||15535",1)
-		w !,Product.GeefID()
-		
-		;Do ..DumpIK(IK)
+	;Do ..DumpIK(IK)
 ]]></Implementation>
 </Method>
 
 <Method name="DumpIK">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Implementation><![CDATA[
-		
-		#dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
-		Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1 ,"", Personality)
-		Set HalffabContext=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningsSpecificatie)
-	
-		Do ##class(vhLib.OldSchool).InitVars()
-	
-		Do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext, IngegevenKenmerken)
-		Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningsSpecificatie)
+	#dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1 ,"", Personality)
+	Set HalffabContext=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningsSpecificatie)
 
-		
-		Set WriterVisitor=##class(DOM.PM.Maatwerk.Calc.HF.impl.WriterVisitor).%New()
-		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = HalffabContext.HalffabItemsBoom
+	Do ##class(vhLib.OldSchool).InitVars()
 
-		write !
-		Do HalffabItemsBoom.Wortel.Accept(WriterVisitor)
-		write !
+	Do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext, IngegevenKenmerken)
+	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningsSpecificatie)
 
-		#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerken)
-		Set KostItemWriterVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemWriterVisitor).%New()
 	
-		write !
-		Do KostItem.Accept(KostItemWriterVisitor)
-		write !
+	Set WriterVisitor=##class(DOM.PM.Maatwerk.Calc.HF.impl.WriterVisitor).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = HalffabContext.HalffabItemsBoom
+
+	write !
+	Do HalffabItemsBoom.Wortel.Accept(WriterVisitor)
+	write !
+
+	#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,IngegevenKenmerken)
+	Set KostItemWriterVisitor = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostItemWriterVisitor).%New()
+
+	write !
+	Do KostItem.Accept(KostItemWriterVisitor)
+	write !
 ]]></Implementation>
 </Method>
 </Class>