Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop.cls.xml
===================================================================
diff -u -r69922 -r69995
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop.cls.xml	(.../VoorbereidingSpecialWorkshop.cls.xml)	(revision 69922)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop.cls.xml	(.../VoorbereidingSpecialWorkshop.cls.xml)	(revision 69995)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop">
-<Super>TECH.RegisteredObject</Super>
+<Super>APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis</Super>
 
 <Property name="SpecialWorkshopDataGenerator">
 <Type>APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.SpecialWorkshopDataGenerator</Type>
@@ -30,6 +30,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Do ##super()
 	
 	Set ..SpecialWorkshopDataGenerator = $$$Inject(SpecialWorkshopDataGenerator, ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.SpecialWorkshopDataGenerator).%New())
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
@@ -40,27 +41,61 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GenereerXMLSpecialWorkshop">
-<FormalSpec>ProductId:%String</FormalSpec>
+<Method name="VerwerkUitvoeringInfoLijst">
+<FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<ReturnType>APPS.Halux.PPS.dto.UitvoeringResultaat</ReturnType>
 <Implementation><![CDATA[
-	#dim SpecialWorkshopData As APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData = ..SpecialWorkshopDataGenerator.GenereerSpecialWorkshopData(ProductId)
+	#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>
 </Method>
 
+<Method name="GenereerSpecialWorkshopData">
+<FormalSpec>UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set SpecialWorkshopDataLijst = ##class(%ListOfObjects).%New()
+	
+	Set UitvoeringInfoIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	While (UitvoeringInfoIterator.HasNext()) {
+		#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
+]]></Implementation>
+</Method>
+
 <Method name="ExporteerDataNaarXML">
-<FormalSpec>SpecialWorkshopData:APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData</FormalSpec>
+<FormalSpec>SpecialWorkshopDataLijst:%ListOfObjects</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Index As %Integer = 1
+	Set Iterator = ##class(TECH.ListIterator).%New(SpecialWorkshopDataLijst)
+	#dim Index As %Integer = 0
 	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	
+	While (Iterator.HasNext()) {
+		#dim SpecialWorkshopData As APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData = Iterator.Next()
 		
-	#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(SpecialWorkshopData.OrderData.OrderId, Index, "xml")
-	Set SpecialWorkshopData.OrderData.OrderId = SpecialWorkshopData.OrderData.OrderId _ "_" _ Index
-	Do FileWriter.Open(BestandVolledigNaam)
-	Do FileWriter.WriteXML(SpecialWorkshopData)
-	Do FileWriter.Close()
+		Set Index = Index + 1
+		#dim BestandVolledigNaam As %String = ..GeefBestandVolledigeNaam(SpecialWorkshopData.OrderData.OrderId, Index, "xml")
+		Set SpecialWorkshopData.OrderData.OrderId = SpecialWorkshopData.OrderData.OrderId _ "_" _ Index
+		Do FileWriter.Open(BestandVolledigNaam)
+		Do FileWriter.WriteXML(SpecialWorkshopData)
+		Do FileWriter.Close()
+	}
 ]]></Implementation>
 </Method>
 
@@ -82,8 +117,8 @@
 <Implementation><![CDATA[
 	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
 	Do Mail.ZetVerzender($$$SystemMail("system"))
-	Do Mail.ZetOnderwerp("Nieuw XML bestand Revego")
-	#dim Inhoud As %String = "Beste collega, " _ $$$CRLF _ $$$CRLF _ "Er is een nieuw bestand voor Revego." _ $$$CRLF _ $$$CRLF _ "Veel succes en nog een fijne dag!"
+	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")
Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/SpecialWorkshopDataGenerator.cls.xml
===================================================================
diff -u -r69922 -r69995
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/SpecialWorkshopDataGenerator.cls.xml	(.../SpecialWorkshopDataGenerator.cls.xml)	(revision 69922)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/SpecialWorkshopDataGenerator.cls.xml	(.../SpecialWorkshopDataGenerator.cls.xml)	(revision 69995)
@@ -51,45 +51,45 @@
 </Method>
 
 <Method name="GenereerSpecialWorkshopData">
-<FormalSpec>ProductId:%String</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo</FormalSpec>
 <ReturnType>APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData</ReturnType>
 <Implementation><![CDATA[
 	Set SpecialWorkshopData = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.SpecialWorkshopData).%New()
 	Set SpecialWorkshopData.Type = ..#Type
-	Set SpecialWorkshopData.OrderData = ..GeefOrderData(ProductId)
+	Set SpecialWorkshopData.OrderData = ..GeefOrderData(UitvoeringInfo)
 	
 	Quit SpecialWorkshopData
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOrderData">
-<FormalSpec>ProductId:%String</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.OrderData</ReturnType>
 <Implementation><![CDATA[
 	Set OrderData = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.OrderData).%New()
-	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(ProductId)
-	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(..GeefToeleveringIdViaProductId(ProductId))
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(UitvoeringInfo.ToeleveringID)
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
 	#dim RvgKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = Product.GeefIngegevenKenmerken()
 	
 	Set OrderData.OrderId = Toelevering.GeefOrderID()
 	Set OrderData.Datum =  ..DateTimeApi.HorologToTimeStamp(Toelevering.GeefDueOutTime())
-	Set OrderData.Header = ..GeefHeader(ProductId, Toelevering, RvgKenmerken)
-	Set OrderData.Body = ..GeefBody(Product)
+	Set OrderData.Header = ..GeefHeader(UitvoeringInfo, Toelevering, RvgKenmerken)
+	Set OrderData.Body = ..GeefBody(UitvoeringInfo)
 	
 	Quit OrderData
 ]]></Implementation>
 </Method>
 
 <Method name="GeefHeader">
-<FormalSpec>ProductId:%String,Toelevering:DOM.AKP.Toelevering,RvgKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo,Toelevering:DOM.AKP.Toelevering,RvgKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.Header</ReturnType>
 <Implementation><![CDATA[
 	Set Header = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.Header).%New()
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
 	
-	Set Header.ProductId = ProductId
+	Set Header.ProductId = UitvoeringInfo.ProductID
 	Set Header.KlantID = Toelevering.GeefKlantID()
 	Set Header.Klant = Partij.GeefNaam()
 	Set Header.Info1 = Toelevering.GeefOrderID()
@@ -102,18 +102,19 @@
 </Method>
 
 <Method name="GeefBody">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.RVG.dto.VoorbereidingSpecialWorkshopUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.Body</ReturnType>
 <Implementation><![CDATA[
 	Set Body = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.Body).%New()
 	Set RijData = ##class(APPS.Halux.PPS.Document.impl.RVG.VoorbereidingSpecialWorkshop.dto.RijData).%New()
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
 	#dim RvgKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = Product.GeefIngegevenKenmerken()
 		
 	Set RijData.LijnNummer = 1
 	Set RijData.Toepassing = ..IngegevenKenmerkenNaarImosDataConverter.ConverteerToepassing(RvgKenmerken.Toepassing)
 	Set RijData.Variabelen = ..IngegevenKenmerkenNaarImosDataConverter.ConverteerIngegevenKenmerken(RvgKenmerken)
-	Set RijData.Aantal = 1 ; XML is per product, daarom default op 1. Per product wordt een xml gegenereerd
+	Set RijData.Aantal = 1 ; Uitvoeringinfo is per product, daarom default op 1. Per product wordt een xml gegenereerd
 	Set RijData.Invoeging = "0.00,0.00,0.00"
 	Set RijData.Orientatie = "0.00,0.00,0.00"
 	
@@ -122,21 +123,6 @@
 	Quit Body
 ]]></Implementation>
 </Method>
-
-<Method name="GeefToeleveringIdViaProductId">
-<FormalSpec>ProductId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim ToeleveringId As %String = ""
-	
-	If ($Data(^TO("IP",ProductId))) {
-		Set ToeleveringId = $Order(^TO("IP",ProductId,""))
-	}
-	
-	Quit ToeleveringId
-]]></Implementation>
-</Method>
 </Class>