Index: vhUnitTest/Prod/GAMeta/BT/TBLadeKleur/BepaalDesignID/Test.cls.xml
===================================================================
diff -u -r35872 -r54306
--- vhUnitTest/Prod/GAMeta/BT/TBLadeKleur/BepaalDesignID/Test.cls.xml	(.../Test.cls.xml)	(revision 35872)
+++ vhUnitTest/Prod/GAMeta/BT/TBLadeKleur/BepaalDesignID/Test.cls.xml	(.../Test.cls.xml)	(revision 54306)
@@ -26,6 +26,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Situatie 3: Ladekleur OG resulteert !!voorlopig!! in DesignID OMT">
+<Implementation><![CDATA[
+	#dim LadeKleurID As %String = "OG"
+	#dim DesignID = ..GeefTBLadeKleur(LadeKleurID).BepaalDesignID(..#DCAntaro)
+	
+	Do $$$AssertEquals(DesignID,"OMT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Situatie 3 NEW: Ladekleur OG voor Design MT resulteert in DesignID OMT">
+<Implementation><![CDATA[
+	#dim LadeKleurID As %String = "OG"
+	#dim DesignID = ..GeefTBLadeKleur(LadeKleurID).VersieNEWBepaalDesignID("MT")
+	
+	Do $$$AssertEquals(DesignID,"OMT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Situatie 4: Ladekleur MG voor Design MA resulteert in DesignID GMA">
+<Implementation><![CDATA[
+	#dim LadeKleurID As %String = "MG"
+	#dim DesignID = ..GeefTBLadeKleur(LadeKleurID).VersieNEWBepaalDesignID("MA")
+	
+	Do $$$AssertEquals(DesignID,"GMA")
+]]></Implementation>
+</Method>
+
 <Method name="Test: WI is geen antaro kleur, geeft exceptie">
 <Implementation><![CDATA[
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen design gevonden voor LadeKleur 'WI' en DesignCode 'A'")