Index: DOM/PM/impl/TBXLangtekstCreator/TOBInfoBepaler.cls.xml
===================================================================
diff -u -r34035 -r34041
--- DOM/PM/impl/TBXLangtekstCreator/TOBInfoBepaler.cls.xml	(.../TOBInfoBepaler.cls.xml)	(revision 34035)
+++ DOM/PM/impl/TBXLangtekstCreator/TOBInfoBepaler.cls.xml	(.../TOBInfoBepaler.cls.xml)	(revision 34041)
@@ -1,10 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="DOM.PM.impl.TBXLangtekstCreator.TOBInfoBepaler">
 <Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="ProductRolAPI">
-<Type>DOM.PM.ProductRolAPI</Type>
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
 
@@ -14,29 +15,29 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Taal:DOM.enu.Taal,ProductRolAPI:DOM.PM.ProductRolAPI,KleurCodeVertaler:DOM.common.Transl.Vertaler</FormalSpec>
+<FormalSpec>Taal:DOM.enu.Taal</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ProductRolAPI = $$$Inject(ProductRolAPI,##class(DOM.DomeinContext).Instance().GeefProductRolAPI())
-	Set ..KleurCodeVertaler = $$$Inject(KleurCodeVertaler,##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(Taal))
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..KleurCodeVertaler = ..GeefKleurCodeVertaler(Taal)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalTOBInfo">
 <FormalSpec>GADataProduct:Prod.GAData.Product</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>DOM.PM.Product</ReturnType>
 <Implementation><![CDATA[
-	#dim LangtekstTOBInfo As %String = ""
+	Set LangtekstTOBInfo = ""
 	
-	#dim ItemLabelTOBSet As %String = "PRTOBSET"
-	#dim ProductID As DOM.common.ProductID = GADataProduct.GeefHalffabProductID(ItemLabelTOBSet)
-	#dim Product As DOM.PM.Product = ..ProductRolAPI.GeefAdministratiefProduct(ProductID)
+	Set ItemLabelTOBSet = "PRTOBSET"
+	Set ProductID = GADataProduct.GeefHalffabProductID(ItemLabelTOBSet)
+	Set Product = ..ProductAPI.GeefProduct(ProductID)
 	
-	#dim KorttekstTOBSet As %String = Product.GeefKorttekst()
+	Set KorttekstTOBSet = Product.GeefKorttekst()
 	Set LangtekstTOBInfo = LangtekstTOBInfo _ " " _ $Extract(KorttekstTOBSet, 1, 7)
 	
-	#dim KleurCodeTOBSet As %String = ..GeefKleurCodeVanKorttekst(KorttekstTOBSet)
+	Set KleurCodeTOBSet = ..GeefKleurCodeVanKorttekst(KorttekstTOBSet)
 	Set LangtekstTOBInfo = LangtekstTOBInfo _ " " _ ..KleurCodeVertaler.GeefVertaling(KleurCodeTOBSet)
 	
 	Quit LangtekstTOBInfo
@@ -52,7 +53,14 @@
 <Implementation><![CDATA[	Quit $Extract(Korttekst, 22, 25)
 ]]></Implementation>
 </Method>
-</Class>
 
-
+<Method name="GeefKleurCodeVertaler">
+<FormalSpec>Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands()</FormalSpec>
+<ReturnType>DOM.common.Transl.Vertaler</ReturnType>
+<Implementation><![CDATA[
+	Set VertaalGroepen = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.common.Transl.enu.VertaalGroep).KleurCodes())
+	Quit ##class(DOM.common.Transl.impl.Vertaler).%New(VertaalGroepen, Taal)
+]]></Implementation>
+</Method>
+</Class>
 </Export>