Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r2165 -r2177
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 2165)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 2177)
@@ -43,11 +43,12 @@
 <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))
+	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_"*"
 	
@@ -60,6 +61,7 @@
 		 	If (ExactBegin){
 				Set KlantNaamIndexBegin = $Extract(KlantNaamIndex,1,$Length(GestripteZoekTerm))
 				/// Als het begin niet overeenkomt, niet toevoegen.
+				/// (RV-JCL) Als het begin overeenkomt, toevoegen
 				If (KlantNaamIndexBegin = GestripteZoekTerm){
 					Set VoegToe = 1
 				}