Index: APPS/common/KlantKost/impl/KostCalculator.cls.xml
===================================================================
diff -u -r1384 -r1423
--- APPS/common/KlantKost/impl/KostCalculator.cls.xml	(.../KostCalculator.cls.xml)	(revision 1384)
+++ APPS/common/KlantKost/impl/KostCalculator.cls.xml	(.../KostCalculator.cls.xml)	(revision 1423)
@@ -11,7 +11,9 @@
 
 Implementatie van de calculaties zal geval per geaval verschillen. 
 In het eenvoudigste geval kan een SQL-statement volstaan. 
-</Description>
+
+
+; [Review WV   JBL KPIanalyse ]  Meerdere spellingsfouten in bovenstaande comments  :-P  </Description>
 <Abstract>1</Abstract>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
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
Index: vhUnitTest/APPS/common/KlantKost/TestFactor.cls.xml
===================================================================
diff -u -r1384 -r1423
--- vhUnitTest/APPS/common/KlantKost/TestFactor.cls.xml	(.../TestFactor.cls.xml)	(revision 1384)
+++ vhUnitTest/APPS/common/KlantKost/TestFactor.cls.xml	(.../TestFactor.cls.xml)	(revision 1423)
@@ -31,6 +31,11 @@
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	; [Review WV   JBL KPIanalyse ]  de waarde "UnitTestFactor" slechts op één plaats invullen  is iets veiliger 
+	;								  --> SQL :   ... WHERE ID = :FactorNaam 
+	;
+	;Set FactorNaam=..GeefUTFactorNaam()   
+
 	&SQL( DELETE FROM APPS_common_KlantKost_impl_data.Factor
 	WHERE ID = "UnitTestFactor")
 	
@@ -67,6 +72,8 @@
 	
 	Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("f2",$h-1)
 	Do $$$AssertEquals(FactorWaarde,0.2,"Factorwaarde voor specifiek item 'f2' is correct op datum "_($h-1))
+	
+	; [Review WV   JBL KPIanalyse ]  Heb er geen idee van, maar ik vroeg me af  of het zinvol is van onbestaande F's op te roepen --> error of leeg resultaat ?
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/common/KlantKost/impl/data/BezoekKostItem.cls.xml
===================================================================
diff -u -r1384 -r1423
--- APPS/common/KlantKost/impl/data/BezoekKostItem.cls.xml	(.../BezoekKostItem.cls.xml)	(revision 1384)
+++ APPS/common/KlantKost/impl/data/BezoekKostItem.cls.xml	(.../BezoekKostItem.cls.xml)	(revision 1423)
@@ -25,6 +25,7 @@
 	Set ..KostType = ##class(APPS.common.KlantKost.enu.KostType).Bezoek()
 	Set ..Kost = Kost
 	Set ..BezoekID = BezoekID
+	; [Review WV   JBL KPIanalyse ]  Best nu reeds ##super(...) oproepen, ook al is die nog niet nodig. 
 	Quit $$$OK
 ]]></Implementation>
 </Method>