Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r35019 -r35030
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 35019)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 35030)
@@ -717,6 +717,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDataItemViaLabel">
+<FormalSpec>ItemLabel:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>Prod.GAData.Item</ReturnType>
+<Implementation><![CDATA[	Quit $G(..LookUp("IL",ItemLabel))
+]]></Implementation>
+</Method>
+
 <Method name="GeefNietMeeKeysInProduct">
 <Description>
 Geeft alle flags "NietMeeleveren ..." die op True staan.
Index: DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler.cls.xml
===================================================================
diff -u -r35029 -r35030
--- DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler.cls.xml	(.../NietMeeleverenBepaler.cls.xml)	(revision 35029)
+++ DOM/PM/impl/TBXLangtekstCreator/NietMeeleverenBepaler.cls.xml	(.../NietMeeleverenBepaler.cls.xml)	(revision 35030)
@@ -120,7 +120,7 @@
 	
 	Set TeVermelden = 0
 	If (..GADataProduct.Val(NietMeeKey)) {
-		Set DataItem = $G(..GADataProductZonderNietMee.LookUp("IL",DataItemLabel))
+		Set DataItem = ..GADataProductZonderNietMee.GeefDataItemViaLabel(DataItemLabel)
 		Set:($IsObject(DataItem))&&(DataItem.IsActief($$$ForcedRecalc)) TeVermelden=$$$True
 	}
 	Quit TeVermelden