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")
Index: BL/Flow/Offerte/ProductGAData.cls.xml
===================================================================
diff -u -r2797 -r3055
--- BL/Flow/Offerte/ProductGAData.cls.xml	(.../ProductGAData.cls.xml)	(revision 2797)
+++ BL/Flow/Offerte/ProductGAData.cls.xml	(.../ProductGAData.cls.xml)	(revision 3055)
@@ -330,11 +330,13 @@
 	Quit
 gbtKenmToTempArray
 	;New DSCode,KFront,KRug,KBxs,lbDSCodes
-
+	
+ /*
 	// Tijdelijke patch voor intivo inox RelingKleur - waarde in WSLijn moet aangepast worden van CR naar IN  (added by WimV on 10/11/2011)
 	If ($$$GetKenm("ItemDS")="II")&&($$$GetKenm("ItemRK")="CR") {
 		Do oLijn.Kenmerken.SetAt("IN","ItemRK")
 	}
+ */
 	
 	Set DSCode=$S($L($$$GetKenm("ItemDS")):$LG(blTBox.BTDep("TBDesign","TBDesignCode",$$$GetKenm("ItemDS")),1), 1:"")
 	Set KFront=$S($L($$$GetKenm("ItemRK")):$LG(blTBox.BTDep("TBRelingKleur","TBFrontKleur",$$$GetKenm("ItemRK")),1), 1:"")
@@ -384,7 +386,7 @@
 			Set arKenm("SpoelbakBreedte1")=$P($$$GetKenm("ItemSPZK"),";",4)
 		}
 	} 
-	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))
 		
@@ -395,7 +397,14 @@
 			; SpoelbakBreedte (SPBR) wordt berekend in Prod.BWValuesToProduct()
 		}
 	} 
-	
+	ElseIf Klas=##class(DOM.PM.enu.TBXKlas).Sifon() {
+		Set arKenm("SpoelbakZkLi")=$P($$$GetKenm("ItemSPZK"),";",2)
+		Set arKenm("SpoelbakZkRe")=$P($$$GetKenm("ItemSPZK"),";",3)
+		Set arKenm("SpoelbakZkMi")=$P($$$GetKenm("ItemSPZK"),";",4)
+		Set SPBR=##class(BL.PR.GA.TandemBox).CalcBreedteSpoelbak(arKenm("TBSPZijkant"),0,0,DSCode)
+		Set arKenm("SpoelbakBreedte")=SPBR   ; deze moet ingevuld zijn voor dubbele sifonlade 
+	} 
+ 	
 	If ($L($$$GetKenm("ItemVPK"))) Do
 	. Set arKenm("Verpakking")=$$$GetKenm("ItemVPK")
 	. Do:(##class(BL.PR.GA.TandemBox).NietMeeToepassen(arKenm("Verpakking"))="True")||(arKenm("Verpakking")="xxP") gbtUpdateNMItemsBulk   ; Do:(arKenm("Verpakking")?1(1"C",1"P",1"Z",1"A")) gbtUpdateNMItemsBulk