Index: APPS/VKP/Korting/impl/KortingService.cls.xml =================================================================== diff -u -r48514 -r48516 --- APPS/VKP/Korting/impl/KortingService.cls.xml (.../KortingService.cls.xml) (revision 48514) +++ APPS/VKP/Korting/impl/KortingService.cls.xml (.../KortingService.cls.xml) (revision 48516) @@ -124,6 +124,11 @@ Set lbVariantenVoorTbx = $LB(##class(DOM.PM.enu.Variant).TandemboxAntaro()) } + #dim KopieerKortingVanTbxNaarLbx As %Boolean = (PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL()) + If KopieerKortingVanTbxNaarLbx { + Set lbVariantenVoorTbx = lbVariantenVoorTbx _ $LB(##class(DOM.PM.enu.Variant).LegraboxPure()) + } + #dim KortingConfiguratieArray As Array Of APPS.VKP.dto.KortingConfiguratie = ##class(%ArrayOfObjects).%New() While ReductionIt.HasNext() {