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>