Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r18350 -r18394
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 18350)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 18394)
@@ -471,8 +471,8 @@
  Set $E(Txt,22)=##class(Prod.GAMeta.BT.TBAbstract).KortTekstCodeClass("Prod.GAMeta.BT.TBLadeKleur",..Val("KL"))
  Set $E(Txt,24)=$E(..Val("KB"),1,2)
    ;d WL^vhDBG("KortTekst="_Txt)
- If ..Val("KLAS")="B" Do  ; BuroBOX
- . Set $E(Txt,1,3)="BBL"  
+ If ..Val("KLAS")=##class(DOM.PM.enu.TBXKlas).Buro() Do  ; BuroBOX
+ . Set $E(Txt,1,3)="BB"_(..Val("RH"))
  . Set $E(Txt,4)=$S(..Val("BHM")>0:"H",1:"L") ; Hangmap boring
  Quit Txt
 ktxGRP()