persistent VHOpslag %Library.Persistent 0 %Library.Integer %Library.Integer %Library.Integer Sys.cTimeStamp Flow.OrderWMS.Hoofding parent Lijnen 1 %Library.Integer %Library.Integer %Library.String %String ProdHist.ChargeTrace Prod.Product %Library.String koppeling met lijnnummer in ^KUL %Integer Flow.OrderWMS.Sub children Lijn 1 1 1 ORDNr,OLUNr 1 ConsNr,ORDNr,OLUNr,ReturnEmptyWhenNew:%Library.Boolean=0 %String %Boolean IsNew:%Library.Boolean=1 cache 0 %Library.Status document literal IsNew:%Library.Boolean=1 cache 0 %Library.Status document literal 1 oid:%Library.ObjectIdentity cache 0 %Library.Status document literal 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 ]]> cache 0 %Library.Status document literal cache 0 %Library.Status document literal %Library.CacheSQLStorage ^Flow.Ord.LijnS data ^ORDW delimited "D" {Hoofding.ConsolidatieNr} "D" {ORDNr} {OLUNr} "\" 6 "\" 5 "\" 4 "\" 10 "\" 7 "\" 9 "\" 3 "\" 1 "\" 2 "\" 8