Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml
===================================================================
diff -u -r966 -r994
--- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 966)
+++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 994)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-28 08:43:59">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-04 10:48:58">
 <Class name="DOM.CRM.impl.DataM.DataMKlantAPI">
 <IncludeCode>TECH.Error,BL.Derde.KlantSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.CRM.KlantAPI,%RegisteredObject</Super>
-<TimeChanged>62178,31438.324418</TimeChanged>
+<TimeChanged>62185,38943.521443</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="Delimiter">
@@ -69,7 +69,9 @@
 	Set $Piece(Data(0),..#Delimiter,7) = dtoKlant.Adres.GeefGemeente()
 	Set $Piece(Data(0),..#Delimiter,8) = dtoKlant.Adres.GeefLandNr()
 	Set $Piece(Data(0),..#Delimiter,13) = dtoKlant.Telefoon1
-	Set $Piece(Data(0),..#Delimiter,16) = dtoKlant.BTWNummer
+	If (dtoKlant.BTWNummer '= ""){
+		Set $Piece(Data(0),..#Delimiter,16) = dtoKlant.BTWNummer
+	}
 	Set $Piece(Data(0),..#Delimiter,28) = $h
 	Set $Piece(Data(0),..#Delimiter,29) = "SYS"
 	Set $Piece(Data(0),..#Delimiter,31) = KlantIndex
@@ -79,7 +81,7 @@
 	
 	Set $Piece(Data(2),..#Delimiter,19) = dtoKlant.Email
 	
-	Set $Piece(Data(5),..#Delimiter,5) = dtoKlant.Opmerking12
+	Set $Piece(Data(1),..#Delimiter,4) = dtoKlant.Opmerking1
 	
 	/// Data wegschrijven in global DKL
 	for i = 0 : 1 : 8 Set ^DKL("K","KL.A",KlantNummer,i)=Data(i)
@@ -132,6 +134,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantViaProtimeNrOud">
+<Description>
+Zoekt tussen de klanten de medewerkers van VanHoecke en Halux
+Dit op basis van het PersNr vanuit ProTime dat kan worden opgegeven.
+Als dit niet is opgegeven, geeft hij alle medewerkers terug.</Description>
+<FormalSpec>ProTimeNr:%Integer</FormalSpec>
+<ReturnType>DOM.CRM.Klant</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Klant = ""
+	Set Query="Derde.Klant.Klant.GeefMedewerkerViaProTimeNrOud"
+	Set RS=##class(%ResultSet).%New(Query)
+	Set tmpStatus = RS.Execute(ProTimeNr)
+	Quit:($$$ISERR(tmpStatus)) 
+	If (RS.Next())
+	{
+		/// Werknemer bestaat reeds als klant
+		Set Klant = ..GeefKlant(RS.Data("ID"))
+	}
+	Quit Klant
+]]></Implementation>
+</Method>
+
 <Method name="GeefTemplateId">
 <Description>
 Ophalen van template uit ^KBA("%A",1,"KL")</Description>
@@ -163,5 +188,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1751233263"/>
+<Checksum value="1350922179"/>
 </Export>