Index: WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingen.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingen.cls.xml	(revision 0)
+++ WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingen.cls.xml	(revision 64522)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingen">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Omschrijvingen">
+<Type>WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingenDTO</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Omschrijvingen:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Omschrijvingen = Omschrijvingen
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijvingInTaal">
+<FormalSpec>Taal:DOM.enu.Taal,FallBackTaal="E"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim i AS %Integer
+	#dim TaalGevonden as %Boolean = $$$False
+	#dim OmschrijvingInTaal as %String = ""
+	#dim FallbackOmschrijving as %String = ""
+	Set OmschrijvingIterator = ##class(TECH.ListIterator).%New(..Omschrijvingen)
+	#dim Omschrijving as WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingenDTO = ""
+	While(OmschrijvingIterator.HasNext()){
+		Set Omschrijving = OmschrijvingIterator.Next()
+		if Omschrijving.Taal = Taal {
+			Set TaalGevonden= $$$True
+			Set OmschrijvingInTaal = Omschrijving.Omschrijving
+		}
+		if Omschrijving.Taal = FallBackTaal {
+			Set FallbackOmschrijving = Omschrijving.Omschrijving
+		}
+	}
+	Quit:(TaalGevonden) OmschrijvingInTaal
+	Quit FallbackOmschrijving
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingParser.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingParser.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingParser.cls.xml	(revision 64522)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingParser">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingParser,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVertalingenLijst">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVertalingenLijst")
+]]></Implementation>
+</Method>
+
+<Method name="ReadStream">
+<FormalSpec>Stream:%GlobalCharacterStream</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ReadStream",Stream)
+]]></Implementation>
+</Method>
+
+<Method name="characters">
+<FormalSpec>chars:%Library.String,length:%Library.Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("characters",chars,length)
+]]></Implementation>
+</Method>
+
+<Method name="endElement">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List=""</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("endElement",uri,localname,qname,attrs)
+]]></Implementation>
+</Method>
+
+<Method name="startElement">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("startElement",uri,localname,qname,attrs)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingParser.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingParser.cls.xml	(revision 0)
+++ WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingParser.cls.xml	(revision 64522)
@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingParser">
+<Super>%XML.SAX.ContentHandler,TECH.Mockable</Super>
+
+<Property name="PerfionVertalingen">
+<Type>WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingenDTO</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="Skip">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LastValue">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Dto">
+<Type>WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingenDTO</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Skip = $$$False
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVertalingenLijst">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ..PerfionVertalingen
+]]></Implementation>
+</Method>
+
+<Method name="ReadStream">
+<FormalSpec>Stream:%GlobalCharacterStream</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..PerfionVertalingen = ##class(%ListOfObjects).%New()
+    #dim status As %Status = ##class(%XML.SAX.Parser).ParseStream(Stream,%this)
+
+    quit status
+]]></Implementation>
+</Method>
+
+<Method name="ResetDto">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..Dto = ##class(WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingenDTO).%New()
+]]></Implementation>
+</Method>
+
+<Method name="startElement">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List</FormalSpec>
+<Implementation><![CDATA[
+	Set ..LastValue = ""
+	if qname = "Features"{
+		Set ..Skip = $$$True
+	}
+	if $$$Not(..Skip){
+		if qname = "Omschrijving"{
+			do ..ResetDto()
+			FOR i=1:5:$LISTLENGTH(attrs){
+				if $list(attrs,i+1)="language" {
+					Set ..Dto.Taal = ..ConverteerPerfionTaal($List(attrs,i+4))
+				}
+			}
+  		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="endElement">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List=""</FormalSpec>
+<Implementation><![CDATA[
+	if qname = "Features"{
+		Set ..Skip = $$$False
+	}
+	if $$$Not(..Skip){	
+		if qname = "Omschrijving" {
+			set ..Dto.Omschrijving=..LastValue
+			Do ..PerfionVertalingen.Insert(..Dto)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="characters">
+<FormalSpec>chars:%Library.String,length:%Library.Integer</FormalSpec>
+<Implementation><![CDATA[	Set:($$$Not(..Skip)) ..LastValue = chars
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerPerfionTaal">
+<FormalSpec>PerfionTaal</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[
+	Set Taal=##class(DOM.enu.Taal.AutoComplete).%New()
+	Quit $Select(
+		PerfionTaal="NLB":Taal.Nederlands,
+		PerfionTaal="FR":Taal.Frans,
+		PerfionTaal="EN":Taal.Engels,
+		PerfionTaal="DE":Taal.Duits,
+		PerfionTaal="SVE":Taal.Zweeds,
+		PerfionTaal="ITA":Taal.Italiaans,
+		PerfionTaal="DAN":Taal.Deens,
+		PerfionTaal="FIN":Taal.Fins,
+		1:"")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingParser.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingParser.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingParser.cls.xml	(revision 64522)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingParser">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingParser</Super>
+
+<Method name="GeefVertalingenLijst">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ReadStream">
+<FormalSpec>Stream:%GlobalCharacterStream</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ResetDto">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="characters">
+<FormalSpec>chars:%Library.String,length:%Library.Integer</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="endDocument">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="endElement">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="endElementx">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List=""</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="error">
+<FormalSpec>error:%Library.String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="fatalError">
+<FormalSpec>fatalerror:%Library.String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="startElement">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="startElementx">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="startEntity">
+<FormalSpec>name:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/PM/Perfion/Vertaling/ProductService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/PM/Perfion/Vertaling/ProductService.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/PM/Perfion/Vertaling/ProductService.cls.xml	(revision 64522)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.PM.Perfion.Vertaling.ProductService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.PM.Perfion.Vertaling.ProductService</Super>
+
+<Method name="GeefProductOmschrijvingen">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<ReturnType>WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingen</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/PM/Perfion/Vertaling/ProductService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/PM/Perfion/Vertaling/ProductService.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/PM/Perfion/Vertaling/ProductService.cls.xml	(revision 64522)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.PM.Perfion.Vertaling.ProductService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.PM.Perfion.Vertaling.ProductService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>DataService:WS.PM.Perfion.Vertaling.DataService.GetData="",Parser:WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingParser=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOmschrijvingen">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<ReturnType>WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingen</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefProductOmschrijvingen",IdentNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Perfion/Vertaling/ProductService.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Perfion/Vertaling/ProductService.cls.xml	(revision 0)
+++ WSimpl/PM/Perfion/Vertaling/ProductService.cls.xml	(revision 64522)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Perfion.Vertaling.ProductService">
+<Super>TECH.Mockable</Super>
+
+<Parameter name="Languages">
+<Type>%String</Type>
+<Default>NLB,FR,EN,DE,SVE,ITA,DAN,FIN</Default>
+</Parameter>
+
+<Property name="DataService">
+<Type>WS.PM.Perfion.Vertaling.DataService.GetData</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Parser">
+<Type>WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingParser</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DataService:WS.PM.Perfion.Vertaling.DataService.GetData="",Parser:WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingParser=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DataService = $$$Inject(DataService, ##class(WS.PM.Perfion.Vertaling.DataService.GetData).%New())
+	Set ..Parser = $$$Inject(Parser,##class(WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingParser).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOmschrijvingen">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<ReturnType>WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingen</ReturnType>
+<Implementation><![CDATA[
+	#dim XMLQuery as String = ..GeefProductQuery(IdentNummer)
+	#dim ResponseStream as %GlobalCharacterStream = ..DataService.ExecuteQuery(XMLQuery)
+	Do ##class(TECH.StreamUtils).Replace(ResponseStream," encoding=""utf-8"""," encoding=""ISO-8859-1""")
+	Do ..Parser.ReadStream(ResponseStream)
+	Quit ##class(WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingen).%New(..Parser.GeefVertalingenLijst())
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductQuery">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim XMLQuery as %String
+	Set XMLQuery =  "<?xml version=""1.0""?>" _
+					"<Query>"_
+					"	<Select languages='"_ ..#Languages _"'>" _
+					"		<Feature id='Omschrijving' />"_
+					"	</Select>"_
+					"	<From id ='Product'/>"_
+					"	<Where>"_
+					"		<Clause id='Identnummer' operator='=' value='"_IdentNummer_"' />"_
+					"	</Where>"_
+					"</Query>"
+	quit XMLQuery
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingenDTO.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingenDTO.cls.xml	(revision 0)
+++ WSimpl/PM/Perfion/Vertaling/ProductService/ProductOmschrijvingenDTO.cls.xml	(revision 64522)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Perfion.Vertaling.ProductService.ProductOmschrijvingenDTO">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Taal">
+<Type>%String</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>