DOM.common.PersonalityUnishopVisitor,APPS.EC.Verkoop.OfferteVoorBestellingValidator,APPS.common.impl.Validator %String ASAP %String 1 DOM.common.enu.Personality 1 APPS.VKP.Offerte 1 %ListOfObjects 1 APPS.EC.Winkelkar.WinkelkarService 1 WinkelkarService:APPS.EC.Winkelkar.WinkelkarService 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 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