Index: APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml
===================================================================
diff -u -r1600 -r1603
--- APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(.../MonsterKostCalculator.cls.xml)	(revision 1600)
+++ APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(.../MonsterKostCalculator.cls.xml)	(revision 1603)
@@ -18,8 +18,8 @@
 	
 	Set Datum = +$zdh("01/"_Maand_"/"_Jaar,4)
 	
-	Set StartDatum = +$$CALCDATE^vhDTyp(Datum,"M","FD")
-	Set EindDatum = +$$CALCDATE^vhDTyp(Datum,"M","LD")
+	Set StartDatum = ##class(TECH.DateTime).EersteDagVanMaand(Datum)
+	Set EindDatum = ##class(TECH.DateTime).LaatsteDagVanMaand(Datum)
 	
 	Set KlantIt = KlantAPI.GeefKlantenIterator()	
 	While (KlantIt.HasNext()){	
Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r1600 -r1603
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1600)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1603)
@@ -204,5 +204,23 @@
 <Implementation><![CDATA[	Quit $SYSTEM.SQL.YEAR(TijdExpressie)
 ]]></Implementation>
 </Method>
+
+<Method name="EersteDagVanMaand">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%Date</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit +$$CALCDATE^vhDTyp(Datum,"M","FD")
+]]></Implementation>
+</Method>
+
+<Method name="LaatsteDagVanMaand">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%Date</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	
+	Quit +$$CALCDATE^vhDTyp(Datum,"M","LD")
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: JBL KPI Klant Product Anlayse Kosten.prj.xml
===================================================================
diff -u -r1600 -r1603
--- JBL KPI Klant Product Anlayse Kosten.prj.xml	(.../JBL KPI Klant Product Anlayse Kosten.prj.xml)	(revision 1600)
+++ JBL KPI Klant Product Anlayse Kosten.prj.xml	(.../JBL KPI Klant Product Anlayse Kosten.prj.xml)	(revision 1603)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="JBL KPI Klant Product Anlayse Kosten" LastModified="2011-07-04 17:36:36">
+<Project name="JBL KPI Klant Product Anlayse Kosten" LastModified="2011-07-05 17:54:37">
   <Items>
     <ProjectItem name="APPS.common.KlantKost.KlantKostService" type="CLS"/>
     <ProjectItem name="APPS.common.KlantKost.enu.KostType" type="CLS"/>
@@ -23,6 +23,7 @@
     <ProjectItem name="DOM.CRM.KlantAPI" type="CLS"/>
     <ProjectItem name="DOM.CRM.impl.DataM.DataMFacturenIterator" type="CLS"/>
     <ProjectItem name="DOM.CRM.impl.DataM.DataMProformasIterator" type="CLS"/>
+    <ProjectItem name="DOM.OV.enu.OrderType" type="CLS"/>
     <ProjectItem name="DOM.OV.impl.DataM.DataMBonInProforma" type="CLS"/>
     <ProjectItem name="DOM.OV.impl.DataM.DataMBonInProformalijnIterator" type="CLS"/>
     <ProjectItem name="DOM.OV.impl.DataM.DataMFactuur" type="CLS"/>
@@ -35,8 +36,10 @@
     <ProjectItem name="Stat.OmzetKlantProductMaand" type="CLS"/>
     <ProjectItem name="TECH.DateTime" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy201106081058" type="CLS"/>
+    <ProjectItem name="vhDeploy.JBL.Deploy20110704x1341" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.common.KlantKost.TestBezoekKosten" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.common.KlantKost.TestFactor" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.common.KlantKost.TestMonsterKosten" type="CLS"/>
   </Items>
 </Project>
 </Export>