1 TECH.RegisteredObject 1 Toelevering:DOM.AKP.Toelevering,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo %ListOfObjects Omschrijving:%String,Naam:%String,Waarde:%String 1 APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions SequentieNummer:%String,Naam:%String,Waarde:%String 1 APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions 0): RelatiefSequentieNummer, 1: MaximumAantalLadesProductieOrder) Quit ..GeefOptie("LADE " _ ..PrependNul(RelatiefSequentieNummer), ..PrependNul(RelatiefSequentieNummer) _ Naam, Waarde) ]]> Naam:%String,Waarde:%String 1 APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions Getal:%Integer,Lengte:%Integer=3 1 %String HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %String = NieuweLiReLogicaLiveVanafFase)) { Set Halffab = HalffabItem.GeefHalffab() If (Halffab.LiRe = ##class(DOM.PM.enu.LiRe).LinksRechts()) { Set RolNaam = "LinksRechts" } } If (##class(TECH.StringUtils).Equals(RolNaam, "TiponBlumotionSynchronisatieStang") && (HuidigeMesFase >= NieuweTOBLogicaLiveVanafFase)) { If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set RolNaam = "TOBSynchroLinkage.Processed" } Else { Set RolNaam = "TOBSynchroLinkage.Standard" } } #dim LowerCaseRol = ##class(TECH.StringUtils).ToLower(RolNaam) If (##class(TECH.StringUtils).Equals(RolNaam, "Mat", "MatX", "MatY", "MatZ") && (HuidigeMesFase >= NieuweMattenLogicaLiveVanafFase)) { If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set RolNaam = RolNaam_".Processed" } Else { Set RolNaam = RolNaam_".Standard" } } ElseIf ($IsObject(HalffabItem.ParentItem) && $$$Not(HalffabItem.ParentItem.GeefRol() = IngegevenKenmerken.GeefVariant())) { Set RolNaam = HalffabItem.ParentItem.GeefRol() _ "." _ RolNaam } Set RolNaam = ##class(TECH.StringUtils).ToFirstCase(RolNaam) Set Converter = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.DomRollenNaarObjective).%New() Set RolNaam = Converter.Converteer(RolNaam, IngegevenKenmerken) Set RolNaam = ##class(TECH.StringUtils).Replace(RolNaam, " ", "") Quit RolNaam ]]> Waarde:%DataType,Type:%Dictionary.CacheClassname 1 %DataType