Index: BL/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r42670 -r42673 --- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 42670) +++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 42673) @@ -835,6 +835,7 @@ Set Aantal = 0 If Klasse="SP2" Set Aantal = 1 Else If Klasse="SY" Set Aantal=$S(SPZK?1.E1".x2":2, 1:1) + Else If Klasse="SY3" Set Aantal=$S(SPZK?1.E1".x2":2, 1:1) Else If Klasse="SY2" Set Aantal=$S(SPZK?1(1"BB",1"SS",1"BS",1"SB",1"MM"):2, 1:1) Else Set Aantal = 0 @@ -1381,7 +1382,7 @@ #define SPZkOpMaat(%v) (%v?1(1"M",1"SI".E)) // Aantal uitsparingen bij Sifonlade of spoelbaklade - If ##class(TECH.StringUtils).Equals(KLAS,"SY","SY2") Do + If ##class(TECH.StringUtils).Equals(KLAS,"SY","SY2","SY3") Do . Set BT="SYQTY" . Set BTVal=..SpoelbakUitsparingen(LC,SPZK) . Do bwvAddToDataItem(BT,BTVal) @@ -1390,7 +1391,7 @@ . // Else Dubbele sifonlade . . ; Controle op de afmetingen - . If ##class(TECH.StringUtils).Equals(KLAS,"SY2") Do + . If ##class(TECH.StringUtils).Equals(KLAS,"SY2","SY3") Do . . Set SPBR1=$G(Product.LookUp("PL","SPBR1")) . . Set SPBR2=$G(Product.LookUp("PL","SPBR2")) . Else Do @@ -1425,7 +1426,7 @@ . Do Product.BuildLookUp($LB("PL")) - Set IsNieuweSifonlade = ##class(TECH.StringUtils).Equals(KLAS,"SY2") + Set IsNieuweSifonlade = ##class(TECH.StringUtils).Equals(KLAS,"SY2","SY3") // SifonLade of Spoelbak zijstukkken op maat, spoelbakBreedte berekenen indien nog niet gekend If ($$$Not(IsNieuweSifonlade))&&($L(SPZK))&&($G(SifonQty)<2) Do . Set SPZLI=$G(Product.LookUp("PL","SPZLI")) @@ -1461,7 +1462,7 @@ . Set BTVal="B" . Do bwvAddToDataItem(BT,BTVal) - If ##class(TECH.StringUtils).Equals(KLAS,"SP2","SY2") Do + If ##class(TECH.StringUtils).Equals(KLAS,"SP2","SY2","SY3") Do . Set RSTL=$G(Product.LookUp("PL","RSTL")) . Set BinnenZijwandVolgtRSTL=0 ; conditioneel, afhankelijk van de UI (bvb Antaro BS2) . If ($L(RSTL))&&(BinnenZijwandVolgtRSTL) Do