Index: Res/VertalingRepository.cls.xml =================================================================== diff -u -r62861 -r62862 --- Res/VertalingRepository.cls.xml (.../VertalingRepository.cls.xml) (revision 62861) +++ Res/VertalingRepository.cls.xml (.../VertalingRepository.cls.xml) (revision 62862) @@ -45,8 +45,6 @@ Groep:%String,Sleutel:%String,Type:%String,Taal:%String,Vertaling:%String TECH.Persistent 1 + +vhLib.Logger +1 + + -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 +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,Logger:vhLib.Logger 1 1 %Status @@ -45,7 +50,7 @@ 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()) - + Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New()) Quit $$$OK ]]> @@ -72,7 +77,8 @@ Try { Do ..PerfionRepository.MaakSleutelVoorPerfion(Vertaling.Intern) } Catch { - #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + #dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + Do ..Logger.LogExceptie(Exceptie) } } ]]> @@ -98,7 +104,8 @@ Try { Do ..PerfionRepository.VerwijderViaSleutel(Sleutel) } Catch { - #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + #dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + Do ..Logger.LogExceptie(Exceptie) } #dim VertalingenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(VertalingObject.Vertalingen)