Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostenPlaatsWaardeTabel.cls.xml
===================================================================
diff -u -r1075 -r2242
--- DOM/PM/Maatwerk/Calc/Kost/impl/KostenPlaatsWaardeTabel.cls.xml	(.../KostenPlaatsWaardeTabel.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/KostenPlaatsWaardeTabel.cls.xml	(.../KostenPlaatsWaardeTabel.cls.xml)	(revision 2242)
@@ -14,8 +14,8 @@
  	Do ResultSet.Prepare("SELECT KostPerTijd FROM DOM_PM_Maatwerk_Calc_Kost_impl.KostenPlaatsWaardeInfo WHERE KostenPlaatsID = ? AND GeldigVan <= ? AND GeldigTot >= ?")
 
  	Do ResultSet.Execute(KostenPlaats, BerekenDatum, BerekenDatum)
-
-	Set KostPerTijd = ..GeefKostPerTijd(ResultSet)
+ 	
+	Set KostPerTijd = ..GeefKostPerTijd(ResultSet, KostenPlaats)
 	
 	Quit KostPerTijd
 ]]></Implementation>
@@ -30,7 +30,7 @@
 
  	Do ResultSet.Execute(KostenPlaats, BerekenTag)
 
-	Set KostPerTijd = ..GeefKostPerTijd(ResultSet)
+	Set KostPerTijd = ..GeefKostPerTijd(ResultSet, KostenPlaats)
 	
 	Quit KostPerTijd
 ]]></Implementation>
@@ -39,7 +39,7 @@
 <Method name="GeefKostPerTijd">
 <Description>
 De Resultset mag slechts één KostenPlaatsWaardeInfo bevatten, anders wordt er een Error gethrowed. </Description>
-<FormalSpec>ResultSet:%ResultSet</FormalSpec>
+<FormalSpec>ResultSet:%ResultSet,KostenPlaats:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
@@ -50,12 +50,12 @@
 		Set KostPerTijd = ResultSet.Data("KostPerTijd")
 		If (ResultSet.Next())
 		{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere KostenPlaatsWaardeInfo objecten gevonden"))
+			Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere KostenPlaatsWaardeInfo objecten gevonden voor kostenplaats "_KostenPlaats))
 		}
 	}
 	Else
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen KostenPlaatsWaardeInfo objecten gevonden"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen KostenPlaatsWaardeInfo objecten gevonden voor kostenplaats "_KostenPlaats))
 	}
 	
 	Quit KostPerTijd