Index: DOM/PM/TBX/impl/TOBSetEenheidBepaler.cls.xml
===================================================================
diff -u -r38945 -r41307
--- DOM/PM/TBX/impl/TOBSetEenheidBepaler.cls.xml	(.../TOBSetEenheidBepaler.cls.xml)	(revision 38945)
+++ DOM/PM/TBX/impl/TOBSetEenheidBepaler.cls.xml	(.../TOBSetEenheidBepaler.cls.xml)	(revision 41307)
@@ -13,7 +13,7 @@
 	#define KB550mm   518
 	#define KB800mm   768
 	
-	If (DesignCode '= ##class(DOM.PM.enu.TBXDesigncode).Antaro()) {
+	If $$$Not(##class(TECH.StringUtils).Equals(DesignCode, ##class(DOM.PM.enu.TBXDesigncode).Antaro(), ##class(DOM.PM.enu.TBXDesigncode).MengvormADesign() )) {
 		Do ..GooiTOBEenheidExceptie("Ongeldige DesignCode '"_DesignCode_"'.")
 	}
 	
Index: vhUnitTest/DOM/PM/TBX/impl/TOBSetEenheidBepaler/BepaalEenheidIdentificatie/Test.cls.xml
===================================================================
diff -u -r38945 -r41307
--- vhUnitTest/DOM/PM/TBX/impl/TOBSetEenheidBepaler/BepaalEenheidIdentificatie/Test.cls.xml	(.../Test.cls.xml)	(revision 38945)
+++ vhUnitTest/DOM/PM/TBX/impl/TOBSetEenheidBepaler/BepaalEenheidIdentificatie/Test.cls.xml	(.../Test.cls.xml)	(revision 41307)
@@ -16,7 +16,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestCorrecteInput">
+<Method name="TestCorrecteInputAntaro">
 <Implementation><![CDATA[
 	Do ..AssertTOBSetEenheid("A", "", "", "",65, "3560")
 
@@ -35,6 +35,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestCorrecteInputMengvormADesign">
+<Implementation><![CDATA[
+	#dim DesignCode = ##class(DOM.PM.enu.TBXDesigncode).MengvormADesign()
+	Do ..AssertTOBSetEenheid(DesignCode,"M",600,517,30, "3530")
+	Do ..AssertTOBSetEenheid(DesignCode, "", "", "",65, "3560")
+]]></Implementation>
+</Method>
+
 <Method name="TestOngeldigeDraagKrachtVerwachtExceptie">
 <Implementation><![CDATA[	Do ..AssertVerwachtExceptie("A","","","",50, "Draagkracht '50'")
 ]]></Implementation>