Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r34369 -r35111
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 34369)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 35111)
@@ -725,6 +725,51 @@
 ]]></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.
+Deze method houdt geen rekening met het al dan niet aanwezig zijn van de respectievelijke onderdelen. </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set NietMeeKeysInProduct = ##class(%ListOfDataTypes).%New()
+	
+	Set NietMeeleverenKenmerkNaamIterator = ##class(TECH.ListIterator).%New(##class(BL.PR.GA.TandemBox).GeefNietMeeleverenKenmerkNamen())
+	While NietMeeleverenKenmerkNaamIterator.HasNext() {
+		#dim NietMeeleverenKenmerkNaam As %String = NietMeeleverenKenmerkNaamIterator.Next()
+		Do:(..Val(NietMeeleverenKenmerkNaam)) NietMeeKeysInProduct.Insert(NietMeeleverenKenmerkNaam)
+	}
+	Quit NietMeeKeysInProduct
+]]></Implementation>
+</Method>
+
+<Method name="MaakGADataProductZonderNietMee">
+<FormalSpec>NietMeeKeysTeResetten:%ListOfDataTypes=""</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>Prod.GAData.Product</ReturnType>
+<Implementation><![CDATA[
+	#dim GADataProductZonderNietMee As Prod.GAData.Product = ..CopyObject("FullCopy")
+	Do GADataProductZonderNietMee.BuildLookUp($LB("ICode"))   ; Rebuild na kopiëren 
+	
+	If '$IsObject(NietMeeKeysTeResetten) Set NietMeeKeysTeResetten = ..GeefNietMeeKeysInProduct()
+	Set NietMeeKeyIterator = ##class(TECH.ListIterator).%New(NietMeeKeysTeResetten)
+	While NietMeeKeyIterator.HasNext() {
+		#dim NietMeeKey As %String = NietMeeKeyIterator.Next()
+		Do GADataProductZonderNietMee.SetItemValByPL(NietMeeKey, $$$False)
+	}
+	Do GADataProductZonderNietMee.BuildLookUp($LB("PL"))
+	Quit GADataProductZonderNietMee
+]]></Implementation>
+</Method>
+
 <Method name="NewDataItem">
 <Description>
 Gebruik voor opbouw van de Items in een nieuwe Template (product).</Description>