Index: BL/Prod/Search.cls.xml
===================================================================
diff -u -r1074 -r1406
--- BL/Prod/Search.cls.xml	(.../Search.cls.xml)	(revision 1074)
+++ BL/Prod/Search.cls.xml	(.../Search.cls.xml)	(revision 1406)
@@ -239,12 +239,9 @@
 	Set:(ZoekAt="")||(ZoekAt=$C(0)) ZoekAt=..#atKortTekst
 	Set:(Criteria.StockType="")||(Criteria.StockType=$C(0)) Criteria.StockType=$LB($$$ProdCritStock,$$$ProdCritStockNot,$$$ProdCritStockContract) ; Stock, NotStock, Contract
 	Set:(Criteria.Active="")||(Criteria.Active=$C(0)) Criteria.Active=$LB($$$ProdCritActive,$$$ProdCritActiveNon) ; Active, Nonactive
-		
-	If (1=1){
-		
-	}
+	
 	Set Status=$$$OK
-	Set Criteria.MaxCount=Format.LijnMax
+	Set Criteria.MaxCount=Format.LijnMax	
 	
 	If (ZoekAt=..#atBoom){
 		Do ..SearchBoom(Criteria,.%psResult)
@@ -268,7 +265,8 @@
 	Set %psLijnMax=Format.LijnMax
 	Set %psKlantNr=Criteria.LimitCustomer
 	Set:(%psLijnMax="")||(%psLijnMax=$C(0)) %psLijnMax=..#LijnDefault
-	Set:%psLijnMax>..#LijnMax %psLijnMax=..#LijnMax
+	/// JBL - 2011-06-10 : removed om LijnMax van searchCriteria te doen gelden en niet te overrulen.
+	/// Set:%psLijnMax>..#LijnMax %psLijnMax=..#LijnMax 
 	Set %psCriteria=Criteria
 	Set %psFormatCompact=Format.FormatCompact
 	Set:(%psFormatCompact="")||(%psFormatCompact=$C(0)) %psFormatCompact=..#foKortTekst_";"_..#foLangTekstN_";"_..#foStockType_";"_..#foActief
@@ -707,18 +705,21 @@
 <FormalSpec><![CDATA[Criteria:BL.Prod.sub.pxSearchCriteria,&Result]]></FormalSpec>
 <Implementation><![CDATA[
 	Set ZoekKey=Criteria.SearchTxt
-	Set Taal=Criteria.SubAt ; Taal of Lev.langtekst
+	/// JBL - 2011-06-10 : Property does not exists !!  => Set Taal=Criteria.SubAt ; Taal of Lev.langtekst
+	Set Taal="N" //Criteria.Language
 	Set:Taal="" Taal="N"
 	Set StockType=Criteria.StockType
-	Do ..TransformToPattern(ZoekKey,.%PatternKey,.KeepChar)
+	/// JBL - 2011-06-10 : invalid Oref :  Do ..TransformToPattern(ZoekKey,.%PatternKey,.KeepChar)
+	Do ..TransformToPattern(Criteria,.%PatternKey,.KeepChar)
 	Set PRNr=0
 	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 	. Quit:(StockType'["A")&&($P($G(^KPR(PRNr,0)),"\",3)?4.7N)
 	. Set Stock=$$$PRGet($$$StockType)
 	. Quit:(StockType'["S")&&Stock
 	. Quit:(StockType'["N")&&'Stock
 	. Set %Key=$ZCVT($ZSTRIP(##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,Taal,"~",1),"*P",,KeepChar),"U")
-	. X "S %OK=%Key?.1"" """_%PatternKey
+	. /// JBL + 2011-06-10 : %OK in orde zetten
+	. S %OK=%Key[%PatternKey
 	. Quit:'%OK
 	. ;Quit:'%blProduct.IsAllowed(PRNr)
 	. Set Result(..SortKey(PRNr))=PRNr