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)
+ }
]]>