Index: APPS/Halux/PPS/Activiteit/impl/common/ProductieDetailDocument/LijstVerwerker.cls.xml
===================================================================
diff -u -r54303 -r67395
--- APPS/Halux/PPS/Activiteit/impl/common/ProductieDetailDocument/LijstVerwerker.cls.xml	(.../LijstVerwerker.cls.xml)	(revision 54303)
+++ APPS/Halux/PPS/Activiteit/impl/common/ProductieDetailDocument/LijstVerwerker.cls.xml	(.../LijstVerwerker.cls.xml)	(revision 67395)
@@ -31,6 +31,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DocBaseMailParams">
+<Type>Sys.FOP.SubTaskMail</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ProductieDetailDocumentService:APPS.Halux.PPS.Document.ProductieDetailDocument.ProductieDetailDocumentService,ProductTypeApi:DOM.PM.ProductTypeAPI=""</FormalSpec>
 <Private>1</Private>
@@ -92,7 +97,14 @@
 	
 	Set ToeleveringVolgensSequentieIterator = ##class(APPS.Halux.PPS.Document.impl.common.PerToeleveringInSequentieIterator).%New(..ProductDetailInputParametersPerToelevering,..ToeleveringVolgordeLijst)
 	While ToeleveringVolgensSequentieIterator.HasNext() {
-		do ..ProductieDetailDocumentService.DrukAf(ToeleveringVolgensSequentieIterator.Next(),PrinterID)
+		#dim InputParameterLijst As APPS.common.Document.dto.InputParametersLijst = ToeleveringVolgensSequentieIterator.Next()
+		
+		Do ..ProductieDetailDocumentService.DrukAf(InputParameterLijst, PrinterID)
+		
+		If (..BevatProductenVoorSpecialWorkshop(InputParameterLijst)) {
+			Set ..DocBaseMailParams = ..GeefDocBaseMailParams()
+			Do ..ProductieDetailDocumentService.MailPDF(InputParameterLijst, ..DocBaseMailParams)
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -121,6 +133,42 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="BevatProductenVoorSpecialWorkshop">
+<FormalSpec>InputParameterLijst:APPS.common.Document.dto.InputParametersLijst</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim BevatProductenVoorSpecialWorkshop As %Boolean = $$$False	
+	#dim InputParameterLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(InputParameterLijst)
+	
+	While ($$$Not(BevatProductenVoorSpecialWorkshop) && (InputParameterLijstIterator.HasNext())) {
+		#dim InputParameters As APPS.Halux.PPS.Document.ProductieDetailDocument.InputParameters = InputParameterLijstIterator.Next()
+		Set BevatProductenVoorSpecialWorkshop = ..ProductTypeApi.IsProductMetBewerkingInSpecialWorkshop(InputParameters.ProductID)
+	}
+	
+	Quit BevatProductenVoorSpecialWorkshop
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocBaseMailParams">
+<Private>1</Private>
+<ReturnType>Sys.FOP.SubTaskMail</ReturnType>
+<Implementation><![CDATA[
+	If (..DocBaseMailParams.Aan = "") {
+		Set ..DocBaseMailParams = ##class(Sys.FOP.SubTaskMail).%New()
+		Set ..DocBaseMailParams.Aan = "sws@vanhoecke.be"
+		Set ..DocBaseMailParams.CC = ""
+		Set ..DocBaseMailParams.BCC = ""
+		Set ..DocBaseMailParams.Subject = "ProductieDetailBlad(en) met Special Workshop behoefte"
+		Set ..DocBaseMailParams.Body = "Beste collega, "_$$$CRLF_$$$CRLF_"In bijlage kun je Productie-informatie vinden voor maatwerk waarvoor de inbreng van de Special Workshop nodig is. "_$$$CRLF_$$$CRLF_"Veel succes en nog een fijne dag! "
+		Set ..DocBaseMailParams.From = "AdminCACHE@vanhoecke.be"
+		Set ..DocBaseMailParams.MetSignature = ""
+	}
+	
+	Quit ..DocBaseMailParams
+]]></Implementation>
+</Method>
 </Class>