persistent VHOpslag %Library.Persistent 1 1 ConsolidatieNr Sys.cTimeStamp 0 %Library.Integer 0 Sys.cTimeStamp 0 Sys.cTimeStamp 0 Sys.cTimeStamp 0 %Library.String 0 Derde.Klant.Klant 0 Flow.OrderWMS.Lijn children Hoofding 1 %Library.String 0 %Library.String 0 %Library.String 0 %String 1 0 Set {*}=##class(Flow.OrderWMS.Hoofding).VerwerkingSoftwareLijst({ConsolidatieNr}) 1 Sys.cTimeStamp 0 %Library.String 0 %Library.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.Hoofding).%ExistsId(oid)) $$$ERROR($$$GeneralError,"Hoofding.OnDelete: object '"_oid_"' does not exist!") //Open object to delete New tmpHoofding Set tmpHoofding=##class(Flow.OrderWMS.Hoofding).%OpenId(oid) //Check if created object is valid Quit:(tmpHoofding=$$$NULLOREF) $$$ERROR($$$GeneralError,"Hoofding.OnDelete: unable to open object '"_oid_"'!") //Delete indices (IncludeLijnen=0, childindices wo verwijderd via Lijn.%OnDelete) New tmpResult Set tmpResult=tmpHoofding.DeleteIndex(0) //Close temp. object Do tmpHoofding.%Close() Quit tmpResult ]]> code IncludeLijnen:%Library.Boolean=1 cache 0 %Library.Status code IncludeLijnen:%Library.Boolean=1 cache 0 %Library.Status code cache 0 %Library.String code cache 0 %Library.String code 1 code CONSNr %Library.CacheSQLStorage ^Flow.Ord.HoofdingS data ^ORDW delimited "D" {ConsolidatieNr} "\" 22 "\" 3 "\" 24 "\" 23 "\" 6 "\" 1 "\" 7 "\" 21 "\" 20 "\" 17 "\" 5 "\" 2 "\" 4