DOM.common.PersonalityUnishopVisitor,TECH.Mockable APPS.EC.dto.KlantSessieData 1 APPS.EC.dto.RefSessieData 1 DOM.VKP.dto.KortingSpecificatieFactory 1 DOM.VKP.KortingService 1 APPS.EC.impl.KlantSessieDataBepaler 1 APPS.EC.impl.RefSessieDataBepaler 1 WSimpl.Unishop.Login.KortingVoorVariantBepaler 1 KortingSpecificatieFactory:DOM.VKP.dto.KortingSpecificatieFactory="",KortingService:DOM.VKP.KortingService="",KlantSessieDataBepaler:APPS.EC.impl.KlantSessieDataBepaler="",RefSessieDataBepaler:APPS.EC.impl.RefSessieDataBepaler="",KortingVoorVariantBepaler:WSimpl.Unishop.Login.KortingVoorVariantBepaler="" 1 1 %Status 1 Ref:%String,DataOpt:%String VanHoeckePersonality:DOM.common.VanHoeckePersonality Personality:DOM.common.Personality 1 Personality:DOM.common.Personality 1 HaefeleBEPersonality:DOM.common.HaefeleBEPersonality HaefeleNLPersonality:DOM.common.HaefeleNLPersonality HaefeleDEPersonality:DOM.common.HaefeleDEPersonality HaefeleITPersonality:DOM.common.HaefeleITPersonality HaefeleATPersonality:DOM.common.HaefeleATPersonality HaefeleFRPersonality:DOM.common.HaefeleFRPersonality HaefeleDKPersonality:DOM.common.HaefeleDKPersonality HaefeleCHPersonality:DOM.common.HaefeleCHPersonality HaefeleSEPersonality:DOM.common.HaefeleSEPersonality HaefeleFIPersonality:DOM.common.HaefeleFIPersonality HaefeleNOPersonality:DOM.common.HaefeleNOPersonality HaefeleESPersonality:DOM.common.HaefeleESPersonality SFSPersonality:DOM.common.SFSPersonality OPOPersonality:DOM.common.OPOPersonality MartensPersonality:DOM.common.MartensPersonality VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality KischPersonality:DOM.common.KischPersonality DestilPersonality:DOM.common.DestilPersonality BiemarBoisPersonality:DOM.common.BiemarBoisPersonality CampeTonnyPersonality:DOM.common.CampeTonnyPersonality RiniPersonality:DOM.common.RiniPersonality FurnifitPersonality:DOM.common.FurnifitPersonality DSGroupPersonality:DOM.common.DSGroupPersonality DeBisschopPersonality:DOM.common.DeBisschopPersonality DeceuninckDeforcePersonality:DOM.common.DeceuninckDeforcePersonality PierardPersonality:DOM.common.PierardPersonality YachtSupplierPersonality:DOM.common.YachtSupplierPersonality DupontPersonality:DOM.common.DupontPersonality DaroPersonality:DOM.common.DaroPersonality HeinPersonality:DOM.common.HeinPersonality SeefelderPersonality:DOM.common.SeefelderPersonality ZweygartPersonality:DOM.common.ZweygartPersonality JBarthPersonality:DOM.common.JBarthPersonality KleinerPersonality:DOM.common.KleinerPersonality LayerPersonality:DOM.common.LayerPersonality BeslagDesignPersonality:DOM.common.BeslagDesignPersonality BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality GalimbertiPersonality:DOM.common.GalimbertiPersonality PavanelloPersonality:DOM.common.PavanelloPersonality FerexpertPersonality:DOM.common.FerexpertPersonality VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality HahleOyPersonality:DOM.common.HahleOyPersonality DozonPersonality:DOM.common.DozonPersonality BlumPLPersonality:DOM.common.BlumPLPersonality MeurerPersonality:DOM.common.MeurerPersonality OPODePersonality:DOM.common.OPODePersonality BlumCZPersonality:DOM.common.BlumCZPersonality OstermannBEPersonality:DOM.common.OstermannBEPersonality Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant,DefaultVariantIndienNietMeegegeven:%String 1 = 0) && (Korting <= 100)) { Set KortingPercentage = (Korting / 100) } ElseIf (Korting = "") { Set KortingPercentage = 0 } Else { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan korting '" _ Korting _ "' niet parsen. (Personality: '" _ Personality.GeefID() _ "', Klant: '" _ ..KlantSessieData.KlantID _ "', '" _ ..KlantSessieData.KlantNaam _ "')")) } If $$$Not(Korting = "") { Do ..KortingService.StelInKorting(KortingSpecificatie, KortingPercentage) } } ]]> Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant,DefaultVariantIndienNietMeegegeven:%String 1