TECH.RegisteredObject "_(+$H-31) #dim ResultSet As %String = ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query) while ResultSet.Next() { #dim OfferteID As %String = ResultSet.GetData(1) write OfferteID,$$$CR #dim Offerte As APPS.VKP.Offerte = ##class(APPS.VKP.impl.Offerte).OpenId(OfferteID) do Service.HerrekenOfferte(Offerte) } ]]>