Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r40834 -r45384 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 40834) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 45384) @@ -656,7 +656,7 @@ Set pxLabel.Bor="" If 'IsSR&&((IB'<400)||(DK=80)||(DS="BA")||(KLAS="SP")) Do . Set AantalHoutschroevenVoorBodemRugBepaler = ##class(DOM.PM.TBX.impl.AantalHoutschroevenVoorBodemRugBepaler).%New() - . Set pxLabel.Bor=AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(KLAS,IB) + . Set pxLabel.Bor=AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(KLAS,IB,0) Set TipOnSyncPRNr=$P($G(^PRBS("BS",PRNr,"PRTOSTANG.001")),"\",1) ; ;Z55Sxxx Index: BL/PPS/TBX/DocsProPlus.cls.xml =================================================================== diff -u -r35802 -r45384 --- BL/PPS/TBX/DocsProPlus.cls.xml (.../DocsProPlus.cls.xml) (revision 35802) +++ BL/PPS/TBX/DocsProPlus.cls.xml (.../DocsProPlus.cls.xml) (revision 45384) @@ -640,7 +640,7 @@ . Set:RugPRNr?4.7N RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",RugPRNr,"RugHoogte")) ; Werkelijke hoogte van de rug . Set pxLabel.Rug="R: "_KR_" "_RH_" B:"_(IB-$S(DS="BA":112,1:87))_" H:"_$Case(RH,"N":69,"M":84,"K":116,"B":135,"C":167,"D":199,:"") . Set AantalHoutschroevenVoorBodemRugBepaler = ##class(DOM.PM.TBX.impl.AantalHoutschroevenVoorBodemRugBepaler).%New() - . Set:((IB'<400)||(DK=80)||(DS="BA")||(KLAS="SP")) pxLabel.Rug=pxLabel.Rug _ "x"_AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(KLAS,IB) ; $S((IB'<700)||(KLAS="SP"):"x2",1:"x1") + . Set:((IB'<400)||(DK=80)||(DS="BA")||(KLAS="SP")) pxLabel.Rug=pxLabel.Rug _ "x"_AantalHoutschroevenVoorBodemRugBepaler.BepaalAantalSchroeven(KLAS,IB,0) ; $S((IB'<700)||(KLAS="SP"):"x2",1:"x1") ; Zijkant Set:DC'?1(1"B",1"S") KL=KL_":"_$S(DC="L":"A2",1:DC) ; F en A design achter de ladezijkantkleur