Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r44103 -r44106
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44103)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44106)
@@ -85,7 +85,7 @@
 	Set Hoofding.LeveringDetail.WensDatum = ""
 	
 	Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.dto.Adres).%New()
-	Set Hoofding.LeveringDetail.Adres.ID = BereidVoorBestellingRequest.LeverAdres.VolgNr
+	Set Hoofding.LeveringDetail.Adres.ID = BereidVoorBestellingRequest.LeverAdres.Id 
 	Set Hoofding.LeveringDetail.Adres.Aanspreking = BereidVoorBestellingRequest.LeverAdres.Aanspreking
 	Set Hoofding.LeveringDetail.Adres.Naam = BereidVoorBestellingRequest.LeverAdres.Naam 
 	Set Hoofding.LeveringDetail.Adres.Toenaam = BereidVoorBestellingRequest.LeverAdres.Toenaam 
Index: APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml
===================================================================
diff -u -r44103 -r44106
--- APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 44103)
+++ APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 44106)
@@ -46,7 +46,7 @@
 		If $IsObject(VolledigLeverAdres) {
 			Set LeverAdres = VolledigLeverAdres
 		}
-	} ElseIf (Adres.GeefLeverAdresID() = "0") {
+	} ElseIf (Adres.GeefLeverAdresID() = "H") {
 		#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
 		Set LeverAdres = Klant.GeefAdres()
 		Do LeverAdres.ZetVerzendingWijze(Klant.GeefVerzendingWijze())
Index: WS/Vhisie4/Winkelkar/dto/LeverAdres.cls.xml
===================================================================
diff -u -r37698 -r44106
--- WS/Vhisie4/Winkelkar/dto/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 37698)
+++ WS/Vhisie4/Winkelkar/dto/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 44106)
@@ -8,6 +8,11 @@
 <Default>1</Default>
 </Parameter>
 
+<Property name="Id">
+<Type>TECH.String</Type>
+<Parameter name="XMLNAME" value="ID"/>
+</Property>
+
 <Property name="VolgNr">
 <Type>TECH.String</Type>
 </Property>
@@ -49,8 +54,6 @@
 <State>LeverAdresState</State>
 <StreamLocation>^WS.Vhisie4.Wink83C4.LeverAdresS</StreamLocation>
 <Data name="LeverAdresState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>VolgNr</Value>
 </Value>
@@ -78,6 +81,9 @@
 <Value name="9">
 <Value>Taal</Value>
 </Value>
+<Value name="10">
+<Value>Id</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml
===================================================================
diff -u -r29059 -r44106
--- vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 44106)
@@ -27,6 +27,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Hoofdadres wordt als leveradres opgehaald als de opgegeven ID &apos;H&apos; is">
+<Implementation><![CDATA[
+	Set ReturnAdres = ##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New()
+	Set Adres = ##class(DOM.common.impl.VH.Adres).%New()
+	#dim HoofdAdresID As %String = "H"
+	Do Adres.ZetLeverAdresID(HoofdAdresID)
+
+	Set KlantMock = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do KlantMock.VerwachtMethodCall("GeefAdres").ExactAantalKeer(1).DanReturn(ReturnAdres)
+	Do KlantMock.VerwachtMethodCall("GeefVerzendingWijze").ExactAantalKeer(1).DanReturn("KlantVerzendingWijze")
+
+	Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", ..#DummyKlantID).ExactAantalKeer(1).DanReturn(KlantMock)
+	
+	Set AdresUtils = ##class(APPS.VKP.OrderIngave.impl.AdresUtils).%New(, VerkoopAPIMock)
+	#Dim LeverAdres As DOM.VKP.LeverAdres = AdresUtils.ConverteerNaarLeverAdres(..#DummyKlantID, Adres)
+
+	#dim LegeID As %String = ""
+	do $$$AssertEquals(LeverAdres.GeefID(), LegeID)
+	do $$$AssertEquals(LeverAdres.GeefKlantAdresNr(), "3")
+	do $$$AssertEquals(LeverAdres.GeefLandNr(), "1019")
+	do $$$AssertEquals(LeverAdres.GeefOpmerking1(), "DummyOpmerking1")
+	do $$$AssertEquals(LeverAdres.GeefOpmerking2(), "DummyOpmerking2")
+	do $$$AssertEquals(LeverAdres.GeefTelefoon(), "01/23456789")
+	do $$$AssertEquals(LeverAdres.GeefVerzendingWijze(), "KlantVerzendingWijze")
+	do $$$AssertEquals(LeverAdres.GeefVolmacht(), "DummyVolmacht")
+
+	do ..AssertLeverAdres(LeverAdres)
+	
+	do KlantMock.Verifieer()
+	do VerkoopAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="TestBestaandLeverAdresWordtOpgehaald">
 <Implementation><![CDATA[
 	#Dim KlantAdresRepositoryMock As vhTest.Mock.DOM.VKP.Klant.KlantAdresRepository = ##class(vhTest.Mock.DOM.VKP.Klant.KlantAdresRepository).%New()