Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r20122 -r34038
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 20122)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 34038)
@@ -623,9 +623,13 @@
  If '..Val("NMCP") Do  ;corpus profiel meeleveren
  . Set Txt=##class(Prod.GAMeta.BT.TBGlijderType).TaalAfhOmsClass("",..Val("GT"),Taal,,,DC)_" "_..Val("DK")_"kg" ; draagkracht
  . Do AddLT(Taal,.Oms,.Txt,.Optie)
- ; Blumotion
+ ; GeleiderTechnologie 
+ 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
+ . 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
  . Set Txt=##class(Prod.GAMeta.BT.TBBoxSide).TaalAfhOmsClass("",..Val("BS"),Taal,,,DC)