Index: Res/Perfion/Synchroniser/Vertalingen.cls.xml
===================================================================
diff -u -r63040 -r63420
--- Res/Perfion/Synchroniser/Vertalingen.cls.xml	(.../Vertalingen.cls.xml)	(revision 63040)
+++ Res/Perfion/Synchroniser/Vertalingen.cls.xml	(.../Vertalingen.cls.xml)	(revision 63420)
@@ -62,7 +62,7 @@
 </Method>
 
 <Method name="VerwerkVertalingsGroep">
-<FormalSpec>Groep:%String</FormalSpec>
+<FormalSpec>Groep:%String,Controle:%Boolean=1</FormalSpec>
 <Implementation><![CDATA[
 	Do ..Logger.Info("Starten met verwerken vertalingen met groep: "_Groep)
 	
@@ -74,7 +74,9 @@
 		#dim PerfionVertalingen As list Of Res.Perfion.Synchroniser.VertalingDTO = ..VertalingenParser.GeefVertalingenLijst()
 		Do ..VulPerfionTabel(Groep)
 		Do ..VoegToeVertalingen(PerfionVertalingen)
-		Do ..SynchroniseerVertalingen()
+		If (..ControleerInkomendeVertalingen(Groep, Controle)) {
+			Do ..SynchroniseerVertalingen()
+		}
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ..Logger.LogEnMailExceptie(Exceptie, "Er is een fout opgetreden bij het synchroniseren van vertalingen")
@@ -83,42 +85,44 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// controleren of er in verhouding niet teveel vertalingen worden verwijderd voor deze allemaal verwijderd worden
+
+]]></Content>
+</UDLText>
+
 <Method name="ControleerInkomendeVertalingen">
-<FormalSpec>PerfionVertalingen:TECH.ListOfObjects</FormalSpec>
+<FormalSpec>Groep:TECH.String,Controle:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim AantalPerfionVertalingen As TECH.Integer = PerfionVertalingen.Count()
-	Do ##class(Tools.Wlip).%New(252).String("Aantal perfion vertalingen: "_AantalPerfionVertalingen)
-	#dim AantalTeVerwijderenCacheVertalingen As TECH.Integer = 0
-	
-	;#dim Query As %String = "SELECT count(*) from Res_Perfion_Synchroniser"
-	;#dim ResultSet As TECH.ResultSet = ..QueryAPI.Execute(Query)
-	;Do ResultSet.Next()
-	;Do ##class(Tools.Wlip).%New(252).String(ResultSet.GetData(1))
-	Do ##class(Tools.Wlip).%New(252).String("Aantal te verwijderen cache vertalingen: "_AantalTeVerwijderenCacheVertalingen)
-	;Do ##class(Tools.Wlip).%New(252).String("Aantal cache vertalingen achter synchronisatie: "_(..AantalCacheVertalingen - AantalTeVerwijderenCacheVertalingen))
-	Do ##class(Tools.Wlip).%New(252).String("Aantal cache vertalingen: "_..AantalCacheVertalingen)
-	
-	Quit $$$True
+	Do ..Logger.Info("Controle van inkomende vertalingen")
+	If ($$$Not(Controle)) {
+		Do ..Logger.WarningMail("De methode VerwerkVertalingsGroep werd uitgevoerd zonder controle")
+		Quit $$$True
+	} Else {
+		#dim AantalTeVerwijderenCacheVertalingen As TECH.Integer = 0
+		#dim PerfionIterator As TECH.Iterator = ..PerfionRepository.ZoekAlle()
+		While (PerfionIterator.HasNext()) {
+			Do PerfionIterator.Next()
+			Set AantalTeVerwijderenCacheVertalingen = AantalTeVerwijderenCacheVertalingen + 1
+		}
+		
+		Do ##class(Tools.Wlip).%New(252).String("Aantal te verwijderen cache vertalingen: "_AantalTeVerwijderenCacheVertalingen)
+		Do ##class(Tools.Wlip).%New(252).String("Aantal cache vertalingen: "_..AantalCacheVertalingen)
+		#dim Percentage As %Double = (AantalTeVerwijderenCacheVertalingen / ..AantalCacheVertalingen) * 100
+		Do ..Logger.Info("Er worden "_AantalTeVerwijderenCacheVertalingen_" vertalingen verwijderd van de "_..AantalCacheVertalingen_" dit is een percentage van: "_Percentage)
+		If (Percentage > 10) {
+			Do ..Logger.WarningMail("Er werden in verhouding te veel vertalingen verwijderd mocht dit na controle toch correct zijn voer de methode VerwerkVertalingsGroep(Groep,0) met de 2de parameter op 0")
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Er werden in verhouding te veel vertalingen verwijderd mocht dit na controle toch correct zijn voer de methode VerwerkVertalingsGroep(Groep,0) met de 2de parameter op 0"))
+		} Else {
+			Quit $$$True
+		}
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkVertalingen">
-<Implementation><![CDATA[
-	Do ..Logger.Info("Starten met verwerken vertalingen")
-	
-	Set ..AantalCacheVertalingen = 0
-	Do ##class(Res.Perfion.Synchroniser.Perfion).%DeleteExtent()
-	Set ..VertalingenStream = ..VertalingenService.GeefVertalingen()
-	Do ..VertalingenParser.ReadStream(..VertalingenStream)
-	#dim PerfionVertalingen As list Of Res.Perfion.Synchroniser.VertalingDTO = ..VertalingenParser.GeefVertalingenLijst()
-	Do ..VulPerfionTabel()
-	Do ..VoegToeVertalingen(PerfionVertalingen)
-	Do ..SynchroniseerVertalingen()
-]]></Implementation>
-</Method>
-
 <Method name="VulPerfionTabel">
 <FormalSpec>Groep:%String</FormalSpec>
 <Private>1</Private>
@@ -159,7 +163,6 @@
 		Set Type = VertalingObject.VertalingsType
 		Set Sleutel = VertalingObject.Sleutel
 		
-		
 		#dim VertalingenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VertalingObject.Vertalingen)
 		While (VertalingenIterator.HasNext()) 
 		{