Index: DCPROD.mac.rou
===================================================================
diff -u -r64611 -r65567
--- DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 64611)
+++ DCPROD.mac.rou	(.../DCPROD.mac.rou)	(revision 65567)
@@ -182,9 +182,11 @@
  ; 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
+ New Aantal,BSKey,KPRNr,Sort,SortKey,BSAantal,WVStock,Korting,IsAntislipMatProduct,IKMat,IsMatZ
  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)
+ If (IsAntislipMatProduct) Set IKMat = ##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=""
@@ -208,11 +210,13 @@
  . For Omschr=2,3 Do
  . . Set Omschr=$P($G(Omschr(Omschr)),"`",5)
  . . If 'Afmeting,Omschr="" Quit
- . . Set R=$S(Afmeting:"Afmeting:"_$$EXTNUM^vhLib.DataTypes(Afmeting,6,".",0)_$J("",10)_"`16``"_D,1:"")
+ . . Set IsMatZ = (##class(TECH.StringUtils).Contains($Piece(BSKey, " ", 4), "MATZ"))
+ . . If (IsAntislipMatProduct && (IKMat.LadeToepassing = "SP") && (IKMat.LadeType = "Tandembox") && IsMatZ) Set R=$S(Afmeting:"Afmeting:"_$$EXTNUM^vhLib.DataTypes(Afmeting,6,".",0)_"x132"_$J("",6)_"`16``"_D,1:"")
+ . . Else  Set R=$S(Afmeting:"Afmeting:"_$$EXTNUM^vhLib.DataTypes(Afmeting,6,".",0)_$J("",10)_"`16``"_D,1:"")
  . . Set R=R_Omschr_$J("",27-$L(Omschr))_"`42``"
  . . Do BLOCK(R)
  . . Set Afmeting=""
- If (##class(DOM.PM.impl.ProductTypeAPIimpl).%New().IsAntislipmatProduct(PRNr)) Do ##class(BL.Legacy.DCALG).ZetOmschrijvingVanProductInB(PRNr,"BR",Korting)
+ If (IsAntislipMatProduct) Do ##class(BL.Legacy.DCALG).ZetOmschrijvingVanProductInB(PRNr,"BR",Korting)
  Quit
  ;
  ; Offerte type detail