Index: BL/PR/GA/TB/tmpDev2.mac.rou
===================================================================
diff -u -r804 -r818
--- BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 804)
+++ BL/PR/GA/TB/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 818)
@@ -104,7 +104,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
@@ -128,9 +128,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