TECH.Mockable %String IU %String F %String ^KOD %String ^ORD %Integer 100 Order:DOM.VKP.impl.DataM.DataMOrder,OrderLijnenLijst:%ListOfObjects (..#OrderLijnVolgNrOffset + OrderLijnenLijst.Count())) { kill @..#GlobalOrderLijnen(Order.GeefKlantNr(), ..#Facturatie, Order.GeefID(), OrderLijn.Orderlijn.GeefLijnVolgNr()) } } Set @..#GlobalOrderLijnen(Order.GeefKlantNr(), ..#Facturatie, Order.GeefID(),0)=OrderLijnenLijst.Count()+101 } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ##class(vhLib.Logger).%New().Error("SalesOrderIn - Sorteren niet gelukt", "Het updaten van OrderID " _Order.GeefID() _" met gesorteerde orderlijnenlijst is niet gelukt!") Do ##class(TECH.ExceptionHandler).Throw(Exception) } ]]> OrderLijn:DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn 1 %Boolean Order:DOM.VKP.impl.DataM.DataMOrder,OrderLijnID:%String,LijnNr:%String,ProductNr:%String 1 Order:DOM.VKP.impl.DataM.DataMOrder,OrderLijnID:%String,LijnNr:%String 1 Orderlijn:DOM.VKP.impl.DataM.DataMOrderlijn,NieuwLijnVolgNr:%String 1 KLNr:%String,ORDNr:%String,OLNr:%String,PRNr:%String 1 %String KLNr:%String,ORDNr:%String,OLNr:%String,PRNr:%String 1