Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r41975 -r42011
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 41975)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 42011)
@@ -804,7 +804,7 @@
 		// Sifonlade Type2  is steeds verlaagd tot M-hoogte.
 		Set SPBinHoogte="M"
 	} 
-	ElseIf DC?1(1"S",1"F",1"MA") {
+	ElseIf DC?1(1"S",1"F",1"MA",1"MT") {
 		If (       LadeCode = "MS2" )  Set SPBinHoogte="M"
 		Else  If ( LadeCode = "BS2" )  Set SPBinHoogte="B"
 		Else  If ( LadeCode = "DS2" )  Set SPBinHoogte="D"
@@ -1028,7 +1028,7 @@
 
 <Method name="GeefLadeVariantFromDesignCode">
 <Description>
-Geeft de enumeratie van LadeVariant voor de DesignCode (S, I, B, F, MA).</Description>
+Geeft de enumeratie van LadeVariant voor de DesignCode (S, I, B, F, MA, MT).</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DesignCode:%String</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
@@ -1047,6 +1047,9 @@
 	ElseIf DesignCode="MA" {
 		Set LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()
 	}
+	ElseIf DesignCode="MT" {
+		Set LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()
+	}
 	ElseIf DesignCode="B" {
 		;Set LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXBaliko()   ; DEPRECATED !!! 
 	}
@@ -1193,6 +1196,9 @@
 	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")
+	}
 	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")
 	}