persistent 1 %Persistent,APPS.Halux.common.Batch 62189,54458.271185 0 APPS.Halux.common.enu.ProductieLijn 1 %TimeStamp 1 APPS.Halux.common.enu.ProductieGroep 1 %Integer array 1 %Boolean 1 1 Set {*}=##class(APPS.Halux.common.impl.BatchImpl).%OpenId({ID}).IsActief() 1 ;1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;3814; Lijn:APPS.Halux.common.enu.ProductieLijn="" 1 1 %Status %TimeStamp %Integer ProductieLijn:APPS.Halux.common.enu.ProductieLijn TECH.Iterator APPS.Halux.common.enu.ProductieGroep APPS.Halux.common.enu.ProductieLijn Toelevering:DOM.LEV.Toelevering 0) && '..IsGeldigeProductieGroep(ProductieGroep)) { Do Errors.Insert("De productiegroep van de toelevering is verschillend van de productiegroep van de batch") } If (..IsAanwezigInAndereBatch(Toelevering)) { Do Errors.Insert("De toelevering zit reeds in een andere batch") } If (..Toeleveringen.IsDefined(Toelevering.GeefToeNr())) { Do Errors.Insert("De toelevering zit reeds in deze batch") } If ((ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) && ('..IsGeldigAfleverAdres(Toelevering))) { Do Errors.Insert("Het afleveradres van deze toelevering is anders dan de vorige") } If (Errors.Count() > 0) { Set MaakBatchError = ##class(APPS.Halux.common.impl.BatchError).%New() Set MaakBatchError.ToeleveringNummer = Toelevering.GeefToeNr() Set MaakBatchError.Boodschappen = Errors Set MaakBatchErrorLijst = ##class(%ListOfObjects).%New() Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.common.impl.ToeleveringException).%New(MaakBatchError)) } Do ..Toeleveringen.SetAt(1,Toelevering.GeefToeNr()) Set ..ProductieGroep = ProductieGroep ]]> Toelevering:DOM.LEV.Toelevering %Boolean 1 Toelevering:DOM.LEV.Toelevering 1 %Boolean Order:DOM.OV.Order 1 %String ProductieGroep:%String 1 %Boolean Toelevering:DOM.LEV.Toelevering 1 %Boolean Toelevering:DOM.LEV.Toelevering,TBXLade:DOM.PM.TBXProduct.TBXLade 1 APPS.Halux.common.enu.ProductieGroep %Boolean %Library.CacheStorage ^APPS.Halux.common7FB.BatchImplD BatchImplDefaultData ^APPS.Halux.common7FB.BatchImplD ^APPS.Halux.common7FB.BatchImplI ^APPS.Halux.common7FB.BatchImplS %%CLASSNAME AanmaakTijdstip Lijn ProductieGroep Toeleveringen subnode "Toeleveringen"