Index: vhUnitTest/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/CheckoutTypeBepaler/Test.cls.xml =================================================================== diff -u -r33822 -r33947 --- vhUnitTest/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/CheckoutTypeBepaler/Test.cls.xml (.../Test.cls.xml) (revision 33822) +++ vhUnitTest/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/CheckoutTypeBepaler/Test.cls.xml (.../Test.cls.xml) (revision 33947) @@ -3,19 +3,34 @@ vhUnitTest.TestCase + +Klant:DOM.VKP.VanHoeckeKlant + + + + + +TECH.RegisteredObject + + +DOM.VKP.VerkoopAPI +1 + + + +LocatieAPI:DOM.common.impl.LocatieAPI +1 +1 +%Status +1 + + + + +PersonalityID:DOM.common.enu.Personality,KlantID:DOM.VKP.KlantID +APPS.EC.Unishop.enu.CheckoutType + + + + +KlantID:%String +1 +%Boolean + + + + +PersonalityID:DOM.common.enu.Personality +1 +%Boolean + + + + + + Index: APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml =================================================================== diff -u -r32374 -r33947 --- APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml (.../MaatwerkDefaultsViaWinkelkarToepasser.cls.xml) (revision 32374) +++ APPS/PM/Maatwerk/impl/MaatwerkDefaultsViaWinkelkarToepasser.cls.xml (.../MaatwerkDefaultsViaWinkelkarToepasser.cls.xml) (revision 33947) @@ -21,12 +21,18 @@ 1 + +APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler +1 + + Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar,WinkelkarService:DOM.EC.Winkelkar.impl.WinkelkarService="" %Status @@ -84,6 +90,10 @@ Set KenmerkenDefaults.GekoppeldeIngegevenKenmerken = ##class(TECH.ListUtils).CopyArrayOfObjects(LaatstGewijzigdeKenmerken.GekoppeldeIngegevenKenmerken) Do ..KopieerWaardenVanGekoppeldeIngegevenKenmerken(TAORKenmerken.GekoppeldeIngegevenKenmerken, KenmerkenDefaults.GekoppeldeIngegevenKenmerken) } + + If ..CheckoutTypeBepaler.Bepaal(..Winkelkar.Personality.ID, ..Winkelkar.KlantID()) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() { + Set KenmerkenDefaults.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1() + } ]]> Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller.cls.xml =================================================================== diff -u -r33351 -r33947 --- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller.cls.xml (.../WebshopSessieSettingsInvuller.cls.xml) (revision 33351) +++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller.cls.xml (.../WebshopSessieSettingsInvuller.cls.xml) (revision 33947) @@ -19,7 +19,6 @@ -APPS.EC.Unishop.enu.CheckoutType Index: vhTest/Mock/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller.cls.xml =================================================================== diff -u -r33351 -r33947 --- vhTest/Mock/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller.cls.xml (.../WebshopSessieSettingsInvuller.cls.xml) (revision 33351) +++ vhTest/Mock/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller.cls.xml (.../WebshopSessieSettingsInvuller.cls.xml) (revision 33947) @@ -11,8 +11,7 @@ -APPS.EC.Unishop.enu.CheckoutType - Index: vhTest/Dummy/DOM/VKP/VanHoeckeKlant.cls.xml =================================================================== diff -u -r29059 -r33947 --- vhTest/Dummy/DOM/VKP/VanHoeckeKlant.cls.xml (.../VanHoeckeKlant.cls.xml) (revision 29059) +++ vhTest/Dummy/DOM/VKP/VanHoeckeKlant.cls.xml (.../VanHoeckeKlant.cls.xml) (revision 33947) @@ -55,6 +55,12 @@ + + +DOM.VKP.LeverAdres + + Index: WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/CheckoutTypeBepaler.cls.xml =================================================================== diff -u -r33815 -r33947 --- WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/CheckoutTypeBepaler.cls.xml (.../CheckoutTypeBepaler.cls.xml) (revision 33815) +++ WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/CheckoutTypeBepaler.cls.xml (.../CheckoutTypeBepaler.cls.xml) (revision 33947) @@ -3,8 +3,8 @@ TECH.RegisteredObject - -DOM.common.impl.LocatieAPI + +APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler 1 @@ -15,40 +15,17 @@ %Status 1 WebshopSessie:APPS.EC.dto.WebshopSessie APPS.EC.Unishop.enu.CheckoutType - - - -KlantID:%String -1 -%Boolean - - - - -PersonalityID:DOM.common.enu.Personality -1 -%Boolean - - Index: APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor.cls.xml =================================================================== diff -u -r33944 -r33947 --- APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor.cls.xml (.../WebshopKenmerkDomeinPostProcessor.cls.xml) (revision 33944) +++ APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor.cls.xml (.../WebshopKenmerkDomeinPostProcessor.cls.xml) (revision 33947) @@ -10,6 +10,11 @@ 1 + +APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler +1 + + 1 1 @@ -19,6 +24,7 @@ Do ##super() Set ..IsActiefValidator = ##class(APPS.EC.UnishopConfigurator.impl.IsActiefValidator).%New(##class(APPS.common.enu.ApplicatieType).Extern()) + Set ..CheckoutTypeBepaler = ##class(APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New() Quit $$$OK ]]> @@ -157,6 +163,10 @@ } Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarden(..TAOREnum.KenmerkNaam.RugHoogte) + + If ..CheckoutTypeBepaler.Bepaal(..Personality.GeefID(), ..KlantIDVanEindklant) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() { + Do ..KenmerkMogelijkheden.VerwijderMogelijkeWaarden(..TAOREnum.KenmerkNaam.VerpakkingType) + } ]]>