Index: csp/tbx/resitems.cls.xml
===================================================================
diff -u -r488 -r563
--- csp/tbx/resitems.cls.xml	(.../resitems.cls.xml)	(revision 488)
+++ csp/tbx/resitems.cls.xml	(.../resitems.cls.xml)	(revision 563)
@@ -129,7 +129,7 @@
 	#define LCExclude4I(%LC)   (%LC?1(1"B",1"B/Z",1"D",1"D/Z",1"DLS/Z",1"M/ZS",1"B/ZS",1"D/ZS",1"MY",1"MY/Z",1"CLY",1"CLY/Z",1"DLY",1"DLY/Z"))
  	; Antaro 
 	#define DSExclude4A(%DS)   (%DS?1(1"-"))
-	#define LCExclude4A(%LC)   (%LC?1(1"MB",1"G",1"MY",1"MY/Z",1"CMY",1"CMY/Z"))
+	#define LCExclude4A(%LC)   (%LC?1(1"MB",1"NB",1"BB",1"CB",1"DB",1"G",1"MY",1"MY/Z",1"CMY",1"CMY/Z"))
  	; Mengvorm A-design 
 	#define DSExclude4MA(%DS)  (%DS?1(1"GMxx",1"IMA"))
 	#define LCExclude4MA(%LC)  (%LC?1(1"DS",1"MS2/Z",1"BS2/Z",1"DS2/Z",1"MB",1"IMB",1"G",1"MY",1"MY/Z",1"BY",1"BY/Z",1"DY",1"DY/Z"))
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r511 -r563
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 511)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 563)
@@ -1082,7 +1082,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"