DOM.common.PersonalityUnishopVisitor,TECH.Mockable,APPS.common.impl.Validator %String ASAP %String 1 DOM.common.enu.Personality 1 APPS.VKP.Offerte 1 %ListOfObjects 1 APPS.EC.Winkelkar.WinkelkarService 1 APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler 1 DOM.common.CommonAPI 1 WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler="",CommonApi:DOM.common.CommonAPI="" 1 1 %Status 1 Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality %Boolean Offerte:APPS.VKP.Offerte,KlantID:DOM.VKP.VanHoeckeKlantID,PersonalityID:DOM.common.enu.Personality 1 TECH.Exceptions.Exception VanHoeckePersonality:DOM.common.VanHoeckePersonality 1 %Boolean VanHoeckePersonality:DOM.common.VanHoeckePersonality %Boolean SFSPersonality:DOM.common.SFSPersonality HaefeleBEPersonality:DOM.common.HaefeleBEPersonality HaefeleNLPersonality:DOM.common.HaefeleNLPersonality VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality DestilPersonality:DOM.common.DestilPersonality DupontPersonality:DOM.common.DupontPersonality KischPersonality:DOM.common.KischPersonality VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality DaroPersonality:DOM.common.DaroPersonality HeinPersonality:DOM.common.HeinPersonality SeefelderPersonality:DOM.common.SeefelderPersonality BeslagDesignPersonality:DOM.common.BeslagDesignPersonality ZweygartPersonality:DOM.common.ZweygartPersonality JBarthPersonality:DOM.common.JBarthPersonality GalimbertiPersonality:DOM.common.GalimbertiPersonality PavanelloPersonality:DOM.common.PavanelloPersonality FerexpertPersonality:DOM.common.FerexpertPersonality BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality 1 1 1 0) If (HeeftMaatwerklijnen && ..Offerte.ZijnPrijzenVervallen()) { #dim Foutmelding As %String = "De offerte '" _ ..Offerte.GeefID() _ "' is niet meer geldig!" #dim Exception As TECH.Exceptions.Exception = ##class(APPS.VKP.Offerte.impl.OfferteNietMeerGeldigException).%New(Foutmelding) Do ..Meldingen.Insert(Exception) } ]]> 1