Index: vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/GeefAfleveradres/Test.cls.xml
===================================================================
diff -u -r29059 -r35146
--- vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/GeefAfleveradres/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMOrder/GeefAfleveradres/Test.cls.xml	(.../Test.cls.xml)	(revision 35146)
@@ -33,9 +33,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test bij manueel LeverAdres wordt VerzendingsWijze overgenomen van ingevulde Order.Klant in HoofdingData">
+<Method name="Test bij manueel LeverAdres wordt VerzendingsWijze overgenomen van ingevulde Klant in HoofdingData">
 <Implementation><![CDATA[
-	Do ..LeverAdresData.ZetDelimitedString("M\Naam\Toenaam\Aanspreking\Straat\Postcode\Gemeente\Land\Taal\")
+	Do ..LeverAdresData.ZetDelimitedString("M\Naam\Toenaam\Aanspreking\Straat\Postcode\Gemeente\"_##class(DOM.common.enu.Land).Belgie()_"\Taal\")
 	Do ..Order.ZetAfleverAdresData(..LeverAdresData)
 	Do ..Order.ZetHoofdingData(..GeefOrderHoofdingData())
 
@@ -47,7 +47,7 @@
 
 <Method name="Test bij gekozen LeverAdres wordt VerzendingsWijze overgenomen van LeverAdres">
 <Implementation><![CDATA[
-	Do ..LeverAdresData.ZetDelimitedString("1\Naam\Toenaam\Aanspreking\Straat\Postcode\Gemeente\Land\Taal\10\11\12\13\14\15\16\17\18\19\20\21\22\23\Opmerking1\Opmerking2\VerzendingsWijze\")
+	Do ..LeverAdresData.ZetDelimitedString("1\Naam\Toenaam\Aanspreking\Straat\Postcode\Gemeente\"_##class(DOM.common.enu.Land).Belgie()_"\Taal\10\11\12\13\14\15\16\17\18\19\20\21\22\23\Opmerking1\Opmerking2\VerzendingsWijze\")
 	Do ..Order.ZetAfleverAdresData(..LeverAdresData)
 	
 	#Dim AfleverAdres As DOM.VKP.LeverAdres = ..Order.GeefAfleveradres()
@@ -59,9 +59,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test bij standaard LeverAdres wordt VerzendingsWijze overgenomen van ingevulde Order.Klant in HoofdingData">
+<Method name="Test bij standaard LeverAdres wordt VerzendingsWijze overgenomen van ingevulde Klant in HoofdingData">
 <Implementation><![CDATA[
-	Do ..LeverAdresData.ZetDelimitedString("\Naam\Toenaam\Aanspreking\Straat\Postcode\Gemeente\Land\Taal\")
+	Do ..LeverAdresData.ZetDelimitedString("\Naam\Toenaam\Aanspreking\Straat\Postcode\Gemeente\"_##class(DOM.common.enu.Land).Belgie()_"\Taal\")
 	Do ..Order.ZetAfleverAdresData(..LeverAdresData)
 	Do ..Order.ZetHoofdingData(..GeefOrderHoofdingData())
 	
@@ -81,7 +81,7 @@
 	Do $$$AssertEquals(AfleverAdres.GeefStraat(), "Straat")
 	Do $$$AssertEquals(AfleverAdres.GeefPostcode(), "Postcode")
 	Do $$$AssertEquals(AfleverAdres.GeefGemeente(), "Gemeente")
-	Do $$$AssertEquals(AfleverAdres.GeefLand().GeefID(), "Land")
+	Do $$$AssertEquals(AfleverAdres.GeefLand().GeefID(), ##class(DOM.common.enu.Land).Belgie())
 	Do $$$AssertEquals(AfleverAdres.GeefTaal(), "Taal")
 	Do $$$AssertEquals(AfleverAdres.GeefVerzendingWijze(), "VerzendingsWijze")
 ]]></Implementation>
Index: APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r34601 -r35146
--- APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 34601)
+++ APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 35146)
@@ -300,7 +300,7 @@
 	Set ..LeverAdres.LeverAdresID = LeverAdres.GeefID()
 	Set ..LeverAdres.Aanspreking = LeverAdres.GeefAanspreking()
 	Set ..LeverAdres.Gemeente = LeverAdres.GeefGemeente()
-	Set ..LeverAdres.LandNr = LeverAdres.GeefLand().GeefCode()
+	Set ..LeverAdres.LandNr = LeverAdres.GeefLand().GeefID()
 	Set ..LeverAdres.Naam = LeverAdres.GeefNaam()
 	Set ..LeverAdres.Postcode = LeverAdres.GeefPostcode()
 	Set ..LeverAdres.Straat = LeverAdres.GeefStraat()