Index: vhUnitTest/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/CheckoutTypeBepaler/Test.cls.xml
===================================================================
diff -u -r33810 -r33822
--- vhUnitTest/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/CheckoutTypeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 33810)
+++ vhUnitTest/WSimpl/Unishop/Login/WebshopSessieSettingsInvuller/CheckoutTypeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 33822)
@@ -38,17 +38,46 @@
 <Method name="Test: CheckoutTypeBepaler met klantuitzondering geeft Standaard Checkouttype ">
 <Implementation><![CDATA[
 	#dim WebshopSessieSettingsInvuller As WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.CheckoutTypeBepaler = ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.CheckoutTypeBepaler).%New()
+	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = ..MaakWebshopSessieVanHoecke(##class(DOM.VKP.enu.Klant).DaroFactors())
+	
+	Do $$$AssertEquals(WebshopSessieSettingsInvuller.Bepaal(WebshopSessie),##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+]]></Implementation>
+</Method>
+
+<Method name="Test: CheckoutTypeBepaler met klant buiten benelux geeft MetTransportKeuze Checkouttype ">
+<Implementation><![CDATA[
+	#dim WebshopSessieSettingsInvuller As WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.CheckoutTypeBepaler = ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.CheckoutTypeBepaler).%New()
+	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = ..MaakWebshopSessieVanHoecke(..GeefNietBeneluxKlantID())
+	
+	Do $$$AssertEquals(WebshopSessieSettingsInvuller.Bepaal(WebshopSessie),##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
+]]></Implementation>
+</Method>
+
+<Method name="MaakWebshopSessieVanHoecke">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.EC.dto.WebshopSessie</ReturnType>
+<Implementation><![CDATA[
+	#dim WebshopSessieSettingsInvuller As WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.CheckoutTypeBepaler = ##class(WSimpl.Unishop.Login.WebshopSessieSettingsInvuller.CheckoutTypeBepaler).%New()
 	#dim WebshopSessie As APPS.EC.dto.WebshopSessie = ##class(APPS.EC.dto.WebshopSessie).%New()
 	Set WebshopSessie.PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
 	Set WebshopSessie.LandCode = "DE"
 	Set WebshopSessie.VhintraSessie = ##class(APPS.algemeen.VhintraShell.dto.VhintraSessie).%New()
 	Set WebshopSessie.VhintraSessie.GebruikerData = ##class(DOM.common.dto.GebruikerData).%New()
 	Set WebshopSessie.VhintraSessie.GebruikerData.KlantData = ##class(DOM.common.dto.VanHoeckeKlantData).%New()
-	Set WebshopSessie.VhintraSessie.GebruikerData.KlantData.ID = ##class(DOM.VKP.enu.Klant).DaroFactors()
-	
-	Do $$$AssertEquals(WebshopSessieSettingsInvuller.Bepaal(WebshopSessie),##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+	Set WebshopSessie.VhintraSessie.GebruikerData.KlantData.ID = KlantID
+	Quit WebshopSessie
 ]]></Implementation>
 </Method>
+
+<Method name="GeefNietBeneluxKlantID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim NietBeneluxKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakNietBENELUXOnderneming()
+	Quit NietBeneluxKlant.GeefID()
+]]></Implementation>
+</Method>
 </Class>