Set Klassificatie = 892
 
	Set pxCriteria=##class(APPS.PM.dto.SelectCriteria).%New()
	Set pxCriteria.At="B"
	Set pxCriteria.Actief = ""
	Set pxCriteria.KLNr = ""
	Set pxCriteria.LevNr = ""
	Set pxCriteria.LijnMax=""
	Set pxCriteria.StockType = ""
	Set pxCriteria.SubAt = ""
	Set pxCriteria.Zoek = Klassificatie
	Set ProductService =  ##class(APPS.PM.ProductService).%New()
	Set ProductenLijst = ProductService.Select(pxCriteria)
	w ProductenLijst.Count()," gevonden producten met Klassificatie "_Klassificatie_" is correct."