Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r34381 -r35019
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 34381)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 35019)
@@ -717,6 +717,42 @@
 ]]></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() {
+		Set NietMeeleverenKenmerkNaam = NietMeeleverenKenmerkNaamIterator.Next()
+		Do:(..Val(NietMeeleverenKenmerkNaam)) NietMeeKeysInProduct.Insert(NietMeeleverenKenmerkNaam)
+	}
+	Quit NietMeeKeysInProduct
+]]></Implementation>
+</Method>
+
+<Method name="MaakGADataProductZonderNietMee">
+<FormalSpec>NietMeeKeysTeResetten:%ListOfDataTypes=""</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	Set GADataProductZonderNietMee = ..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() {
+		Set NietMeeKey = 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>