Index: APPS/common/KlantKost/impl/data/EnkelvoudigeFactor.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/data/EnkelvoudigeFactor.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/data/EnkelvoudigeFactor.cls.xml	(revision 1384)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.data.EnkelvoudigeFactor">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Method name="ZoekFactorWaarde">
+<FormalSpec>Datum:%Date</FormalSpec>
+<Implementation><![CDATA[
+	Set Waarde = ""
+	Set rset = ##class(%ResultSet).%New("APPS.common.KlantKost.impl.data.Factor:qZoekWaarde")
+	Set sc = rset.Execute(..%ClassName(),..%Id(),..Naam,Datum)
+	If (rset.Next(.sc)){
+		Set Waarde = rset.Data("Waarde")
+	}
+	Quit Waarde
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.commonB5C.Enkelvoudige741D</DataLocation>
+<DefaultData>EnkelvoudigeFactorDefaultData</DefaultData>
+<IdLocation>^APPS.commonB5C.Enkelvoudige741D</IdLocation>
+<IndexLocation>^APPS.commonB5C.Enkelvoudige741I</IndexLocation>
+<StreamLocation>^APPS.commonB5C.Enkelvoudige741S</StreamLocation>
+<Data name="EnkelvoudigeFactorDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Naam</Value>
+</Value>
+<Value name="3">
+<Value>Factor</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/BezoekKostCalculator.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/BezoekKostCalculator.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/BezoekKostCalculator.cls.xml	(revision 1384)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.BezoekKostCalculator">
+<Description>
+JBL + 2011-05-30</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.KlantKost.impl.KostCalculator</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BerekenKostenPerKlant">
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderKosten(Jaar,Maand)
+	
+	Set rset = ##class(%ResultSet).%New()
+ 	Do rset.Prepare("SELECT Agenda.ID As ID, "_
+ 		"Klant.Nummer As KlantNr, "_
+ 		"Klant.Sektor As Regio, "_
+ 		"Klant.Naam As KlantNaam,"_
+ 		"Agenda.Type,"_
+ 		"Agenda.Datum As Datum,"_
+ 		"Agenda.DuurTijd As DuurTijd,"_
+ 		"(( APPS_common_KlantKost_impl.BezoekKostCalculator_ZoekFactorWaarde('Contact',Klant.Sektor,Agenda.Datum) * Agenda.DuurTijd)+ APPS_common_KlantKost_impl.BezoekKostCalculator_ZoekFactorWaarde('KostprijsResterendeTijd',Klant.Sektor,Agenda.Datum)) As Kost "_
+ 	 "FROM Derde_Klant.Klant Klant JOIN Derde_Agenda.Agenda Agenda ON Klant.Nummer = Agenda.Klant "_
+ 	 "Where Jaar = ? AND Maand = ? and Agenda.Type='B'")
+	Set sc = rset.Execute(Jaar, Maand)
+	
+	While (rset.Next(.sc)){
+		Set KostItem = ##class(APPS.common.KlantKost.impl.data.BezoekKostItem).%New(rset.Data("Datum"),rset.Data("KlantNr"),rset.Data("Kost"),rset.Data("ID"))
+		Set Status = KostItem.%Save()
+		If ($SYSTEM.Status.IsError(Status)){
+			Set Bericht = "Failed to save "_KostItem.%ClassName(1)_": "	
+			Set Bericht = Bericht_rset.Data("KlantNr")_$c(9)_rset.Data("Regio")_$c(9)_rset.Data("DuurTijd")_$c(9)_rset.Data("Kost")
+			Set Bericht = Bericht_$c(13,10)_$$ParseStatus^vhLib(Status)
+			w Bericht,!,!,!
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),Bericht))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderKosten">
+<Description>
+Verwijderen van de kosten van dat specifiek jaar en maand voor alle klanten.</Description>
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set KostType = ##class(APPS.common.KlantKost.enu.KostType).Bezoek()
+	&SQL(DELETE FROM APPS_common_KlantKost_impl_data.BezoekKostItem
+ 	WHERE DatePart('yy',Datum) = :Jaar AND DatePart('mm',Datum) = :Maand AND KostType = :KostType)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekFactorWaarde">
+<Description>
+Factor waarde opzoeken voor specifieke regio en datum</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FactorNaam:%String,Regio:%Integer,Datum:%Date</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	Set FactorWaarde = ""
+	Set MeervoudigeFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%OpenId(FactorNaam)
+	If ($IsObject(MeervoudigeFactor)){
+		Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("Regio"_Regio,Datum)
+	}
+	Quit FactorWaarde
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/data/Factor.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/data/Factor.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/data/Factor.cls.xml	(revision 1384)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.data.Factor">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="GeldigVanaf">
+<Type>%Date</Type>
+</Property>
+
+<Property name="ClassName">
+<Type>%String</Type>
+</Property>
+
+<Property name="ID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Waarde">
+<Type>%Float</Type>
+</Property>
+
+<Index name="PrimaryKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>ClassName,ID,Naam,GeldigVanaf</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>ObjectOfPersistentClass:%Persistent,Naam:%String,Waarde:%Integer,GeldigVanaf:%Date</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ClassName = ObjectOfPersistentClass.%ClassName()
+	Set ..ID = ObjectOfPersistentClass.%Id()
+	Set ..Naam = Naam
+	Set ..Waarde = Waarde
+	Set ..GeldigVanaf = GeldigVanaf
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalGeldigTot">
+<Description>
+Indien voor huidige periode de waarde moet blijven gelde, deze nog twee jaar in de toekomst laten gelden.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Datum:%Date</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	If (Datum = ""){
+		Set Datum = (+$h + (365*2))
+	}
+	Quit Datum
+]]></Implementation>
+</Method>
+
+<Query name="qZoekWaarde">
+<Description>
+Zoek waarde die geldig is op die specifieke datum.</Description>
+<Type>%SQLQuery</Type>
+<FormalSpec>ClassName:%String,ID:%Integer,Naam:%String,Datum:%Date</FormalSpec>
+<SqlQuery><![CDATA[	 select %ID As FactorID,
+	 Factor1.Naam As Naam, 
+	 Factor1.Waarde As Waarde
+	 from APPS_common_KlantKost_impl_data.Factor Factor1
+	 WHERE Factor1.ClassName = :ClassName
+	 AND Factor1.ID = :ID
+	 AND Factor1.Naam = :Naam 
+	 AND :Datum >= Factor1.GeldigVanaf 
+	 AND :Datum < APPS_common_KlantKost_impl_data.Factor_BepaalGeldigTot((Select MIN(Factor2.GeldigVanaf) FROM APPS_common_KlantKost_impl_data.Factor Factor2 Where Factor1.ClassName = Factor2.ClassName AND Factor1.ID = Factor2.ID AND Factor1.Naam = Factor2.Naam AND Factor2.GeldigVanaf > Factor1.GeldigVanaf))
+ 	 ORDER BY Factor1.GeldigVanaf]]></SqlQuery>
+</Query>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.common.KlantKosB5C.FactorD</DataLocation>
+<DefaultData>FactorDefaultData</DefaultData>
+<IdLocation>^APPS.common.KlantKosB5C.FactorD</IdLocation>
+<IndexLocation>^APPS.common.KlantKosB5C.FactorI</IndexLocation>
+<StreamLocation>^APPS.common.KlantKosB5C.FactorS</StreamLocation>
+<Data name="FactorDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Bedrag</Value>
+</Value>
+<Value name="3">
+<Value>GeldigVanaf</Value>
+</Value>
+<Value name="4">
+<Value>Naam</Value>
+</Value>
+<Value name="5">
+<Value>Waarde</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r1133 -r1384
--- Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 1133)
+++ Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 1384)
@@ -21,6 +21,20 @@
 <Type>%Date</Type>
 </Property>
 
+<Property name="Jaar">
+<Type>%Integer</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode>	Set {*}=(##class(TECH.DateTime).Jaar({Datum}))</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Property name="Maand">
+<Type>%Integer</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode>	Set {*}=(##class(TECH.DateTime).Maand({Datum}))</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
 <Property name="Klant">
 <Type>Derde.Klant.Klant</Type>
 </Property>
@@ -41,6 +55,15 @@
 <Type>%Time</Type>
 </Property>
 
+<Property name="DuurTijd">
+<Description>
+Duurtijd in uren.</Description>
+<Type>%Integer</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode>	Set {*}=((({TijdTot}-{TijdVan})/60)/60)</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
 <Property name="Straat">
 <Type>%String</Type>
 </Property>
Index: APPS/common/KlantKost/impl/KlantKostService.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/KlantKostService.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/KlantKostService.cls.xml	(revision 1384)
@@ -0,0 +1,136 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.KlantKostService">
+<Description>
+JBL + 2011-05-30</Description>
+<Super>APPS.common.KlantKost.KlantKostService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="MaandKostAggregator">
+<Type>APPS.common.KlantKost.impl.MaandKostAggregator</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..MaandKostAggregator = ##class(APPS.common.KlantKost.impl.MaandKostAggregator).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BerekenKlantKostenVorigeMaand">
+<Description>
+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())
+	Set Jaar = ##class(TECH.DateTime).Jaar(VorigeMaand)
+	Set Maand = ##class(TECH.DateTime).Maand(VorigeMaand)
+	
+	/// Kosten berekenen
+	Do ..BerekenBezoekKlantKosten(Jaar,Maand)
+	Do ..BerekenMonsterKlantKosten(Jaar,Maand)
+]]></Implementation>
+</Method>
+
+<Method name="BerekenBezoekKlantKosten">
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set Calculator = ##class(APPS.common.KlantKost.impl.BezoekKostCalculator).%New()
+	Do Calculator.BerekenKostenPerKlant(Jaar,Maand)
+	
+	Do ..MaandKostAggregator.AggregeerVoorMaandEnType(Jaar,Maand,##class(APPS.common.KlantKost.enu.KostType).Bezoek())
+]]></Implementation>
+</Method>
+
+<Method name="BerekenMonsterKlantKosten">
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set Calculator = ##class(APPS.common.KlantKost.impl.MonsterKostCalculator).%New()
+	Do Calculator.BerekenKostenPerKlant(Jaar,Maand)
+	
+	Do ..MaandKostAggregator.AggregeerVoorMaandEnType(Jaar,Maand,##class(APPS.common.KlantKost.enu.KostType).Monster())
+]]></Implementation>
+</Method>
+
+<Method name="InitFactoren">
+<Description>
+Maak factoren éénmalig aan in cache databank voor het berekenen van kosten.
+Dit moet slechts éénmalig worden uitgevoerd</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set GeldigVanaf = 1 /// $h , eerste dag
+	/// ContactFactor => Totale kostprijs vertegenwoordiging  per uur
+	Set ContactFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%New("Contact")
+	Set Status = ContactFactor.%Save()
+	If ($$$ISERR(Status)) w $$ParseStatus^vhLib(Status)
+	
+	/// KostprijsRestTijdFactor => ( Totale kostprijs v d vertegenwoordiging x (resterende tijd / totale werktijd ) ) / totaal aantal bezoeken in referentieperiode
+	Set KostprijsRestTijdFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%New("KostprijsResterendeTijd")	
+	Set Status = KostprijsRestTijdFactor.%Save()
+	If ($$$ISERR(Status)) w $$ParseStatus^vhLib(Status)	
+	
+	/// IP
+	For Regio = 2,3 {
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,"Regio"_Regio,53.05,GeldigVanaf)
+		Do Factor.%Save()
+			
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,133.7315328791,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)
+		Do Factor.%Save()
+		
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,57.6405793977,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)
+		Do Factor.%Save()
+		
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,43.3604735424,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)
+		Do Factor.%Save()
+		
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,"Regio"_Regio,255.7984623719,GeldigVanaf)
+		Do Factor.%Save()
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InitTask">
+<Description>
+Maakt de task aan voor de scheduler van caché
+Dit moet slechts éénmalig worden uitgevoerd
+w ##class(APPS.common.KlantKost.impl.KlantKostService).InitTask()</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	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
+	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.RescheduleOnStart = 1
+	Set Task.ContinueAfterError = 1
+	Set rc = Task.%Save()
+	Quit rc
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/common/KlantKost/KlantKostService.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/KlantKostService.cls.xml	(revision 0)
+++ APPS/common/KlantKost/KlantKostService.cls.xml	(revision 1384)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.KlantKostService">
+<Description>
+JBL + 2011-05-30
+Interface naar de klantkosten.
+N.B. Voorlopig wordt enkel het opbouwen opgeroepen van buitenaf.
+Leze is voorlopig enkel voor de KPI klant-product, en zal low level gebeuren.
+
+De "Bereken..." methods gaan zowel individuele kost items berekenen als de betreffende aggregaten up-to-date brengen.</Description>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BerekenKlantKostenVorigeMaand">
+<Description>
+elke  nacht (na backup) moeten de klantkosten van de voorbije kalendermaand herberekend worden</Description>
+<Abstract>1</Abstract>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Method name="BerekenBezoekKlantKosten">
+<Abstract>1</Abstract>
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Method name="BerekenMonsterKlantKosten">
+<Abstract>1</Abstract>
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.common7B4.KlantKostSer66CD</DataLocation>
+<DefaultData>KlantKostServiceDefaultData</DefaultData>
+<IdLocation>^APPS.common7B4.KlantKostSer66CD</IdLocation>
+<IndexLocation>^APPS.common7B4.KlantKostSer66CI</IndexLocation>
+<StreamLocation>^APPS.common7B4.KlantKostSer66CS</StreamLocation>
+<Data name="KlantKostServiceDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(revision 1384)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.MonsterKostCalculator">
+<Description>
+JBL + 2011-05-30
+</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.KlantKost.impl.KostCalculator</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BerekenKostenPerKlant">
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwijderKosten(Jaar,Maand)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderKosten">
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set KostType = ##class(APPS.common.KlantKost.enu.KostType).Monster()
+	&SQL(DELETE FROM APPS_common_KlantKost_impl_data.MonsterKostItem
+ 	WHERE DatePart('yy',Datum) = :Jaar AND DatePart('mm',Datum) = :Maand AND KostType = :KostType)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/common/KlantKost/enu/KostType.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/enu/KostType.cls.xml	(revision 0)
+++ APPS/common/KlantKost/enu/KostType.cls.xml	(revision 1384)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.enu.KostType">
+<Description>
+JBL + 2011-05-30</Description>
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,Bezoek,Monster</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Bezoek,Monster</Default>
+</Parameter>
+
+<Method name="Bezoek">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["Bezoek"
+]]></Implementation>
+</Method>
+
+<Method name="Monster">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["Monster"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: JBL KPI Klant Product Anlayse Kosten.prj.xml
===================================================================
diff -u
--- JBL KPI Klant Product Anlayse Kosten.prj.xml	(revision 0)
+++ JBL KPI Klant Product Anlayse Kosten.prj.xml	(revision 1384)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="JBL KPI Klant Product Anlayse Kosten" LastModified="2011-06-08 13:32:26">
+  <Items>
+    <ProjectItem name="APPS.common.KlantKost.KlantKostService" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.enu.KostType" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.BezoekKostCalculator" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.KlantKostService" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.KostCalculator" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.MaandKostAggregator" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.MonsterKostCalculator" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.data.BezoekKostItem" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.data.EnkelvoudigeFactor" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.data.Factor" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.data.IndividueelKostItem" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.data.MaandKost" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.data.MeervoudigeFactor" type="CLS"/>
+    <ProjectItem name="APPS.common.KlantKost.impl.data.MonsterKostItem" type="CLS"/>
+    <ProjectItem name="Derde.Agenda.Agenda" type="CLS"/>
+    <ProjectItem name="Derde.Klant.Klant" type="CLS"/>
+    <ProjectItem name="Stat.OmzetKlantProductMaand" type="CLS"/>
+    <ProjectItem name="TECH.DateTime" type="CLS"/>
+    <ProjectItem name="vhDeploy.Deploy201106081058" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.common.KlantKost.TestBezoekKosten" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.common.KlantKost.TestFactor" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: vhUnitTest/APPS/common/KlantKost/TestFactor.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/KlantKost/TestFactor.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/KlantKost/TestFactor.cls.xml	(revision 1384)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.common.KlantKost.TestFactor">
+<Description>
+JBL : testen van factoren
+Do ##class(vhUnitTest.Manager).RunTest("/display=all","APPS.common.KlantKost.TestFactor")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set Status = ##super()	 
+	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()
+	Set f = ##class(APPS.common.KlantKost.impl.data.Factor).%New(Factor,"f1",2.3,(+$h-40))
+	Set status = f.%Save()
+	Set f = ##class(APPS.common.KlantKost.impl.data.Factor).%New(Factor,"f2",0.8,(+$h-100))
+	Set status = f.%Save()		
+	Set f = ##class(APPS.common.KlantKost.impl.data.Factor).%New(Factor,"f2",0.2,(+$h-2))
+	Set status = f.%Save()	
+	Set f = ##class(APPS.common.KlantKost.impl.data.Factor).%New(Factor,"f4",1.1,(+$h+50))
+	Set status = f.%Save()
+ 	quit Status
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	&SQL( DELETE FROM APPS_common_KlantKost_impl_data.Factor
+	WHERE ID = "UnitTestFactor")
+	
+	&SQL( DELETE FROM APPS_common_KlantKost_impl_data.MeervoudigeFactor
+	WHERE ID = "UnitTestFactor")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestOpvragenFactor">
+<Implementation><![CDATA[
+	Set FactorWaarde = ""
+	Set MeervoudigeFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%OpenId("UnitTestFactor")
+	
+	Do $$$AssertTrue($IsObject(MeervoudigeFactor),"Factor UnitTestFactor is gevonden.")	
+	
+	Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("f1",$h-80)
+	Do $$$AssertEquals(FactorWaarde,0.5,"Factorwaarde voor specifiek item 'f1' is correct op datum "_($h-80))
+	
+	Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("f1",$h-35)
+	Do $$$AssertEquals(FactorWaarde,2.3,"Factorwaarde voor specifiek item 'f1' is correct op datum "_($h-35))
+	
+	/// Grens testen
+	Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("f1",$h-40)
+	Do $$$AssertEquals(FactorWaarde,2.3,"Factorwaarde voor specifiek item 'f1' is correct op datum "_($h-40))
+	
+	/// Grens testen
+	Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("f1",$h-41)
+	Do $$$AssertEquals(FactorWaarde,0.5,"Factorwaarde voor specifiek item 'f1' is correct op datum "_($h-41))
+	
+	Set FactorWaarde = MeervoudigeFactor.ZoekFactorWaarde("f2",$h-90)
+	Do $$$AssertEquals(FactorWaarde,0.8,"Factorwaarde voor specifiek item 'f2' is correct op datum "_($h-90))
+	
+	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>
+</Class>
+</Export>
Index: vhUnitTest/APPS/common/KlantKost/TestBezoekKosten.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/KlantKost/TestBezoekKosten.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/KlantKost/TestBezoekKosten.cls.xml	(revision 1384)
@@ -0,0 +1,108 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.common.KlantKost.TestBezoekKosten">
+<Description>
+ Do ##class(vhUnitTest.Manager).RunTest("/display=all","APPS.common.KlantKost.TestBezoekKosten")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="BezoekId1">
+<Type>%String</Type>
+</Property>
+
+<Property name="BezoekId2">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantSektor">
+<Type>%String</Type>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	/// Een Derde.Agenda.Agenda aanmaken.	
+	Set Gebruiker = ##class(Res.InternePersoon).%OpenId(0)
+	Set Klant = ##class(Derde.Klant.Klant).%OpenId(1000)
+	Set ..KlantSektor = Klant.Sektor
+	Set Klant.Sektor = 11
+	Do Klant.%Save()
+	
+	// Bezoek 1 van 12u30 tot 18u00
+	Set Bezoek = ##class(Derde.Agenda.Agenda).Create("UnitTestUser",+$h,45000,64800,"B","","","Europark-Noord 9","Sint-Niklaas","9100","Belgie",,)
+	Set Bezoek.Klant = Klant
+	Set Bezoek.Gebruiker = Gebruiker
+	Set Status = Bezoek.%Save()
+	Set ..BezoekId1 = Bezoek.%Id()
+	
+	// Bezoek 2 van 12u30 tot 17u00
+	Set Bezoek = ##class(Derde.Agenda.Agenda).Create("UnitTestUser",+$h,45000,61200,"B","","","Europark-Noord 9","Sint-Niklaas","9100","Belgie",,)
+	Set Bezoek.Klant = Klant
+	Set Bezoek.Gebruiker = Gebruiker
+	Set Status = Bezoek.%Save()
+	Set ..BezoekId2 = Bezoek.%Id()
+	
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	/// Derde.Agenda.Agenda item verwijderen
+	
+	Set Status = ##class(Derde.Agenda.Agenda).Verwijder(..BezoekId1)
+	Set Status = ##class(Derde.Agenda.Agenda).Verwijder(..BezoekId2)
+	Set Klant = ##class(Derde.Klant.Klant).%OpenId(1000)
+	Set Klant.Sektor = ..KlantSektor
+	Do Klant.%Save()
+	
+	Set Jaar = ##class(TECH.DateTime).Jaar(+$h)
+	Set Maand = ##class(TECH.DateTime).Maand(+$h)
+	Set KostType = ##class(APPS.common.KlantKost.enu.KostType).Bezoek()
+	
+	&SQL(Delete From APPS_common_KlantKost_impl_data.BezoekKostItem WHERE KlantNr = 1000 
+			AND DatePart('yy',Datum) = :Jaar
+			AND DatePart('mm',Datum) = :Maand
+			AND KostType = :KostType)	
+	
+	&SQL(Delete From APPS_common_KlantKost_impl_data.MaandKost WHERE KlantNr = 1000 
+			AND Jaar = :Jaar
+			AND Maand = :Maand
+			AND KostType = :KostType)	
+			
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="TestBezoekKost">
+<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 = ##class(TECH.DateTime).Jaar(+$h)
+	Set Maand = ##class(TECH.DateTime).Maand(+$h)
+	Set KostType = ##class(APPS.common.KlantKost.enu.KostType).Bezoek()
+	
+	Do KlantKostService.BerekenBezoekKlantKosten(Jaar,Maand)
+	
+	Kill TotaalKost,MaandKost
+	&SQL(Select SUM(Kost) INTO :TotaalKost From APPS_common_KlantKost_impl_data.BezoekKostItem 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 bezoekkosten.")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/data/IndividueelKostItem.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/data/IndividueelKostItem.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/data/IndividueelKostItem.cls.xml	(revision 1384)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.data.IndividueelKostItem">
+<Description>
+JBL + 2011-05-30</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Datum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="KlantNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KostType">
+<Type>APPS.common.KlantKost.enu.KostType</Type>
+</Property>
+
+<Property name="Kost">
+<Type>%Float</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.commonB5C.IndividueelK7A2D</DataLocation>
+<DefaultData>IndividueelKostItemDefaultData</DefaultData>
+<IdLocation>^APPS.commonB5C.IndividueelK7A2D</IdLocation>
+<IndexLocation>^APPS.commonB5C.IndividueelK7A2I</IndexLocation>
+<StreamLocation>^APPS.commonB5C.IndividueelK7A2S</StreamLocation>
+<Data name="IndividueelKostItemDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Datum</Value>
+</Value>
+<Value name="3">
+<Value>Klant</Value>
+</Value>
+<Value name="4">
+<Value>Kost</Value>
+</Value>
+<Value name="5">
+<Value>KostType</Value>
+</Value>
+<Value name="6">
+<Value>KlantNr</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: Stat/OmzetKlantProductMaand.cls.xml
===================================================================
diff -u -r1117 -r1384
--- Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1117)
+++ Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1384)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="Stat.OmzetKlantProductMaand">
 <Description>
-Maandverkoop per klant en product per maand</Description>
+Maandverkoop per klant en product per maand </Description>
 <ClassType>persistent</ClassType>
 <StorageStrategy>VHOpslag</StorageStrategy>
 <Super>%Library.Persistent</Super>
@@ -178,7 +178,7 @@
 <SqlProc>1</SqlProc>
 <SqlQuery>	</SqlQuery>
 <Parameter name="CONTAINID" value="0"/>
-<Parameter name="ROWSPEC" value="KLNr:%Integer,Naam:%String,Tel1:%String,Straat:%String,Postkode:%String,Gemeente:%String,Taal:%String,Regio:%Integer,Aktiviteit:%String,Kwantiteit:%String,Kwaliteit:%String,NonAkt:%Integer,Vervallen:%Integer,AantalBezoeken:%String,LaatsteBezoek:%String,KlachtenJr:%Integer,KlachtenMnd:%Integer,Codex:%String,Uitz:%String,Trend:%String,VoBlum:%Float,VoHAL:%Float,VoTBX:%Float,VoGRP:%Float,VoRest:%Float,VoOL:%Float,HuBlum:%Float,HuHAL:%Float,HuTBX:%Float,HuGRP:%Float,HuRest:%Float,HuOL:%Float,VoMaBlum:%Float,VoMaHAL:%Float,VoMaTBX:%Float,VoMaGRP:%Float,VoMaRest:%Float,VoMaOL:%Float,HuMaBlum:%Float,HuMaHAL:%Float,HuMaTBX:%Float,HuMaGRP:%Float,HuMaRest:%Float,HuMaOL:%Float,IndicVoBlum:%Float,IndicVoHAL:%Float,IndicVoTBX:%Float,IndicVoGRP:%Float,IndicVoRest:%Float,IndicVoOL:%Float,IndicHuBlum:%Float,IndicHuHAL:%Float,IndicHuTBX:%Float,IndicHuGRP:%Float,IndicHuRest:%Float,IndicHuOL:%Float,IndicVoMaBlum:%Float,IndicVoMaHAL:%Float,IndicVoMaTBX:%Float,IndicVoMaGRP:%Float,IndicVoMaRest:%Float,IndicVoMaOL:%Float,IndicHuMaBlum:%Float,IndicHuMaHAL:%Float,IndicHuMaTBX:%Float,IndicHuMaGRP:%Float,IndicHuMaRest:%Float,IndicHuMaOL:%Float,CatalogusInfo:%String"/>
+<Parameter name="ROWSPEC" value="KLNr:%Integer,Naam:%String,Tel1:%String,Straat:%String,Postkode:%String,Gemeente:%String,Taal:%String,Regio:%Integer,Aktiviteit:%String,Kwantiteit:%String,Kwaliteit:%String,NonAkt:%Integer,Vervallen:%Integer,AantalBezoeken:%String,LaatsteBezoek:%String,KlachtenJr:%Integer,KlachtenMnd:%Integer,Codex:%String,Uitz:%String,Trend:%String,VoBlum:%Float,VoHAL:%Float,VoTBX:%Float,VoGRP:%Float,VoRest:%Float,VoOL:%Float,HuBlum:%Float,HuHAL:%Float,HuTBX:%Float,HuGRP:%Float,HuRest:%Float,HuOL:%Float,VoMaBlum:%Float,VoMaHAL:%Float,VoMaTBX:%Float,VoMaGRP:%Float,VoMaRest:%Float,VoMaOL:%Float,HuMaBlum:%Float,HuMaHAL:%Float,HuMaTBX:%Float,HuMaGRP:%Float,HuMaRest:%Float,HuMaOL:%Float,IndicVoBlum:%Float,IndicVoHAL:%Float,IndicVoTBX:%Float,IndicVoGRP:%Float,IndicVoRest:%Float,IndicVoOL:%Float,IndicHuBlum:%Float,IndicHuHAL:%Float,IndicHuTBX:%Float,IndicHuGRP:%Float,IndicHuRest:%Float,IndicHuOL:%Float,IndicVoMaBlum:%Float,IndicVoMaHAL:%Float,IndicVoMaTBX:%Float,IndicVoMaGRP:%Float,IndicVoMaRest:%Float,IndicVoMaOL:%Float,IndicHuMaBlum:%Float,IndicHuMaHAL:%Float,IndicHuMaTBX:%Float,IndicHuMaGRP:%Float,IndicHuMaRest:%Float,IndicHuMaOL:%Float,CatalogusInfo:%String,KostprijsVertegenwoordiging:%Float,Rentabiliteit:%Float"/>
 </Query>
 
 <Method name="VerschilOmzetProdGrpExecute">
@@ -192,6 +192,12 @@
 		Set HuidigVan = $zdh(HuidigVan,3)
 		Set HuidigTot = $zdh(HuidigTot,3)
 	}
+	
+	Set %HorologVorigVan = VorigVan
+	Set %HorologVorigTot = VorigTot
+	Set %HorologHuidigVan = HuidigVan
+	Set %HorologHuidigTot = HuidigTot
+	
 
 	Set %VOKLId=0
 	Set %VOVorigVan=$$EXTDATE^vhDTyp(VorigVan,"DM4")_" "
@@ -320,6 +326,11 @@
 	Set Row=Row_IOmzetVorigList_IOmzetHuidigList_IMargeVorigList_IMargeHuidigList
 	
 	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 Row=Row_$LB(KostprijsVertegenw,AlleKosten)
 		
 	Quit $$$OK
 ]]></Implementation>
@@ -377,8 +388,40 @@
 ]]></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
 JBL + 2011-04-13</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KorttekstPrefix:%String</FormalSpec>
Index: APPS/common/KlantKost/impl/data/BezoekKostItem.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/data/BezoekKostItem.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/data/BezoekKostItem.cls.xml	(revision 1384)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.data.BezoekKostItem">
+<Description>
+JBL + 2011-05-30</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.KlantKost.impl.data.IndividueelKostItem</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="BezoekID">
+<Description>
+Verwijzing naar Derde.Agenda.Agenda.ID</Description>
+<Type>%String</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[
+	Set ..Datum = Datum
+	Set ..KlantNr = KlantNr
+	Set ..KostType = ##class(APPS.common.KlantKost.enu.KostType).Bezoek()
+	Set ..Kost = Kost
+	Set ..BezoekID = BezoekID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>BezoekKostItemDefaultData</DefaultData>
+<Data name="BezoekKostItemDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"BezoekKostItem"</Subscript>
+<Value name="1">
+<Value>Bezoek</Value>
+</Value>
+<Value name="2">
+<Value>BezoekID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/MaandKostAggregator.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/MaandKostAggregator.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/MaandKostAggregator.cls.xml	(revision 1384)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.MaandKostAggregator">
+<Description>
+JBL + 2011-06-01</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="AggregeerVoorMaandEnType">
+<FormalSpec>Jaar:%Integer,Maand:%Integer,KostType:APPS.common.KlantKost.enu.KostType</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderKosten(Jaar,Maand,KostType)
+
+	Set rset = ##class(%ResultSet).%New("APPS.common.KlantKost.impl.MaandKostAggregator:qGeaggregeerdeKosten")
+	Set sc = rset.Execute(Jaar, Maand, KostType)
+	While (rset.Next(.sc)){
+		Set MaandKost = ##class(APPS.common.KlantKost.impl.data.MaandKost).%New(rset.Data("Jaar"),rset.Data("Maand"),rset.Data("KlantNr"),rset.Data("KostType"),rset.Data("TotaalKost"))
+		Set Status = MaandKost.%Save()
+		If ($SYSTEM.Status.IsError(Status)){
+			Set Bericht = "Failed to save : "_MaandKost.%ClassName(1)_$C(13,10)
+			Set Bericht = rset.Data("Jaar")_" "_rset.Data("Maand")_" "_rset.Data("KlantNr")_" "_rset.Data("KostType")
+			Set Bericht =  $C(13,10)_$$ParseStatus^vhLib(Status)
+			w Bericht,!,!,!
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),Bericht))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderKosten">
+<FormalSpec>Jaar:%Integer,Maand:%Integer,KostType:APPS.common.KlantKost.enu.KostType</FormalSpec>
+<Implementation><![CDATA[
+	&SQL(DELETE FROM APPS_common_KlantKost_impl_data.MaandKost
+		WHERE Jaar = :Jaar AND Maand = :Maand And KostType = :KostType)
+]]></Implementation>
+</Method>
+
+<Query name="qGeaggregeerdeKosten">
+<Type>%SQLQuery</Type>
+<FormalSpec>Jaar:%Integer,Maand:%Integer,KostType:APPS.common.KlantKost.enu.KostType</FormalSpec>
+<SqlQuery>	Select KlantNr,
+		KostType, 
+		DatePart('yy',Datum) As Jaar,
+		DatePart('mm',Datum) As Maand,
+		Count(1) As AantalBezoeken,
+		SUM(Kost) As TotaalKost 
+	FROM APPS_common_KlantKost_impl_data.IndividueelKostItem
+	WHERE DatePart('yy',Datum) = :Jaar
+			AND DatePart('mm',Datum) = :Maand
+			AND KostType = :KostType
+	GROUP BY KlantNr</SqlQuery>
+</Query>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/data/MeervoudigeFactor.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/data/MeervoudigeFactor.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/data/MeervoudigeFactor.cls.xml	(revision 1384)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.data.MeervoudigeFactor">
+<Description>
+JBL + 2011-05-30
+
+Voorbeeld : De vaste kost van één bezoek kan verschillen per regio.</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Naam">
+<Type>%String</Type>
+</Property>
+
+<Index name="PrimaryKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Naam</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>Naam:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Naam = Naam
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZoekFactorWaarde">
+<Description>
+Zoek FactorWaarde met Naam (subnaam) die geldig is op die datum</Description>
+<FormalSpec>Naam:%String,Datum:%Date</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set Waarde = ""
+	Set rset = ##class(%ResultSet).%New("APPS.common.KlantKost.impl.data.Factor:qZoekWaarde")
+	Set sc = rset.Execute(..%ClassName(),..%Id(),Naam,Datum)
+	If (rset.Next(.sc)){
+		Set Waarde = rset.Data("Waarde")
+	}
+	Quit Waarde
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.commonB5C.MeervoudigeF6DBD</DataLocation>
+<DefaultData>MeervoudigeFactorDefaultData</DefaultData>
+<IdLocation>^APPS.commonB5C.MeervoudigeF6DBD</IdLocation>
+<IndexLocation>^APPS.commonB5C.MeervoudigeF6DBI</IndexLocation>
+<StreamLocation>^APPS.commonB5C.MeervoudigeF6DBS</StreamLocation>
+<Data name="MeervoudigeFactorDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Naam</Value>
+</Value>
+<Value name="3">
+<Value>Factor</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/KostCalculator.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/KostCalculator.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/KostCalculator.cls.xml	(revision 1384)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.KostCalculator">
+<Description>
+JBL + 2011-05-30
+
+De calculator weet
+- dde brondata te vinden
+- welke formule toe te passen
+- welke factoren te gebruiken in de formule
+
+Implementatie van de calculaties zal geval per geaval verschillen. 
+In het eenvoudigste geval kan een SQL-statement volstaan. 
+</Description>
+<Abstract>1</Abstract>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BerekenKostenPerKlant">
+<Abstract>1</Abstract>
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderKosten">
+<Abstract>1</Abstract>
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+</Method>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/data/MaandKost.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/data/MaandKost.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/data/MaandKost.cls.xml	(revision 1384)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.data.MaandKost">
+<Description>
+JBL + 2011-06-01</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Jaar">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Maand">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KlantNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KostType">
+<Type>APPS.common.KlantKost.enu.KostType</Type>
+</Property>
+
+<Property name="Kost">
+<Type>%Float</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Jaar:%Integer,Maand:%Integer,KlantNr:%Integer,KostType:APPS.common.KlantKost.enu.KostType,Kost:%Float</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Jaar = Jaar
+	Set ..Maand = Maand
+	Set ..KlantNr = KlantNr
+	Set ..KostType = KostType
+	Set ..Kost = Kost
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.common.KlantB5C.MaandKostD</DataLocation>
+<DefaultData>MaandKostDefaultData</DefaultData>
+<IdLocation>^APPS.common.KlantB5C.MaandKostD</IdLocation>
+<IndexLocation>^APPS.common.KlantB5C.MaandKostI</IndexLocation>
+<StreamLocation>^APPS.common.KlantB5C.MaandKostS</StreamLocation>
+<Data name="MaandKostDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Jaar</Value>
+</Value>
+<Value name="3">
+<Value>KlantNr</Value>
+</Value>
+<Value name="4">
+<Value>Kost</Value>
+</Value>
+<Value name="5">
+<Value>KostType</Value>
+</Value>
+<Value name="6">
+<Value>Maand</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/data/IndividueelKostItem/BezoekKostItem.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/data/IndividueelKostItem/BezoekKostItem.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/data/IndividueelKostItem/BezoekKostItem.cls.xml	(revision 1384)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.data.IndividueelKostItem.BezoekKostItem">
+<Description>
+JBL + 2011-05-30</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.KlantKost.impl.data.IndividueelKostItem</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Bezoek">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/data/MonsterKostItem.cls.xml
===================================================================
diff -u
--- APPS/common/KlantKost/impl/data/MonsterKostItem.cls.xml	(revision 0)
+++ APPS/common/KlantKost/impl/data/MonsterKostItem.cls.xml	(revision 1384)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.common.KlantKost.impl.data.MonsterKostItem">
+<Description>
+JBL + 2011-05-30</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.common.KlantKost.impl.data.IndividueelKostItem</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Factuur">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>