Index: vhUnitTest/APPS/common/KlantKost/TestMonsterKosten.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/KlantKost/TestMonsterKosten.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/KlantKost/TestMonsterKosten.cls.xml	(revision 1601)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.common.KlantKost.TestMonsterKosten">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("","APPS.common.KlantKost.TestMonsterKosten")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Datum">
+<Type>%Date</Type>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	
+	/// Opzetten KFAP
+	Set ^KFAP("F",1,0,0) = "1000\F\13.10.01\1\EUR\13.10.01\0\0\0\0\0\0\0\0\\\8#0.00\\\\\\\\\\"
+	Set ^KFAP("F",1,0,1) = "\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",1,0,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",1,0,3) = "\\\\\1000\\\\\\\\\\\\\\\##\12.19555\\\\\\\\\"
+	Set ^KFAP("F",1,"U358178",0)="\"
+	Set ^KFAP("F",1,"U358178",1)="\12.10.01\\225398\\1000\OD1 #Door onze diensten 1\\\051-30 35 01\\\0.00##12.19555\\\12.10.01\\EUR\\\00\2\\###\M\\\F\F\\\\\\\61646\\OD1/3243\\\\OD1;61646;175696;58205\51834"
+	Set ^KFAP("F",1,"U358178",2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",1,"U358178",3)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",1,"U358178",4)=7
+	Set ^KFAP("F",1,"U358178",101)="\\\1055#1100#61640,31224\158401 - 06.10.01 - 06.10.01 o/bez LDS/\\\\\\\\\\100\\KF5\\1055#61640,31224#158401\\\\\\\"
+	Set ^KFAP("F",1,"U358178",102)="\\\\ªBVoor de voorgemonteerde TANDEMBOX(en) in dit orderªb\\\\\\\\\F\200\\KF11#\31230;T;;O\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",1,"U358178",103)="\\\\ªBgeldt een extra productietijd van 48 uur.ªb\\\\\\\\\F\300\\KF11#\31230;T;;O\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",1,"U358178",104)="\\\\Tav P. Lepoutre\\\\\\\\\F\400\\KF11#1\31207;T;;OWBF\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KFAP("F",1,"U358178",105)="703000 \165716\2\\\1.28\20#\8\2.56\2.56\703000 \L\\F\500\2.56\KF6\\\\E1\EUR\\\09/42\\\\\\\\1.5342\\\\\\\\1\1\\\\1"
+	Set ^KFAP("F",1,"U358178",106)="703100 \499069\1\\\96.07\20#\8\96.07\96.07\703100 \L\\F\600\96.07\KF6\\\\E1\EUR\\1\09/42\\\KOM\\\\\59.3424\\\\\\\\1\1\\\\1"	
+	
+	
+	Set DatumHulp = "13.10.01"
+	Set ..Datum = ##class(TECH.DateTime).TextToDate(DatumHulp)
+	Set ^KFAP1("F",1000,-..Datum,1)=""
+	
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK	
+	Kill ^KFAP("F",1)
+	Kill ^KFAP1("F",1000,-..Datum,1)
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="TestMonsterKost">
+<Description>
+Bezoekkosten voor één maand voor testklant1000 berekenen en vgl met maandkost.</Description>
+<Implementation><![CDATA[
+	Set KlantKostService = ##class(APPS.common.KlantKost.impl.KlantKostService).%New()
+	
+	Set Jaar = 2001
+	Set Maand = 10
+	Set KostType = ##class(APPS.common.KlantKost.enu.KostType).Monster()
+	
+	Do KlantKostService.BerekenMonsterKlantKosten(Jaar,Maand)
+	Kill TotaalKost,MaandKost
+	&SQL(Select SUM(Kost) INTO :TotaalKost From APPS_common_KlantKost_impl_data.MonsterKostItem WHERE KlantNr = 1000 
+			AND DatePart('yy',Datum) = :Jaar
+			AND DatePart('mm',Datum) = :Maand
+			AND KostType = :KostType)	
+	
+	&SQL(Select Kost INTO :MaandKost From APPS_common_KlantKost_impl_data.MaandKost
+		 WHERE KlantNr = 1000 
+			AND Jaar = :Jaar
+			AND Maand = :Maand
+			AND KostType = :KostType)
+			
+	Do $$$AssertEquals(TotaalKost,MaandKost,"Kosten voor één maand komen overeen met de gemaakte monsterkosten.")
+	
+	/// De CIF prijzen opgezocht in ADMIN en hier samenteld voor de twee producten die in monster zitten.
+	Do $$$AssertEquals(TotaalKost,60.8766,"Komen overeen voor de monsters die gedefinieerd zijn.")
+]]></Implementation>
+</Method>
+</Class>
+</Export>