Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r2797 -r3055
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 2797)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 3055)
@@ -127,11 +127,12 @@
 	New lbDSCodes,DSCode,KFront,KRug,KBxs,Klas,SPZKpiece1
 	  ;d WLIP^vhDBG(97,"*"_$L(WSLn.ItemRK)_"*"_"  - "_WSLn.ItemRK)
 	
+ /*
 	// Tijdelijke patch voor intivo inox RelingKleur - waarde in WSLijn moet aangepast worden van CR naar IN  (added by WimV on 10/11/2011)
 	If (WSLn.ItemDS="II")&&(WSLn.ItemRK="CR") {
 		Set WSLn.ItemRK="IN"
 	}
-	
+ */
 	Set DSCode=$S($L(WSLn.ItemDS):$LG(..BTDep("TBDesign","TBDesignCode",WSLn.ItemDS),1), 1:"")
 	Set KFront=$S($L(WSLn.ItemRK):$LG(..BTDep("TBRelingKleur","TBFrontKleur",WSLn.ItemRK),1), 1:"")
 	Set KRug  =$S($L(WSLn.ItemDS):$LG(..BTDep("TBDesign","TBRugKleur",dsID),1), 1:"")
@@ -182,7 +183,7 @@
 			Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4)          ,"SpoelbakBreedte1")
 		}
 	} 
-	ElseIf (Klas=##class(DOM.PM.enu.TBXKlas).Spoelbak())||(Klas=##class(DOM.PM.enu.TBXKlas).Sifon()) {
+	ElseIf Klas=##class(DOM.PM.enu.TBXKlas).Spoelbak() {
 		#define SPZkOpMaat(%v)   (%v?1(1"M".E,1"SI".E))
 		
 		If $$$SPZkOpMaat(SPZKpiece1) {   ; Spoelbak zijkant op maat 
@@ -192,10 +193,13 @@
 			; SpoelbakBreedte (SPBR) wordt berekend in Prod.BWValuesToProduct()
 		}
 	} 
- /*	
-	; javascript:UpdateSPZK("MM;181;236;200;129;129"); 
-	;d WLIP^vhDBG(97,WSLn.ItemSPZK_" SPZK LI: "_..BTValues.GetAt("SpoelbakZkLi")_" SPZK RE: "_..BTValues.GetAt("SpoelbakZkRe"))
- */
+	ElseIf Klas=##class(DOM.PM.enu.TBXKlas).Sifon() {
+		Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2)          ,"SpoelbakZkLi")
+		Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3)          ,"SpoelbakZkRe")
+		Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4)          ,"SpoelbakZkMi")
+		Set SPBR=##class(BL.PR.GA.TandemBox).CalcBreedteSpoelbak(SPZKpiece1,0,0,DSCode)
+		Do ..BTValues.SetAt(SPBR                             ,"SpoelbakBreedte")   ; deze moet ingevuld zijn voor dubbele sifonlade 
+	} 
  	
 	If ($L(WSLn.ItemVPK)) Do
 	. Do ..BTValues.SetAt(WSLn.ItemVPK                           ,"Verpakking")