Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r1160 -r1170
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1160)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1170)
@@ -3,12 +3,12 @@
 <Class name="APPS.CRM.KlantService">
 <Description><![CDATA[
 JBL + 2011-05-02
- 
+
 Bij deploy : 
 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.CRM.KlantService).MaakKlantBestand() aanroepen
+in %ZSTART of andere plaats 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>
@@ -37,7 +37,7 @@
 
 <Method name="Klant2KlantId">
 <Description>
-Converteer een Leverancier in een dto LeverancierId object 	</Description>
+Converteer een Klant naar KlantId dto object</Description>
 <FormalSpec>Klant:DOM.CRM.Klant</FormalSpec>
 <Implementation><![CDATA[
 	Set dtoKlantId = ##class(DOM.CRM.dto.KlantId).%New()
@@ -89,7 +89,7 @@
 <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
@@ -113,15 +113,15 @@
 	/// Indien de klant diezelfde dag al was gewijzigd, de vorige KlantId eruit halen.
 	/// Dit voorkomt ook duplicate data in het xml bestand.
 	/// 
-	For i = 1 : 1 : dtoKlantBestand.Klanten.Count() {
+	For i = dtoKlantBestand.Klanten.Count() : -1 : 1 {
 		If (dtoKlantBestand.Klanten.GetAt(i).Nummer = KlantNr){
 			Do dtoKlantBestand.Klanten.RemoveAt(i)
 		}
 	}	
 	
-	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)
@@ -145,6 +145,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="InitTask">
+<Description>
+Maakt de task aan voor de scheduler van caché, dit moet slechts éénmalig worden uitgevoerd
+Do ##class(APPS.CRM.KlantService).InitTask()</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Task = ##Class(%SYSTEM.Task).%New()
+	Set Task.Name = "MaakKlantBestand"
+	Set Task.Description = "Maak het xml-bestand met alle KlantId's in"
+	Set Task.NameSpace = $zu(5)   ; Assign to namespace
+	Set Task.ExecuteCode = "Do ##class(APPS.CRM.KlantService).MaakKlantBestand()"
+	Set Task.DailyFrequency = 1			;Several times a day
+	Set Task.DailyFrequency = 0		;Once a day
+	Set Task.DailyStartTime = 83100 ; 23h00
+	Set Task.RescheduleOnStart = 1
+	Set Task.ContinueAfterError = 1
+	Set rc = Task.%Save()
+	Quit rc
+]]></Implementation>
+</Method>
+
 <Method name="KlantEventCatcher">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>