Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop.cls.xml
===================================================================
diff -u -r68896 -r69038
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop.cls.xml	(.../VoorbereidingSpecialWorkshop.cls.xml)	(revision 68896)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop.cls.xml	(.../VoorbereidingSpecialWorkshop.cls.xml)	(revision 69038)
@@ -13,8 +13,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>SpecialWorkshopDataGenerator:APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.SpecialWorkshopDataGenerator="",ToeleveringApi:DOM.AKP.ToeleveringAPI=""</FormalSpec>
+<FormalSpec>SpecialWorkshopDataGenerator:APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.SpecialWorkshopDataGenerator="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Logger:vhLib.Logger="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -24,6 +34,8 @@
 	
 	Set ..SpecialWorkshopDataGenerator = $$$Inject(SpecialWorkshopDataGenerator, ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.SpecialWorkshopDataGenerator).%New())
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop"))
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -36,6 +48,7 @@
 <Implementation><![CDATA[
 	#dim SpecialWorkshopData As %ListOfObjects = ..GenereerSpecialWorkshopData(Lijst)
 	Do ..ExporteerDataNaarXML(SpecialWorkshopData)
+	Do ..ZendMailNaarSpecialWorkshop(SpecialWorkshopData)
 	
 	Quit ##class(APPS.Halux.PPS.dto.UitvoeringResultaat).%New(##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes())
 ]]></Implementation>
@@ -50,11 +63,16 @@
 	
 	Set UitvoeringInfoIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
 	While (UitvoeringInfoIterator.HasNext()) {
-		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo = UitvoeringInfoIterator.Next()
-		
-		#dim SpecialWorkshopData As APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData = ..SpecialWorkshopDataGenerator.GenereerSpecialWorkshopData(UitvoeringInfo)
-		Do SpecialWorkshopDataLijst.Insert(SpecialWorkshopData)
-		
+		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.DetailBladUitvoeringInfo = UitvoeringInfoIterator.Next()
+		Try {
+			Set UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).InUitvoering()
+			#dim SpecialWorkshopData As APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData = ..SpecialWorkshopDataGenerator.GenereerSpecialWorkshopData(UitvoeringInfo)
+			Do SpecialWorkshopDataLijst.Insert(SpecialWorkshopData)
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ##class(vhLib.Logger).%New("APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop").Error("GenereerSpecialWorkshopData", "Fout voor UitvoeringInfo " _ UitvoeringInfo.%Id() _ " " _ Exception.ToString())
+			Set UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()
+		}
 	}
 	
 	Quit SpecialWorkshopDataLijst
@@ -63,6 +81,7 @@
 
 <Method name="ExporteerDataNaarXML">
 <FormalSpec>SpecialWorkshopDataLijst:%ListOfObjects</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set Iterator = ##class(TECH.ListIterator).%New(SpecialWorkshopDataLijst)
 	#dim Index As %Integer = 0
@@ -91,6 +110,22 @@
 	Quit BestandVolledigeNaam
 ]]></Implementation>
 </Method>
+
+<Method name="ZendMailNaarSpecialWorkshop">
+<FormalSpec>SpecialWorkshopData:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender($$$SystemMail("system"))
+	Do Mail.ZetOnderwerp("Nieuwe XML bestanden Revego")
+	#dim Inhoud As %String = "Beste collega, " _ $$$CRLF _ $$$CRLF _ "Er is/zijn " _ SpecialWorkshopData.Count() _ " bestand(en) voor Revego." _ $$$CRLF _ $$$CRLF _ "Veel succes en nog een fijne dag!"
+	Do Mail.ZetInhoud(Inhoud)
+
+	Do Mail.VoegToeOntvanger("sws@vanhoecke.be")
+
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
 </Class>