Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/HaefeleDEPrijsFactorBepaler.cls.xml =================================================================== diff -u -r61351 -r61463 --- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/HaefeleDEPrijsFactorBepaler.cls.xml (.../HaefeleDEPrijsFactorBepaler.cls.xml) (revision 61351) +++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBepaler/HaefeleDEPrijsFactorBepaler.cls.xml (.../HaefeleDEPrijsFactorBepaler.cls.xml) (revision 61463) @@ -5,17 +5,17 @@ %Decimal -0.57 +1.57 %Decimal -0.70 +1.70 %Decimal -0.55 +1.55 Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml =================================================================== diff -u -r61345 -r61463 --- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 61345) +++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 61463) @@ -134,8 +134,7 @@ @@ -575,6 +574,12 @@ Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New() Set KortingSpecificatie.PersonalityID = BerekeningsSpecificatie.GeefPersonality().GeefID() Set KortingSpecificatie.KlantID = BerekeningsSpecificatie.GeefKlantID() + If (KortingSpecificatie.KlantID [ "hfleDE_") { + If $$$Not(KortingSpecificatie.KlantID [ "hfleDE_DE") { + Set KortingSpecificatie.KlantID = "hfleDE_DE" _ $Piece(KortingSpecificatie.KlantID, "hfleDE_", 2) + } + } + Set KortingSpecificatie.Aantal = BerekeningsSpecificatie.GeefHoeveelheid() Set KortingSpecificatie.Familie = IngegevenKenmerken.GeefFamilie() Set KortingSpecificatie.Variant = IngegevenKenmerken.GeefVariant() Index: vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml =================================================================== diff -u -r59331 -r61463 --- vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 59331) +++ vhTest/Fake/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 61463) @@ -23,8 +23,7 @@ HahleOyPersonality:DOM.common.HahleOyPersonality - +