Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58608 -r58609
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58608)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58609)
@@ -68,7 +68,7 @@
 					_"'. Er werd getracht de Toelevering te verwijderen, maar ze is al klaargezet of zit al in een Batch, dus de poging is geannuleerd. "
 					_"ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail. "
 				Do ..Logger.Warning("ProductUpdater", LoggingDetail)
-				Do ..VerstuurMail(OrderId, ToeleveringId, OudProductId, NieuwProductId, $$$True)
+				Do ..VerstuurMail(OrderId, ToeleveringId, OudProductId, NieuwProductId)
 			}
 			
 			Do ..UnLockToelevering(ToeleveringId)	
@@ -179,34 +179,20 @@
 </Method>
 
 <Method name="VerstuurMail">
-<FormalSpec>OrderId:%String,ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String,IsToeleveringInBatch:%Boolean</FormalSpec>
+<FormalSpec>OrderId:%String,ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String</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 {
-		Set Titel = ##class(TECH.StringUtils).BuildText("OPGELET !!! Order {0} en Toelevering {1} matchen niet met AX, 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 NIET aangepast naar {3}, in het kader van de ProductUpdate, " _$$$CRLF, OrderId, ToeleveringId, OudProductId, NieuwProductId) 
-		Set Inhoud = Inhoud _"omdat de Toelevering in een Batch zit. Hierdoor dreigt er een foutief Product geproduceerd te worden! " _$$$CRLF
-		Set Inhoud = Inhoud _"Op het order in AX is de configuratie van een maatwerkproduct aangepast nadat het order al doorgestuurd werd naar Caché. " _$$$CRLF
-		Set Inhoud = Inhoud _"Caché heeft geprobeerd om het order en de toelevering aan te passen, maar de toelevering zit al in een batch. " _$$$CRLF
-		Set Inhoud = Inhoud _"In dergelijk geval wordt de toelevering (en dus ook het order in Caché) niet meer automatisch gewijzigd. " _$$$CRLF
-		Set Inhoud = Inhoud _"Gelieve de toelevering uit batch te halen en te 'ontklaarzetten' en dan aan de BIDI-medewerker te vragen het order opnieuw te 'OrderKlaren'. " _$$$CRLF
-		Set Inhoud = Inhoud _"Zodra het order terug in sync staat tussen AX en Caché kan er terug overgegaan worden tot productie ervan. " _$$$CRLF _$$$CRLF
-	} Else {
-		Set Titel = ##class(TECH.StringUtils).BuildText("OPGELET !!! 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 IS KLAARGEZET, maar NIET IN BATCH zit. " _$$$CRLF
-		Set Inhoud = Inhoud _"Gelieve het nodige te doen, zodat de Toelevering alsnog terug juist is klaargezet. " _$$$CRLF _$$$CRLF
-	}
+	Set Titel = ##class(TECH.StringUtils).BuildText("OPGELET !!! Toelevering {0} matcht niet meer met Order {1}, naar aanleiding van een ProductUpdate in AX.", ToeleveringId, OrderId)
 	
+	Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("Op Order {0} werd ProductId {1} aangepast naar {2}, in het kader van de ProductUpdate. " _$$$CRLF, OrderId, OudProductId, NieuwProductId)
+	Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("Er werd automatisch geprobeerd toelevering {0} te verwijderen, maar ze is reeds klaargezet of zit al in batch. " _$$$CRLF, ToeleveringId)
+	Set Inhoud = Inhoud _"Daarom is de poging ze te verwijderen gestaakt en werd er in plaats daarvan deze mail verstuurd. Er dreigt nu dus een foutief product geproduceerd te worden! " _$$$CRLF
+	Set Inhoud = Inhoud _"Gelieve de toelevering te ont-klaarzetten en/of uit batch te halen en ze alsnog te verwijderen. " _$$$CRLF
+	Set Inhoud = Inhoud _"Voor de gewijzigde orderlijn werd al automatisch een nieuwe toelevering voorzien (of deze zal in de komende minuten voorzien worden). " _$$$CRLF _$$$CRLF
 	Set Inhoud = Inhoud _"Alvast bedankt!" _$$$CRLF _$$$CRLF
 	Set Inhoud = Inhoud _"ICT"
 	
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml
===================================================================
diff -u -r58608 -r58609
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58608)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58609)
@@ -201,7 +201,6 @@
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
 	
 	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
-	Do $$$AssertEquals(Mail.GeefOnderwerp(), "OPGELET !!! Order 1000 en Toelevering 200000 matchen niet met AX, in het kader van ProductUpdate.")
 	Do ..Logger.Verifieer()
 	Do ..MailApi.Verifieer()
 ]]></Implementation>
@@ -239,7 +238,6 @@
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
 	
 	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
-	Do $$$AssertEquals(Mail.GeefOnderwerp(), "OPGELET !!! Order 1000 en Toelevering 200000 matchen niet met AX, in het kader van ProductUpdate.")
 	Do ..Logger.Verifieer()
 	Do ..MailApi.Verifieer()
 ]]></Implementation>
@@ -277,7 +275,6 @@
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
 	
 	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
-	Do $$$AssertEquals(Mail.GeefOnderwerp(), "OPGELET !!! Order 1000 en Toelevering 200000 matchen niet met AX, in het kader van ProductUpdate.")
 	Do ..Logger.Verifieer()
 	Do ..MailApi.Verifieer()
 ]]></Implementation>