Index: Res/Perfion/Synchroniser/VertalingDTO.cls.xml
===================================================================
diff -u
--- Res/Perfion/Synchroniser/VertalingDTO.cls.xml	(revision 0)
+++ Res/Perfion/Synchroniser/VertalingDTO.cls.xml	(revision 61825)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Res.Perfion.Synchroniser.VertalingDTO">
+<Super>TECH.RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="VertalingsType">
+<Type>%String</Type>
+</Property>
+
+<Property name="VertalingsGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="Sleutel">
+<Type>%String</Type>
+</Property>
+
+<Property name="Vertalingen">
+<Type>%String</Type>
+<Collection>array</Collection>
+</Property>
+</Class>
+
+
+</Export>
Index: Res/Perfion/Synchroniser/VertalingenParser.cls.xml
===================================================================
diff -u
--- Res/Perfion/Synchroniser/VertalingenParser.cls.xml	(revision 0)
+++ Res/Perfion/Synchroniser/VertalingenParser.cls.xml	(revision 61825)
@@ -0,0 +1,147 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Res.Perfion.Synchroniser.VertalingenParser">
+<Super>%XML.SAX.ContentHandler,TECH.RegisteredObject</Super>
+
+<Property name="PerfionVertalingen">
+<Type>Res.Perfion.Synchroniser.VertalingDTO</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="Skip">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="LastValue">
+<Type>%String</Type>
+</Property>
+
+<Property name="Dto">
+<Type>Res.Perfion.Synchroniser.VertalingDTO</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[
+	Do ##class(Tools.Wlip).%New(238).String(..PerfionVertalingen.Count())
+	Quit ..PerfionVertalingen
+]]></Implementation>
+</Method>
+
+<Method name="ReadStream">
+<FormalSpec>Stream:%GlobalCharacterStream</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..PerfionVertalingen = ##class(%ListOfObjects).%New()
+    set status=##class(%XML.SAX.Parser).ParseStream(Stream,%this)
+
+    quit status
+]]></Implementation>
+</Method>
+
+<Method name="ResetDto">
+<Implementation><![CDATA[	Set ..Dto = ##class(Res.Perfion.Synchroniser.VertalingDTO).%New()
+]]></Implementation>
+</Method>
+
+<Method name="startElement">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List</FormalSpec>
+<Implementation><![CDATA[
+	If qname = "Features" {
+		Set ..Skip = $$$True
+	}
+	
+	Quit:(..Skip)
+
+	If qname = "Vertalingssleutel" {
+		Set ..Dto = ##class(Res.Perfion.Synchroniser.VertalingDTO).%New()
+	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="endElement">
+<FormalSpec>uri:%String,localname:%String,qname:%String,attrs:%List</FormalSpec>
+<Implementation><![CDATA[
+	if $$$Not(..Skip){
+		if localname = "Vertalingssleutel" {
+			Do ..PerfionVertalingen.Insert(..Dto)
+		} else {
+			Set:(localname = "Value") ..Dto.Sleutel = ..LastValue
+			Set:(localname = "Vertalingsgroep") ..Dto.VertalingsGroep = ..LastValue
+			Set:(localname = "Vertalingstypes") ..Dto.VertalingsType = ..LastValue
+			Set:(localname = "") ..Dto.Sleutel = ..LastValue
+			if ##class(TECH.StringUtils).StartsWith(localname,"Vertaling"){
+				#dim Taal as %String = ##class(TECH.StringUtils).Replace(localname,"Vertaling","")
+				if (##class(TECH.StringUtils).Equals(Taal,"DA","DE","EN","ES","FR","IT","NL","NO")){
+					Do ..Dto.Vertalingen.SetAt(..LastValue,Taal)
+				}
+			}
+		}
+	}
+	if localname = "Features" {
+		Set ..Skip = $$$False
+	}
+]]></Implementation>
+</Method>
+
+<Method name="characters">
+<FormalSpec>chars:%Library.String,length:%Library.Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set:($$$Not(..Skip)) ..LastValue = chars
+ 	Quit
+]]></Implementation>
+</Method>
+
+<Method name="endDocument">
+<Implementation><![CDATA[
+	w !,"enddoc count " _ ..PerfionVertalingen.Count()
+	
+ Quit
+]]></Implementation>
+</Method>
+
+<Method name="error">
+<FormalSpec>error:%Library.String</FormalSpec>
+<Implementation><![CDATA[
+	w !,"Error :" _ error
+ 	Quit
+]]></Implementation>
+</Method>
+
+<Method name="fatalError">
+<FormalSpec>fatalerror:%Library.String</FormalSpec>
+<Implementation><![CDATA[
+	w !,"Fatal error :" _ fatalerror
+ 	Quit
+]]></Implementation>
+</Method>
+
+<Method name="GeefXml">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Xml as %String = ""
+	
+	
+	Quit Xml
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>