Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r1859 -r2165
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1859)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 2165)
@@ -333,6 +333,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsDealer">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..GeefActiviteit() = "DEALER")
+]]></Implementation>
+</Method>
+
+<Method name="IsCommercieelActief">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Actief = 1
+	Set Data = $Piece(..BetalingsGegevens2,"\",10)
+	Set:(Data = "") Actief = 1
+	Set:(Data = 1) Actief = 0
+	
+	Quit Actief
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /************
Index: KLANT6.mac.rou
===================================================================
diff -u -r1026 -r2165
--- KLANT6.mac.rou	(.../KLANT6.mac.rou)	(revision 1026)
+++ KLANT6.mac.rou	(.../KLANT6.mac.rou)	(revision 2165)
@@ -15,37 +15,56 @@
 SEL2 Do:'$L(DefInp)
  . If NoDealerAndConsument Set AfterPrompt=" Zonder dealer & consument (druk +[] voor alles)"
  . Else  Set AfterPrompt=" Met dealer & consument (druk +[] voor beperking)"
- . Set Kl=$$ASK^vhINP(Titel,20,"","Ingave klant dmv. naam of nummer",,,AfterPrompt)
+ . Set VorigeKlantZoekTerm = $G(%VorigeKlantZoekTerm)
+ . Set Feedback = ""
+ . If $G(%HadVorigeZoekGeenResultaat) Set Feedback = " Geen klanten gevonden."
+ . Set Kl=$$ASK^vhINP(Titel,20,VorigeKlantZoekTerm,"Ingave klant dmv. naam of nummer."_Feedback,,,AfterPrompt)
+ . Set %HadVorigeZoekGeenResultaat = 0
+ . Set %VorigeKlantZoekTerm = Kl
  Set DefInp=""
- If Kl="+" Set NoDealerAndConsument='NoDealerAndConsument Goto SEL2
+ If Kl="+" Set NoDealerAndConsument='NoDealerAndConsument Set %VorigeKlantZoekTerm = "" Goto SEL2
  Quit:Kl="-"!(Kl=".") Kl
+ 
+ New ZoekBeginExact
+ Set %OrinineleKlantZoekTerm = Kl
+ Set ZoekBeginExact = 1
+ If Kl["*" {
+	Set ZoekBeginExact = 0
+ }
+  
  Set Kl=$$UPTRIMAN^vhRtn1(Kl)
  Goto SEL2:Kl=""
  If Kl=""!zb Do LIST("") Goto SEL2:'KLNr,EXIT
- If Kl?4.5N,$D(^KK1(Kl)) Set KLNr=Kl Goto EXIT:$$CHECK(Kl,IsAkt) Set KLNr="" Goto SEL2
- Set TKl=$O(^KKL(Kl))
- If $E(TKl,1,$L(Kl))'=Kl Goto SEL2
-SEL3 If $E($O(^KKL(TKl)),1,$L(Kl))'=Kl Set KLNr=+^KKL(TKl,0) Goto EXIT:$$CHECK(KLNr,IsAkt,NoDealerAndConsument) Set KLNr="" Goto SEL2:'NoDealerAndConsument Set NoDealerAndConsument=0 Goto SEL3
+ If Kl?4.5N,$D(^KK1(Kl)) Set KLNr=Kl Goto EXIT:($$CHECK(Kl,IsAkt)) Set KLNr="" Goto SEL2
  Do LIST(Kl)
  Goto SEL2:'KLNr,EXIT
 EXIT Quit KLNr
  
-CHECK(KLNr,IsAkt,NoDealerAndConsument) 
- Quit:'$D(^KK1(KLNr)) 0
- Quit:$P(^KKL(^KK1(KLNr),0),"\",30)=2 0
- If $G(NoDealerAndConsument),+$P(^KKL(^KK1(KLNr),2),D,10) Quit 0 ; Commercieel actief
- If $G(NoDealerAndConsument),$P(^KKL(^KK1(KLNr),1),D,11)="Consument" Quit 0
- If $G(NoDealerAndConsument),$P(^KKL(^KK1(KLNr),1),D,11)="DEALER" Quit 0
- If $G(NoDealerAndConsument),$L(##Class(BL.Derde.Klant.Relaties).DealerVan(KLNr)) Quit 0
- If $G(IsVTW),$IsObject($G(blECToegang)),$IsObject($G(derdeECToegang)),'blECToegang.CheckKlant(KLNr,derdeECToegang) Quit 0
+ /// Klant As DOM.CRM.Klant, NoDealerAndConsument As %Boolean
+CHECK(KlantID, IsAkt, NoDealerAndConsument)
+ Set Klant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(KlantID)
+ 
+ If (Klant.GeefActiefStatus() = ##class(DOM.CRM.enu.ActiefStatus).Verwijderd()) Quit 0
+ If ($G(NoDealerAndConsument)){
+	If ('Klant.IsCommercieelActief()) Quit 0
+	If (Klant.IsConsument()) Quit 0
+	If (Klant.IsDealer()) Quit 0
+	If ($L(##Class(BL.Derde.Klant.Relaties).DealerVan(Klant.GeefNummer()))) Quit 0
+ } 
+ If $G(IsVTW),$IsObject($G(blECToegang)),$IsObject($G(derdeECToegang)),'blECToegang.CheckKlant(Klant.GeefNummer(),derdeECToegang) {
+	Quit 0	 
+ }
  Quit:'IsAkt 1
- Quit '$P(^KKL(^KK1(KLNr),2),"\",10) 
+ Quit Klant.IsCommercieelActief()
  
+ 
 LIST(Kode)
  New Y,X,Fetch,LD
-LIST2 Set TKl=Kl
+LIST2 
+ Set TKl=Kl
  Do:$L(Kode) FETCH(Kode)
  If '$D(Fetch),NoDealerAndConsument Set NoDealerAndConsument='NoDealerAndConsument Kill Y,X,Fetch,LD Goto LIST2
+ 
  Set TKl=""
  If '$L(Kl)  Set Kl="ZZZZZ"
  X "Set Y(0)=$$MORE(0,3)"
@@ -56,18 +75,25 @@
  If $G(X)="+" Set NoDealerAndConsument='NoDealerAndConsument Kill Y,X,Fetch,LD Goto LIST2
  Quit
  
-FETCH(Kode) 
- New IsComAct,IsDealer
- For  Set TKl=$O(^KKL(TKl)) Quit:TKl=""!($E(TKl,1,$L(Kl))'=Kl)  Do
- . Quit:'$$CHECK($P(TKl," ",2),IsAkt,NoDealerAndConsument)
- . Set IsComAct=+$P(^KKL(TKl,2),D,10),IsDealer=$P(^KKL(TKl,1),D,11)="DEALER"
- . Set Fetch($P(TKl," ")_IsComAct_IsDealer_" "_$P(TKl," ",2))=TKl
+FETCH(ZoekTerm) 
+  Set %HadVorigeZoekGeenResultaat = 1
+  Set KlantService = ##class(APPS.CRM.KlantService).%New()
+  Set KlantIt = KlantService.ZoekKlantOpNaam(%OrinineleKlantZoekTerm,ZoekBeginExact)
+  Set Teller = 1
+  Set %KlantLijst = ##class(%ArrayOfDataTypes).%New()
+  While KlantIt.HasNext() {
+	Set %HadVorigeZoekGeenResultaat = 0
+	Set Klant = KlantIt.Next()	
+	If ($$CHECK(Klant.GeefNummer(),IsAkt,NoDealerAndConsument)){		
+		Set FetchID = $P(Klant.GeefKlantIndexKKL()," ")_Klant.IsCommercieelActief()_Klant.IsDealer()_" "_Klant.GeefNummer()
+		Set Fetch(FetchID)=Klant.GeefKlantIndexKKL()
+		Do %KlantLijst.SetAt(Klant.GeefNummer(),Teller)
+		Set Teller = Teller + 1
+	}
+  } 
  Quit
- 
 MORE(Max,Len,Ref) 
- ;If Max>200 w *7 Quit Max
  Set Count=0
  If Max,TKl="" Quit Max
  For  Set TKl=$O(Fetch(TKl)) Quit:TKl=""  Set Count=Count+1,Y(Max+Count)=$P(Fetch(TKl)," ",2) Quit:Count>Len
- Set:$E(TKl,1,$L(Kl))'=Kl TKl=""
  Quit Max+Count
\ No newline at end of file
Index: DOM/CRM/impl/KlantImpl.cls.xml
===================================================================
diff -u -r1841 -r2165
--- DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 1841)
+++ DOM/CRM/impl/KlantImpl.cls.xml	(.../KlantImpl.cls.xml)	(revision 2165)
@@ -245,6 +245,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsCommercieelActief">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.IsCommercieelActief()
+]]></Implementation>
+</Method>
+
+<Method name="IsDealer">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..Klant.IsDealer()
+]]></Implementation>
+</Method>
+
 <Method name="ZetActiefStatus">
 <FormalSpec>Status:DOM.CRM.enu.ActiefStatus</FormalSpec>
 <Implementation><![CDATA[	Do ..Klant.ZetActiefStatus(Status)
Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r1866 -r2165
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 1866)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2165)
@@ -62,5 +62,73 @@
 <Implementation><![CDATA[	Quit $ZCVT(String,"I","HTML")
 ]]></Implementation>
 </Method>
+
+<Method name="MatchesPattern">
+<Description>
+Nagaan of Input match aan het opgegeven pattern.
+Volgende mogelijkheden
+* : 0 of meer characters
+? : exact 1 character
+
+Voorbeelden
+w ##class(TECH.StringUtils).MatchesWildCard("abcmqsldkfmlsqkfjdef","abc*def")
+w ##class(TECH.StringUtils).MatchesWildCard("adm","a?m")
+w ##class(TECH.StringUtils).MatchesPattern("a1mqsfd","a?m*")
+</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Input:%String,Pattern:%String,CaseSensitive:%Boolean=0</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	new tmpPattern, PatternOK , Code
+	If ('CaseSensitive){
+		set Input = $zconvert(Input,"U"),Pattern=$zconvert(Pattern,"U")
+	}
+	set tmpPattern = ..WildCardToPattern(Pattern)
+	set Code = "set PatternOK = Input?"_tmpPattern	xecute Code
+	quit PatternOK
+]]></Implementation>
+</Method>
+
+<Method name="WildCardToPattern">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WildCard:%String,StartWith:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	 Set NeedToEnd=0,Pattern="",EscapeChar=0
+
+	 If $E(WildCard)="§" Quit $E(WildCard,2,999) ; Zelf patternmatch ingegeven ipv van wildcard
+
+	 For Pos=1:1:$L(WildCard) Do
+	 . Set CurChar=$E(WildCard,Pos)
+	 . If (CurChar="\") && 'EscapeChar Do  Quit
+	 ..  Set EscapeChar=1
+	 . Else  If (CurChar="*") && 'EscapeChar Do
+	 ..  If NeedToEnd Do
+	 ...   Set Pattern=Pattern_""""
+	 ...   Set NeedToEnd=0
+	 ..  Set Pattern=Pattern_".E"
+	 . Else  If (CurChar="?") && 'EscapeChar Do
+	 ..  If NeedToEnd Do
+	 ...   Set Pattern=Pattern_""""
+	 ...   Set NeedToEnd=0
+	 ..  Set Pattern=Pattern_"1E"
+	 . Else  Do
+	 ..  If 'NeedToEnd Do
+	 ...   Set NeedToEnd=1
+	 ...  Set Pattern=Pattern_"1"""_CurChar
+	 ..  Else  Do
+	 ...  Set Pattern=Pattern_CurChar
+	 ..  Set EscapeChar=0
+
+	 If NeedToEnd Do
+	 . Set Pattern=Pattern_""""
+
+	 If $G(StartWith) Do
+	 . Set PatternLen=$L(Pattern)
+	 . Set:($E(Pattern,PatternLen-1,PatternLen)'=".E") Pattern=Pattern_".E"
+
+	 Quit Pattern
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r1660 -r2165
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1660)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 2165)
@@ -35,6 +35,59 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekKlantOpNaam">
+<Description>
+Zoeken op klant naam, mag een substring zijn.
+Indien exact gezocht wordt naar begin (oorspronkelijke feature), kan dit door 'ExactBegin' aan te zetten.
+Return : Iterator DOM.CRM.Klant</Description>
+<FormalSpec>ZoekTerm:%String,ExactBegin:%Boolean=0</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	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="") SubZoekTerm = Deel2
+	Set ZoekTerm = ZoekTerm_"*"
+	
+	Set KlantNaamIndex = $O(^INDEX("K","KL",102,""))
+	While (KlantNaamIndex '= "")
+ 	{
+	 	Set VoegToe = 0
+	 	
+	 	If KlantNaamIndex[GestripteZoekTerm {
+		 	If (ExactBegin){
+				Set KlantNaamIndexBegin = $Extract(KlantNaamIndex,1,$Length(GestripteZoekTerm))
+				/// Als het begin niet overeenkomt, niet toevoegen.
+				If (KlantNaamIndexBegin = GestripteZoekTerm){
+					Set VoegToe = 1
+				}
+		 	}Else{
+			 	If (##class(TECH.StringUtils).MatchesPattern(KlantNaamIndex,ZoekTerm)){
+				 	Set VoegToe = 1
+				}
+			 }
+	 	}Else{
+		 	If (KlantNaamIndex[SubZoekTerm){	
+			 	If (##class(TECH.StringUtils).MatchesPattern(KlantNaamIndex,ZoekTerm)){
+				 	Set VoegToe = 1
+			 	}
+		 	}
+		 }
+	 	
+		If VoegToe {
+				Set KlantID = $Piece(KlantNaamIndex," ",2)
+				Set Klant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(KlantID)
+				Do KlantLijst.Insert(Klant) 	
+		}
+	 	Set KlantNaamIndex = $O(^INDEX("K","KL",102,KlantNaamIndex))
+ 	}	
+	Set KlantIt = ##class(TECH.ListIterator).%New(KlantLijst)
+	Quit KlantIt
+]]></Implementation>
+</Method>
+
 <Method name="Klant2KlantId">
 <Description>
 Converteer een Klant naar KlantId dto object</Description>
Index: vhUnitTest/APPS/CRM/TestKlantService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/CRM/TestKlantService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/CRM/TestKlantService.cls.xml	(revision 2165)
@@ -0,0 +1,102 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.CRM.TestKlantService">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.CRM.TestKlantService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	 Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	
+	Set KlantObject = ##class(DOM.CRM.dto.Klant).%New()
+	Set KlantObject.KlantNummer = 1
+	Set KlantObject.KlantNaam = "Unit2Test Klant"
+	Set KlantObject.Toenaam = "Jos"
+	Set KlantObject.Aanspreking = "Dhr"
+	Set KlantObject.Taal = "N"
+	Set KlantObject.Telefoon1 = "09/333.33.33"
+	Set KlantObject.Email = "UnitZoekKlantTest@vanhoecke.be"
+	Set KlantObject.Adres = ##class(DOM.common.impl.Adres).%New()
+	Set KlantObject.Adres.Straat = "Industriepark 7"
+	Set KlantObject.Adres.Postcode = "8700"
+	Set KlantObject.Adres.Woonplaats = "Sint Niklaas"
+	Set KlantObject.Adres.LandNr = 1019
+	Set KlantObject.BTWNummer = "123456"
+	
+	Set Klant = KlantAPI.MaakKlant(KlantObject,##class(DOM.CRM.enu.TypeTemplateKlant).Consument())
+	
+	Set ..KlantID = Klant.GeefNummer()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestZoekKlantOpNaam">
+<Implementation><![CDATA[
+		
+		Set MoetVinden = 1
+		Set MoetNietVinden = 0
+		
+		Do ..ZoekKlantOpNaam("Unit*Test",MoetVinden)
+		Do ..ZoekKlantOpNaam("*Test",MoetVinden)
+		Do ..ZoekKlantOpNaam("Unit2Test Klant",MoetVinden)
+		Do ..ZoekKlantOpNaam("Unit2TestKlant",MoetVinden)
+		Do ..ZoekKlantOpNaam("*2*Klant",MoetVinden)
+		Do ..ZoekKlantOpNaam("Unit2",MoetVinden)		
+		
+		Do ..ZoekKlantOpNaam("Test*",MoetNietVinden)
+		Do ..ZoekKlantOpNaam("Trala",MoetNietVinden)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekKlantOpNaam">
+<FormalSpec>Pattern:%String,MoetVinden:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+		Set KlantService = ##class(APPS.CRM.KlantService).%New()
+		
+		Set KlantIt = KlantService.ZoekKlantOpNaam(Pattern)
+		
+		Set HeeftKlantGevonden = 0
+		
+		While (KlantIt.HasNext()){
+			Set Klant = KlantIt.Next()
+			If (Klant.GeefNummer() = ..KlantID){
+				Set HeeftKlantGevonden = 1
+				Do $$$AssertEquals(Klant.GeefEmail(),"UnitZoekKlantTest@vanhoecke.be","Email adres van klant is correct.")
+			}	
+		}
+		
+		If (MoetVinden){
+			Do $$$AssertTrue(HeeftKlantGevonden,"Klant is gevonden via de klantzoek. Pattern : "_Pattern)		
+		}Else{
+			Do $$$AssertFalse(HeeftKlantGevonden,"Klant is niet gevonden via de klantzoek. Pattern : "_Pattern)		
+		}
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	Set Klant = KlantAPI.GeefKlant(..KlantID)
+	Set KlantIndex = Klant.GeefKlantIndexKKL()
+	
+	Do Klant.VerwijderIndexen()
+	
+	Kill ^DKL("K","KL.A",..KlantID)
+	Kill ^KKL(KlantIndex)
+	Kill ^KK1(..KlantID)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/CRM/Klant.cls.xml
===================================================================
diff -u -r1841 -r2165
--- DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1841)
+++ DOM/CRM/Klant.cls.xml	(.../Klant.cls.xml)	(revision 2165)
@@ -232,11 +232,21 @@
 <FormalSpec>URL:%String</FormalSpec>
 </Method>
 
+<Method name="IsCommercieelActief">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
 <Method name="IsConsument">
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
+<Method name="IsDealer">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
 <Method name="MaakPersoon">
 <Abstract>1</Abstract>
 <FormalSpec>dtoPersoon:DOM.common.dto.Persoon</FormalSpec>