Index: APPS/common/KlantKost/impl/data/EnkelvoudigeFactor.cls.xml
===================================================================
diff -u -r1384 -r1426
--- APPS/common/KlantKost/impl/data/EnkelvoudigeFactor.cls.xml	(.../EnkelvoudigeFactor.cls.xml)	(revision 1384)
+++ APPS/common/KlantKost/impl/data/EnkelvoudigeFactor.cls.xml	(.../EnkelvoudigeFactor.cls.xml)	(revision 1426)
@@ -18,6 +18,9 @@
 	Set sc = rset.Execute(..%ClassName(),..%Id(),..Naam,Datum)
 	If (rset.Next(.sc)){
 		Set Waarde = rset.Data("Waarde")
+	}Else{
+		Set Bericht = "Factor "_..Naam_" die geldig is op "_$zd(Datum,4)_" niet gevonden."
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),Bericht))
 	}
 	Quit Waarde
 ]]></Implementation>
Index: APPS/common/KlantKost/impl/data/BezoekKostItem.cls.xml
===================================================================
diff -u -r1423 -r1426
--- APPS/common/KlantKost/impl/data/BezoekKostItem.cls.xml	(.../BezoekKostItem.cls.xml)	(revision 1423)
+++ APPS/common/KlantKost/impl/data/BezoekKostItem.cls.xml	(.../BezoekKostItem.cls.xml)	(revision 1426)
@@ -25,8 +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
+	Quit ##super()
 ]]></Implementation>
 </Method>
 
Index: vhDeploy/Deploy201106081058.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy201106081058.cls.xml	(revision 0)
+++ vhDeploy/Deploy201106081058.cls.xml	(revision 1426)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.Deploy201106081058">
+<Description>
+JBL : berekenen van kosten van de laatste paar jaar voor iedere klant</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	Write "Factoren worden voor kostenberekening worden ingesteld."
+	/// Factoren instellen voor de kostberekening
+	Do ##class(APPS.common.KlantKost.impl.KlantKostService).InitFactoren()
+	
+	If ($zu(5) = "ADMIN1"){
+				
+		Write "Kosten berekening van laatste paar jaar wordt uitgevoerd :"
+		/// Kosten berekenen van de laatste jaren.
+		Set KlantKostService = ##class(APPS.common.KlantKost.impl.KlantKostService).%New()
+		For Jaar = 2007 : 1 : 2011 {
+			w $c(9),"-",Jaar,!
+			For Maand = 1 : 1 : 12 {
+				If ((Jaar < 2011) || ((Jaar = 2011) && (Maand <= 5))) {
+					Do KlantKostService.BerekenBezoekKlantKosten(Jaar,Maand)
+				}
+			}
+		}	
+	}
+	
+	/// Taak instellen om kosten van vorige maand opnieuw te berekenen voor iedere klant.
+	Write "Nog uit te voeren als taak ingesteld moet worden op productie omgeving ",!
+	Write $C(9),"Do ##class(APPS.common.KlantKost.impl.KlantKostService).InitTask()",!
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: Stat/OmzetKlantProductMaand.cls.xml
===================================================================
diff -u -r1384 -r1426
--- Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1384)
+++ Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1426)
@@ -159,8 +159,8 @@
 	
 	For  Quit:'result.Next()  Do
 	. Set KLNr = result.Data("KLNr")
-	//. Write result.Data("KLNr")," ", result.Data("Naam")," ", result.Data("Regio")," ", result.Data("Vervallen")," ", result.Data("Codex")," ", result.Data("Uitz")
-	//. write " voBlum:",result.Data("VoBlum")," huOL:",result.Data("HuOL"),!
+	. Write result.Data("KLNr")," ", result.Data("Naam")," ", result.Data("Regio")," ", result.Data("Vervallen")," ", result.Data("Codex")," ", result.Data("Uitz")
+	. write " voBlum:",result.Data("VoBlum")," huOL:",result.Data("HuOL"),!
 	 
 	Do StopTimer^vhLib
 	Set Tijd = $$GetInterval^vhLib
@@ -280,6 +280,7 @@
 		 Set PRNr=$O(^KSTKL(KLNr,PRNr))
 	}
 	
+	
 	Set Klant=##class(Derde.Klant.Klant).%OpenId(KLNr)
 	Set LevAdr=$$DEFAULT^LEVADR(KLNr)
 	Set (OmzetHuidigList,OmzetVorigList,MargeVorigList,MargeHuidigList)=""
@@ -328,8 +329,9 @@
 	Set Row=Row_$LB(CatalogusInfo)
 	
 	/// Kosten toevoegen
-	Set KostprijsVertegenw = ..GeefKostprijsVertegenwKlant(KLNR,##class(APPS.common.KlantKost.enu.KostType).Bezoek(),%HorologHuidigVan,%HorologHuidigTot)
-	Set AlleKosten = ..GeefKostprijsVertegenwKlant(KLNR,,%HorologHuidigVan,%HorologHuidigTot)
+	Set KostprijsVertegenw = ..GeefKostprijsVertegenwKlant(KLNr,##class(APPS.common.KlantKost.enu.KostType).Bezoek(),%HorologHuidigVan,%HorologHuidigTot)
+	Set AlleKosten = ..GeefKostprijsVertegenwKlant(KLNr,,%HorologHuidigVan,%HorologHuidigTot)
+	
 	Set Row=Row_$LB(KostprijsVertegenw,AlleKosten)
 		
 	Quit $$$OK
@@ -388,37 +390,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKostprijsVertegenwKlant">
-<Description>
-Geef voor de klant de kostprijs van de bezoeken (= kostprijs vergegenw klant) tussen de opgegeven data.</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>KlantNr:%Integer,KostType:APPS.common.KlantKost.enu.KostType="",HuidigVan:%Date,HuidigTot:%Date</FormalSpec>
-<ReturnType>%Float</ReturnType>
-<Implementation><![CDATA[
-	Set Kostprijs = ""
-	Set MaandVan = ##class(TECH.DateTime).Maand(+HuidigVan)
-	Set MaandTot = ##class(TECH.DateTime).Maand(+HuidigTot)
-	
-	Set RSet=##class(%ResultSet).%New()
-	
-	/// Enkel van specifiek kosttype de kosten berekenen
-	If (KostType '= ""){
-	    Do RSet.Prepare("Select SUM(Kost) As Kostprijs from APPS_common_KlantKost_impl_data.MaandKost WHERE KostType = ? AND ((Jaar = ? AND MAAND >= ?) OR (Jaar = ? AND MAAND <= ?)) AND KlantNr = ? ")
-		Do RSet.Execute(KostType,##class(TECH.DateTime).Jaar(+HuidigVan),MaandVan,##class(TECH.DateTime).Jaar(+HuidigVan),MaandTot,KlantNr)
-	}
-	/// Alle kosten berekenen
-	Else{
-	    Do RSet.Prepare("Select SUM(Kost) As Kostprijs from APPS_common_KlantKost_impl_data.MaandKost WHERE ((Jaar = ? AND MAAND >= ?) OR (Jaar = ? AND MAAND <= ?)) AND KlantNr = ? ")
-		Do RSet.Execute(##class(TECH.DateTime).Jaar(+HuidigVan),MaandVan,##class(TECH.DateTime).Jaar(+HuidigTot),MaandTot,KlantNr)	
-	}
-	If (RSet.Next()){
-		Set Kostprijs = RSet.Data("Kostprijs")
-	}
-	If (Kostprijs = "") Set Kostprijs = 0
-	Quit Kostprijs
-]]></Implementation>
-</Method>
-
 <Method name="VulAantalCatalogiPerKlant">
 <Description>
 SQL kosten bezoek laatste 12 maand
@@ -458,6 +429,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKostprijsVertegenwKlant">
+<Description>
+JBL + 2011-06-08
+Geef voor de klant de kostprijs van de bezoeken (= kostprijs vergegenw klant) tussen de opgegeven data.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%Integer,KostType:APPS.common.KlantKost.enu.KostType="",HuidigVan:%Date,HuidigTot:%Date</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set Kostprijs = ""
+	Set JaarVan = ##class(TECH.DateTime).Jaar(+HuidigVan)
+	Set MaandVan = ##class(TECH.DateTime).Maand(+HuidigVan)
+	Set JaarTot = ##class(TECH.DateTime).Jaar(+HuidigTot)
+	Set MaandTot = ##class(TECH.DateTime).Maand(+HuidigTot)
+	Set RSet=##class(%ResultSet).%New()
+	
+	/// Enkel van specifiek kosttype de kosten berekenen
+	If (KostType '= ""){
+	    Do RSet.Prepare("Select SUM(Kost) As Kostprijs from APPS_common_KlantKost_impl_data.MaandKost WHERE ((Jaar = ? AND MAAND >= ?) OR (Jaar = ? AND MAAND <= ?)) AND KlantNr = ? AND KostType = ?")
+		Do RSet.Execute(JaarVan,MaandVan,JaarTot,MaandTot,KlantNr,KostType)
+	}
+	/// Alle kosten berekenen
+	Else{
+	    Do RSet.Prepare("Select SUM(Kost) As Kostprijs from APPS_common_KlantKost_impl_data.MaandKost WHERE ((Jaar = ? AND MAAND >= ?) OR (Jaar = ? AND MAAND <= ?)) AND KlantNr = ? ")
+		Do RSet.Execute(JaarVan,MaandVan,JaarTot,MaandTot,KlantNr)	
+	}
+	If (RSet.Next()){
+		Set Kostprijs = RSet.Data("Kostprijs")
+	}
+	If (Kostprijs = "") Set Kostprijs = 0
+	Quit Kostprijs
+]]></Implementation>
+</Method>
+
 <Storage name="VHOpslag">
 <Type>%Library.CacheSQLStorage</Type>
 <StreamLocation>^Stat.ProdMaandS</StreamLocation>
Index: TECH/Concurrency/DbUtils.cls.xml
===================================================================
diff -u -r1074 -r1426
--- TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1074)
+++ TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1426)
@@ -23,7 +23,6 @@
 		If ('insert)
 		{
 			// Neem een exclusieve lock op het object
-			d WLIP^vhDBG(127,"%LockId "_Object_" ("_Object.%Id()_") [DbUtils.OnBeforeSave()]")
 			Set StatusCode = Object.%LockId(Object.%Id(), 0)
 			
 			If $$$ISERR(StatusCode) {
@@ -75,9 +74,7 @@
 <Implementation><![CDATA[
 	// Verwijder de zelf geplaatste lock voor de update van de instanceversion
 	If ('insert) {
-		d WLIP^vhDBG(127,"Unlock "_Object_" ("_Object.%Id()_") [DbUtils]")
 		Set StatusCode = $zobjclassmethod(Object.%ClassName(1), "%UnlockId", Object.%Id(), 0)
-		d WLIP^vhDBG(127,"S: "_StatusCode)
 		//Do Object.%UnlockId(Object.%Id(),0)
 	}
 	// Plaats de lock voor de transactie als het object voor het eerst werd gesaved	
Index: vhUnitTest/APPS/common/KlantKost/TestFactor.cls.xml
===================================================================
diff -u -r1423 -r1426
--- vhUnitTest/APPS/common/KlantKost/TestFactor.cls.xml	(.../TestFactor.cls.xml)	(revision 1423)
+++ vhUnitTest/APPS/common/KlantKost/TestFactor.cls.xml	(.../TestFactor.cls.xml)	(revision 1426)
@@ -8,11 +8,16 @@
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="UnitTestFactor">
+<Type>%String</Type>
+<Default>UnitTestFactor</Default>
+</Parameter>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set Status = ##super()	 
-	Set Factor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%New("UnitTestFactor")
+	Set Factor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%New(..#UnitTestFactor)
 	Do Factor.%Save()
 	Set f = ##class(APPS.common.KlantKost.impl.data.Factor).%New(Factor,"f1",0.5,(+$h-100))
 	Set status = f.%Save()
@@ -31,25 +36,23 @@
 <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()   
-
+	Set UnitTestFactor = ..#UnitTestFactor
 	&SQL( DELETE FROM APPS_common_KlantKost_impl_data.Factor
-	WHERE ID = "UnitTestFactor")
+	WHERE ID = :UnitTestFactor)
 	
 	&SQL( DELETE FROM APPS_common_KlantKost_impl_data.MeervoudigeFactor
-	WHERE ID = "UnitTestFactor")
+	WHERE ID = :UnitTestFactor)
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="TestOpvragenFactor">
+<Description>
+Test het opvragen van verschillende factoren op verschillende data's.</Description>
 <Implementation><![CDATA[
 	Set FactorWaarde = ""
-	Set MeervoudigeFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%OpenId("UnitTestFactor")
+	Set MeervoudigeFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%OpenId(..#UnitTestFactor)
 	
 	Do $$$AssertTrue($IsObject(MeervoudigeFactor),"Factor UnitTestFactor is gevonden.")	
 	
@@ -72,9 +75,43 @@
 	
 	Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("f2",$h-1)
 	Do $$$AssertEquals(FactorWaarde,0.2,"Factorwaarde voor specifiek item 'f2' is correct op datum "_($h-1))
+]]></Implementation>
+</Method>
+
+<Method name="TestOpvragenNietGeldigOpDatum">
+<Description>
+Test het opvragen van een bestaande factor maar op een datum waar de factor niet geldig is.</Description>
+<Implementation><![CDATA[
+	Set FactorWaarde = ""
+	Set MeervoudigeFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%OpenId(..#UnitTestFactor)
 	
-	; [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 ?
+	Do $$$AssertTrue($IsObject(MeervoudigeFactor),"Factor UnitTestFactor is gevonden.")	
+	
+	Set $ZTRAP = "Catch"
+	Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("f2",$h-500)
+	Quit $$$OK
+Catch
+	Do $$$AssertTrue($ECODE["InvalidInput","Factorwaarde voor specifiek item 'f2' is niet bestaand op datum "_($h-500))
+	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="TestOpvragenNietGeldigOpFactor">
+<Description>
+Test het opvragen van een onbestaande factor.</Description>
+<Implementation><![CDATA[
+	Set FactorWaarde = ""
+	Set MeervoudigeFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%OpenId(..#UnitTestFactor)
+	
+	Do $$$AssertTrue($IsObject(MeervoudigeFactor),"Factor UnitTestFactor is gevonden.")	
+	
+	Set $ZTRAP = "Catch"
+	Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("onbestaandefactor",$h-40)
+	Quit $$$OK
+Catch
+	Do $$$AssertTrue($ECODE["InvalidInput","Factorwaarde voor specifiek item 'onbestaandefactor' is niet bestaand")
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>
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()
Index: APPS/common/KlantKost/impl/data/MeervoudigeFactor.cls.xml
===================================================================
diff -u -r1384 -r1426
--- APPS/common/KlantKost/impl/data/MeervoudigeFactor.cls.xml	(.../MeervoudigeFactor.cls.xml)	(revision 1384)
+++ APPS/common/KlantKost/impl/data/MeervoudigeFactor.cls.xml	(.../MeervoudigeFactor.cls.xml)	(revision 1426)
@@ -43,6 +43,9 @@
 	Set sc = rset.Execute(..%ClassName(),..%Id(),Naam,Datum)
 	If (rset.Next(.sc)){
 		Set Waarde = rset.Data("Waarde")
+	}Else{
+		Set Bericht = "Factor "_..Naam_" -> "_Naam_" die geldig is op "_$zd(Datum,4)_" niet gevonden."
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),Bericht))
 	}
 	Quit Waarde
 ]]></Implementation>
Index: APPS/common/KlantKost/impl/data/IndividueelKostItem.cls.xml
===================================================================
diff -u -r1384 -r1426
--- APPS/common/KlantKost/impl/data/IndividueelKostItem.cls.xml	(.../IndividueelKostItem.cls.xml)	(revision 1384)
+++ APPS/common/KlantKost/impl/data/IndividueelKostItem.cls.xml	(.../IndividueelKostItem.cls.xml)	(revision 1426)
@@ -24,6 +24,15 @@
 <Type>%Float</Type>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>Datum:%Date,KlantNr:%Integer,Kost:%Integer,BezoekID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.commonB5C.IndividueelK7A2D</DataLocation>
Index: APPS/common/KlantKost/impl/KostCalculator.cls.xml
===================================================================
diff -u -r1423 -r1426
--- APPS/common/KlantKost/impl/KostCalculator.cls.xml	(.../KostCalculator.cls.xml)	(revision 1423)
+++ APPS/common/KlantKost/impl/KostCalculator.cls.xml	(.../KostCalculator.cls.xml)	(revision 1426)
@@ -5,15 +5,13 @@
 JBL + 2011-05-30
 
 De calculator weet
-- dde brondata te vinden
+- de brondata te vinden
 - welke formule toe te passen
 - welke factoren te gebruiken in de formule
 
-Implementatie van de calculaties zal geval per geaval verschillen. 
+Implementatie van de calculaties zullen geval per geval verschillen. 
 In het eenvoudigste geval kan een SQL-statement volstaan. 
-
-
-; [Review WV   JBL KPIanalyse ]  Meerdere spellingsfouten in bovenstaande comments  :-P  </Description>
+</Description>
 <Abstract>1</Abstract>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>