DOM.common.PersonalityUnishopVisitor %String 1 APPS.EC.dto.KlantSessieData 1 APPS.EC.dto.RefSessieData 1 Ref:%String,DataOpt:%String Personality:DOM.common.Personality 1 Personality:DOM.common.Personality 1 VanHoeckePersonality:DOM.common.VanHoeckePersonality Personality:DOM.common.Personality,Variant:DOM.PM.enu.Variant 1 =1) && (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 Personality.GeefID() '= ##class(DOM.common.enu.Personality).VanHoecke() { #dim HandelPersonality As DOM.common.HandelPersonality = Personality Set KortingSpecificatie.KlantID = HandelPersonality.GeefPrefix()_KortingSpecificatie.KlantID } Do KortingService.StelInKorting(KortingSpecificatie,KortingPercentage) ]]> DataOpt:%String 1 Ref:%String 1 SFSPersonality:DOM.common.SFSPersonality HaefeleBEPersonality:DOM.common.HaefeleBEPersonality VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality KischPersonality:DOM.common.KischPersonality DestilPersonality:DOM.common.DestilPersonality DupontPersonality:DOM.common.DupontPersonality DaroPersonality:DOM.common.DaroPersonality VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality