Index: vhUnitTest/WSimpl/EC/ExterneVerkoop/BeschikbareLandenBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/EC/ExterneVerkoop/BeschikbareLandenBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/EC/ExterneVerkoop/BeschikbareLandenBepaler/Test.cls.xml	(revision 33977)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.EC.ExterneVerkoop.BeschikbareLandenBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: GeefBeschikbareEULanden geeft beschikbare EU landen weer (Nederlands) ">
+<Implementation><![CDATA[
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
+	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = TestUnit.GeefBeschikbareLanden("N")
+	Do $$$AssertEquals(EuropeseLanden.Count(),25)
+	Do $$$AssertEquals(EuropeseLanden.GetAt(1).Code,"BG")
+	Do $$$AssertEquals(EuropeseLanden.GetAt(25).Naam,"Zweden")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefBeschikbareEULanden geeft beschikbare EU landen weer (Engels) ">
+<Implementation><![CDATA[
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
+	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = TestUnit.GeefBeschikbareLanden("E")
+	Do $$$AssertEquals(EuropeseLanden.Count(),25)
+	Do $$$AssertEquals(EuropeseLanden.GetAt(1).Code,"BG")
+	Do $$$AssertEquals(EuropeseLanden.GetAt(25).Naam,"Sweden")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/EC/ExterneVerkoopService.cls.xml
===================================================================
diff -u -r33921 -r33977
--- WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 33921)
+++ WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 33977)
@@ -142,7 +142,9 @@
 <Method name="GeefBeschikbareLanden">
 <ReturnType>WS.EC.ExterneVerkoop.dto.Landen</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New().GeefBeschikbareLanden(..GeefTaal())
+<Implementation><![CDATA[
+	/// ProductieCode Quit ##class(WSimpl.EC.ExterneVerkoop.BeschikbareLandenBepaler).%New().Bepaal(..GeefTaal())
+	Quit ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New().GeefBeschikbareLanden(..GeefTaal())
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/EC/ExterneVerkoop/BeschikbareLandenBepaler.cls.xml
===================================================================
diff -u
--- WSimpl/EC/ExterneVerkoop/BeschikbareLandenBepaler.cls.xml	(revision 0)
+++ WSimpl/EC/ExterneVerkoop/BeschikbareLandenBepaler.cls.xml	(revision 33977)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.EC.ExterneVerkoop.BeschikbareLandenBepaler">
+<Super>%RegisteredObject</Super>
+
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ZetVertaler">
+<FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefVertaler(Taal, ##class(DOM.common.Transl.enu.VertaalGroep).Unishop(), ##class(DOM.common.Transl.enu.VertaalGroep).Algemeen(), ##class(DOM.common.Transl.enu.VertaalGroep).Land())
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
+<ReturnType>WS.EC.ExterneVerkoop.dto.Landen</ReturnType>
+<Implementation><![CDATA[
+	Do ..ZetVertaler(Taal)
+	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.Landen = ##class(WS.EC.ExterneVerkoop.dto.Landen).%New()
+	#dim BeschikbareLandCodes As TECH.Iterator = ..GeefBeschikbareLandCodes()
+	
+	While BeschikbareLandCodes.HasNext()
+	{	
+		#dim LandCode As %String = BeschikbareLandCodes.Next()
+		#dim LandNaam As %String = ..Vertaler.GeefVertaling(LandCode)
+		if LandNaam '= "" {
+			Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.Land).%New(LandCode, LandNaam))
+		}
+	}
+
+	Quit EuropeseLanden
+]]></Implementation>
+</Method>
+
+<Method name="GeefBeschikbareLandCodes">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListbuildIterator).%New($ListBuild("BG","CY","DK","DE","EE","FI","FR","GR","HU","IE","IT","HR","LV","LT","MT","AT","PL","PT","RO","SI","SK","ES","CZ","GB","SE"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>