APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit MVXDwarsverdelingInkorten %String MVXDwarsverdelingInkorten %String Merivobox Dwarsverdeling inkorten 1 ActiviteitGroepID:%String APPS.Halux.PPS.Activiteit.Activiteit 1 APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo Item:APPS.Halux.common.ProductieSequentieItem 0 { #dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID) #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.DwarsverdelingInkortenUitvoeringInfo = WerklijstItem.UitvoeringInfo #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom() #dim DwarsverdelingItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Dwarsverdeling()) #dim DwarsverdelingHouder As DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).DwarsverdelingHouder()) #dim IsDwarsverdelingBewerkt As %Boolean = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(DwarsverdelingItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte()) //Dwarsverdeling Do ..VulInInkortenInfo(.UitvoeringInfo, Item, DwarsverdelingItem, IngegevenKenmerken) Do ..VulInDwarsverdelingInfo(.UitvoeringInfo, DwarsverdelingItem, IngegevenKenmerken) Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, IngegevenKenmerken) Set WerklijstItem.UitvoeringInfo = UitvoeringInfo Do WerklijstItem.Save() Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID() Do WerklijstItem.Save() //DwarsverdelingHouder Set WerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item, ..#InformatieID) Set UitvoeringInfo = WerklijstItem.UitvoeringInfo Do ..VulInDwarsverdelingHouderBasisInfo(.UitvoeringInfo, DwarsverdelingHouder, IngegevenKenmerken) Do ..VulInDwarsverdelingHouderInfo(.UitvoeringInfo, IngegevenKenmerken) Set WerklijstItem.UitvoeringInfo = UitvoeringInfo Do WerklijstItem.Save() Set WerklijstItem.UitvoeringInfo.UniqueID = WerklijstItem.GeefID() Do WerklijstItem.Save() } ]]> 1 1 1 1 Item:APPS.Halux.common.ProductieSequentieItem,Product:DOM.PM.MaatwerkProduct 1 %String %Library.CacheStorage