Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r42011 -r42670
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 42011)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 42670)
@@ -834,7 +834,7 @@
 	
 	Set Aantal = 0
 	If Klasse="SP2"        Set Aantal = 1
-	Else  If Klasse="SY"   Set Aantal=$S(SPZK?1.E1".x2":2, 1:1)   ; Set Aantal=$S(LadeCode?1.E.1"Y2":2, LadeCode?1"MY":2, 1:1)   ; LadeCode?1"MY" simuleert dubbele sifon 
+	Else  If Klasse="SY"   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 +1381,7 @@
  #define SPZkOpMaat(%v)   (%v?1(1"M",1"SI".E))
 
  // Aantal uitsparingen bij Sifonlade of spoelbaklade 
- If KLAS?1(1"SY",1"SY2") Do
+ If ##class(TECH.StringUtils).Equals(KLAS,"SY","SY2") Do
  . Set BT="SYQTY"
  . Set BTVal=..SpoelbakUitsparingen(LC,SPZK)
  . Do bwvAddToDataItem(BT,BTVal)
@@ -1390,7 +1390,7 @@
  . // Else  Dubbele sifonlade 
  . 
  . ; Controle op de afmetingen 
- . If KLAS="SY2" Do
+ . If ##class(TECH.StringUtils).Equals(KLAS,"SY2") Do
  . . Set SPBR1=$G(Product.LookUp("PL","SPBR1"))
  . . Set SPBR2=$G(Product.LookUp("PL","SPBR2"))
  . Else  Do
@@ -1400,7 +1400,7 @@
  . Set SPZLI=$G(Product.LookUp("PL","SPZLI"))
  . Set SPZRE=$G(Product.LookUp("PL","SPZRE"))
  . Set SPZMI=$G(Product.LookUp("PL","SPRUGMID"))
- .   d WL^vhDBG("Dubbele sifon : "_SPZLI_"+"_SPBR1_"+"_SPZMI_"+"_SPBR2_"+"_SPZRE_"="_(SPZLI+SPBR1+SPZMI+SPBR2+SPZRE)_"  IB="_IB)
+ .   ;d WL^vhDBG("Dubbele sifon : "_SPZLI_"+"_SPBR1_"+"_SPZMI_"+"_SPBR2_"+"_SPZRE_"="_(SPZLI+SPBR1+SPZMI+SPBR2+SPZRE)_"  IB="_IB)
  . Set scSPBR=$S(SPZLI+SPBR1+SPZMI+SPBR2+SPZRE=IB:$$$OK, 1:$$$ERROR($$$GeneralError,"Afmetingen dubbele sifonlade incorrect"))
  . If $$$ISERR(scSPBR) Set X=YYY   ; Calculation must trigger an ERROR
 
@@ -1424,8 +1424,10 @@
  . . Do bwvAddToDataItem("SPZRE",SPZRE)
  . Do Product.BuildLookUp($LB("PL"))
  
+ 
+ Set IsNieuweSifonlade = ##class(TECH.StringUtils).Equals(KLAS,"SY2")
  // SifonLade of Spoelbak zijstukkken op maat, spoelbakBreedte berekenen indien nog niet gekend 
- If (KLAS'="SY2")&&($L(SPZK))&&($G(SifonQty)<2) Do
+ If ($$$Not(IsNieuweSifonlade))&&($L(SPZK))&&($G(SifonQty)<2) Do
  . Set SPZLI=$G(Product.LookUp("PL","SPZLI"))
  . Set SPBR=$G(Product.LookUp("PL","SPBR"))
  . Set SPZRE=$G(Product.LookUp("PL","SPZRE"))
@@ -1442,7 +1444,7 @@
  . Do bwvAddToDataItem("SPZLI",SPZLI)
  . Do bwvAddToDataItem("SPBR",SPBR)
  . Do bwvAddToDataItem("SPZRE",SPZRE)
- Else  If (KLAS="SY2")&&($L(SPZK))&&($G(SifonQty)<2) Do
+ Else  If (IsNieuweSifonlade)&&($L(SPZK))&&($G(SifonQty)<2) Do
  . // Nieuwe SifonLade (type 2),  spoelbakBreedte controleren op correcte afmetingen 
  . Set SPZLI=$G(Product.LookUp("PL","SPZLI"))
  . Set SPBR=$G(Product.LookUp("PL","SPBR1"))
@@ -1459,7 +1461,7 @@
  . Set BTVal="B"
  . Do bwvAddToDataItem(BT,BTVal)
 
- If KLAS?1(1"SP2",1"SY2") Do
+ If ##class(TECH.StringUtils).Equals(KLAS,"SP2","SY2") Do
  . Set RSTL=$G(Product.LookUp("PL","RSTL"))
  . Set BinnenZijwandVolgtRSTL=0   ; conditioneel, afhankelijk van de UI (bvb Antaro BS2) 
  . If ($L(RSTL))&&(BinnenZijwandVolgtRSTL) Do