Index: WSimpl/PM/Perfion/Vertaling/DataService/GetData.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Perfion/Vertaling/DataService/GetData.cls.xml	(revision 0)
+++ WSimpl/PM/Perfion/Vertaling/DataService/GetData.cls.xml	(revision 60135)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Perfion.Vertaling.DataService.GetData">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="PerfionDataService">
+<Type>WS.PM.Perfion.Vertaling.DataService.GetData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PerfionDataService:WS.PM.Perfion.Vertaling.DataService.GetData=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..PerfionDataService = $$$Inject(PerfionDataService,##class(WS.PM.Perfion.Vertaling.DataService.GetData).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVertalingen">
+<FormalSpec>VertalingGroep:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set VertalingenLijst = ##class(%ListOfDataTypes).%New()
+	#dim XmlQuery As %String = ..GeefXmlQueryVoorVertalingen()
+	#dim VertalingenResult As %String = ..PerfionDataService.ExecuteQuery()
+
+	/*
+	Try {
+		Set ..Shop = Shop 
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Message As %String = "Unable to confirm order. (EDINr: "_EDInr_")"_$$$CRLF
+		;Do ##class(TECH.ExceptionHandler).Rethrow(NewException)
+	}
+	*/
+	Do VertalingenLijst.Insert(VertalingenResult)
+	Quit VertalingenLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefBeschikbareTalen">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set TalenLijst = ##class(%ListOfDataTypes).%New()
+	#dim LanguagesResult As %String = ..PerfionDataService.GetLanguages()
+	
+	Do TalenLijst.Insert(LanguagesResult) 
+	
+	Quit TalenLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefXmlQueryVoorVertalingen">
+<FormalSpec>VertalingGroep:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/PM/Perfion/Vertaling/DataService/GetData/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/PM/Perfion/Vertaling/DataService/GetData/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/PM/Perfion/Vertaling/DataService/GetData/Test.cls.xml	(revision 60135)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.PM.Perfion.Vertaling.DataService.GetData.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test GeefBeschikbareTalen">
+<Implementation><![CDATA[
+	#dim WsResponse As %String = "<Languages>"_$c(10)_"  <Language mscodexp=""DE"" name=""German"" />"_$c(10)_"  <Language mscodexp=""EN"" name=""English"" />"_$c(10)_"  <Language mscodexp=""FR"" name=""French"" />"_$c(10)_"  <Language mscodexp=""IND"" name=""Indonesian"" />"_$c(10)_"  <Language mscodexp=""ITA"" name=""Italian (Standard)"" />"_$c(10)_"  <Language mscodexp=""NLB"" name=""Dutch (Belgium)"" />"_$c(10)_"</Languages>"
+	
+	Set PerfionDataWSMock = ##class(vhTest.Mock.WS.PM.Perfion.Vertaling.DataService.IGetData).%New()
+	Do PerfionDataWSMock.VerwachtMethodCall("GetLanguages").DanReturn(WsResponse)
+
+	Set VertalingDataService = ##class(WSimpl.PM.Perfion.Vertaling.DataService.GetData).%New(PerfionDataWSMock)
+	#dim Talen As %ListOfDataTypes = VertalingDataService.GeefBeschikbareTalen()
+	
+	; Voorlopig alles in het eerste list-item : 
+	#dim Taal1 As %String = Talen.GetAt(1)
+	Do $$$AssertEquals(Taal1, "<Languages>"_$c(10)_"  <Language mscodexp=""DE"" name=""German"" />"_$c(10)_"  <Language mscodexp=""EN"" name=""English"" />"_$c(10)_"  <Language mscodexp=""FR"" name=""French"" />"_$c(10)_"  <Language mscodexp=""IND"" name=""Indonesian"" />"_$c(10)_"  <Language mscodexp=""ITA"" name=""Italian (Standard)"" />"_$c(10)_"  <Language mscodexp=""NLB"" name=""Dutch (Belgium)"" />"_$c(10)_"</Languages>")
+
+	; TODO : xml-parser om de "Languages" correct in de %ListOfDataTypes te krijgen. 
+	;Do $$$AssertEquals(Talen.GetAt(1), "DE")
+	;Do $$$AssertEquals(Talen.GetAt(2), "EN")
+	;Do $$$AssertEquals(Talen.GetAt(3), "FR")
+	;Do $$$AssertEquals(Talen.GetAt(4), "IND")
+	;Do $$$AssertEquals(Talen.GetAt(5), "ITA")
+	;Do $$$AssertEquals(Talen.GetAt(6), "NLB")
+	
+	Do PerfionDataWSMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>