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 } } } Index: vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstLBX/TestDesignCode.cls.xml =================================================================== diff -u -r61320 -r62249 --- vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstLBX/TestDesignCode.cls.xml (.../TestDesignCode.cls.xml) (revision 61320) +++ vhUnitTest/DOM/PM/KorttekstUtils/BepaalKorttekstLBX/TestDesignCode.cls.xml (.../TestDesignCode.cls.xml) (revision 62249) @@ -11,7 +11,7 @@ Do ..VerwachteWaarden.SetAt("/", ##class(DOM.PM.enu.LBXKlasse).Lade()) Do ..VerwachteWaarden.SetAt("S", ##class(DOM.PM.enu.LBXKlasse).Spoelbak()) Do ..VerwachteWaarden.SetAt("Y", ##class(DOM.PM.enu.LBXKlasse).Sifon()) - Do ..VerwachteWaarden.SetAt("1", ##class(DOM.PM.enu.LBXKlasse).SpaceStep()) //Moet nog aangepakt worden door PVR 22/06/2020 + Do ..VerwachteWaarden.SetAt("1", ##class(DOM.PM.enu.LBXKlasse).SpaceStep()) //Niet echt relevant aangezien er geen SpaceStep kenmerken in deze kenmerken zitten Do ..AssertWaarden(IngegevenKenmerkenDto, ##class(DOM.PM.enu.LBXKlasse).ValueListIterator(), "Klasse", 5,5) ]]>