Index: vhConsistency/Checks/Multiples.cls.xml
===================================================================
diff -u -r29059 -r31229
--- vhConsistency/Checks/Multiples.cls.xml	(.../Multiples.cls.xml)	(revision 29059)
+++ vhConsistency/Checks/Multiples.cls.xml	(.../Multiples.cls.xml)	(revision 31229)
@@ -97,7 +97,7 @@
 		}
 
 		If ..HeeftKenmerkenInDataDefinitieGlobal(MultipleGroep) {
-			Do ..ControleerUnIDsDieNietVoorkomenInMultiples(Product,Multiples)
+			Do ..ControleerUnIDsDieNietVoorkomenInMultiples(Product,Multiples,MultipleGroep)
 			Do ..ControleerMultiplesZonderProdMulti(Product,Multiples)
 		}
 	}
@@ -135,11 +135,11 @@
 </Method>
 
 <Method name="ControleerUnIDsDieNietVoorkomenInMultiples">
-<FormalSpec>Product:%String,Multiples:%ListOfDataTypes</FormalSpec>
+<FormalSpec>Product:%String,Multiples:%ListOfDataTypes,MultipleGroep:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	#dim UnIDsDieNietVoorkomenInMultiples As %ListOfDataTypes = ..GeefUnIDsDieNietVoorkomenInMultiples(Product.GeefID(), Multiples)
+	#dim UnIDsDieNietVoorkomenInMultiples As %ListOfDataTypes = ..GeefUnIDsDieNietVoorkomenInMultiples(Product.GeefID(), Multiples, MultipleGroep)
 	If UnIDsDieNietVoorkomenInMultiples.Count() > 0 {
 		Set ..Status = $$$ERROR($$$GeneralError,"Fout")
 		Do ..VoegMeldingToe("Product "_Product.GeefKorttekst()_" ("_Product.GeefID()_") heeft UnIDs die niet voorkomen in de Multiples lijst : ("_##class(TECH.ListUtils).ListToPieces(UnIDsDieNietVoorkomenInMultiples,",")_" niet in "_##class(TECH.ListUtils).ListToPieces(Multiples,",")_").")
@@ -149,7 +149,7 @@
 </Method>
 
 <Method name="GeefUnIDsDieNietVoorkomenInMultiples">
-<FormalSpec>ProductID:%String,Multiples:%ListOfDataTypes</FormalSpec>
+<FormalSpec>ProductID:%String,Multiples:%ListOfDataTypes,MultipleGroep:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
@@ -161,7 +161,8 @@
 
 	#dim UnID As %String = ProductID
 	For {  Set UnID=$O(^Prod.Ken.DataDefinitieD(UnID))  Quit:($P(UnID,".",1)'=ProductID)
-		If $$$Not(##class(TECH.ListUtils).Contains(Multiples,UnID)) {
+		#dim IsUnIDinGroep As %Boolean = ($$$StartsWithVar($O(^Prod.Ken.DataDefinitieD(UnID,MultipleGroep)),MultipleGroep))
+		If (IsUnIDinGroep) && $$$Not(##class(TECH.ListUtils).Contains(Multiples,UnID)) {
 			Do UnIDsDieNietVoorkomenInMultiples.Insert(UnID)
 		}
 	}
@@ -201,7 +202,7 @@
 <FormalSpec>MultipleGroep:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit MultipleGroep="OL"
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(MultipleGroep,"OL","TAOR_CUBIC_LINK")
 ]]></Implementation>
 </Method>