Index: vhConsistency/Checks/MastersVarianten.cls.xml =================================================================== diff -u -r2196 -r2197 --- vhConsistency/Checks/MastersVarianten.cls.xml (.../MastersVarianten.cls.xml) (revision 2196) +++ vhConsistency/Checks/MastersVarianten.cls.xml (.../MastersVarianten.cls.xml) (revision 2197) @@ -15,7 +15,7 @@ Set Status = $$$OK Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New() - Set MasterUnIDLijst = ##class(%ListOfDataTypes).%New() + Set KenmerkenSetIDs = ##class(APPS.PM.dto.Kenm.KenmerkenSetIDs).%New() Set KenmerkGroep = "OL" Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() @@ -36,8 +36,12 @@ /// Als het een master is dan gaan we de wijzigingen ook doorvoeren op de varianten /// Wijzigingen die binnen deze method lopen zullen echter niet in de bulk event komen, maar zullen allemaal single events zijn. If ((ProductKenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1) = ##class(APPS.PM.enu.GeneratieType).Master())) { - Do MasterUnIDLijst.Insert(PRNr) - Set AutoVariantenLijst = KenmerkenService.GeefAutoVariantenVanMasters(MasterUnIDLijst,KenmerkGroep).GetAt(1).AutoVarianten + + Set KenmerkenSetID = ##class(APPS.PM.dto.Kenm.KenmerkenSetID).%New() + Set KenmerkenSetID.ProductID = PRNr + Set KenmerkenSetID.UnID = PRNr + Do KenmerkenSetIDs.Sets.Insert(KenmerkenSetID) + Set AutoVariantenLijst = KenmerkenService.GeefAutoVariantenVanMasters(KenmerkenSetIDs,KenmerkGroep).GetAt(1).AutoVarianten Set AutoVariantenIterator = ##class(TECH.ListIterator).%New(AutoVariantenLijst) While (AutoVariantenIterator.HasNext()) { @@ -51,7 +55,7 @@ } } - Do MasterUnIDLijst.Clear() + Do KenmerkenSetIDs.Sets.Clear() } } } Index: APPS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r2173 -r2197 --- APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 2173) +++ APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 2197) @@ -29,7 +29,7 @@ De auto's van de ProductID's opvragen -MasterUnIDs:%ListOfDataTypes,KenmerkGroep:%String +KenmerkenSetIDs:APPS.PM.dto.Kenm.KenmerkenSetIDs,KenmerkGroep:%String APPS.PM.dto.Kenm.AutoVariantenVanMasters -MasterUnIDs:%ListOfDataTypes,KenmerkGroep:%String +KenmerkenSetIDs:APPS.PM.dto.Kenm.KenmerkenSetIDs,KenmerkGroep:%String APPS.PM.dto.Kenm.AutoVariantenVanMasters 1