Index: vhUnitTest/Prod/GAMeta/BT/TBLadeKleur/BepaalDesignID/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/Prod/GAMeta/BT/TBLadeKleur/BepaalDesignID/Test.cls.xml	(revision 0)
+++ vhUnitTest/Prod/GAMeta/BT/TBLadeKleur/BepaalDesignID/Test.cls.xml	(revision 35871)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.Prod.GAMeta.BT.TBLadeKleur.BepaalDesignID.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DCAntaro">
+<Type>%String</Type>
+<Default>A</Default>
+</Parameter>
+
+<Method name="Test: Normale situatie: Ladekleur MG resulteert in DesignID GA">
+<Implementation><![CDATA[
+	#dim LadeKleurID As %String = "MG"
+	#dim DesignID = ..GeefTBLadeKleur(LadeKleurID).BepaalDesignID(..#DCAntaro)
+	
+	Do $$$AssertEquals(DesignID,"GA")
+]]></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'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	#dim LadeKleurID As %String = "WI"
+	#dim DesignID = ..GeefTBLadeKleur(LadeKleurID).BepaalDesignID(..#DCAntaro)
+]]></Implementation>
+</Method>
+
+<Method name="Test: DC is niet antaro geeft &apos;unimplemented&apos; exceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Algoritme ondersteunt alleen Antaro design","Momenteel niet mogelijk voor DesignCode 'I'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.UnimplementedException).%ClassName(1),Substrings))
+
+	#dim LadeKleurID As %String = "MG"
+	#dim DesignID = ..GeefTBLadeKleur(LadeKleurID).BepaalDesignID(##class(DOM.PM.enu.TBXDesigncode).Intivo())
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBLadeKleur">
+<FormalSpec>LadeKleurID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>Prod.GAMeta.BT.TBLadeKleur</ReturnType>
+<Implementation><![CDATA[	Quit ##class(Prod.GAMeta.BT.TBLadeKleur).%OpenId(LadeKleurID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Prod/GAMeta/BT/TBLadeKleur.cls.xml
===================================================================
diff -u -r29059 -r35871
--- Prod/GAMeta/BT/TBLadeKleur.cls.xml	(.../TBLadeKleur.cls.xml)	(revision 29059)
+++ Prod/GAMeta/BT/TBLadeKleur.cls.xml	(.../TBLadeKleur.cls.xml)	(revision 35871)
@@ -14,6 +14,47 @@
 <Unique>1</Unique>
 </Index>
 
+<Method name="BepaalDesignID">
+<FormalSpec>DesignCodeID:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define TBDesign   "TBDesign"
+	
+	#dim GevondenDesignID As %String = ""
+	
+	#dim ToegelatenDesignIDs = ##class(TECH.ListUtils).PiecesToList(..BeperkGUI.GetAt($$$TBDesign), ";")
+	Set Iterator = ##class(TECH.ListIterator).%New(ToegelatenDesignIDs)
+	While (Iterator.HasNext()) && (GevondenDesignID="") {
+		#dim DesignID As %String = Iterator.Next()
+		If ..IsGevraagdeDesignCode(DesignID, DesignCodeID) {
+			Set GevondenDesignID = DesignID
+		}
+	}
+	
+	If GevondenDesignID = "" {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Geen design gevonden voor LadeKleur '"_..ItemID_"' en DesignCode '"_DesignCodeID_"'.")
+	}
+	
+	Quit GevondenDesignID
+]]></Implementation>
+</Method>
+
+<Method name="IsGevraagdeDesignCode">
+<FormalSpec>DesignID:%String,DesignCodeID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If $$$Not(DesignCodeID = ##class(DOM.PM.enu.TBXDesigncode).Antaro()) {
+		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Algoritme ondersteunt alleen Antaro design. Momenteel niet mogelijk voor DesignCode '"_DesignCodeID_"'.")
+	}
+	
+	// IsAntaroDesign ? 
+	Quit ##class(TECH.StringUtils).Equals(DesignID, "GA","WA","ZA","IA")
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^Res.PI.Items("PR;GA;TBKLD")</DataLocation>