ZOEK
	Set IdentNr = "0.811.385.4"
	
	
	w "Zoek identnr : "_IdentNr,!
	
	Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New()
	Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Identnummer()
	Set Criteria.CommercieelActief = ""
	Set Criteria.GekochtDoorKlantnr = ""
	Set Criteria.GeleverdDoorLeveranciernr = ""
	Set Criteria.MaxAantalResultaten=""
	Set Criteria.StockType = ""
	
	
	Set Criteria.ProductID = IdentNr
	Set ProductService =  ##class(APPS.PM.ProductService).%New()
	Set ProductenLijst = ProductService.ZoekProducten(Criteria)
	w ProductenLijst,!
	w ProductenLijst.HerkendeProducten.Count(),!
	K
	Quit
 
  
ZOEKKORT
	Set t = "Z40L0002   QU-AUF 100   S"
	
	
	w "Zoek Korttekst : "_t,!
	
	Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New()
	Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Korttekst()
	Set Criteria.CommercieelActief = ##class(APPS.PM.enu.CommercieelActiefType).Actief()
	Set Criteria.GekochtDoorKlantnr = ""
	Set Criteria.GeleverdDoorLeveranciernr = ""
	Set Criteria.MaxAantalResultaten=""
	Set Criteria.StockType = ""
	
	Set Criteria.ExacteKorttekst = 1
	
	
	Set Criteria.ProductID = t
	Set ProductService =  ##class(APPS.PM.ProductService).%New()
	Set ProductenLijst = ProductService.ZoekProducten(Criteria)
	w ProductenLijst,!
	w ProductenLijst.HerkendeProducten.Count(),!
	for i=1:1:ProductenLijst.HerkendeProducten.Count()
	{
		w ProductenLijst.HerkendeProducten.GetAt(i).Korttekst,!	
	}
	K
	Quit