Index: APPS/Halux/PPS/Activiteit/impl/common/ProductieDetailDocument/LijstVerwerker.cls.xml
===================================================================
diff -u -r67395 -r67965
--- APPS/Halux/PPS/Activiteit/impl/common/ProductieDetailDocument/LijstVerwerker.cls.xml	(.../LijstVerwerker.cls.xml)	(revision 67395)
+++ APPS/Halux/PPS/Activiteit/impl/common/ProductieDetailDocument/LijstVerwerker.cls.xml	(.../LijstVerwerker.cls.xml)	(revision 67965)
@@ -25,6 +25,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ProductTypeVanToelevering">
 <Type>DOM.PM.enu.ProductType</Type>
 <InitialExpression>##class(DOM.PM.enu.ProductType).Onbepaald()</InitialExpression>
@@ -37,15 +42,17 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ProductieDetailDocumentService:APPS.Halux.PPS.Document.ProductieDetailDocument.ProductieDetailDocumentService,ProductTypeApi:DOM.PM.ProductTypeAPI=""</FormalSpec>
+<FormalSpec>ProductieDetailDocumentService:APPS.Halux.PPS.Document.ProductieDetailDocument.ProductieDetailDocumentService,ProductTypeApi:DOM.PM.ProductTypeAPI="",VerkoopApi:DOM.VKP.VerkoopAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	do ##super()
-	set ..ProductieDetailDocumentService = $$$Implementation(ProductieDetailDocumentService,##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.ProductieDetailDocumentService).%New())
+	Do ##super()
+	Set ..ProductieDetailDocumentService = $$$Implementation(ProductieDetailDocumentService,##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.ProductieDetailDocumentService).%New())
 	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
+	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -102,7 +109,7 @@
 		Do ..ProductieDetailDocumentService.DrukAf(InputParameterLijst, PrinterID)
 		
 		If (..BevatProductenVoorSpecialWorkshop(InputParameterLijst)) {
-			Set ..DocBaseMailParams = ..GeefDocBaseMailParams()
+			Set ..DocBaseMailParams = ..GeefDocBaseMailParams(InputParameterLijst)
 			Do ..ProductieDetailDocumentService.MailPDF(InputParameterLijst, ..DocBaseMailParams)
 		}
 	}
@@ -120,6 +127,7 @@
 	set InputParameters.Layout = UitvoeringInfo.Layout
 	set InputParameters.Aantal = UitvoeringInfo.TotaalAantal 
 	set InputParameters.DossierCode = UitvoeringInfo.DossierCode
+	set InputParameters.KlantID = UitvoeringInfo.PartijID
 
 	if $$$Not(..ProductDetailInputParametersPerToelevering.IsDefined(ToeleveringID)) {
 		Do ..ProductDetailInputParametersPerToelevering.SetAt(##class(%ListOfObjects).%New(),ToeleveringID)
@@ -152,6 +160,7 @@
 </Method>
 
 <Method name="GeefDocBaseMailParams">
+<FormalSpec>InputParameterLijst:APPS.common.Document.dto.InputParametersLijst</FormalSpec>
 <Private>1</Private>
 <ReturnType>Sys.FOP.SubTaskMail</ReturnType>
 <Implementation><![CDATA[
@@ -160,7 +169,7 @@
 		Set ..DocBaseMailParams.Aan = "sws@vanhoecke.be"
 		Set ..DocBaseMailParams.CC = ""
 		Set ..DocBaseMailParams.BCC = ""
-		Set ..DocBaseMailParams.Subject = "ProductieDetailBlad(en) met Special Workshop behoefte"
+		Set ..DocBaseMailParams.Subject = "ProductieDetailBlad(en) met Special Workshop behoefte" _ ..GeefToeleveringEnKlantGegevensString(InputParameterLijst)
 		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 = ""
@@ -169,6 +178,31 @@
 	Quit ..DocBaseMailParams
 ]]></Implementation>
 </Method>
+
+<Method name="GeefToeleveringEnKlantGegevensString">
+<FormalSpec>InputParameterLijst:APPS.common.Document.dto.InputParametersLijst</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringEnKlantGegevensString As %String = ""
+		
+	Try {
+		#dim InputParameterLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(InputParameterLijst)
+		If (InputParameterLijstIterator.HasNext()) {
+			#dim InputParameters As APPS.Halux.PPS.Document.ProductieDetailDocument.InputParameters = InputParameterLijstIterator.Next()
+			#dim ToeleveringId As %String = InputParameters.ToeleveringID
+			#dim PartijId As %String = $Piece(InputParameters.KlantID, "||", 2)
+			#dim KlantNaam As %String = ..VerkoopApi.GeefKlant(PartijId).GeefNaam()
+			Set ToeleveringEnKlantGegevensString = " voor toelevering: " _ ToeleveringId _ " voor klant: " _ PartijId _ " - " _ KlantNaam
+		}
+	} Catch {
+		// Opeetcode is ok => Dient enkel om subject van mail naar SWS te verrijken.
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+		
+	Quit ToeleveringEnKlantGegevensString
+]]></Implementation>
+</Method>
 </Class>