Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58510 -r58512
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58510)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58512)
@@ -23,8 +23,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Logger:vhLib.Logger="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,6 +39,7 @@
 	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi, ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New())
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("CalculatedProduct"))
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Mail.impl.MailAPI).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -47,6 +53,7 @@
 	
 	If (..ToeleveringApi.BestaatToelevering(ToeleveringId)) {
 		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
+		#dim OrderId As %String = Toelevering.GeefOrderID()
 		
 		Try {
 			Do ..LockToelevering(ToeleveringId)
@@ -57,10 +64,10 @@
 			} ElseIf ($$$Not(..ZitToeleveringInBatch(ToeleveringId))) {
 				Do ..PasAanProductIdOpToeleveringLijnen(Toelevering, OudProductId, NieuwProductId)
 				Set IsToeleveringAangepast = $$$True
-				// Halux MAILEN !!!
+				Do ..VerstuurMail(OrderId, ToeleveringId, OudProductId, NieuwProductId, $$$False)
 			} Else {
 				// KLAARGEZET en WEL IN BATCH (al dan niet gestart) => Toeleveringen NIET aanpassen => Halux hiervan verwittigen!
-				// MAILEN !!!
+				// Halux MAILEN !!!
 			}
 			
 			If IsToeleveringAangepast {
@@ -154,6 +161,39 @@
 <Implementation><![CDATA[	Lock -^KTO(6332,ToeleveringId)
 ]]></Implementation>
 </Method>
+
+<Method name="VerstuurMail">
+<FormalSpec>OrderId:%String,ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String,IsToeleveringInBatch:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	#dim Titel As %String = ""
+	#dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Beste collega, " _$$$CRLF _$$$CRLF)
+	
+	If IsToeleveringInBatch {
+		
+	} Else {
+		Set Titel = ##class(TECH.StringUtils).BuildText("Order {0} en Toelevering {1} aangepast in het kader van ProductUpdate.", OrderId, ToeleveringId)
+		
+		Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("Op Order {0} en Toelevering {1} werd ProductId {2} op de lijnen aangepast naar {3}, in het kader van de ProductUpdate. " _$$$CRLF, OrderId, ToeleveringId, OudProductId, NieuwProductId) 
+		Set Inhoud = Inhoud _"Meer bepaald gaat het over een poging tot het updaten van een Product, die NIET is doorgevoerd, omdat het Product in kwestie in Caché al in Orders en Toeleveringen zat. " _$$$CRLF
+		Set Inhoud = Inhoud _"In dergelijk geval willen we de coherentie van de database in Caché niet in gevaar brengen door een Product toch nog te updaten. " _$$$CRLF
+		Set Inhoud = Inhoud _"Daarom is er, in plaats daarvan, in Caché een nieuw Product gemaakt en hebben we het oude op de Orders en Toeleveringen in kwestie verwisseld met dit nieuw Product. " _$$$CRLF _$$$CRLF
+		Set Inhoud = Inhoud _"Het gaat over een Toelevering die REEDS IS KLAARGEZET, maar NOG NIET IN BATCH zit. " _$$$CRLF
+		Set Inhoud = Inhoud _"Gelieve het nodige te doen, zodat de Toelevering alsnog terug juist is klaargezet. " _$$$CRLF _$$$CRLF
+		Set Inhoud = Inhoud _"Alvast bedankt!" _$$$CRLF _$$$CRLF
+		Set Inhoud = Inhoud _"ICT"
+	}
+	
+	Do Mail.ZetIsHTML($$$True)
+	Do Mail.VoegToeOntvanger("planning_halux@vanhoecke.be")
+	Do Mail.ZetVerzender($$$SystemMail("CalculatedProduct ProductUpdater"))
+	Do Mail.ZetOnderwerp(Titel)
+	Do Mail.ZetInhoud(Inhoud)
+	
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58474 -r58512
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58474)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58512)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Logger:vhLib.Logger="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml
===================================================================
diff -u -r58510 -r58512
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58510)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58512)
@@ -43,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -52,6 +57,7 @@
 	Set ..BatchService = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
 	Set ..ToeleveringApi = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
 	Set ..Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Set ..MailApi = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
 ]]></Implementation>
 </Method>
 
@@ -115,23 +121,59 @@
 	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
 	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_ToeleveringStub.GeefID()_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.")
 	
+	#dim Mail As TECH.Mail.Mail = ##class(TECH.Mail.impl.Mail).%New()
+	#dim MailApiMock As TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(Mail)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail", Mail).DanDoeNiks()
+	
 	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
 	Set ..BatchService = BatchServiceStub
 	Set ..ToeleveringApi = ToeleveringApiMock
 	Set ..Logger = LoggerMock
+	Set ..MailApi = MailApiMock
 	
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
 	
 	Do $$$AssertTrue(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
+	Do $$$AssertEquals(Mail.GeefOnderwerp(), "Order 1000 en Toelevering 200000 aangepast in het kader van ProductUpdate.")
 	Do ..ToeleveringApi.Verifieer()
 	Do ..Logger.Verifieer()
+	Do ..MailApi.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="zTest: Toelevering zit al in batch">
+<Implementation><![CDATA[
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub($$$True)
+	
+	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ..GeefToeleveringVoorbereidingServiceStub(ToeleveringStub, $$$True)
+	#dim BatchServiceStub As APPS.Halux.common.BatchService = ..GeefBatchServiceStub($$$True)
+	
+	#dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True)
+	Do ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
+	Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).DanDoeNiks().ExactAantalKeer(0)
+	
+	;#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	;Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_ToeleveringStub.GeefID()_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.")
+	
+	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
+	Set ..BatchService = BatchServiceStub
+	Set ..ToeleveringApi = ToeleveringApiMock
+	;Set ..Logger = LoggerMock
+	
+	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
+	
+	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
+	Do ..ToeleveringApi.Verifieer()
+	;Do ..Logger.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefToeleveringService">
 <Private>1</Private>
 <ReturnType>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService</ReturnType>
-<Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New(..ToeleveringVoorbereidingService, ..BatchService, ..ToeleveringApi, ..Logger)
+<Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New(..ToeleveringVoorbereidingService, ..BatchService, ..ToeleveringApi, ..Logger, ..MailApi)
 ]]></Implementation>
 </Method>