Index: vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r67463 -r67675
--- vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 67463)
+++ vhUnitTest/DOM/PM/impl/TBXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 67675)
@@ -292,15 +292,13 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method "Test: Standaardlade D met alle niet meeleverens "()
-{
+<Method name="Test: Standaardlade D met alle niet meeleverens ">
+<Implementation><![CDATA[
 	Set ..TbxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLadeVoorHerwerkingBOMBOL()
-	//Terug op TOB zetten eens signaletiek in .NET zit
+	Set ..TbxKenmerken.GeleiderTechnologie = "TOB"
+	
 	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Afdekkap())
-	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodemsteun())
+	Do ..TbxKenmerken.NietMeeleveren.Insert("Bodemsteun")
 	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontBevestiging())
 	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Geleider())
 	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement())
@@ -311,40 +309,44 @@
 	Do ..TbxKenmerken.NietMeeleveren.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TiponBlumotionSynchronisatieStang())
 	Do ..TbxKenmerken.NietMeeleveren.Insert("TiponBlumotionSynchronisatieToebehoren")
 	
+	Set TiponBlumotionSetEenhedenMeenemersEnAdaptersHalffab =  ##class(DOM.PM.Maatwerk.Calc.HF.VerwijderdHalffabItem).%New()
+	Set TiponBlumotionSetEenhedenMeenemersEnAdaptersHalffab.Aantal = 1
+	Set TiponBlumotionSetEenhedenMeenemersEnAdaptersHalffab.ProductId = 1887538
 	
 	Set VerwijderdeHalffabItemsOpHalffabItemsBoom = ##class(%ArrayOfObjects).%New()
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Afdekkap())
-	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Bodemsteun())
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "BodemsteunFront")
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontBevestiging())
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Geleider())
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).InschuifElement())
 	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Opvullijst())
-	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "Reling")
-	;Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionOnderdelen")
-	;Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionSet")
-	;Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TiponBlumotionSynchronisatieStang())
-	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionSynchronisatieToebehoren")
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "RelingZijkant")
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(TiponBlumotionSetEenhedenMeenemersEnAdaptersHalffab, "TiponBlumotionSetEenhedenMeenemersEnAdapters")
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionSynchronisatieStangHouder")
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).TiponBlumotionSynchronisatieStang())
+	Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "TiponBlumotionBodemstabilisering")
 	
+	
+	
 	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom)
 	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "Tandembox voorraadlade D" _ $$$CRLF, 
 																					"D:500xB:1000; bodem:Licht grijs;" _ $$$CRLF, 
 																					"zijkant:Metaalgrijs; Antaro" _ $$$CRLF,
-																					"bevat: gemont. lade; BLUMOTION; enkele reling" _ $$$CRLF, 
+																					"bevat: gemont. lade; TIP-ON BLUMOTION" _ $$$CRLF, 
+																					"T60B313 R7035 lichtgrijs; enkele reling" _ $$$CRLF, 
 																					"verpakt: karton"_ $$$CRLF,
 																					"niet meegeleverd: afdekkappen;"_ $$$CRLF,
 																					"frontondersteuning; Frontbevestiging;"_ $$$CRLF,
-																					"corpusprofiel; inschuifelement; opvullijst;"_ $$$CRLF,
-																					"reling; TIP-ON BLUMOTION onderdelen; TIP-ON"_ $$$CRLF,
-																					"BLUMOTION set; TIP-ON BLUMOTION"_ $$$CRLF,
-																					"synchronisatiestang; TIP-ON BLUMOTION"_ $$$CRLF,
-																					"synchronisatie toebehoren")
+																					"corpusprofiel; inschuifelement;"_ $$$CRLF,
+																					"Bodemstabilisering; TOB set van eenheden en"_ $$$CRLF,
+																					"meenemers; TOB synchronisatiestanghouder;"_ $$$CRLF,
+																					"opvullijst; reling zijkant; TIP-ON"_ $$$CRLF,
+																					"BLUMOTION synchronisatiestang")
 																					
 	
 	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
-}
-*/
-]]></Content>
-</UDLText>
+]]></Implementation>
+</Method>
 
 <Method name="GeefLangtekst">
 <FormalSpec>VerwijderdeHalffabItems:%ArrayOfObjects=""</FormalSpec>