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>