Index: APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml
===================================================================
diff -u -r42444 -r44103
--- APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 42444)
+++ APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 44103)
@@ -46,6 +46,11 @@
 		If $IsObject(VolledigLeverAdres) {
 			Set LeverAdres = VolledigLeverAdres
 		}
+	} ElseIf (Adres.GeefLeverAdresID() = "0") {
+		#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
+		Set LeverAdres = Klant.GeefAdres()
+		Do LeverAdres.ZetVerzendingWijze(Klant.GeefVerzendingWijze())
+		Do LeverAdres.ZetID("")
 	} Else {	
 		Set LeverAdres = ..KlantAdresRepository.GeefLeverAdres(KlantID, Adres.GeefLeverAdresID())	
 	}
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r41535 -r44103
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 41535)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44103)
@@ -85,7 +85,8 @@
 	Set Hoofding.LeveringDetail.WensDatum = ""
 	
 	Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New()
-	Set Hoofding.LeveringDetail.Adres.Aanspreking =  BereidVoorBestellingRequest.LeverAdres.Aanspreking
+	Set Hoofding.LeveringDetail.Adres.ID = BereidVoorBestellingRequest.LeverAdres.VolgNr
+	Set Hoofding.LeveringDetail.Adres.Aanspreking = BereidVoorBestellingRequest.LeverAdres.Aanspreking
 	Set Hoofding.LeveringDetail.Adres.Naam = BereidVoorBestellingRequest.LeverAdres.Naam 
 	Set Hoofding.LeveringDetail.Adres.Toenaam = BereidVoorBestellingRequest.LeverAdres.Toenaam 
 	Set Hoofding.LeveringDetail.Adres.LandCode = BereidVoorBestellingRequest.LeverAdres.Land