TECH.RegisteredObject APPS.VKP.OfferteService 1 1 %Status Order:DOM.VKP.Order APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferentiesList Order:DOM.VKP.Order 1 TECH.Iterator Oorsprong 'UNI' in ^KOD leegmaken. Zie ICT-3058.") Do NewException.VoegToeInnerExceptie(GecatchteException) Do ##class(TECH.ExceptionHandler).Throw(NewException) } While(..OfferteService.HeeftOfferteVanVH(Offerte)) { #dim GekoppeldeOfferte As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanVH(Offerte) Do OfferteLijst.InsertAt(GekoppeldeOfferte,1) ; Vooraan toevoegen, want OfferteVanVH moet uiteindelijk als eerste staan Set Offerte = GekoppeldeOfferte } } Quit ##class(TECH.ListIterator).%New(OfferteLijst) ]]> Offerte:APPS.VKP.impl.Offerte 1 APPS.VKP.impl.OfferteDocumentReferentiesBepaler.DocumentReferenties