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" } } Set RolNaam = ..GeefStandaardOfBewerkteRolnaam(RolNaam, HalffabItem) #dim LowerCaseRol = ##class(TECH.StringUtils).ToLower(RolNaam) If (##class(TECH.StringUtils).Equals(RolNaam, "Mat", "MatX", "MatY", "MatZ") && (HuidigeMesFase >= 2)) { 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, " ", "") If (RolNaam = "Sifonkap") { Set RolNaam = "Sifonkap"_"."_$Piece($Piece(HalffabItem.GeefOmschrijvingVoorDocs(), ",", 1), " ", 2) } Quit RolNaam ]]> Waarde:%DataType,Type:%Dictionary.CacheClassname,PropertyNaam:%String="" 1 %DataType RolNaam:%String,HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem = 2)) { If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set RolNaam = "TOBSynchroLinkage.Processed" } Else { Set RolNaam = "TOBSynchroLinkage.Standard" } } If (##class(TECH.StringUtils).Equals(RolNaam, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Zijstabilisering()) && (HuidigeMesFase >= 2)) { If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set RolNaam = "SideStabiliser.Processed" } Else { Set RolNaam = "SideStabiliser.Standard" } } If (##class(TECH.StringUtils).Equals(RolNaam, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementVoor()) && (HuidigeMesFase >= 2)) { If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set RolNaam = "DesignElementFront.Processed" } Else { Set RolNaam = "DesignElementFront.Standard" } } If (##class(TECH.StringUtils).Equals(RolNaam, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Opvullijst()) && (HuidigeMesFase >= 2)) { If (HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) && $$$Not(HalffabItem.AfmetingTeBekomen = 486)) { //Workaround om in .NET geen wijziging te moeten doen voor opvullijsten Set RolNaam = "DistanceTrim.Processed" } Else { Set RolNaam = "DistanceTrim.Standard" } } If (##class(TECH.StringUtils).Equals(RolNaam, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Voorstuk()) && (HuidigeMesFase >= 2)) { If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set RolNaam = "FrontPanel.Processed" } Else { Set RolNaam = "FrontPanel.Standard" } } If (##class(TECH.StringUtils).Equals(RolNaam, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RelingVoor()) && (HuidigeMesFase >= 2)) { If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set RolNaam = "GalleryFront.Processed" } Else { Set RolNaam = "GalleryFront.Standard" } } If (##class(TECH.StringUtils).Equals(RolNaam, ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Dwarsverdeling()) && (HuidigeMesFase >= 2)) { If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set RolNaam = "CrossGallery.Processed" } Else { Set RolNaam = "CrossGallery.Standard" } } If (##class(TECH.StringUtils).Equals(RolNaam, ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).DwarsverdelingOnder()) && (HuidigeMesFase >= 2)) { If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set RolNaam = "CrossGalleryLower.Processed" } Else { Set RolNaam = "CrossGalleryLower.Standard" } } Quit RolNaam ]]>