Index: WS/Prod/Select.cls.xml
===================================================================
diff -u -r734 -r913
--- WS/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 734)
+++ WS/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 913)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:15">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-25 10:12:32">
 <Class name="WS.Prod.Select">
 <IncludeCode>BL.Sys.Toegang,BL.Sys.Proxy,BL.Prod,BL.Sys.Resources</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SOAP.WebService</Super>
-<TimeChanged>61024,33971.946561</TimeChanged>
+<TimeChanged>62147,36816.113297</TimeChanged>
 <TimeCreated>61635,40762.36861</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -36,10 +36,37 @@
 	
 	;Toegelaten om producten te raadplegen?
 	$$$CheckAccess($$$rsProduct,$$$prRead)
-
+	
+	Set Usage = "ALL"
+	Set SubCriteria = ##class(BL.Prod.sub.pxSearchCriteria).%New(Usage)
+	Do SubCriteria.SetDefault()
+	
+	Set SubCriteria.StockType = Criteria.StockType
+	if (Criteria.Actief){
+		Set SubCriteria.Active = $LB("A")
+	}else{
+		Set SubCriteria.Active = $LB("N")
+	}
+	Set SubCriteria.VerifyCustomer = Criteria.KLNr
+	Set SubCriteria.LimitSupplier = Criteria.LevNr
+	Set SubCriteria.SearchTxt = Criteria.Zoek
+	Set SubCriteria.At = Criteria.At
+	Set SubCriteria.Language = Criteria.SubAt
+	
+	//Set SubCriteria.ProductType = $LB("B")
+	
+	Set SubPxSearchFormat = ##class(BL.Prod.sub.pxSearchFormat).%New()
+	Set SubPxSearchFormat.FormatCompact = Criteria.FormatCompact
+	Set SubPxSearchFormat.FormatExpand = Criteria.FormatExpand
+	Set SubPxSearchFormat.LijnMax = Criteria.LijnMax
+	
+	do WL^vhDBG($$ObjToText^vhLib(Criteria))
+	
 	Quit ##class(BL.Sys.Proxy.pxXMLDataSet).CreateQuery(.varDataSet,"BL.Prod.Select:Select",Criteria)
+	
+	///Quit ##class(BL.Sys.Proxy.pxXMLDataSet).CreateQuery(.varDataSet,"BL.Prod.Search:Select",SubCriteria,SubPxSearchFormat)
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3088437413"/>
+<Checksum value="2890788922"/>
 </Export>