Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r29059 -r33998
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 29059)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 33998)
@@ -620,9 +620,19 @@
  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
+ . 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 
  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)