Index: Stat/OmzetKlantProductMaand.cls.xml
===================================================================
diff -u -r1600 -r1618
--- Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1600)
+++ Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1618)
@@ -246,12 +246,9 @@
 	Set MaandTot = ##class(TECH.DateTime).Maand(+%HorologHuidigTot)
 	Do %RSet.Execute(JaarVan,MaandVan,JaarTot,MaandTot)
 	
+	/// Array opbouwen van vorm : Kost('Bezoek',1000)=52.3	
 	While(%RSet.Next()){
-		If (%RSet.Data("KostType") = ##class(APPS.common.KlantKost.enu.KostType).Bezoek()){
-			Set %BezoekKost(%RSet.Data("KlantNr")) = %RSet.Data("Kostprijs")	
-		}ElseIf (%RSet.Data("KostType") = ##class(APPS.common.KlantKost.enu.KostType).Monster()){
-			Set %MonsterKost(%RSet.Data("KlantNr")) = %RSet.Data("Kostprijs")
-		}
+		Set %Kost(%RSet.Data("KostType"),%RSet.Data("KlantNr")) = %RSet.Data("Kostprijs")	
 	}
 	Quit $$$OK
 ]]></Implementation>
@@ -347,13 +344,11 @@
 	
 	Set Row=Row_$LB(CatalogusInfo)
 	/// Kosten toevoegen
-	Set KostprijsVertegenw = ..GeefKostprijsVertegenwKlant(KLNr,##class(APPS.common.KlantKost.enu.KostType).Bezoek(),%HorologHuidigVan,%HorologHuidigTot)
-	Set KostprijsMonsters = ..GeefKostprijsVertegenwKlant(KLNr,##class(APPS.common.KlantKost.enu.KostType).Monster(),%HorologHuidigVan,%HorologHuidigTot)
-	Set KostprijsTotaal = ..GeefKostprijsVertegenwKlant(KLNr,,%HorologHuidigVan,%HorologHuidigTot)
+	Set KostprijsVertegenw = ..GeefKostprijsKlant(KLNr,##class(APPS.common.KlantKost.enu.KostType).Bezoek())
+	Set KostprijsMonsters = ..GeefKostprijsKlant(KLNr,##class(APPS.common.KlantKost.enu.KostType).Monster())
+	Set KostprijsTotaal = KostprijsVertegenw + KostprijsMonsters
 	
 	Set Row=Row_$LB(KostprijsVertegenw,KostprijsMonsters,KostprijsTotaal)
-	
-	//Set Row=Row_$LB(1,1,1)
 		
 	Quit $$$OK
 ]]></Implementation>
@@ -450,32 +445,18 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKostprijsVertegenwKlant">
+<Method name="GeefKostprijsKlant">
 <Description>
 JBL + 2011-06-08
 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>
+<FormalSpec>KlantNr:%Integer,KostType:APPS.common.KlantKost.enu.KostType</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	Set Kostprijs = 0
-	If (KostType = ##class(APPS.common.KlantKost.enu.KostType).Bezoek()){
-		If ($Data(%BezoekKost(KlantNr))){
-			Set Kostprijs = %BezoekKost(KlantNr)	
-		}
-	}ElseIf (KostType = ##class(APPS.common.KlantKost.enu.KostType).Monster()){
-		If ($Data(%MonsterKost(KlantNr))){
-			Set Kostprijs = %MonsterKost(KlantNr)	
-		}
-	}Else{ /// Totaal
-		If ($Data(%BezoekKost(KlantNr))){
-			Set Kostprijs = Kostprijs + %BezoekKost(KlantNr)	
-		}
-		If ($Data(%MonsterKost(KlantNr))){
-			Set Kostprijs = Kostprijs + %MonsterKost(KlantNr)	
-		}
-	}
-	
+	If ($Data(%Kost(KostType,KlantNr))){
+		Set Kostprijs = %Kost(KostType,KlantNr)
+	}	
 	Quit Kostprijs
 ]]></Implementation>
 </Method>
Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r1615 -r1618
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1615)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 1618)
@@ -23,9 +23,9 @@
 
 <Method name="TextToDate">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Text:%String</FormalSpec>
+<FormalSpec>Text:%String,Type:%String="",Taal:%String=""</FormalSpec>
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	Quit $$INTDATE^vhDTyp(Text)
+<Implementation><![CDATA[	Quit $$INTDATE^vhDTyp(Text,Type,Taal)
 ]]></Implementation>
 </Method>
 
Index: APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml
===================================================================
diff -u -r1603 -r1618
--- APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(.../MonsterKostCalculator.cls.xml)	(revision 1603)
+++ APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(.../MonsterKostCalculator.cls.xml)	(revision 1618)
@@ -39,13 +39,11 @@
 				Set Bon = BonIt.Next()						
 				/// Enkel de monster overlopen in de proforma's
 				If (Bon.GeefOrderType() = ##class(DOM.OV.enu.OrderType).Monster()){								
-					Set BonLijnIt = Bon.GeefBonLijnIterator()
+					Set BonLijnIt = Bon.GeefTypeBonLijnIterator(##class(DOM.OV.enu.BonLijnType).Product())
 					While BonLijnIt.HasNext() {
 						Set BonLijn = BonLijnIt.Next()
-						If (BonLijn.%Extends("DOM.OV.impl.DataM.DataMProductOrderlijn")){							
-							Set Kost = BonLijn.GeefTotaalAankoopPrijs()
-							Set TotaalKost = TotaalKost + Kost
-						}
+						Set Kost = BonLijn.GeefTotaalAankoopPrijs()
+						Set TotaalKost = TotaalKost + Kost
 					}
 				}
 			}
@@ -70,9 +68,8 @@
 <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)
+ 	WHERE DatePart('yy',Datum) = :Jaar AND DatePart('mm',Datum) = :Maand)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/common/KlantKost/impl/BezoekKostCalculator.cls.xml
===================================================================
diff -u -r1432 -r1618
--- APPS/common/KlantKost/impl/BezoekKostCalculator.cls.xml	(.../BezoekKostCalculator.cls.xml)	(revision 1432)
+++ APPS/common/KlantKost/impl/BezoekKostCalculator.cls.xml	(.../BezoekKostCalculator.cls.xml)	(revision 1618)
@@ -44,9 +44,8 @@
 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)
+ 	WHERE DatePart('yy',Datum) = :Jaar AND DatePart('mm',Datum) = :Maand)
 ]]></Implementation>
 </Method>