Index: DOM/PM/impl/LangtekstCreator.cls.xml
===================================================================
diff -u -r62187 -r63238
--- DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 62187)
+++ DOM/PM/impl/LangtekstCreator.cls.xml	(.../LangtekstCreator.cls.xml)	(revision 63238)
@@ -109,13 +109,47 @@
 <Final>1</Final>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim NietMeeTeLeverenRollen As %ListOfDataTypes= ..Vertaler.GeefVertalingen(..GeefNietMeegeleverdeRollen())
+	#dim NietMeeTeLeverenRollenOnvertaald As %ListOfDataTypes = ""
+	
+	If ..IsNietMeeleverenInfoViaVerwijderdeHalffabItems() {
+		Set NietMeeTeLeverenRollenOnvertaald = ..GeefNietMeegeleverdeRollenViaVerwijderdeHalffabItems()
+	}
+	Else {
+		Set NietMeeTeLeverenRollenOnvertaald = ..GeefNietMeegeleverdeRollen()
+	}
+
+	#dim NietMeeTeLeverenRollen As %ListOfDataTypes= ..Vertaler.GeefVertalingen(NietMeeTeLeverenRollenOnvertaald)
 	if NietMeeTeLeverenRollen.Size {
 		Do ..LangtekstDetail.Insert(..Vertaler.GeefVertaling("NietMeegeleverd")_": "_##class(TECH.ListUtils).ListToPieces(NietMeeTeLeverenRollen,..#KenmerkSeparator))
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="IsNietMeeleverenInfoViaVerwijderdeHalffabItems">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit $$$False
+]]></Implementation>
+</Method>
+
+<Method name="GeefNietMeegeleverdeRollenViaVerwijderdeHalffabItems">
+<Final>1</Final>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set NietMeegeleverdeRollen = ##class(%ListOfDataTypes).%New()
+	
+	#dim NietMeeleverenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.NietMeeleveren)
+	While NietMeeleverenIterator.HasNext() {
+		#dim Rol As %String = NietMeeleverenIterator.Next()
+		If ..HalffabItemsBoom.VerwijderdeHalffabItems.IsDefined(Rol) {
+			Do NietMeegeleverdeRollen.Insert(Rol)
+		}
+	}
+	
+	Quit NietMeegeleverdeRollen
+]]></Implementation>
+</Method>
+
 <Method name="GeefNietMeegeleverdeRollen">
 <Final>1</Final>
 <Private>1</Private>