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()
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r18250 -r18394
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 18250)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 18394)
@@ -1107,7 +1107,12 @@
 	Set DC=..DesignCodeFromDS($G(Design))   ; Intivo = I-design 
 	
 	// Uitzonderingen 
- 	Set:(LC="MB") LC="M"        ; Burolade 
+	If KLAS=##class(DOM.PM.enu.TBXKlas).Buro() {
+		Set:(LC?1.E1"B") LC=$E(LC,1,$L(LC)-1)    ; Laatste karakter van de LadeCode bij burobox (is altijd "B") wegstrippen 
+		If (DC="A") {
+			Set:(LC="C")||(LC="D") LC=LC_"M"
+		}
+	}
 	
 	If DC="I" Do   ; intivo 
 	. Set:(BoxSide?1(1"BK",1"CAP")) BS="CAP"