Index: APPS/common/KlantKost/impl/KlantKostService.cls.xml
===================================================================
diff -u -r1384 -r1423
--- APPS/common/KlantKost/impl/KlantKostService.cls.xml	(.../KlantKostService.cls.xml)	(revision 1384)
+++ APPS/common/KlantKost/impl/KlantKostService.cls.xml	(.../KlantKostService.cls.xml)	(revision 1423)
@@ -26,7 +26,7 @@
 elke  nacht (na backup) moeten de klantkosten van de voorbije kalendermaand herberekend worden</Description>
 <Implementation><![CDATA[
 	/// De vorige maand instellen.
-	Set VorigeMaand = ##class(TECH.DateTime).DatumBereken(+$h,-1,##class(TECH.enu.DatePart).Maand())
+	Set VorigeMaand = ##class(TECH.DateTime).DatumBereken(+$h,-1,##class(TECH.enu.DatePart).Maand())   ; [Review WV   JBL KPIanalyse ]  de methodnaam "DatumBereken" vind ik totaal onbegrijpbaar;  param verschil ??? 
 	Set Jaar = ##class(TECH.DateTime).Jaar(VorigeMaand)
 	Set Maand = ##class(TECH.DateTime).Maand(VorigeMaand)
 	
@@ -76,6 +76,9 @@
 	
 	/// IP
 	For Regio = 2,3 {
+		; [Review WV   JBL KPIanalyse ]  Enkel voor de leesbaarheid : Waarde als var definieren 
+		;Set Waarde = 53.05 
+		;Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,Waarde,GeldigVanaf)
 		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,53.05,GeldigVanaf)
 		Do Factor.%Save()
 			
@@ -122,7 +125,7 @@
 	Set Task = ##Class(%SYSTEM.Task).%New()
 	Set Task.Name = "KostBerekening"
 	Set Task.Description = "Kost berekening van de vorige maand voor iedere klant."
-	Set Task.NameSpace = $zu(5) ; Assign to namespace
+	Set Task.NameSpace = $zu(5) ; Assign to namespace    ; [Review WV   JBL KPIanalyse ]  macro $$$NSpace  in vhLib.Macro.inc  is beter leesbaar 
 	Set Task.ExecuteCode = "Do ##class(APPS.common.KlantKost.impl.KlantKostService).%New().BerekenKlantKostenVorigeMaand()"
 	Set Task.DailyFrequency = 0		;Once a day
 	Set Task.DailyStartTime = 45000 ; 12u30