Index: Prod/GAMeta/BT/TBLadeKleur.cls.xml
===================================================================
diff -u -r54288 -r54305
--- Prod/GAMeta/BT/TBLadeKleur.cls.xml	(.../TBLadeKleur.cls.xml)	(revision 54288)
+++ Prod/GAMeta/BT/TBLadeKleur.cls.xml	(.../TBLadeKleur.cls.xml)	(revision 54305)
@@ -55,6 +55,64 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VersieNEWBepaalDesignID">
+<FormalSpec>DesignCodeID:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim TBDesignCode As Prod.GAMeta.BT.TBDesignCode = ..GeefTBDesignCode(DesignCodeID)
+	#dim DesignID As %String = ##class(Prod.GAMeta.BT.TBLadeKleur).GeefGemeenschappelijkeDesignID(TBDesignCode, $this)
+	If DesignID = "" {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Geen design gevonden voor LadeKleur '"_..ItemID_"' en DesignCode '"_DesignCodeID_"'.")
+	}
+	
+	Quit DesignID
+]]></Implementation>
+</Method>
+
+<Method name="GeefTBDesignCode">
+<FormalSpec>DesignCodeID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>Prod.GAMeta.BT.TBDesignCode</ReturnType>
+<Implementation><![CDATA[
+	If $$$Not(##class(Prod.GAMeta.BT.TBDesignCode).%ExistsId(DesignCodeID)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Geen object gevonden voor DesignCode '"_DesignCodeID_"'.")
+	}
+	
+	Quit ##class(Prod.GAMeta.BT.TBDesignCode).%OpenId(DesignCodeID,$$$ConcurrenyNoLocks)
+]]></Implementation>
+</Method>
+
+<Method name="GeefGemeenschappelijkeDesignID">
+<Description>
+ !!! PUBLIC !!! 
+Deze method kan verplaatst worden naar één of andere Utils-klasse, of naar BL.PR.GA.TandemBox </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TBDesignCode:Prod.GAMeta.BT.TBDesignCode,TBLadeKleur:Prod.GAMeta.BT.TBLadeKleur</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define TBDesign   "TBDesign"
+	
+	#dim GemeenschappelijkeDesignID As %String = ""
+	
+	#dim DesignIdList1 As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(TBDesignCode.BeperkGUI.GetAt($$$TBDesign), ";")
+	#dim DesignIdList2 As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(TBLadeKleur.BeperkGUI.GetAt($$$TBDesign), ";")
+	#dim ListGemeenschappelijkeIDs As %ListOfDataTypes = ##class(TECH.ListUtils).Doorsnede(DesignIdList1,DesignIdList2)
+	If ListGemeenschappelijkeIDs.Count() = 1 {
+		Set GemeenschappelijkeDesignID = ListGemeenschappelijkeIDs.GetAt(1)
+	}
+	ElseIf ListGemeenschappelijkeIDs.Count() = 0 {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Geen design gevonden voor DesignCode '"_TBDesignCode.ItemID_"' en LadeKleur '"_TBLadeKleur.ItemID_"'.")
+	}
+	ElseIf ListGemeenschappelijkeIDs.Count() > 1 {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Conflict : Meerdere designs gevonden voor DesignCode '"_TBDesignCode.ItemID_"' en LadeKleur '"_TBLadeKleur.ItemID_"' : {"_##class(TECH.ListUtils).ListToPieces(ListGemeenschappelijkeIDs,", ")_"}")
+	}
+	Quit GemeenschappelijkeDesignID
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^Res.PI.Items("PR;GA;TBKLD")</DataLocation>