ZOEK
		
	Set ProductService =  ##class(APPS.PM.ProductService).%New()
	
	Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New()
	Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Korttekst()
	Set Criteria.ProductID = "CBL.CA"
	Set Criteria.ExacteKorttekst = 0	
	Set ProductenLijst = ProductService.ZoekProducten(Criteria).HerkendeProducten
	
	Set JaarLijst = ##class(%ArrayOfDataTypes).%New()
	
	For i=1:1:ProductenLijst.Count()
	{
		Set Korttekst = ProductenLijst.GetAt(i).Korttekst
		Set PRNr = ProductenLijst.GetAt(i).PRNr
		Set Jaar = $Extract(Korttekst,7,8)
		Set PRNrs = JaarLijst.GetAt(Jaar)_$LB(ProductenLijst.GetAt(i).PRNr)
		Do JaarLijst.SetAt(PRNrs,Jaar)
	}
	Set Jaar = ""
	Set Jaar = JaarLijst.Next(Jaar)
	While(Jaar '= ""){
		Set PRNrs = JaarLijst.GetAt(Jaar)
		Set AantalGekregen = ##class(Stat.OmzetKlantProductMaand).HeeftCatalogusGekregen(7277,PRNrs)
		
		w "Jaar:",Jaar,":",AantalGekregen," -> ",$$LCVT^vhLib(PRNrs),!
		Set Jaar = JaarLijst.Next(Jaar)
	}
	k JaarLijst
	
	Quit