Index: BL/PPS/TBX/DocsProPlus.cls.xml =================================================================== diff -u -r2050 -r2091 --- BL/PPS/TBX/DocsProPlus.cls.xml (.../DocsProPlus.cls.xml) (revision 2050) +++ BL/PPS/TBX/DocsProPlus.cls.xml (.../DocsProPlus.cls.xml) (revision 2091) @@ -752,25 +752,25 @@ Set pxLabel.Referentie=$E(oQ.BatchID,$L(oQ.BatchID)-2,$L(oQ.BatchID))_":"_$E(oQ.TOENr,4,9)_":"_oQ.DOSNr_":"_oQ.Sequence ; Bodem - Set pxLabel.Bodem="Bod: "_KB_" B:"_(IB-75)_" D:"_(LD-24) + Set pxLabel.Bodem="B: "_KB_" B:"_(IB-75)_" D:"_(LD-24) ; Rug If IsSR Do ;Stalen rug - . Set pxLabel.Rug="Rug: "_KR_" "_RH_" "_(IB-28) + . Set pxLabel.Rug="R: "_KR_" "_RH_" "_(IB-28) Else Do ;Houten rug . ;d WLIP^vhDBG(15,PRNr_" "_$P(^KPR(PRNr,0),"\")) . Set RugPRNr=$P($G(^PRBS("BS",PRNr,"PRRUGHS.001")),"\",1) . Set:RugPRNr?4.7N RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",RugPRNr,"RugHoogte")) ; Werkelijke hoogte van de rug - . Set pxLabel.Rug="Rug: "_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 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:((IB'<400)||(DK=80)||(DS="BA")||(KLAS="SP")) pxLabel.Rug=pxLabel.Rug_$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 Set:DK=25 KL=KL_":Intra" Set:DC="L" ZW="L" ; L-hoogte zijkant - Set pxLabel.Zijkant="Zij: "_KL_" "_ZW_" "_LD + Set pxLabel.Zijkant="Z: "_KL_" "_ZW_" "_LD ; Afdekkap - Set pxLabel.Afdekkap="Afd: "_..Afdekkap(PRNr) + Set pxLabel.Afdekkap="A: "_..Afdekkap(PRNr) Set pxLabel.Breedte=IB ; Opmerking