Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/Base.cls.xml
===================================================================
diff -u -r60996 -r60999
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/Base.cls.xml	(.../Base.cls.xml)	(revision 60996)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/Base.cls.xml	(.../Base.cls.xml)	(revision 60999)
@@ -22,18 +22,12 @@
 <FormalSpec>IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken,KorttekstVanaf:TECH.Integer,KorttekstTot:TECH.Integer,VerwachteKorttekstDeel:TECH.String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ##class(Tools.Wlip).%New(43).String("AssertKorttekst methode")
 	#Dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..GeefIngegevenKenmerken(IngegevenKenmerkenDto)
 	Set IngegevenKenmerken = ..PreProcessDomeinKenmerken(IngegevenKenmerken, VerwachteKorttekstDeel)
-	Do ##class(Tools.Wlip).%New(43).ObjToText(IngegevenKenmerken)
-	Do ##class(Tools.Wlip).%New(43).String("Halffabitem")
 	#Dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(IngegevenKenmerken)
-	Do ##class(Tools.Wlip).%New(43).String("BepaalKorttekstTAOR")
 	#Dim Korttekst As TECH.String = ##class(DOM.PM.KorttekstUtils).BepaalKorttekstTAOR(..#DossierNummer, IngegevenKenmerken, HalffabItemsBoom)
-	Do ##class(Tools.Wlip).%New(43).String("korttekst "_Korttekst)
 	#Dim KorttekstDeel As TECH.String = $Extract(Korttekst, KorttekstVanaf, KorttekstTot)
-	Do ##class(Tools.Wlip).%New(43).String("korttekst "_KorttekstDeel)
-
+	
 	Do $$$AssertEquals(KorttekstDeel, VerwachteKorttekstDeel)
 ]]></Implementation>
 </Method>
@@ -46,6 +40,13 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// TODO LLA: Tijdelijk: voor testen te doen slagen in eerste run 
+
+]]></Content>
+</UDLText>
+
 <Method name="AssertNodig">
 <FormalSpec>PropertyNaam:%String,Waarde:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml
===================================================================
diff -u -r60996 -r60999
--- vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 60996)
+++ vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 60999)
@@ -41,18 +41,9 @@
 <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())
-	Do ##class(Tools.Wlip).%New(43).String("BerekeningSpecificatie")
-	Do ##class(Tools.Wlip).%New(43).ObjToText(BerekeningSpecificatie)
 	Set HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
-	Do ##class(Tools.Wlip).%New(43).String("HalffabContext")
-	Do ##class(Tools.Wlip).%New(43).ObjToText(HalffabContext)
 	#dim HalffabSpec As DOM.PM.Maatwerk.Calc.HF.HalffabSpec = HalffabContext.GeefHalffabSpec()
-	Do ##class(Tools.Wlip).%New(43).String("HalffabSpec")
-	Do ##class(Tools.Wlip).%New(43).ObjToText(HalffabSpec)
-	Do ##class(Tools.Wlip).%New(43).String("BerekenHalffabDetails")
 	Do HalffabSpec.BerekenHalffabDetails(HalffabContext, IngegevenKenmerken)
-	Do ##class(Tools.Wlip).%New(43).String("HalffabContext.HalffabItemsBoom")
-	Do ##class(Tools.Wlip).%New(43).ObjToText(HalffabContext.HalffabItemsBoom)
 	Quit HalffabContext.HalffabItemsBoom
 ]]></Implementation>
 </Method>
@@ -63,18 +54,13 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	While WaardenIterator.HasNext() {
-		//Do ..AssertWaarden(..TAORKenmerken, VerpakkingIterator, ..Enum.KenmerkNaam.VerpakkingType, 20, 20)
-		Do ##class(Tools.Wlip).%New(43).String("In WaardenIterator")
 		#dim Waarde As TECH.String = WaardenIterator.Next()
 		continue:$$$Not(..AssertNodig(PropertyNaam,Waarde))
-		Do ##class(Tools.Wlip).%New(43).String("Waarde: "_Waarde)
-		continue:$$$Not(..AssertNodig(PropertyNaam,Waarde))
+		
 		Set $Property(Kenmerken, PropertyNaam) = Waarde
-		Do ##class(Tools.Wlip).%New(43).String("PreProcessKenmerken")
 		Set Kenmerken = ..PreProcessKenmerken(Kenmerken, Waarde)
-		Do ##class(Tools.Wlip).%New(43).String("VerwachteWaarden.IsDefined")
+		
 		If $$$AssertTrue(..VerwachteWaarden.IsDefined(Waarde),"De waarde "_Waarde_" is niet gecontroleerd") {
-			Do ##class(Tools.Wlip).%New(43).String("AssertKorttekst")
 			Do ..AssertKorttekst(Kenmerken, KorttekstDeelVan, KorttekstDeelTot, ..VerwachteWaarden.GetAt(Waarde))
 			Do ..VerwachteWaarden.RemoveAt(Waarde)
 		}