APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit Persaansturing %String MVXLadePersen %String Merivobox lade persen 1 ActiviteitGroepID:%String APPS.Halux.PPS.Activiteit.Activiteit 1 APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo Geeft een array terug met werklijstitems Item:APPS.Halux.common.ProductieSequentieItem 1 %ArrayOfObjects ELEMENTTYPE="APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem" Manipulatie van een veldje dat toch niet gebruikt wordt bij MVX, deze commentaar staat ook in de code voor de aansturing van de PLC Set UitvoeringInfo.GeperstStatus = ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.LadePersStatus).NietGeperst() Set UitvoeringInfo.Volgorde = Item.SequentieNummer Set UitvoeringInfo.WaarschuwingTijd = 80 Set UitvoeringInfo.RedenTijd = 180 // Infos: R: = rood G: = groen Set InfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.MVX.MVXLadePersen.InfoBepaler).%New() Set UitvoeringInfo.Info1 = InfoBepaler.GeefInfo1(Item) Set UitvoeringInfo.Info2 = InfoBepaler.GeefInfo2(Item) Set UitvoeringInfo.KlantId = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Item.PartijID) #dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New() If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken)) { Set UitvoeringInfo.Breedte = ##class(APPS.Halux.impl.ProductieAPI).%New().GeefNietTePersenBreedteBepaler().BepaalNietTePersenBreedte()*10 Set UitvoeringInfo.GeperstStatus = ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.LadePersStatus).NietTePersen() } Do Resultaat.SetAt(WerklijstItem, ..#InformatieID) Quit Resultaat ]]> WerklijstItem:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem %Library.CacheStorage