Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r2432 -r2797
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 2432)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 2797)
@@ -126,6 +126,12 @@
 bfwBTItemsFromWSLijn
 	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:"")
Index: BL/Flow/Offerte/ProductGAData.cls.xml
===================================================================
diff -u -r2589 -r2797
--- BL/Flow/Offerte/ProductGAData.cls.xml	(.../ProductGAData.cls.xml)	(revision 2589)
+++ BL/Flow/Offerte/ProductGAData.cls.xml	(.../ProductGAData.cls.xml)	(revision 2797)
@@ -330,15 +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:"")
-	/*
-	// tijdelijke methode om DesignCode "L" in te stellen (before 2009)
-	Set lbDSCodes=$S($L($$$GetKenm("ItemDS")):blTBox.BTDep("TBDesign","TBDesignCode",$$$GetKenm("ItemDS")), 1:"")
-	Set DSCode=$LG(lbDSCodes,1)
-	If (DSCode="A")&&($LF(lbDSCodes,"L"))&&($L($$$GetKenm("ItemBX"))) Do
-	. ; INTIVO design-code is afhankelijk van de Boxside -->  A of L 
-	. Set:($LF(blTBox.BTDep("TBBoxSide","TBDesignCode",$$$GetKenm("ItemBX")),"L")) DSCode="L"
-	*/
 	Set KFront=$S($L($$$GetKenm("ItemRK")):$LG(blTBox.BTDep("TBRelingKleur","TBFrontKleur",$$$GetKenm("ItemRK")),1), 1:"")
 	Set KRug  =$S($L($$$GetKenm("ItemDS")):$LG(blTBox.BTDep("TBDesign","TBRugKleur",dsID),1), 1:"")
 	Set KBxs  =$S($L($$$GetKenm("ItemKX")):$$$GetKenm("ItemKX"), $L($$$GetKenm("ItemDS")):$LG(blTBox.BTDep("TBDesign","TBBoxsideKleur",dsID),1), 1:"")