#include vhLib.Macro

Go(S)
	#dim pxCriteria As BL.Prod.pxSelectCriteria =##class(BL.Prod.pxSelectCriteria).%New()
	set pxCriteria.StockType="ASN"
	Set pxCriteria.Zoek="802208L"
	set pxCriteria.KLNr = 23112
	
	kill Result
	do ##class(BL.Prod.Select).ZoekKlantRef(pxCriteria,.Result)
	zw Result