TECH.RegisteredObject %Integer 0 %ListOfObjects 1 %Integer 1 initvalue:%CacheString 1 1 %Status 1 Order:DOM.VKP.impl.DataM.DataMOrder Order:DOM.VKP.impl.DataM.DataMOrder 1 (100 + ..NieuwOrderlijnVolgNr)) { kill ^KOD(Order.GeefKlantNr(), "F", Order.GeefID(), OrderLijn.Orderlijn.GeefLijnVolgNr()) } If $$$Not(OrderLijn.Orderlijn.%Extends("DOM.VKP.impl.DataM.DataMTekstOrderlijn")) { Set ^ORD("IU",Order.GeefID(),OrderLijn.Orderlijn.GeefID()) = OrderLijn.NieuwLijnVolgNr } } ]]> Order:DOM.VKP.impl.DataM.DataMOrder 1 Order:DOM.VKP.impl.DataM.DataMOrder 1 OrderTekstLijnIterator:%ListOfObjects 1 Orderlijn:DOM.VKP.impl.DataM.DataMOrderlijn 1 DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn