Index: Res/Perfion/Synchroniser/Vertalingen.cls.xml
===================================================================
diff -u
--- Res/Perfion/Synchroniser/Vertalingen.cls.xml	(revision 0)
+++ Res/Perfion/Synchroniser/Vertalingen.cls.xml	(revision 61829)
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Res.Perfion.Synchroniser.Vertalingen">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VertalingenParser">
+<Type>Res.Perfion.Synchroniser.VertalingenParser</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VertalingenService">
+<Type>WSimpl.PM.Perfion.Vertaling.DataService.GetData</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VertalingenStream">
+<Type>%GlobalCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VertalingRepository">
+<Type>Res.VertalingRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PerfionVertalingen">
+<Type>Res.Perfion.Synchroniser.VertalingDTO</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="TaalConverter">
+<Type>Res.Perfion.Synchroniser.TaalConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PerfionRepository">
+<Type>Res.Perfion.Synchroniser.PerfionRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VertalingenParser:Res.Perfion.Synchroniser.VertalingenParser,VertalingenService:WSimpl.PM.Perfion.Vertaling.DataService.GetData,VertalingRepository:Res.VertalingRepository,TaalConverter:Res.Perfion.Synchroniser.TaalConverter,PerfionRepository:Res.Perfion.Synchroniser.PerfionRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VertalingenParser = $$$Inject(VertalingenParser, ##class(Res.Perfion.Synchroniser.VertalingenParser).%New())
+	Set ..VertalingenService = $$$Inject(VertalingenService, ##class(WSimpl.PM.Perfion.Vertaling.DataService.GetData).%New())
+	Set ..VertalingRepository = $$$Inject(VertalingRepository, ##class(Res.VertalingRepository).%New())
+	Set ..TaalConverter = $$$Inject(TaalConverter, ##class(Res.Perfion.Synchroniser.TaalConverter).%New())
+	Set ..PerfionRepository = $$$Inject(PerfionRepository, ##class(Res.Perfion.Synchroniser.PerfionRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVertalingen">
+<Implementation><![CDATA[
+	Set Perfion = ##class(Res.Perfion.Synchroniser.Perfion).%New()
+	Do Perfion.%DeleteExtent()
+	Set ..VertalingenStream = ..VertalingenService.GeefVertalingen()
+	Do ..VertalingenParser.ReadStream(..VertalingenStream)
+	Set ..PerfionVertalingen = ..VertalingenParser.GeefVertalingenLijst()
+	Do ..VulPerfionTabel()
+	Do ..VoegToeVertalingen()
+	Do ..SynchroniseerVertalingen()
+]]></Implementation>
+</Method>
+
+<Method name="VulPerfionTabel">
+<Implementation><![CDATA[
+	#dim VertalingenIterator As TECH.Iterator = ..VertalingRepository.GeefAlleVertalingenVoorPerfion()
+	
+	While (VertalingenIterator.HasNext()) 
+	{
+		#dim Vertaling As Res.Vertaling = VertalingenIterator.Next()
+		Try {
+			Do ..PerfionRepository.MaakSleutelVoorPerfion(Vertaling.Intern)	
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeVertalingen">
+<Implementation><![CDATA[
+	#dim VertalingObject As Res.Perfion.Synchroniser.VertalingDTO
+	#dim Vertaling As %String
+	#dim Taal As %String 
+	#dim Groep As %String 
+	#dim Sleutel As %String
+	#dim Type As %String
+	
+	#dim VertalingenLijstIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..PerfionVertalingen)
+	While (VertalingenLijstIterator.HasNext())
+	{
+		Set VertalingObject = VertalingenLijstIterator.Next()
+		Set Groep = VertalingObject.VertalingsGroep
+		Set Type = VertalingObject.VertalingsType
+		Set Sleutel = VertalingObject.Sleutel
+		Try {
+			Do ..PerfionRepository.VerwijderViaSleutel(Sleutel)	
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		}
+		
+		#dim VertalingenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VertalingObject.Vertalingen)
+		While (VertalingenIterator.HasNext()) 
+		{
+			Set Vertaling = VertalingenIterator.Next()
+			Set Taal = ..TaalConverter.Convert(VertalingenIterator.Key())
+			Do ..VertalingRepository.WijzigOfMaakVertaling(Groep,Sleutel,Type,Taal,Vertaling)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SynchroniseerVertalingen">
+<Implementation><![CDATA[
+ 	;Do ..VertalingRepository.WijzigOfMaakVertaling("test","test","test","test","test")
+ 	#dim PerfionIterator As TECH.Iterator = ..PerfionRepository.ZoekAlle()
+ 	
+ 	While (PerfionIterator.HasNext()) 
+ 	{
+		#dim Perfion As Res.Perfion.Synchroniser.Perfion = PerfionIterator.Next()
+		Try {
+			Do ..VertalingRepository.VerwijderVertalingViaSleutel(Perfion.Sleutel)	
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Res/Perfion/Synchroniser/TaalConverter.cls.xml
===================================================================
diff -u
--- Res/Perfion/Synchroniser/TaalConverter.cls.xml	(revision 0)
+++ Res/Perfion/Synchroniser/TaalConverter.cls.xml	(revision 61829)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Res.Perfion.Synchroniser.TaalConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Convert">
+<FormalSpec>Taal:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (Taal = "DE") {
+		Set Taal = "D"
+	} 
+	ElseIf (Taal = "EN") {
+		Set Taal = "E"
+	}
+	ElseIf (Taal = "FR") {
+		Set Taal = "F"
+	}
+	ElseIf (Taal = "NL") {
+		Set Taal = "N"
+	}
+	ElseIf (Taal = "NO") {
+		Set Taal = "NB"
+	}
+	Quit Taal
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/Res/Perfion/Synchroniser/TaalConverter/Converter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Res/Perfion/Synchroniser/TaalConverter/Converter/Test.cls.xml	(revision 0)
+++ vhUnitTest/Res/Perfion/Synchroniser/TaalConverter/Converter/Test.cls.xml	(revision 61829)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Res.Perfion.Synchroniser.TaalConverter.Converter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test DE naar D">
+<Implementation><![CDATA[
+	Set Taalconverter = ##class(Res.Perfion.Synchroniser.TaalConverter).%New()
+	#dim Taal As %String = "DE"
+	
+	Set Taal = Taalconverter.Convert(Taal)
+	
+	Do $$$AssertEquals(Taal, "D")
+]]></Implementation>
+</Method>
+
+<Method name="Test EN naar E">
+<Implementation><![CDATA[
+	Set Taalconverter = ##class(Res.Perfion.Synchroniser.TaalConverter).%New()
+	#dim Taal As %String = "EN"
+	
+	Set Taal = Taalconverter.Convert(Taal)
+	
+	Do $$$AssertEquals(Taal, "E")
+]]></Implementation>
+</Method>
+
+<Method name="Test FR naar F">
+<Implementation><![CDATA[
+	Set Taalconverter = ##class(Res.Perfion.Synchroniser.TaalConverter).%New()
+	#dim Taal As %String = "FR"
+	
+	Set Taal = Taalconverter.Convert(Taal)
+	
+	Do $$$AssertEquals(Taal, "F")
+]]></Implementation>
+</Method>
+
+<Method name="Test NL naar N">
+<Implementation><![CDATA[
+	Set Taalconverter = ##class(Res.Perfion.Synchroniser.TaalConverter).%New()
+	#dim Taal As %String = "NL"
+	
+	Set Taal = Taalconverter.Convert(Taal)
+	
+	Do $$$AssertEquals(Taal, "N")
+]]></Implementation>
+</Method>
+
+<Method name="Test NO naar NB">
+<Implementation><![CDATA[
+	Set Taalconverter = ##class(Res.Perfion.Synchroniser.TaalConverter).%New()
+	#dim Taal As %String = "NO"
+	
+	Set Taal = Taalconverter.Convert(Taal)
+	
+	Do $$$AssertEquals(Taal, "NB")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>