Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r35111 -r39152
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 35111)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 39152)
@@ -309,6 +309,7 @@
 #define GroepID   "TB"
 #define Recalc    1
  New arTree,arSort,iG,iS,iI,DItem,SGCode
+ New Key,Val
    d StartTimer^vhLib
  Do ..ClearDataParams($$$Recalc)
  Kill %ActiefTOBStang
@@ -340,7 +341,6 @@
  Quit
 calCumuls
  Quit:(DItem.MetaItem.Code["PARAM")
- ;New Key,Val
  For Key="KPrijs","TijdWerk","TijdKost","GNetto","GTarra" Do:(DItem.MetaItem.Parameters.IsDefined(Key))
  . Set Val=DItem.Get(Key)
  . ;Quit:(Val="")
Index: Prod/GAData/Item.cls.xml
===================================================================
diff -u -r29059 -r39152
--- Prod/GAData/Item.cls.xml	(.../Item.cls.xml)	(revision 29059)
+++ Prod/GAData/Item.cls.xml	(.../Item.cls.xml)	(revision 39152)
@@ -292,7 +292,7 @@
 <Implementation><![CDATA[
    ;s %NoSa="S"
    ;k %NoSa
- New KPKost,Key,KPlaatsID,KP
+ New KPKost,Key,KPlaatsID,KP,KostMat
  Set KPlaatsID=..Get("KostPlaats")
  Set KP=##class(Prod.GAMeta.BT.KostPlaats).%OpenId(KPlaatsID)
  Set KPKost=$S(KP:KP.Kost($G(%NoSa)), 1:0)