Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r33998 -r34034
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 33998)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 34034)
@@ -624,14 +624,8 @@
  Set Txt=""
  Set:((..Val("BM")'="I")||('..Val("NMCP")))&&(..Val("BM")'="Z") Txt=##class(Prod.GAMeta.BT.TBBlumotion).TaalAfhOmsClass("",..Val("BM"),Taal,,,DC)
  If ..Val("BM")="TOB" Do  ;TOB eenheid vermelden
- . New DItemTOBSet,PRNrTOBSet,ProductTOBSet
- . Set DItemTOBSet=..LookUp("IL","PRTOBSET")
- . Set PRNrTOBSet=DItemTOBSet.Eval("PRNr","PRTOBSET",,0)
- . Set ProductTOBSet = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(PRNrTOBSet)
- . Set Txt = Txt _ " " _ $Extract(ProductTOBSet.GeefKorttekst(), 1, 7)
- . ;Set Txt = Txt _ " " _ ..GeefKleurTiponBlumotion()  --> TO DO 
+ . Set Txt = Txt _ " " _ ##class(DOM.PM.impl.TBXLangtekstCreator.TOBInfoBepaler).%New(Taal).BepaalTOBInfo(##this)
  Do AddLT(Taal,.Oms,.Txt,.Optie)
-
  
  ; BoxSide
  If (..Val("BS")'="ZR") && ((..Val("BS")'?1(1"B"1.E,1"CAP",1"COV",1"INSCHF"))||('..Val("NMBS"))) && (($E(..Val("BS"),2)'="R")||('..Val("NMRL"))) Do