Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBase.cls.xml
===================================================================
diff -u -r30577 -r38382
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30577)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 38382)
@@ -62,6 +62,13 @@
 	quit ..LangtekstCreator.GeefLangtekst(..TAORKenmerken, HalffabItemsBoom, ..Taal,..Korttekst)
 ]]></Implementation>
 </Method>
+
+<Method name="ToList">
+<FormalSpec>String:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	quit ##class(TECH.ListUtils).PiecesToList(String,$$$CRLF)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml
===================================================================
diff -u -r35692 -r38382
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 35692)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/LosseComponent/Test.cls.xml	(.../Test.cls.xml)	(revision 38382)
@@ -136,13 +136,6 @@
 	do $$$AssertEqualsList(..GeefDetail(),..ToList("Hoogte: C"_$$$CRLF_"NL: 500mm"_$$$CRLF_"Kleur buitenkant: Natuur Notenhout"_$$$CRLF_"Kleur kantenband: Natuur Notenhout"_$$$CRLF_"Kleur binnenkant: Natuur Eikenhout"))
 ]]></Implementation>
 </Method>
-
-<Method name="ToList">
-<FormalSpec>String:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[	quit ##class(TECH.ListUtils).PiecesToList(String,$$$CRLF)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Standaard/Test.cls.xml
===================================================================
diff -u -r30176 -r38382
--- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Standaard/Test.cls.xml	(.../Test.cls.xml)	(revision 30176)
+++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Standaard/Test.cls.xml	(.../Test.cls.xml)	(revision 38382)
@@ -11,6 +11,42 @@
 	set ..TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: FlatpackProcom wordt vermeld als verpakking en ongemonteerde lade">
+<Implementation><![CDATA[
+	set ..Korttekst = "171A5070   W-DIST    NENE"	; random korttekst 
+	
+	set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.FlatpackProcom
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("D:500xB:600"_$$$CRLF_"ladezijkant:Natuur Notenhout"_$$$CRLF_"kantenband:Natuur Notenhout"_$$$CRLF_"bodem:Natuur Notenhout"_$$$CRLF_"rug:Natuur Notenhout"_$$$CRLF_"bevat: ongemont. ladecorpusprofiel Movento 40kg;BLUMOTION;frontbevest. Drevel"_$$$CRLF_"verpakt: flatpack ProCom"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: FlatpackV1 wordt vermeld als verpakking en ongemonteerde lade">
+<Implementation><![CDATA[
+	set ..Korttekst = "171A5070   W-DIST    NENE"	; random korttekst 
+	
+	set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.FlatpackV1
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("D:500xB:600"_$$$CRLF_"ladezijkant:Natuur Notenhout"_$$$CRLF_"kantenband:Natuur Notenhout"_$$$CRLF_"bodem sliced:Natuur Notenhout"_$$$CRLF_"rug:Natuur Notenhout"_$$$CRLF_"bevat: ongemont. ladecorpusprofiel Movento 40kg;BLUMOTION;frontbevest. Drevel"_$$$CRLF_"verpakt: flatpack V1"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: Probox wordt vermeld als verpakking en gemonteerde lade">
+<Implementation><![CDATA[
+	set ..Korttekst = "171A5070   W-DIST    NENE"	; random korttekst 
+	
+	set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("D:500xB:600"_$$$CRLF_"ladezijkant:Natuur Notenhout"_$$$CRLF_"kantenband:Natuur Notenhout"_$$$CRLF_"bodem:Natuur Notenhout"_$$$CRLF_"rug:Natuur Notenhout"_$$$CRLF_"bevat: gemont. lade;corpusprofiel Movento 40kg;BLUMOTION;frontbevest. Drevel"_$$$CRLF_"verpakt: Probox"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: V1 wordt vermeld als verpakking karton en gemonteerde lade">
+<Implementation><![CDATA[
+	set ..Korttekst = "171A5070   W-DIST    NENE"	; random korttekst 
+	
+	set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1
+	do $$$AssertEqualsList(..GeefDetail(),..ToList("D:500xB:600"_$$$CRLF_"ladezijkant:Natuur Notenhout"_$$$CRLF_"kantenband:Natuur Notenhout"_$$$CRLF_"bodem:Natuur Notenhout"_$$$CRLF_"rug:Natuur Notenhout"_$$$CRLF_"bevat: gemont. lade;corpusprofiel Movento 40kg;BLUMOTION;frontbevest. Drevel"_$$$CRLF_"verpakt: karton"))
+]]></Implementation>
+</Method>
 </Class>