Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r1075 -r1125
--- DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1075)
+++ DOM/CRM/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 1125)
@@ -243,6 +243,9 @@
 			Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen2Node) = ..Opmerkingen2
 			Set ^KKL(..GeefKlantIndexKKL(),..#Opmerkingen2Node) = ..Opmerkingen2	
 		}
+		
+		/// Event raisen dat klant gewijzigd is.
+		Do ##class(APPS.CRM.KlantService).RaiseWijzigEvent(..KlantNummer)
 	}
 	Quit $$$OK
 ]]></Implementation>
Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r1094 -r1125
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1094)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1125)
@@ -89,15 +89,15 @@
 <Method name="VulKlantWijzigingenBestandAan">
 <Description>
 Maak een xml bestand met de gewijzigde klant</Description>
-<FormalSpec>KlantNr:%Integer,Bestandsnaam=""</FormalSpec>
+<FormalSpec>KlantNr:%Integer,Bestandsnaam:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	$$$TECHErrorTrapOn
+	//$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(KlantNr)
 	
 	if '$length(Bestandsnaam) {
 		Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.CRM.KlantService.KlantBestandIncrementeel")
-		Set Datum = ""_$zd($h,3)
+		Set Datum = $zd($h,3)
 		set Bestandsnaam = $$Replace^vhLib.String(Bestandsnaam,"::datum::",Datum)
 	}
 	Set dtoKlantBestand = ##class(APPS.CRM.dto.KlantBestand).%New()
@@ -119,14 +119,14 @@
 		}
 	}	
 	
-	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
-	Set Klant = ToeleveringAPI.GeefKlant(KlantNr)
-	Set dtoKlantId = ..Klant2KlantId(Leverancier)			
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	Set Klant = KlantAPI.GeefKlant(KlantNr)
+	Set dtoKlantId = ..Klant2KlantId(Klant)			
 	Do dtoKlantBestand.Klanten.Insert(dtoKlantId)		
 	
 	set KlantBestand = ..ExportXML(dtoKlantBestand, Bestandsnaam)
 	
-	$$$TECHErrorTrapOff
+	//$$$TECHErrorTrapOff
 	Quit KlantBestand
 ]]></Implementation>
 </Method>
Index: DOM/LEV/Leverancier.cls.xml
===================================================================
diff -u -r1090 -r1125
--- DOM/LEV/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 1090)
+++ DOM/LEV/Leverancier.cls.xml	(.../Leverancier.cls.xml)	(revision 1125)
@@ -5,6 +5,17 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<UDLText name="T">
+<Content><![CDATA[
+/**
+/ Opmerking JBL
+/ Indien in de toekost een leverancier gewijzigd, gecreeerd, gedelete wordt via de ToeleveringAPI
+/ Moet gezorgd worden dat de wijziging-event wordt geraised zodat de xml-lijst up to date blijft 
+/ voor vhintra opvragen van leveranciers
+/**/
+]]></Content>
+</UDLText>
+
 <Method name="GeefAdres">
 <Abstract>1</Abstract>
 <ReturnType>DOM.common.Adres</ReturnType>
Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml
===================================================================
diff -u -r1099 -r1125
--- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 1099)
+++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 1125)
@@ -99,7 +99,10 @@
 	/// Logging toevoegen dat klant geopend is
 	Do DLOGNEW^LOG("KL",KlantNummer)
 	
-	Do WLIP^vhDBG(127,"Klant aangemaakt met nummer : "_KlantNummer)
+	/// Event raisen dat klant aangemaakt is.
+	Do ##class(APPS.CRM.KlantService).RaiseMaakEvent(KlantNummer)
+	
+	
 	/// Geef gecreerde klant terug
 	Quit Klant
 ]]></Implementation>