Index: DCPROD.mac.rou
===================================================================
diff -u -r65567 -r68057
--- DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 65567)
+++ DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 68057)
@@ -182,18 +182,21 @@
  ; Toelevering bouwstenen Halux
 PRODTOEBS(R) 
  New PRNr,KortText,IdentNr,Omschr1,Omschr2,Omschr3,Omschr4,Omschr5,Omschr6,IsStock,Afmeting
- New Aantal,BSKey,KPRNr,Sort,SortKey,BSAantal,WVStock,Korting,IsAntislipMatProduct,IKMat,IsMatZ
+ New Aantal,BSKey,KPRNr,Sort,SortKey,BSAantal,WVStock,Korting,IsAntislipMatProduct,IKMat,IsMatZ,IKInk
  Set PRNr=$P(R,D,2),Aantal=$P(R,D,3),Korting=$P(R,D,7)
  Do FETCHPR(PRNr)
  Set IsAntislipMatProduct = ##class(DOM.PM.impl.ProductTypeAPIimpl).%New().IsAntislipmatProduct(PRNr)
+ 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()
  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=""
  For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
  . Set R=^PRBS("BS",PRNr,BSKey),KPRNr=$P(R,D),BSAantal=$p(R,D,2)
  . Quit:'KPRNr  Quit:'BSAantal
  . Set Afmeting=$P($G(^PRBS("BS",PRNr,BSKey,"D")),D)
+ . If (IsInkortingProduct) Set Afmeting= IKInk.LengteProduct
  . Set SortKey=$$SORTKEY^PRODUKT(KPRNr)_BSKey,Sort(SortKey)=KPRNr_D_BSAantal_D_Afmeting
  Set BSKey=""
  For  Set BSKey=$O(Sort(BSKey)) Quit:BSKey=""  Do