Index: DCPROD.mac.rou
===================================================================
diff -u -r68057 -r72596
--- DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 68057)
+++ DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 72596)
@@ -189,6 +189,7 @@
  Set IsInkortingProduct = ##class(DOM.PM.impl.ProductTypeAPIimpl).%New().IsInkortingProduct(PRNr)
  If (IsAntislipMatProduct) Set IKMat = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%OpenId($P(^KPR(PRNr,15),"\",13)).GeefIngegevenKenmerken()
  If (IsInkortingProduct) Set IKInk = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%OpenId($P(^KPR(PRNr,15),"\",13)).GeefIngegevenKenmerken()
+ If (IsInkortingProduct) Set IsInkortingProduct = (IsInkortingProduct && (IKInk.%ClassName(1) = "DOM.PM.Maatwerk.Calc.Common.impl.INKKenmerken")) //OLM kenmerken zouden anders hier onterecht ook onder vallen
  Set R=IdentNr_"`3``B"_D_"*`15``B"_D_KortText_$S($L(KortText)<24:$J("",25-$L(KortText)),1:"")_"``41`B"_D_$$FN(Aantal,0)_"``78`B"
  Do BLOCK(R),PASTEB^DCTOE(L("D","B"))
  Set BSKey=""