Index: DOM/PM/impl/SSTLangtekstCreator.cls.xml =================================================================== diff -u -r61860 -r62249 --- DOM/PM/impl/SSTLangtekstCreator.cls.xml (.../SSTLangtekstCreator.cls.xml) (revision 61860) +++ DOM/PM/impl/SSTLangtekstCreator.cls.xml (.../SSTLangtekstCreator.cls.xml) (revision 62249) @@ -20,11 +20,11 @@ Set ..SSTKenmerken = ..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()) If $$$Not($IsObject(..SSTKenmerken)) { - Set GekoppeldeIKIt = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.GekoppeldeIngegevenKenmerken) - While GekoppeldeIKIt.HasNext() { - #dim GKIK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = GekoppeldeIKIt.Next() - If (GKIK.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()) { - Set ..SSTKenmerken = GKIK.IngegevenKenmerken + Set GekoppeldeIKIterator = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.GekoppeldeIngegevenKenmerken) + While GekoppeldeIKIterator.HasNext() { + #dim GekoppeldeIK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = GekoppeldeIKIterator.Next() + If (GekoppeldeIK.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()) { + Set ..SSTKenmerken = GekoppeldeIK.IngegevenKenmerken } } }