Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r43318 -r43388
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 43318)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 43388)
@@ -1245,18 +1245,18 @@
 <FormalSpec>LadeCode:%String,Design:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set LC=$TR(LadeCode,"2I\/","")   ; Zowel voor spoelbak type 2 als voor sifonlade type 2 wordt het cijfer 2 weggefilterd 
+	Set LC=$TR(LadeCode,"23I\/","")   ; Zowel voor spoelbak type 2 als voor sifonlade type 2 wordt het cijfer 2 weggefilterd; idem voor type 3 
 	Set DC=..DesignCodeFromDS(Design)
 	
 	Set BoxSide=""
 	If DC?1(1"I",1"MA") {   ; intivo + mengvorm-A
 		Set BoxSide=$S(LC?1(1"DLS"):"CAP", LC?1(1"DL",1"DLZ",1"CL",1"CLZ",1"DLY",1"DLYZ",1"CLY",1"CLYZ"):"COV", LC?1(1"D"):"ER", 1:"ZR")
 	}
 	If DC?1(1"MT") {        ; mengvorm-T design 
-		Set BoxSide=$S(LC?1(1"D"):"ER", 1:"ZR")
+		Set BoxSide=$S(LC?1(1"D",1"C",1"B").E:"ER", 1:"ZR")
 	}
 	ElseIf DC?1(1"A") {     ; antaro 
-		Set BoxSide=$S(LC?1(1"CM",1"CMZ",1"CMY",1"CMYZ",1"CMS",1"B",1"BS",1"BY",1"DM",1"DMZ",1"DMS",1"DMY",1"DK",1"DKZ"):"ER", 1:"ZR")
+		Set BoxSide=$S(LC?1(1"B".E,1"CM".E,1"DM".E,1"DK".E):"ER", 1:"ZR")
 	}
 	Else {
 		Set BoxSide=$S(LC?1(1"DS"):"BD", LC?1(1"D",1"DZ",1"DY",1"DYZ"):"DR", LC?1(1"B",1"BZ",1"BS",1"BY",1"BYZ",1"C",1"CZ"):"ER", 1:"ZR")