Index: CHUI/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r2210 -r2267
--- CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2210)
+++ CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2267)
@@ -462,7 +462,7 @@
 			Set ProductLijn = ProductLijnIterator.Next()
 			Set Product = ProductLijn.GeefProduct()
 			Set PRNr = Product.GeefPRNr()
-			If ($P($$GENTYP^HAD(PRNr),"\") = "TBX")
+			If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
 			{
 				Set Klas=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; klasse
 				If (Klas '= "SP2")