Index: WS/EC/ExterneVerkoop/dto/BeschikbaarEULand.cls.xml
===================================================================
diff -u
--- WS/EC/ExterneVerkoop/dto/BeschikbaarEULand.cls.xml	(revision 0)
+++ WS/EC/ExterneVerkoop/dto/BeschikbaarEULand.cls.xml	(revision 33905)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.EC.ExterneVerkoop.dto.BeschikbaarEULand">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="LandCode">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="LandNaam">
+<Type>TECH.String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LandCode:TECH.String,LandNaam:TECH.String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LandCode = LandCode
+	Set ..LandNaam = LandNaam
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/EC/ExterneVerkoop/dto/BeschikbareEULanden.cls.xml
===================================================================
diff -u
--- WS/EC/ExterneVerkoop/dto/BeschikbareEULanden.cls.xml	(revision 0)
+++ WS/EC/ExterneVerkoop/dto/BeschikbareEULanden.cls.xml	(revision 33905)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.EC.ExterneVerkoop.dto.BeschikbareEULanden">
+<Super>%ListOfObjects</Super>
+
+<Parameter name="ELEMENTTYPE">
+<Default>WS.EC.ExterneVerkoop.dto.BeschikbaarEULand</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/EC/Unishop/InternationaleZending/DummyService.cls.xml
===================================================================
diff -u -r33903 -r33905
--- WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33903)
+++ WS/EC/Unishop/InternationaleZending/DummyService.cls.xml	(.../DummyService.cls.xml)	(revision 33905)
@@ -3,6 +3,42 @@
 <Class name="WS.EC.Unishop.InternationaleZending.DummyService">
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="GeefBeschikbareEULanden">
+<FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
+<ReturnType>WS.EC.ExterneVerkoop.dto.BeschikbareEULanden</ReturnType>
+<Implementation><![CDATA[
+	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.BeschikbareEULanden = ##class(WS.EC.ExterneVerkoop.dto.BeschikbareEULanden).%New()
+	
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("BG","Bulgarije"))
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("CY","Cyprus"))		
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("DK","Denemarken"))
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("DE","Duitsland"))	
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("EE","Estland"))		
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("FI","Finland"))			
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("FR","Frankrijk"))
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("EL","Griekenland"))
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("HU","Hongarije"))		
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("IE","Ierland"))			
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("IT","Italië"))			
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("HR","Kroatië"))			
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("LV","Letland"))			
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("LT","Litouwen"))		
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("MT","Malta"))		
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("AT","Oostenrijk"))
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("PL","Polen"))
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("PT","Portugal"))
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("RO","Roemenië"))		
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("SI","Slovenië"))		
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("SK","Slowakije"))			
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("ES","Spanje"))			
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("CZ","Tsjechië"))		
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("UK","Verenigd Koninkrijk"))
+	Do EuropeseLanden.Insert(##class(WS.EC.ExterneVerkoop.dto.BeschikbaarEULand).%New("SE","Zweden"))
+
+	Quit EuropeseLanden
+]]></Implementation>
+</Method>
+
 <Method name="ZetGekozenVerzendingMogelijkheid">
 <FormalSpec>OfferteId:%String,VerzendingMogelijkheidID:%Integer,OptieKeuze:%Integer</FormalSpec>
 <Implementation><![CDATA[
Index: WS/EC/ExterneVerkoopService.cls.xml
===================================================================
diff -u -r33903 -r33905
--- WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 33903)
+++ WS/EC/ExterneVerkoopService.cls.xml	(.../ExterneVerkoopService.cls.xml)	(revision 33905)
@@ -138,6 +138,13 @@
 <Implementation><![CDATA[	Do ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New().ZetGekozenVerzendingMogelijkheid(OfferteID, VerzendingMogelijkheidID, OptieKeuze)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBeschikbareEULanden">
+<ReturnType>WS.EC.ExterneVerkoop.dto.BeschikbareEULanden</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New().GeefBeschikbareEULanden(..GeefTaal())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml
===================================================================
diff -u -r33518 -r33905
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33518)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33905)
@@ -38,6 +38,16 @@
 	Do TestUnit.ZetGekozenVerzendingMogelijkheid(OfferteId, 1, OptieKeuze)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GeefBeschikbareEULanden geeft beschikbare EU landen weer ">
+<Implementation><![CDATA[
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New()
+	#dim EuropeseLanden As WS.EC.ExterneVerkoop.dto.BeschikbareEULanden = TestUnit.GeefBeschikbareEULanden("")
+	Do $$$AssertEquals(EuropeseLanden.Count(),25)
+	Do $$$AssertEquals(EuropeseLanden.GetAt(1).LandCode,"BG")
+	Do $$$AssertEquals(EuropeseLanden.GetAt(25).LandNaam,"Zweden")
+]]></Implementation>
+</Method>
 </Class>