Index: WS/TAPI/Router.cls.xml
===================================================================
diff -u -r49895 -r50378
--- WS/TAPI/Router.cls.xml	(.../Router.cls.xml)	(revision 49895)
+++ WS/TAPI/Router.cls.xml	(.../Router.cls.xml)	(revision 50378)
@@ -171,7 +171,7 @@
 	. Kill Sort
 	. Set (ObjType,ObjRef,PersRef)=""
 	. For  Set ObjType=$O(^TAPI("T",CLIP,ObjType)) Quit:ObjType=""  Do
-	. . Set Value1=$S(ObjType="L":1000,1:2000)
+	. . Set Value1=$S(ObjType="L":3000,ObjType="CRM":1000,1:2000)
 	. . For  Set ObjRef=$O(^TAPI("T",CLIP,ObjType,ObjRef)) Quit:ObjRef=""  Do
 	. . . For  Set PersRef=$O(^TAPI("T",CLIP,ObjType,ObjRef,PersRef)) Quit:PersRef=""  Do
 	. . . . Set Sort(Value1+$S(PersRef="*":200,PersRef?1.N:100,1:300)+$I(Sort))=$LB(ObjType,ObjRef,PersRef,^TAPI("T",CLIP,ObjType,ObjRef,PersRef))
Index: AX/Uitgaand/VKP/KlantContact/impl/TelefoonImportTAPI.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/KlantContact/impl/TelefoonImportTAPI.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/KlantContact/impl/TelefoonImportTAPI.cls.xml	(revision 50378)
@@ -0,0 +1,154 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.KlantContact.impl.TelefoonImportTAPI">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FilePad">
+<Type>%String</Type>
+</Property>
+
+<Property name="Reader">
+<Type>TECH.FileReader</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+D ##class(AX.Uitgaand.VKP.KlantContact.impl.TelefoonImportTAPI).%New().Verwerk()</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..FilePad="\\notes01\Shared\P V\Contactpersonen met telefoonnummers.txt"
+	Kill ^||TAPICache
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<Implementation><![CDATA[
+	Do ..BepaalReader()
+	Do ..InlezenData()
+	;zw ^||TAPICache	
+	Do ..ToevoegenTest()
+	Do ..VerwijderCRM()
+	Do ..ToevoegenCRM()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalReader">
+<Implementation><![CDATA[
+	
+	Set ..Reader=##class(TECH.FileReader).%New(..FilePad)
+	Do ..Reader.AddHeaderTranslation(" Volledige naam", "Persoon")
+	Do ..Reader.AddHeaderTranslation("Mobiel professioneel", "GSM")
+	Do ..Reader.AddHeaderTranslation("Telefoon rechtstreeks", "Direct")
+	Do ..Reader.AddHeaderTranslation("Telefoon algemeen", "Algemeen")
+	Do ..Reader.AddHeaderTranslation("Klantnummer (Account) (Account)", "KlantNr")
+	Do ..Reader.AddHeaderTranslation("Account", "KlantNaam")
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenTest">
+<Implementation><![CDATA[
+ 
+	Kill ^TAPI("T","0498440207 ")
+	Do ..Opslaan(3,"+498440207",4682,"Van Hoecke","Paul Verhulst")
+]]></Implementation>
+</Method>
+
+<Method name="InlezenData">
+<Implementation><![CDATA[
+	While ..Reader.Next()
+	{
+			Set Persoon=..Reader.Data("Persoon")
+			Set GSM=..Reader.Data("GSM")
+			Set Direct=..Reader.Data("Direct")
+			Set Algemeen=..Reader.Data("Algemeen")
+			Set KlantNr=..Reader.Data("KlantNr")
+			Set KlantNaam=..Reader.Data("KlantNaam")
+			Do ..Opslaan(3,GSM,KlantNr,KlantNaam,Persoon)
+			Do ..Opslaan(2,Direct,KlantNr,KlantNaam,Persoon)
+			Do ..Opslaan(1,Algemeen,KlantNr,KlantNaam,"")
+		}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderCRM">
+<Implementation><![CDATA[
+	Set TelNr=$O(^TAPI("T",""))
+	
+	While TelNr'=""
+	{
+		Kill ^TAPI("T",TelNr,"CRM")
+		
+		Set TelNr=$O(^TAPI("T",TelNr))
+		}
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenCRM">
+<Implementation><![CDATA[
+	Set KlantNr=$O(^||TAPICache(""))
+	While KlantNr'=""
+	{
+		Set TelNr=$O(^||TAPICache(KlantNr,""))
+		While TelNr'=""
+		{
+			Set Nivo=$O(^||TAPICache(KlantNr,TelNr,""))
+			While Nivo'=""
+			{
+				Set lbCache=^||TAPICache(KlantNr,TelNr,Nivo)
+				If '$D(^TAPI("T",TelNr,"K",KlantNr))
+				{
+					Set TAPINivo=$S(Nivo=1:"*",1:Nivo)
+					Set ^TAPI("T",TelNr,"CRM",KlantNr,TAPINivo)=$LB($LI(lbCache,4),$LI(lbCache,5))
+				}
+			 
+				Set Nivo=$O(^||TAPICache(KlantNr,TelNr,Nivo))
+			}
+			Set TelNr=$O(^||TAPICache(KlantNr,TelNr))
+		}
+		Set KlantNr=$O(^||TAPICache(KlantNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Opslaan">
+<FormalSpec>Nivo:%Integer,OrigTelefoonNr:%String,KlantNr:%String,KlantNaam:%String,Persoon:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set TelefoonNr=..ConvertTelefoonNr(OrigTelefoonNr)_" "
+	Quit:TelefoonNr'?6.N1" "
+	Set KlantNr=..ConvertKlant(KlantNr)
+	Quit:'KlantNr
+	Set OldNivo=$O(^||TAPICache(KlantNr, TelefoonNr,""))
+	If OldNivo<Nivo
+	{
+		Set ^||TAPICache(KlantNr,TelefoonNr,Nivo)=$LB(Nivo, OrigTelefoonNr, KlantNr, KlantNaam, Persoon)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ConvertKlant">
+<FormalSpec>KlantNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set KlantNr=$$TRIMN^vhRtn1(KlantNr)
+	Quit:KlantNr'?5N ""
+	Set:$E(KlantNr)="0" $E(KlantNr)=""
+	Quit:'$D(^KK1(KlantNr)) ""
+	Quit KlantNr
+]]></Implementation>
+</Method>
+
+<Method name="ConvertTelefoonNr">
+<FormalSpec>TelefoonNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:$E(TelefoonNr)="+" $E(TelefoonNr)="00"
+	Set:$E(TelefoonNr,1,4)="0032" $E(TelefoonNr,1,4)="0"
+	Set TelefoonNr=$$TRIMN^vhRtn1(TelefoonNr)
+	Quit TelefoonNr
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>