Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r1090 -r1091
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1090)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1091)
@@ -8,15 +8,15 @@
 s ^TECH.Config.ConfigItemD("DEV","APPS.CRM.KlantService.KlantBestand")=$LB("","\\jbl_xp\share\KLANT_VOLLEDIG.XML")
 s ^TECH.Config.ConfigItemD("DEV","APPS.CRM.KlantService.KlantBestandIncrementeel")=$LB("","\\jbl_xp\share\KLANT_::datum::.XML")
 Do ##class(APPS.CRM.KlantService).InitSubscription()
-in %ZSTART Do ##class(APPS.LEV.LeverancierService).MaakLeverancierBestand() aanroepen
+in %ZSTART Do ##class(APPS.CRM.KlantService).MaakKlantBestand() aanroepen
 Eventueel
 	via ^cAB1 => DMA => instellen bij wijzigen/maken/verwijderen via admin dat de event worden getriggerd]]></Description>
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="GeefLeverancierLijst">
+<Method name="GeefKlantLijst">
 <Description>
 Lijst van DOM.CRM.dto.KlantId</Description>
 <ReturnType>%ListOfObjects</ReturnType>
@@ -71,7 +71,7 @@
 	Set KlantService = ##class(APPS.CRM.KlantService).%New()
 	Set dtoKlantBestand = ##class(APPS.CRM.dto.KlantBestand).%New()
 	Set dtoKlantBestand.Klanten = ##class(%ListOfObjects).%New()
-	Set Klanten = KlantService.GeefLeverancierLijst()
+	Set Klanten = KlantService.GeefKlantLijst()
 	Set KlantIt = ##class(TECH.ListIterator).%New(Klanten)
 	While KlantIt.HasNext() {
 		Do dtoKlantBestand.Klanten.Insert(KlantIt.Next())
@@ -86,7 +86,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VulLevWijzigingenBestandAan">
+<Method name="VulKlantWijzigingenBestandAan">
 <Description>
 Maak een xml bestand met de gewijzigde klant</Description>
 <FormalSpec>KlantNr:%Integer,Bestandsnaam=""</FormalSpec>
@@ -151,8 +151,8 @@
 <Implementation><![CDATA[
 	
 	If ((Event.Type = "KlantWijzigEvent") || (Event.Type = "KlantMaakEvent") || (Event.Type = "KlantVerwijderEvent")){
-		Set LeverancierService = ##class(APPS.CRM.KlantService).%New()
-		Do LeverancierService.VulLevWijzigingenBestandAan(Event.Data.KlantNr)
+		Set KlantService = ##class(APPS.CRM.KlantService).%New()
+		Do KlantService.VulKlantWijzigingenBestandAan(Event.Data.KlantNr)
 	}
 ]]></Implementation>
 </Method>
@@ -161,7 +161,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNr:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set EventData = ##class(TECH.Events.LeverancierEventData).%New(KlantNr)
+	Set EventData = ##class(TECH.Events.KlantEventData).%New(KlantNr)
 	Set Event = ##class(TECH.Events.KlantWijzigEvent).%New(EventData)
 	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
 ]]></Implementation>
@@ -171,7 +171,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNr:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set EventData = ##class(TECH.Events.LeverancierEventData).%New(KlantNr)
+	Set EventData = ##class(TECH.Events.KlantEventData).%New(KlantNr)
 	Set Event = ##class(TECH.Events.KlantVerwijderEvent).%New(EventData)
 	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
 ]]></Implementation>
@@ -181,7 +181,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNr:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set EventData = ##class(TECH.Events.LeverancierEventData).%New(KlantNr)
+	Set EventData = ##class(TECH.Events.KlantEventData).%New(KlantNr)
 	Set Event = ##class(TECH.Events.KlantMaakEvent).%New(EventData)
 	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
 ]]></Implementation>