Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository.cls.xml
===================================================================
diff -u -r37462 -r37648
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository.cls.xml	(.../ProductRepository.cls.xml)	(revision 37462)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductRepository.cls.xml	(.../ProductRepository.cls.xml)	(revision 37648)
@@ -36,7 +36,7 @@
 	Set pxCriteria.KLNr = KlantId
 	
 	#dim Result As %String = ""
-	#dim StatusCode As %Status = ..ProductSelecteerder.ZoekKlantRef(pxCriteria,.Result)
+	#dim StatusCode As %Status = ..ProductSelecteerder.ZoekKlantRef(pxCriteria,.Result,$$$True)
 	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(StatusCode,"Fout bij ophalen ProductID via Criteria(KlantID en PakketReferentie)")
 	
 	#dim Key As %String = ""	
Index: BL/Prod/Select.cls.xml
===================================================================
diff -u -r37462 -r37648
--- BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 37462)
+++ BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 37648)
@@ -116,16 +116,17 @@
 
 <Method name="ZoekKlantRef">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[Criteria:pxSelectCriteria,&Result:%String]]></FormalSpec>
+<FormalSpec><![CDATA[Criteria:pxSelectCriteria,&Result:%String,ExactMatch:%Boolean=0]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	#dim ID,KLNr,KeepChar,PAKRef,PRNr,Stock,StockType,ZoekKey
 	Set ZoekKey=Criteria.Zoek
 	Set StockType=Criteria.StockType
 	Set ZoekKey=$TR(ZoekKey," ","*")
 	Set KLNr=Criteria.KLNr
 	Quit:(KLNr="") $$$ERROR($$$GeneralError,"Klantnummer is verplicht bij criteria van ZoekKlantRef")
 	Do ..TransformToPattern(ZoekKey,.%PatternKey,.KeepChar)
-	Set BeginKey=$E($$TRIMN^vhRtn1($P($P(ZoekKey,"*"),"?")),1,3)
+	Set:ExactMatch %PatternKey = $extract(%PatternKey,3,*-2)
 	Set ID=""
 	For  Set ID=$O(^PAKKET("IK",KLNr,ID)) Quit:(ID="")  Do
 	. Set %Key=$ZSTRIP(ID,"*P",,KeepChar)