Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r35112 -r38815
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 35112)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 38815)
@@ -468,7 +468,7 @@
  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")=##class(DOM.PM.enu.TBXKlas).Buro() Do  ; BuroBOX
+ If ..Val("KLAS")=##class(DOM.PM.enu.TBXToepassing).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
@@ -661,7 +661,7 @@
  Set Txt=##class(Prod.GAMeta.BT.TBDwarsVerdeling).TaalAfhOmsClass("",..Val("DWV"),Taal,,1,DC)
  Do AddLT(Taal,.Oms,.Txt,.Optie)
  ; Boring voor bureaulade
- If ..Val("KLAS")=##class(DOM.PM.enu.TBXKlas).Buro(),..Val("BHM") Do
+ If ..Val("KLAS")=##class(DOM.PM.enu.TBXToepassing).Buro(),..Val("BHM") Do
  . Set Txt=##class(Prod.GAMeta.BT.TBHangMap).TaalAfhOmsClass("",..Val("BHM"),Taal,,1,DC)
  . Do AddLT(Taal,.Oms,.Txt,.Optie)
  ; Greep Binnenlade
@@ -741,3 +741,5 @@
  Quit
 
 
+
+