Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/Base.cls.xml
===================================================================
diff -u -r31017 -r60996
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/Base.cls.xml	(.../Base.cls.xml)	(revision 31017)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/Base.cls.xml	(.../Base.cls.xml)	(revision 60996)
@@ -22,12 +22,17 @@
 <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>
@@ -40,6 +45,16 @@
 <Implementation><![CDATA[	Quit Kenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="AssertNodig">
+<FormalSpec>PropertyNaam:%String,Waarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:((PropertyNaam = "VerpakkingType") && (Waarde = "Pallet")) $$$False
+	quit $$$True
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml
===================================================================
diff -u -r57836 -r60996
--- DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(.../StandaardKorttekstBepaler.cls.xml)	(revision 57836)
+++ DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler.cls.xml	(.../StandaardKorttekstBepaler.cls.xml)	(revision 60996)
@@ -119,6 +119,8 @@
 		Set VerpakkingCode = "F"
 	}ElseIf (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
 		Set VerpakkingCode = "X"
+	}ElseIf (TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Pallet()) {
+		Set VerpakkingCode = "P"
 	} ElseIf $$$Not(TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()) {
 		Set VerpakkingCode = $Extract(TAORKenmerken.VerpakkingType, 1)
 	}
Index: vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml
===================================================================
diff -u -r42403 -r60996
--- vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 42403)
+++ vhUnitTest/DOM/PM/KorttekstUtils/Base.cls.xml	(.../Base.cls.xml)	(revision 60996)
@@ -41,9 +41,18 @@
 <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>
@@ -54,11 +63,18 @@
 <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)
 		}
Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestVerpakkingCode.cls.xml
===================================================================
diff -u -r57836 -r60996
--- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestVerpakkingCode.cls.xml	(.../TestVerpakkingCode.cls.xml)	(revision 57836)
+++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstTAOR/TestVerpakkingCode.cls.xml	(.../TestVerpakkingCode.cls.xml)	(revision 60996)
@@ -10,6 +10,8 @@
 	Do ..VerwachteWaarden.SetAt("B", ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
 	Do ..VerwachteWaarden.SetAt("L", ..Enum.VerpakkingType.LosseComponentenInBulk)
 	Do ..VerwachteWaarden.SetAt("F", ..Enum.VerpakkingType.FlatpackV1)
+	// TODO LLA: uit commentaar halen samen met de methode AssertNodig uit vhUnitTest.DOM.PM.KorttekstUtils.BepaalKorttekstTAOR.Base
+	//Do ..VerwachteWaarden.SetAt("P", ..Enum.VerpakkingType.Pallet)
 	
 	#dim VerpakkingIterator As TECH.Iterator = ##class(DOM.PM.enu.TAORVerpakkingType).ValueListIterator()