persistent 1 TECH.Persistent %TimeStamp %TimeStamp APPS.Halux.Planning.enu.GeplandStatus %String %Boolean %String %String 1 Set {*}=##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId({ID}).ProductieStatusGet() 1 %Integer APPS.Halux.Planning.impl.ExplicietePlanning list %String 1 Set {*}=##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId({ID}).LeverImpactGet() 1 1 1 ToeleveringNummer 1 Gepland GebruikerID:%String,Opmerking:%String,VerplaatsNaar:%TimeStamp %Boolean 0) { Set VorigeExplicietePlanning = ..ExplicietePlanningen.GetAt(..ExplicietePlanningen.Count()) Set ..Gepland = VorigeExplicietePlanning.VerplaatstVan Do ..ExplicietePlanningen.RemoveAt(..ExplicietePlanningen.Count()) Set Gelukt = 1 } Quit Gelukt ]]> 0) { Set VorigeExplicietePlanning = ..ExplicietePlanningen.GetAt(1) Set ..Gepland = VorigeExplicietePlanning.VerplaatstVan Do ..ExplicietePlanningen.Clear() } ]]> 0) { Set Opmerking = ..ExplicietePlanningen.GetAt(..ExplicietePlanningen.Count()).Opmerking } Quit Opmerking ]]> Gepland:%TimeStamp %Status %String 0) { Set LeverImpact = "+"_LeverImpact } Quit LeverImpact_"d" ]]> DueOut:%TimeStamp %Status %String %Library.CacheStorage ^APPS.Halux8A9.ToeleveringI610D ToeleveringInfoDefaultData ^APPS.Halux8A9.ToeleveringI610D ^APPS.Halux8A9.ToeleveringI610I ^APPS.Halux8A9.ToeleveringI610S %%CLASSNAME Dag DueOut ExplicietePlanningen GeplandStatus IngegevenDoor IsASAP Klant ProductieStatus Gepland