Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler/Test.cls.xml
===================================================================
diff -u -r29834 -r29835
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 29834)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 29835)
@@ -1,45 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler.TestBase</Super>
 
-<Parameter name="DossierNummer">
-<Type>%String</Type>
-<Default>abc</Default>
-</Parameter>
-
-<Property name="HalffabItemsBoom">
-<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KorttekstBepaler">
-<Type>DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="TAORKenmerken">
-<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	Do ##super()
-	
-	Set ..KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler).%New()
-]]></Implementation>
-</Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super()
-
-	Set ..TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-]]></Implementation>
-</Method>
-
 <Method name="TestPrefix">
 <Implementation><![CDATA[	Do $$$AssertStartsWith(..BepaalKorttekst(), "TA")
 ]]></Implementation>
@@ -143,32 +106,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalKorttekst">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#Dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..TAORKenmerken)
-	
-	Quit ..KorttekstBepaler.BepaalKorttekst(..#DossierNummer, ..TAORKenmerken, HalffabItemsBoom)
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabItemsBoom">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
-<Implementation><![CDATA[
-	#Dim Klant As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).Halux()
-	#Dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	#Dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, Klant, Personality)
-	#Dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Kenmerken.GeefFamilie(), Kenmerken.GeefVariant(), BerekeningsSpecificatie)
-	
-	Do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext, Kenmerken)
-	
-	Quit HalffabContext.HalffabItemsBoom
-]]></Implementation>
-</Method>
-
 <Method name="AssertBreedte">
 <FormalSpec>Breedte:TECH.Numeric,VerwachteDimensie:TECH.String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/KorttekstBepaler/TestBase.cls.xml	(revision 29835)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DossierNummer">
+<Type>%String</Type>
+<Default>abc</Default>
+</Parameter>
+
+<Property name="Korttekst">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KorttekstBepaler">
+<Type>DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Set ..TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
+]]></Implementation>
+</Method>
+
+<Method name="TestLengte">
+<Implementation><![CDATA[	Do $$$AssertEquals($Length(..Korttekst), 25)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKorttekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim Klant As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).Halux()
+	#Dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	#Dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, Klant, Personality)
+	#Dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(..TAORKenmerken.GeefFamilie(), ..TAORKenmerken.GeefVariant(), BerekeningsSpecificatie)
+	
+	Do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext, ..TAORKenmerken)
+	
+	Quit ..KorttekstBepaler.BepaalKorttekst(..#DossierNummer, ..TAORKenmerken, HalffabContext.HalffabItemsBoom)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>