Index: HADTBXPrep.mac.rou
===================================================================
diff -u -r34284 -r34368
--- HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 34284)
+++ HADTBXPrep.mac.rou	(.../HADTBXPrep.mac.rou)	(revision 34368)
@@ -351,6 +351,11 @@
 		"Opvullijst" 		: "05",
 		"Corpusprofiel" 	: "10",
 		"Geleider" 			: "10",
+		"TOB set" 			     : "12",
+		"TOB stang"              : "13",
+		"TOB koppelstukken"      : "14",
+		"TOB stanghouder"        : "14",
+		"TOB bodemstabilisering" : "14",
 		"Reling" 			: "20",
 		"Relingadapter" 	: "21",
 		"Tss.reling" 		: "22",
Index: BL/Legacy/HADTBXPrep.cls.xml
===================================================================
diff -u -r34284 -r34368
--- BL/Legacy/HADTBXPrep.cls.xml	(.../HADTBXPrep.cls.xml)	(revision 34284)
+++ BL/Legacy/HADTBXPrep.cls.xml	(.../HADTBXPrep.cls.xml)	(revision 34368)
@@ -32,6 +32,11 @@
 	ElseIf ("RELING_ADAPT" = BasisType) { Set LeesbaarBasisType = "Relingadapter" }
 	ElseIf ("OPVULLIJST" = BasisType) { Set LeesbaarBasisType = "Opvullijst" }
 	ElseIf ("STEUNK" = BasisType) { Set LeesbaarBasisType = "Steun K-zijkant" }
+	ElseIf ("TOBSET" = BasisType) { Set LeesbaarBasisType = "TOB set" }
+	ElseIf ("TOBSTANG" = BasisType) { Set LeesbaarBasisType = "TOB stang" }
+	ElseIf ("TOBADAPTER" = BasisType) { Set LeesbaarBasisType = "TOB koppelstukken" }
+	ElseIf ("TOBSTHOUDER" = BasisType) { Set LeesbaarBasisType = "TOB stanghouder" }
+	ElseIf ("TOBBODEMSTAB" = BasisType) { Set LeesbaarBasisType = "TOB bodemstabilisering" }
 	Set LeesbaarBasisType = ##class(TECH.StringUtils).ToUpper($E(LeesbaarBasisType,1))_$E(LeesbaarBasisType,2,$Length(LeesbaarBasisType))
 	Quit LeesbaarBasisType
 ]]></Implementation>