Index: JBL_KlantService.prj.xml
===================================================================
diff -u -r1090 -r1126
--- JBL_KlantService.prj.xml	(.../JBL_KlantService.prj.xml)	(revision 1090)
+++ JBL_KlantService.prj.xml	(.../JBL_KlantService.prj.xml)	(revision 1126)
@@ -1,23 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="JBL_KlantService" LastModified="2011-05-03 08:46:37">
+<Project name="JBL_KlantService" LastModified="2011-05-10 13:18:31">
   <Items>
     <ProjectItem name="APPS.CRM.KlantService" type="CLS"/>
     <ProjectItem name="APPS.CRM.dto.KlantBestand" type="CLS"/>
-    <ProjectItem name="APPS.LEV.LeverancierService" type="CLS"/>
-    <ProjectItem name="APPS.LEV.dto.LeverancierActiefStatus" type="CLS"/>
-    <ProjectItem name="APPS.LEV.dto.LeverancierBestand" type="CLS"/>
-    <ProjectItem name="APPS.LEV.impl.ConvertAPPStoDOMenu" type="CLS"/>
-    <ProjectItem name="APPS.LEV.impl.ConvertDOMtoAPPSenu" type="CLS"/>
     <ProjectItem name="DOM.CRM.Klant" type="CLS"/>
     <ProjectItem name="DOM.CRM.KlantAPI" type="CLS"/>
-    <ProjectItem name="DOM.CRM.dto.Klant" type="CLS"/>
     <ProjectItem name="DOM.CRM.dto.KlantId" type="CLS"/>
     <ProjectItem name="DOM.CRM.enu.ActiefStatus" type="CLS"/>
-    <ProjectItem name="DOM.LEV.Leverancier" type="CLS"/>
-    <ProjectItem name="DOM.LEV.ToeleveringAPI" type="CLS"/>
-    <ProjectItem name="DOM.LEV.dto.LeverancierId" type="CLS"/>
-    <ProjectItem name="DOM.LEV.enu.LeverancierActiefStatus" type="CLS"/>
+    <ProjectItem name="TECH.Events.KlantEventData" type="CLS"/>
     <ProjectItem name="TECH.Events.KlantMaakEvent" type="CLS"/>
     <ProjectItem name="TECH.Events.KlantVerwijderEvent" type="CLS"/>
     <ProjectItem name="TECH.Events.KlantWijzigEvent" type="CLS"/>
Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r1125 -r1126
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1125)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 1126)
@@ -8,7 +8,7 @@
 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()
@@ -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>
Index: APPS/LEV/LeverancierService.cls.xml
===================================================================
diff -u -r1090 -r1126
--- APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1090)
+++ APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1126)
@@ -150,6 +150,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.LEV.LeverancierService).InitTask()</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Task = ##Class(%SYSTEM.Task).%New()
+	Set Task.Name = "MaakLeverancierBestand"
+	Set Task.Description = "Maak het xml-bestand met alle LeverancierId's in"
+	Set Task.NameSpace = $zu(5)   ; Assign to namespace
+	Set Task.ExecuteCode = "Do ##class(APPS.LEV.LeverancierService).MaakLeverancierBestand()"
+	Set Task.DailyFrequency = 1			;Several times a day
+	Set Task.DailyFrequency = 0		;Once a day
+	Set Task.DailyStartTime = 83400 ; 23h10
+	Set Task.RescheduleOnStart = 1
+	Set Task.ContinueAfterError = 1
+	Set rc = Task.%Save()
+	Quit rc
+]]></Implementation>
+</Method>
+
 <Method name="LeverancierEventCatcher">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>