Index: APPS/common/DataService.cls.xml
===================================================================
diff -u -r2302 -r2423
--- APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2302)
+++ APPS/common/DataService.cls.xml	(.../DataService.cls.xml)	(revision 2423)
@@ -42,7 +42,7 @@
 	Set KlantData.Code = KlantID
 	Set Adres = Klant.GeefAdres()
 	Set KlantData.Gemeente = Adres.GeefGemeente()
-	Set KlantData.Land = Adres.GeefLandCode()
+	Set KlantData.Land = Adres.GeefLand().GeefCode()
 	
 	Quit KlantData
 ]]></Implementation>