vhLib.Macro 1 %RegisteredObject,DOM.PM.ProductMetKenmerken right DOM.PM.impl.ProductKenmerkenSets array 1 %Integer 1 PRNr:%Integer 1 1 %Status TECH.Iterator KenmerkGroep:%String DOM.PM.ProductKenmerkenSets KenmerkGroep:%String DOM.PM.ProductKenmerkenSet KenmerkGroep:%String %Boolean 1 { #dim i As %Integer For i = TeVerwijderenUnIDs.Count():-1:2 { Do ProductKenmerkenSets.VerwijderKenmerkenSetBijProductDelete(TeVerwijderenUnIDs.GetAt(i)) } // Nu nog de laatste kenmerkenset opkuisen. // De UnID is wellicht veranderd door MulitpleUnIDToOne() Do ProductKenmerkenSets.HerlaadKenmerkenSets() #dim ProductKenmerkenSetIterator As TECH.Iterator = ProductKenmerkenSets.GeefProductKenmerkenSetIterator() ; Mag nu nog maar 1 kenmerkenset teruggeven Do ProductKenmerkenSets.VerwijderKenmerkenSetBijProductDelete(ProductKenmerkenSetIterator.Next().GeefUnID()) } Else { // Count=0 kan normaal gezien niet voorkomen. } } ]]> 1 %ListOfDataTypes BewerkingsInfoID:%String 1 %ListOfDataTypes ProductKenmerkenSets:DOM.PM.impl.ProductKenmerkenSets 1 APPS.PM.dto.Kenm.KenmerkenSetIDs AutoVariantenVanMasters:APPS.PM.dto.Kenm.AutoVariantenVanMasters 1 %ListOfDataTypes ProductKenmerkenSet:DOM.PM.ProductKenmerkenSet 1 %Boolean Iterator van één Groep, i.e. van één "ProductKenmerkenSets" As DOM.PM.impl.ProductKenmerkenSets ProductKenmerkenSetIterator:TECH.Iterator 1 %ListOfDataTypes 1 %ArrayOfObjects Groep) AS Groep FROM Prod_Kenmerk.DataDefinitie WHERE PRNr = ?") Do ResultSet.Execute(..PRNr) While (ResultSet.Next()) { Set Groep = ResultSet.Data("Groep") Do r%KenmerkenSets.SetAt(##class(DOM.PM.impl.ProductKenmerkenSets).%New(Groep,..PRNr),Groep) } } Quit r%KenmerkenSets ]]>