Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r41267 -r41268
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 41267)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 41268)
@@ -855,20 +855,20 @@
 	#define Buro "M;Lage rug;87"
 */
 	#define Lade "N;Lage rug;70\M;Lage rug;87\B;Hoge rug;93;140\D;Hoge rug;100;205\G;200;400\K;Lage rug;117\C;Hoge rug;117;167"
-
+	#define LadeMetK "D;Hoge rug;117;205"
 	#define LadeINTIVO "N;Lage rug;70\M;Lage rug;87\B;Hoge rug;93;140\D;Hoge rug;110;205\G;200;400\K;Lage rug;117\C;Hoge rug;117;167"
 	#define BinLade "M;Lage rug;110\B;Lage rug;155\D;Lage rug;220\K;Lage rug;122\C;Lage rug;187"
 	#define SpoelBak "M;Lage rug;87\B;Hoge rug;93;140\D;Hoge rug;100;200\C;Hoge rug;117;167"
 	#define Syfon "M;Lage rug;87\B;Lage rug;135\D;Hoge rug;135;200\C;Hoge rug;117;167"
-	#define Buro "M;Lage rug;87"
+	#define Buro "M;Lage rug;87\B;Hoge rug;93;140\C;Hoge rug;117;167\D;Hoge rug;100;205\"
 
 	Set:$E(LC)="I" $E(LC)="" ; Intrabox
 	Set Last=$E(LC,$L(LC))
 	If Last="Z" Set DefList=$$$BinLade
 	Else  If Last="S"&&($L(LC)>1) Set DefList=$$$SpoelBak
 	Else  If Last="Y"&&($L(LC)>1) Set DefList=$$$Syfon
 	Else  If Last="B"&&($L(LC)>1) Set DefList=$$$Buro
-	Else  Set DefList=$S(LC["DL":$$$LadeINTIVO,1:$$$Lade)
+	Else  Set DefList=$S(LC["DL":$$$LadeINTIVO,LC["CL":$$$LadeINTIVO,LC["DK":$$$LadeMetK,1:$$$Lade)
 	;do WLIP^vhDBG(15,Last_"->"_DefList)	
 	Set IsAntaroKBinnenlade = (($G(DC) = "A") && (LC = "K/Z"))
 	Set LC=$E(LC)