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 ]]>