persistent 0 VHOpslag TECH.Persistent 1 Magazijn:%Library.String %Library.Boolean 1 Magazijn:%Library.String %Library.Boolean %String %Library.String 1 ConsNr:%Library.String,Minutes:%Library.Integer=15 %Library.List 1 Dev:%Library.String,ConsNr:%Library.String,Magazijn:%Library.String %Library.String Sys.cTimeStamp Sys.cTimeStamp %Library.Integer Sys.cTimeStamp %String 1 Set {*}=##class(Flow.OrderWMS.Hoofding).DueOutTimeTxt({ConsolidatieNr}) 1 Sys.cTimeStamp %Library.String Derde.Klant.Klant Flow.OrderWMS.Lijn children Hoofding 1 %Library.String %String 1 Set {*}=##class(Flow.OrderWMS.Hoofding).VerwerkingSoftwareLijst({ConsolidatieNr}) 1 %String 1 Set {*}=##class(Flow.OrderWMS.Hoofding).OBJTOutboundorderCalc({ConsolidatieNr}) 1 %Library.String Flow.OrderWMS.enu.StatusWMS Sys.cTimeStamp %String 1 Set {*}=$S({DoorsturenWMS}="":"",1:$zdt({DoorsturenWMS},3)) 1 %String %String %String %String %String %String %Date %Library.String %Library.String 1 1 ConsolidatieNr 1 CONSNr 1 CONSNr 1 CONSNr 1 CONSNr:%String 1 CONSNr:%String 1 CONSNr:%String %String 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.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 ]]> IncludeLijnen:%Library.Boolean=1 cache 0 %Library.Status document literal IncludeLijnen:%Library.Boolean=1 cache 0 %Library.Status document literal cache 0 %Library.String document literal cache 0 %Library.String document literal (19*3600)) Set Tijd=$P($H,",",2) ; indien ongeldige tijd, soms is de tijd 0 of zelfs negatief - PV 29/11/2010 Quit $ZT(Tijd,2) ]]> Dev:%Library.String,Magazijn:%Library.String cache 0 %Library.String document literal %Library.CacheSQLStorage ^Flow.Ord.HoofdingS data ^ORDW delimited "D" {ConsolidatieNr} "\" "A" 2 "\" 22 "\" 22 "\" 3 "\" 24 "\" 23 "\" 6 "\" 1 "\" "A" 8 "\" 7 "\" "S","V" 1 "\" "A" 6 "\" 21 "\" 20 "\" "A" 5 "\" 17 "\" 5 "\" 2 "\" 4 "\" "A" 7