Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstLBX/TestDesignCode.cls.xml
===================================================================
diff -u -r62249 -r68132
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstLBX/TestDesignCode.cls.xml	(.../TestDesignCode.cls.xml)	(revision 62249)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstLBX/TestDesignCode.cls.xml	(.../TestDesignCode.cls.xml)	(revision 68132)
@@ -7,6 +7,7 @@
 <Implementation><![CDATA[
 	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).CLade()
 	Set IngegevenKenmerkenDto.UitsparingDataCodeZ1 = ##class(DOM.PM.enu.UitsparingCode).Smal()
+	Set IngegevenKenmerkenDto.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
 	
 	Do ..VerwachteWaarden.SetAt("/", ##class(DOM.PM.enu.LBXKlasse).Lade())
 	Do ..VerwachteWaarden.SetAt("S", ##class(DOM.PM.enu.LBXKlasse).Spoelbak())
@@ -17,8 +18,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestVeranderlijkeProductieWijze">
-<Implementation><![CDATA[
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method TestVeranderlijkeProductieWijze()
+{
 	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).CLade()
 	Set IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
 	
@@ -30,8 +34,9 @@
 	Do ..VerwachteWaarden.SetAt("!", ##class(APPS.PM.enu.LBXProductieWijze).Front())
 	
 	Do ..AssertWaarden(IngegevenKenmerkenDto, ##class(APPS.PM.enu.LBXProductieWijze).ValueListIterator(), "ProductieWijze", 5,5)
-]]></Implementation>
-</Method>
+}*/
+]]></Content>
+</UDLText>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml
===================================================================
diff -u -r60999 -r68132
--- vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 60999)
+++ vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 68132)
@@ -9,6 +9,11 @@
 <Default>12345</Default>
 </Parameter>
 
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.impl.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VerwachteWaarden">
 <Type>TECH.String</Type>
 <Collection>array</Collection>
@@ -19,6 +24,7 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
+	Set ..MaatwerkCalcAPI = ##class(DOM.PM.impl.MaatwerkCalcAPI).%New()
 	Do ..VerwachteWaarden.Clear()
 ]]></Implementation>
 </Method>
@@ -40,11 +46,8 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
-	Set BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,##class(DOM.VKP.enu.Klant).Halux(),##class(DOM.common.VanHoeckePersonality).Instance())
-	Set HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
-	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	Do HalffabSpec.BerekenHalffabDetails(HalffabContext, IngegevenKenmerken)
-	Quit HalffabContext.HalffabItemsBoom
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(IngegevenKenmerken)
+	Quit HalffabItemsBoom
 ]]></Implementation>
 </Method>