Index: APPS/common/KlantKost/impl/KlantKostService.cls.xml
===================================================================
diff -u -r1423 -r1426
--- APPS/common/KlantKost/impl/KlantKostService.cls.xml	(.../KlantKostService.cls.xml)	(revision 1423)
+++ APPS/common/KlantKost/impl/KlantKostService.cls.xml	(.../KlantKostService.cls.xml)	(revision 1426)
@@ -3,6 +3,7 @@
 <Class name="APPS.common.KlantKost.impl.KlantKostService">
 <Description>
 JBL + 2011-05-30</Description>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>APPS.common.KlantKost.KlantKostService</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -26,7 +27,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())   ; [Review WV   JBL KPIanalyse ]  de methodnaam "DatumBereken" vind ik totaal onbegrijpbaar;  param verschil ??? 
+	Set VorigeMaand = ##class(TECH.DateTime).DatumBereken(+$h,-1,##class(TECH.enu.DatePart).Maand())
 	Set Jaar = ##class(TECH.DateTime).Jaar(VorigeMaand)
 	Set Maand = ##class(TECH.DateTime).Maand(VorigeMaand)
 	
@@ -76,37 +77,42 @@
 	
 	/// 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)
+		Set Waarde = 53.05 
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,Waarde,GeldigVanaf)
 		Do Factor.%Save()
 			
-		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,133.7315328791,GeldigVanaf)
+		Set Waarde = 133.7315328791
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,Waarde,GeldigVanaf)
 		Do Factor.%Save()
 	}
 	/// KS BE
 	For Regio = 11,12,14,15,16,17 {
-		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,36.52,GeldigVanaf)
+		Set Waarde = 36.52
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,Waarde,GeldigVanaf)
 		Do Factor.%Save()
 		
-		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,57.6405793977,GeldigVanaf)
+		Set Waarde = 57.6405793977
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,Waarde,GeldigVanaf)
 		Do Factor.%Save()
 	}
 	/// KS NL
 	For Regio = 21,22,23,24,25,26,27 {
-		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,32.38,GeldigVanaf)
+		Set Waarde = 32.38
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,Waarde,GeldigVanaf)
 		Do Factor.%Save()
 		
-		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,43.3604735424,GeldigVanaf)
+		Set Waarde = 43.3604735424
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,Waarde,GeldigVanaf)
 		Do Factor.%Save()
 	}	
 	/// ARCH
 	For Regio = 30,31 {
-		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,39.88,GeldigVanaf)
+		Set Waarde = 39.88
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,Waarde,GeldigVanaf)
 		Do Factor.%Save()
 		
-		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,255.7984623719,GeldigVanaf)
+		Set Waarde = 255.7984623719
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,Waarde,GeldigVanaf)
 		Do Factor.%Save()
 	}
 	
@@ -125,10 +131,10 @@
 	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    ; [Review WV   JBL KPIanalyse ]  macro $$$NSpace  in vhLib.Macro.inc  is beter leesbaar 
+	Set Task.NameSpace = $$$NSpace ; Assign to namespace
 	Set Task.ExecuteCode = "Do ##class(APPS.common.KlantKost.impl.KlantKostService).%New().BerekenKlantKostenVorigeMaand()"
 	Set Task.DailyFrequency = 0		;Once a day
-	Set Task.DailyStartTime = 45000 ; 12u30
+	Set Task.DailyStartTime = 20000 ; 5u33
 	Set Task.RescheduleOnStart = 1
 	Set Task.ContinueAfterError = 1
 	Set rc = Task.%Save()