Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r39820 -r40450
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 39820)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 40450)
@@ -109,7 +109,7 @@
 	If (WSLn.Exclude=1) Do  Quit ""
 	Else  If WSLn.ItemSTDL=$$$tbxCodeStdLade Do  Quit $$$tbxCodeStdLade
 	Set ..Qty=WSLn.Qty
-	Set WSLn.ItemDS=dsID
+	Set:(WSLn.ItemDS="") WSLn.ItemDS=dsID
 	Set WSLn.GAMeta="TBX"
 	Do ..ResetTB()
 	Do bfwBTItemsFromWSLijn
@@ -133,9 +133,9 @@
 	  ;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:"")
-	Set KRug  =$S($L(WSLn.ItemDS):$LG(..BTDep("TBDesign","TBRugKleur",dsID),1), 1:"")
+	Set KRug  =$S($L(WSLn.ItemDS):$LG(..BTDep("TBDesign","TBRugKleur",WSLn.ItemDS),1), 1:"")
 	If WSLn.ItemKX="" Do
-	. Set KBxs=$S($L(WSLn.ItemDS):$LG(..BTDep("TBDesign","TBBoxsideKleur",dsID),1), 1:"")
+	. Set KBxs=$S($L(WSLn.ItemDS):$LG(..BTDep("TBDesign","TBBoxsideKleur",WSLn.ItemDS),1), 1:"")
 	. Set WSLn.ItemKX=KBxs   ; Set to WSLijn 
 	Else  Do
 	. Set KBxs=WSLn.ItemKX