1 TECH.Mockable DOM.common.ProjectSettingsAPI 1 ProjectSettingsApi:DOM.common.ProjectSettingsAPI 1 1 %Status 1 KlantID:DOM.VKP.VanHoeckeKlantID,ProductID:%String,ToeleveringSplitser:APPS.Halux.common.ToeleveringSplitser="" APPS.Halux.common.enu.ProductieGroep ProductID:%String,ToeleveringSplitser:APPS.Halux.common.ToeleveringSplitser 1 APPS.Halux.common.impl.ProductieGroepBepaler Lijst van APPS.Halux.common.enu.ProductieLijn ProductieGroep:APPS.Halux.common.enu.ProductieGroep %ListOfObjects ProductID:DOM.common.ProductID APPS.Halux.common.enu.Categorie Toelevering:DOM.AKP.Toelevering APPS.Halux.common.enu.Categorie ToeleveringID:%String %String 1) { Do ExtraAchtervoegsels.Insert(Order.GeefAfleveradresID()) } If (ExtraAchtervoegsels.Count() > 0) Set DisplayNaam = DisplayNaam_" ("_##class(TECH.ListUtils).ListToPieces(ExtraAchtervoegsels," ")_")" } Set:(##class(TECH.StringUtils).ToUpper(Order.GeefCommissieReferentie()) [ "TALSEE") DisplayNaam = "TALSEE | " _ DisplayNaam Set:(##class(TECH.StringUtils).ToUpper(Order.GeefOrderReferentie()) [ "TALSEE") DisplayNaam = "TALSEE | " _ DisplayNaam If $$$Not(..ProjectSettingsApi.IsActiefAlpnachRechtstreeks()) { Set:(##class(TECH.StringUtils).ToUpper(Order.GeefCommissieReferentie()) [ "ALPNACH") DisplayNaam = "ALPNACH | " _ DisplayNaam Set:(##class(TECH.StringUtils).ToUpper(Order.GeefOrderReferentie()) [ "ALPNACH") DisplayNaam = "ALPNACH | " _ DisplayNaam } } Quit DisplayNaam ]]> Toelevering:DOM.AKP.Toelevering %String String:%String,List:%ListOfDataTypes 1 Toelevering:DOM.AKP.Toelevering 1 %String 0) { Set BesteldStatus = "B" } ElseIf (FreqTabel.GeefFrequentieVanItem("-") = ProductLijnen.Count()) { Set BesteldStatus = "-" } Quit BesteldStatus ]]> Toelevering:DOM.AKP.Toelevering 1 %String Toelevering:DOM.AKP.Toelevering 1 %String Toelevering:DOM.AKP.Toelevering %ListOfObjects ELEMENTTYPE="DOM.PM.KADProduct.KADKaderdeur" Toelevering:DOM.AKP.Toelevering %ListOfObjects ELEMENTTYPE="DOM.AKP.ProductToeleveringLijn"