Index: APPS/StockBeheer/StockRapportService.cls.xml
===================================================================
diff -u -r3405 -r3409
--- APPS/StockBeheer/StockRapportService.cls.xml	(.../StockRapportService.cls.xml)	(revision 3405)
+++ APPS/StockBeheer/StockRapportService.cls.xml	(.../StockRapportService.cls.xml)	(revision 3409)
@@ -77,10 +77,29 @@
 	Do Stream.Write(Body)
 	Do Stream.SaveStream()
 
-	Do SendMiniMail^vhLib("Stockbeheerder<reports@vanhoecke.be>",$LB("isi@vanhoecke.be"),"Stockniveaus documentatieproducten","",,,,,$LB($LB(Stream.Filename)))
+	Do SendMiniMail^vhLib("Stockbeheerder<reports@vanhoecke.be>",$LB("isi@vanhoecke.be","tvb@vanhoecke.be"),"Stockniveaus documentatieproducten","",,,,,$LB($LB(Stream.Filename)))
 	
 	Do ##class(%File).Delete(Stream.Filename)
 ]]></Implementation>
 </Method>
+
+<Method name="InitDocuStockRapportTask">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Task = ##Class(%SYSTEM.Task).%New()
+	Set Task.Name = "Docu stock rapport (maandelijks)"
+	Set Task.Description = "Mailen van een rapport met de stockniveaus van documentatieproducten (maandelijks)"
+	Set Task.NameSpace = $zu(5) ; Assign to namespace
+	Set Task.ExecuteCode = "Do ##class(APPS.common.KlantKost.impl.KlantKostService).%New().BerekenKlantKostenVorigeMaand()"
+	Set Task.TimePeriod=2			;Monthly
+	Set Task.TimePeriodEvery=1		;Every Month
+	Set Task.TimePeriodDay=1 ;First day of the month
+	Set Task.DailyStartTime = 21874 ; 06:04:34
+	Set Task.RescheduleOnStart = 1
+	Set Task.ContinueAfterError = 1
+	Set rc = Task.%Save()
+	Quit rc
+]]></Implementation>
+</Method>
 </Class>
 </Export>