Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml
===================================================================
diff -u -r63239 -r63313
--- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 63239)
+++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml	(.../Test.cls.xml)	(revision 63313)
@@ -435,6 +435,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: StandaardLade M met alle NietMeeleverens">
+<Implementation><![CDATA[
+	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLadeMetNietMeeleverens()
+	
+	Set VerwijderdeHalffabItems = ##class(%ArrayOfObjects).%New()
+	Do VerwijderdeHalffabItems.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapRugWandHouder())
+	Do VerwijderdeHalffabItems.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingBoven())
+	Do VerwijderdeHalffabItems.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingOnder())
+	Do VerwijderdeHalffabItems.SetAt(..GeefVerwijderdHalffabItem(), "AfdekkapBinnen")
+	Do VerwijderdeHalffabItems.SetAt(..GeefVerwijderdHalffabItem(), "AfdekkapBuiten")
+	Do VerwijderdeHalffabItems.SetAt(..GeefVerwijderdHalffabItem(), "Geleider")
+	
+	#dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItems)
+	#dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate(  "MERIVOBOX lade M" _ $$$CRLF, 
+																					"D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, 
+																					"ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, 
+																					"lade; corpusprofiel 40kg; TIP-ON BLUMOTION;" _ $$$CRLF, 
+																					"frontbevest. INSERTA" _ $$$CRLF, 
+																					"verpakt: Probox" _ $$$CRLF,
+																					"niet meegeleverd: afdekkappen binnen;" _ $$$CRLF,
+																					"afdekkappen buiten; afdekkappen" _ $$$CRLF,
+																					"rugwandhouders M; ; ; corpusprofiel") // _ $$$CRLF, // HIER KLOPT NOG IETS NIET !!!!!
+																					//"synchronisatiestang")
+	
+	Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Front only">
 <Implementation><![CDATA[
 	Set ..MVXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).ProductieWijzeFront()
@@ -451,18 +479,27 @@
 </Method>
 
 <Method name="GeefLangtekst">
+<FormalSpec>VerwijderdeHalffabItems:%ArrayOfObjects=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New() // VOORLOPIG NEW. Eens de link met .NET voorzien is: ..GeefHalffabItemsBoom(..MVXKenmerken)
-	//#dim HalffabItemsBoomOnherwerkt As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New() // VOORLOPIG NEW. Eens de link met .NET voorzien is: ..HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..MVXKenmerken)
+	Set HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	
-	// In de plaats van de HalffabItemsBoomOnherwerkt moet je de ..HalffabItemsBoom.VerwijderdeHalffabItems invullen, samen met de NietMeeleveren-flags
+	If ($IsObject(VerwijderdeHalffabItems)) {
+		Set HalffabItemsBoom.VerwijderdeHalffabItems = VerwijderdeHalffabItems
+	}
 	
-	Quit ..MVXLangtekstCreator.GeefLangtekst(..MVXKenmerken, HalffabItemsBoom, Taal,,"")
+	Quit ..MVXLangtekstCreator.GeefLangtekst(..MVXKenmerken, HalffabItemsBoom, Taal,, "")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerwijderdHalffabItem">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.VerwijderdHalffabItem</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.VerwijderdHalffabItem).%New()
+]]></Implementation>
+</Method>
 </Class>