Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r65342 -r65371
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 65342)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 65371)
@@ -131,7 +131,7 @@
 	Quit Prod
 	
 bfwBTItemsFromWSLijn(WSLn,blTBox)
-	New lbDSCodes,DSCode,KFront,KRug,KBxs,Klas,SPZKpiece1,AantalUitsparingen
+	New lbDSCodes,DSCode,KFront,KRug,KBxs,Klas,SPZKpiece1,AantalUitsparingen,CodeStalenRug
 	  ;d WLIP^vhDBG(97,"*"_$L(WSLn.ItemRK)_"*"_"  - "_WSLn.ItemRK)
 	Set DSCode=$S($L(WSLn.ItemDS):$LG(blTBox.BTDep("TBDesign","TBDesignCode",WSLn.ItemDS),1), 1:"")
 	Set KFront=$S($L(WSLn.ItemRK):$LG(blTBox.BTDep("TBRelingKleur","TBFrontKleur",WSLn.ItemRK),1), 1:"")
@@ -168,7 +168,8 @@
  
 	Do blTBox.BTValues.SetAt(WSLn.ItemSB                              ,"TBStabilisator")
 	Do blTBox.BTValues.SetAt(WSLn.ItemRSTL                            ,"TBRugStukVerlaagd")
-	Do blTBox.BTValues.SetAt("Z"                                      ,"TBStalenRug")
+	Set CodeStalenRug = $$$If(WSLn.ItemRugwandMateriaal="Staal", "V", "Z")
+	Do blTBox.BTValues.SetAt(CodeStalenRug                            ,"TBStalenRug")
 	Set SPZKpiece1=$P(WSLn.ItemSPZK,";",1)
 	Do blTBox.BTValues.SetAt(SPZKpiece1                               ,"TBSPZijkant")