TECH.Mockable Verpakkingen:APPS.VKP.Offerte.dto.VerpakkingList,LeverAdres:DOM.VKP.LeverAdres,OfferteId:%String,VroegsteAfhaalDatum:%Date APPS.TRANSP.OfferteService.dto.BerekenInput 0) { set Iterator = ##class(TECH.ListIterator).%New(Verpakkingen) while Iterator.HasNext() { Do BerekenInput.TeVerzendenItems.Insert(..NaarTeVerzendItem(Iterator.Next())) } } Quit BerekenInput ]]> LeverAdres:DOM.VKP.impl.LeverAdres 1 APPS.TRANSP.dto.InternationaalAdres Verpakking:APPS.VKP.Offerte.dto.Verpakking 1 APPS.TRANSP.OfferteService.dto.TeverzendenItem