Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r2304 -r2432
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 2304)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 2432)
@@ -124,7 +124,7 @@
 	Quit Prod
 	
 bfwBTItemsFromWSLijn
-	New lbDSCodes,DSCode,KFront,KRug,KBxs
+	New lbDSCodes,DSCode,KFront,KRug,KBxs,Klas,SPZKpiece1
 	  ;d WLIP^vhDBG(97,"*"_$L(WSLn.ItemRK)_"*"_"  - "_WSLn.ItemRK)
 	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:"")
@@ -138,6 +138,7 @@
 	Do ..BTValues.SetAt(DSCode                                   ,"TBDesignCode")
 	Do ..BTValues.SetAt(WSLn.ItemLT	                             ,"LadeCode")
 	Do bfwBTItemsLadeCode(WSLn.ItemLT)
+	Set Klas=..BTValues.GetAt("TBKlasse")
 	Do ..BTValues.SetAt($S(..BTValues.GetAt("TBLadeType")="B":"Z", 1:WSLn.ItemFB) ,"TBFBevestiging")
 	Do ..BTValues.SetAt(WSLn.ItemCB	                             ,"TBCBreedte")
 	Do ..BTValues.SetAt(WSLn.ItemWD	                             ,"TBWandDikte")
@@ -153,37 +154,43 @@
 	Do ..BTValues.SetAt(KRug                                     ,"TBRugKleur")
 	Do ..BTValues.SetAt(WSLn.ItemBM	                             ,"TBBlumotion")
  
-	/*
-	; Temporary work-around for GlazenBoxside, until the web-wizard also uses ItemKV   (switched off by WimV on 30/03/2009) 
-	If 1 && (WSLn.ItemBX?1(1"BZ",1"BF",1"BC")) Do
-	. New KVul
-	. Set KVul=$Case(WSLn.ItemBX, "BZ":"FZ", "BF":"FG", "BC":"FC", :ERROR)
-	. Do ..BTValues.SetAt("BG"         ,"TBBoxSide")
-	. Do ..BTValues.SetAt(KBxs         ,"TBBoxsideKleur")
-	. Do ..BTValues.SetAt(KVul         ,"TBVulstukKleur")
-	Else  Do
-	. Do ..BTValues.SetAt(WSLn.ItemBX  ,"TBBoxSide")
-	. Do ..BTValues.SetAt(WSLn.ItemKX  ,"TBBoxsideKleur")
-	. Do ..BTValues.SetAt(WSLn.ItemKV  ,"TBVulstukKleur")
-	*/
 	Do ..BTValues.SetAt(WSLn.ItemBX                              ,"TBBoxSide")
 	Do ..BTValues.SetAt(KBxs                                     ,"TBBoxsideKleur")   ; WSLn.ItemKX
 	Do ..BTValues.SetAt(WSLn.ItemKV                              ,"TBVulstukKleur")
  
 	Do ..BTValues.SetAt(WSLn.ItemSB	                             ,"TBStabilisator")
 	Do ..BTValues.SetAt("Z"                                      ,"TBStalenRug")
-	Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",1)                  ,"TBSPZijkant")
+	Set SPZKpiece1=$P(WSLn.ItemSPZK,";",1)
+	Do ..BTValues.SetAt(SPZKpiece1                               ,"TBSPZijkant")
 	
-	#define SPZkOpMaat(%v)   (%v?1(1"M".E,1"SI".E))
-	
-	If $$$SPZkOpMaat($P(WSLn.ItemSPZK,";",1)) Do   ; Spoelbak zijkant op maat 
-	. Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2)                ,"SpoelbakZkLi")
-	. Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3)                ,"SpoelbakZkRe")
-	. Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4)                ,"SpoelbakZkMi")
-	. ; SpoelbakBreedte (SPBR) wordt berekend in Prod.BWValuesToProduct()
-	
+	If Klas=##class(DOM.PM.enu.TBXKlas).SifonTypeBlum() {
+		Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2)              ,"SpoelbakZkLi")
+		Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3)              ,"SpoelbakZkRe")
+		Set AantalUitsparingen=..SpoelbakUitsparingen(WSLn.ItemLT,SPZKpiece1,Klas)
+		If AantalUitsparingen>1 { 
+			Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4)          ,"SpoelbakZkMi")
+			Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",5)          ,"SpoelbakBreedte1")
+			Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",6)          ,"SpoelbakBreedte2")
+		}
+		Else {
+			Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4)          ,"SpoelbakBreedte1")
+		}
+	} 
+	ElseIf (Klas=##class(DOM.PM.enu.TBXKlas).Spoelbak())||(Klas=##class(DOM.PM.enu.TBXKlas).Sifon()) {
+		#define SPZkOpMaat(%v)   (%v?1(1"M".E,1"SI".E))
+		
+		If $$$SPZkOpMaat(SPZKpiece1) {   ; Spoelbak zijkant op maat 
+			Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",2)          ,"SpoelbakZkLi")
+			Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",3)          ,"SpoelbakZkRe")
+			Do ..BTValues.SetAt($P(WSLn.ItemSPZK,";",4)          ,"SpoelbakZkMi")
+			; 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"))
-	
+ */
+ 	
 	If ($L(WSLn.ItemVPK)) Do
 	. Do ..BTValues.SetAt(WSLn.ItemVPK                           ,"Verpakking")
 	. Do:(##class(BL.PR.GA.TandemBox).NietMeeToepassen(WSLn.ItemVPK)="True")||(WSLn.ItemVPK="xxP") bfwUpdateNMItemsBulk   ; Do:(WSLn.ItemVPK?1(1"C",1"P",1"Z",1"A",1"Y")) bfwUpdateNMItemsBulk