Index: vhUnitTest/APPS/CRM/TestKlantService.cls.xml
===================================================================
diff -u -r2165 -r2178
--- vhUnitTest/APPS/CRM/TestKlantService.cls.xml	(.../TestKlantService.cls.xml)	(revision 2165)
+++ vhUnitTest/APPS/CRM/TestKlantService.cls.xml	(.../TestKlantService.cls.xml)	(revision 2178)
@@ -50,7 +50,8 @@
 		Do ..ZoekKlantOpNaam("Unit2Test Klant",MoetVinden)
 		Do ..ZoekKlantOpNaam("Unit2TestKlant",MoetVinden)
 		Do ..ZoekKlantOpNaam("*2*Klant",MoetVinden)
-		Do ..ZoekKlantOpNaam("Unit2",MoetVinden)		
+		Do ..ZoekKlantOpNaam("Unit2",MoetVinden)	
+		Do ..ZoekKlantOpNaam("*2*Kla*nt",MoetVinden)	
 		
 		Do ..ZoekKlantOpNaam("Test*",MoetNietVinden)
 		Do ..ZoekKlantOpNaam("Trala",MoetNietVinden)
Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r2177 -r2178
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 2177)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 2178)
@@ -43,13 +43,11 @@
 <FormalSpec>ZoekTerm:%String,ExactBegin:%Boolean=0</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	; (RV-JCL) ik zou de lijst teruggeven en niet rechtstreeks een iterator
 	Set KlantLijst = ##class(%ListOfObjects).%New()
 	Set ZoekTerm = $Translate(ZoekTerm," ","*")
 	Set GestripteZoekTerm = $$UPTRIMAN^vhRtn1(ZoekTerm)
-	Set SubZoekTerm = $$UPTRIMAN^vhRtn1($Piece(ZoekTerm,"*")) 
-	Set Deel2 = $$UPTRIMAN^vhRtn1($Piece(ZoekTerm,"*",2)) ; (RV-JCL) wat met meerdere D*IL*BER* ?
-	Set:(SubZoekTerm="") SubZoekTerm = Deel2
+	
+	
 	Set ZoekTerm = ZoekTerm_"*"
 	
 	Set KlantNaamIndex = $O(^INDEX("K","KL",102,""))
@@ -60,8 +58,7 @@
 	 	If KlantNaamIndex[GestripteZoekTerm {
 		 	If (ExactBegin){
 				Set KlantNaamIndexBegin = $Extract(KlantNaamIndex,1,$Length(GestripteZoekTerm))
-				/// Als het begin niet overeenkomt, niet toevoegen.
-				/// (RV-JCL) Als het begin overeenkomt, toevoegen
+				/// Als het begin overeenkomt, dan toevoegen.
 				If (KlantNaamIndexBegin = GestripteZoekTerm){
 					Set VoegToe = 1
 				}
@@ -70,7 +67,12 @@
 				 	Set VoegToe = 1
 				}
 			 }
-	 	}Else{
+	 	}Else{		 	
+			/// Een SubZoekTerm instellen, hierop wordt eerst een contains mee gedaan, daarna pas een Matches Pattern
+			/// Snelheidswinst.
+			Set SubZoekTerm = $$UPTRIMAN^vhRtn1($Piece(ZoekTerm,"*")) 
+			Set:(SubZoekTerm="") SubZoekTerm = $$UPTRIMAN^vhRtn1($Piece(ZoekTerm,"*",2))
+			
 		 	If (KlantNaamIndex[SubZoekTerm){	
 			 	If (##class(TECH.StringUtils).MatchesPattern(KlantNaamIndex,ZoekTerm)){
 				 	Set VoegToe = 1