Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r56004 -r56092
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 56004)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 56092)
@@ -83,14 +83,14 @@
 <Private>1</Private>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	If ((KlantPartijID = "K||1736") || (##class(TECH.StringUtils).StartsWith(KlantPartijID,"dupont"))) {
+	If ..MoetGegevensVanWinkelkarOvernemen(KlantPartijID) {
 		Set DOMLeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
 		Do DOMLeverAdres.ZetAanspreking(LeverAdres.Aanspreking)
 		Do DOMLeverAdres.ZetNaam(LeverAdres.Naam)
 		Do DOMLeverAdres.ZetToenaam(LeverAdres.Toenaam)
 		Do DOMLeverAdres.ZetStraat(LeverAdres.StraatNrBus)
 		Do DOMLeverAdres.ZetPostcode(LeverAdres.PostCode)
-		Do DOMLeverAdres.ZetLandNr(1019)
+		Do DOMLeverAdres.ZetLandNr(##class(DOM.common.Land).Belgie().GeefID()) //voorlopig voldoende, want enkel voor Dupont. GEEN definitieve oplossing
 		Do DOMLeverAdres.ZetGemeente(LeverAdres.Woonplaats)
 		Do DOMLeverAdres.ZetTaal(LeverAdres.Taal)
 		Do DOMLeverAdres.ZetID(LeverAdres.Id)
@@ -109,6 +109,14 @@
 <Implementation><![CDATA[	Quit (..#HoofdLeverAdresId = LeverAdres.Id) || (..#GeenLeverAdresId = LeverAdres.Id)
 ]]></Implementation>
 </Method>
+
+<Method name="MoetGegevensVanWinkelkarOvernemen">
+<FormalSpec>KlantPartijID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((KlantPartijID = ##class(DOM.VKP.enu.Klant).DuPont()) || (##class(TECH.StringUtils).StartsWith(KlantPartijID,"dupont")))
+]]></Implementation>
+</Method>
 </Class>