Index: Res/Perfion/Synchroniser/PerfionRepository.cls.xml
===================================================================
diff -u -r62982 -r63442
--- Res/Perfion/Synchroniser/PerfionRepository.cls.xml	(.../PerfionRepository.cls.xml)	(revision 62982)
+++ Res/Perfion/Synchroniser/PerfionRepository.cls.xml	(.../PerfionRepository.cls.xml)	(revision 63442)
@@ -8,14 +8,34 @@
 <Default>Res.Perfion.Synchroniser.Perfion</Default>
 </Parameter>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Gateway:TECH.Persistent.Gateway="",QueryAPI:TECH.Query.QueryAPI="",Logger:vhLib.Logger</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..ControleerDataClassName(..#DataClassName)
+	Set ..Gateway = $$$Implementation(Gateway,##class(TECH.Persistent.impl.Gateway).%New(..#DataClassName))
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="MaakSleutelVoorPerfion">
 <FormalSpec>Sleutel:%String</FormalSpec>
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[
+	Do ..Logger.Debug("Sleutel voor Perfion gemaakt met deze sleutel: "_Sleutel)
 	Set PerfionObject = ##class(Res.Perfion.Synchroniser.Perfion).%New()
-	
 	Set PerfionObject.Sleutel = Sleutel
-	
 	Do ..Bewaar(PerfionObject)
 ]]></Implementation>
 </Method>
@@ -25,8 +45,10 @@
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[
 	If (..BestaatViaSleutel(Sleutel)) {
+		Do ..Logger.Debug("Perfion object verwijderd met sleutel: "_Sleutel)
 		Do ..VerwijderViaFilter("Sleutel = ?", $ListBuild(Sleutel))
 	} ElseIf (..BestaatViaSleutel(##class(TECH.StringUtils).ToLower(Sleutel))) {
+		Do ..Logger.Debug("Perfion object verwijderd met sleutel: "_##class(TECH.StringUtils).ToLower(Sleutel))
 		Do ..VerwijderViaFilter("Sleutel = ?", $ListBuild(##class(TECH.StringUtils).ToLower(Sleutel)))
 	}
 ]]></Implementation>
@@ -35,7 +57,9 @@
 <Method name="BestaatViaSleutel">
 <FormalSpec>Sleutel:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..BestaatViaFilter("Sleutel = ?", $ListBuild(Sleutel))
+<Implementation><![CDATA[
+	Do ..Logger.Debug("Bestaat perfion object met sleutel: "_Sleutel)
+	Quit ..BestaatViaFilter("Sleutel = ?", $ListBuild(Sleutel))
 ]]></Implementation>
 </Method>
 </Class>