Index: vhConsistency/Checks/Multiples.cls.xml
===================================================================
diff -u -r31229 -r31234
--- vhConsistency/Checks/Multiples.cls.xml (.../Multiples.cls.xml) (revision 31229)
+++ vhConsistency/Checks/Multiples.cls.xml (.../Multiples.cls.xml) (revision 31234)
@@ -98,7 +98,7 @@
If ..HeeftKenmerkenInDataDefinitieGlobal(MultipleGroep) {
Do ..ControleerUnIDsDieNietVoorkomenInMultiples(Product,Multiples,MultipleGroep)
- Do ..ControleerMultiplesZonderProdMulti(Product,Multiples)
+ Do ..ControleerMultiplesZonderProdMulti(Product,Multiples,MultipleGroep)
}
}
]]>
@@ -111,7 +111,7 @@
Set MultipleIt = ##class(TECH.ListIterator).%New(Multiples)
while MultipleIt.HasNext(){
#dim Multiple As %String = MultipleIt.Next()
- #dim Waarden As %List = ##class(Prod.Kenmerk.DataDefinitie).Get("OL",Multiple,"ProdMulti")
+ #dim Waarden As %List = ##class(Prod.Kenmerk.DataDefinitie).Get(MultipleGroep,Multiple,"ProdMulti")
If $ListLength(Waarden) = 0 {
Do ..VoegMeldingToe("Product "_Product.GeefKorttekst()_" ("_Multiple_") heeft geen DataDefinitie 'ProdMulti'.")
}
@@ -154,8 +154,8 @@
%ListOfDataTypes
-ProductID:%String
+ProductID:%String,MultipleGroep:%String
1
%Boolean
-0) ; Controleer kenmerk "GeneratieType", want dit is een verplicht OL-kenmerk
+0) ; Controleer kenmerk "GeneratieType", want dit is een verplicht OL-kenmerk
]]>