Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r51172 -r51173
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 51172)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 51173)
@@ -50,17 +50,19 @@
 	If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).VanHoecke() {
 		Quit ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())
 	} Else {
-		#dim Klant As DOM.VKP.VanHoeckeKlant
+		#dim KlantID As DOM.common.PartijID
 		#dim Partij As DOM.PARTIJ.Partij
 		If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleNL(){
-			Set Partij = ..PartijApi.GeefPartij("K||2671")
-			Quit ##class(APPS.VKP.VerzendWijze).%New(2671,"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+			Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
+			Set Partij = ..PartijApi.GeefPartij(KlantID)
+			Quit ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
 		} ElseIf Winkelkar.GeefPersonality().GeefLeverancierData().PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke() {
 			Quit ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefPersonality().GeefLeverancierData().EigenKlantId)
 		} Else {
-			#dim Hein As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant("K||7833")
-			Set Partij = ..PartijApi.GeefPartij("K||7833")
-			Quit ##class(APPS.VKP.VerzendWijze).%New(7833,Hein.GeefVerzendingWijze(),Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+			Set KlantID = ##class(DOM.VKP.enu.Klant).Hein()
+			#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantID)
+			Set Partij = ..PartijApi.GeefPartij(KlantID)
+			Quit ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),Klant.GeefVerzendingWijze(),Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
 		}
 
 	}
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r51172 -r51173
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 51172)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 51173)
@@ -42,6 +42,7 @@
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(..AfhaalKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||4321").DanReturn(..DirecteLeveringKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||12486").DanReturn(..ExpediteurKlant)
+	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||7833").DanReturn(..ExpediteurKlant)
 ]]></Implementation>
 </Method>