persistent VHOpslag %Library.Persistent 1 1 ORDNr,OLUNr %Library.Integer 0 %Library.Integer 0 %Library.Integer 0 Sys.cTimeStamp 0 Flow.OrderWMS.Hoofding parent Lijnen 1 %Library.Integer 0 %Library.Integer 0 %Library.String 0 Prod.Product 0 %Library.String 0 Flow.OrderWMS.Sub children Lijn 1 %String 0 code IsNew:%Library.Boolean=1 cache 0 %Library.Status code IsNew:%Library.Boolean=1 cache 0 %Library.Status 1 code oid:%Library.ObjectIdentity cache 0 %Library.Status Id Set oid=$LI(oid,1) //Check if oid is valid, if not return error Quit:('##class(Flow.OrderWMS.Lijn).%ExistsId(oid)) $$$ERROR($$$GeneralError,"Lijn.OnDelete: object '"_oid_"' does not exist!") //Open object to delete New tmpLijn Set tmpLijn=##class(Flow.OrderWMS.Lijn).%OpenId(oid) //Check if created object is valid Quit:(tmpLijn=$$$NULLOREF) $$$ERROR($$$GeneralError,"Lijn.OnDelete: unable to open object '"_oid_"'!") New tmpResult Set tmpResult=tmpLijn.DeleteIndex() //Close temp. object Do tmpLijn.%Close() Quit tmpResult ]]> code cache 0 %Library.Status code cache 0 %Library.Status %Library.CacheSQLStorage ^Flow.Ord.LijnS data ^ORDW delimited "D" {Hoofding.ConsolidatieNr} "D" {ORDNr} {OLUNr} "\" 6 "\" 5 "\" 4 "\" 7 "\" 3 "\" 1 "\" 2 "\" 8