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>