Index: UI/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r41396 -r42674 --- UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 41396) +++ UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 42674) @@ -892,7 +892,7 @@ . Set NewTopTxt=..cboSPZijkant.Top Set ..lblNutBreedte.Top=NewTopLbl Set ..txtNutBreedte.Top=NewTopTxt - Set ..lblSPZijkantCbo.Caption= $S(TBKlas="SY":"Sifon zijstukken", TBKlas="SY2":"Sifon uitsparing", 1:"Spoelbak zijstukken") + Set ..lblSPZijkantCbo.Caption= $S(TBKlas="SY":"Sifon zijstukken", TBKlas="SY2":"Sifon uitsparing", TBKlas="SY3":"Sifon zijstukken", 1:"Spoelbak zijstukken") Quit ]]> @@ -3847,7 +3847,7 @@ Set SifonQty=##class(BL.PR.GA.TandemBox).SpoelbakUitsparingen(..cboLadeCode.SelectedGetKey(), ..cboSPZijkant.SelectedGetKey(), Klasse) d WLIP^vhDBG(97,"SifonQty ="_SifonQty) - Set:(Klasse'?1(1"SY",1"SY2")) SifonQty=0 + Set:(Klasse'?1(1"SY",1"SY2",1"SY3")) SifonQty=0 Do csmCalcAfmetingen() Do $$$TBoxParameter("SpoelbakZkLi", SPZLI) Do $$$TBoxParameter("SpoelbakZkRe", SPZRE) @@ -5030,7 +5030,7 @@ %Library.Boolean document literal -