Index: vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u -r53079 -r53574
--- vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 53079)
+++ vhTest/Fake/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 53574)
@@ -9,26 +9,28 @@
 
 <Method name="VerzendFoutMelding">
 <FormalSpec>CustAccount:%String,AXUser:%String,SalesId:%String,Exceptie:TECH.Exceptions.Exception</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerzendKlantNietGevondenMelding">
 <FormalSpec>User:%String,KlantNummer:%String,OrderId:%String</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerzendOrderBestaatMetVerschillendeSalesId">
+<FormalSpec>InkomendSalesId:%String,OrderSalesId:%String</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
 <Method name="VerzendMeldingGeblokkeerdeOrderLijnen">
 <FormalSpec><![CDATA[&Order:DOM.VKP.Order,AXUsername:%String=""]]></FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="ZetMeldingGeblokkeerdeOrderLijn">
 <FormalSpec><![CDATA[&Order:DOM.VKP.Order,InventTransId:%String=""]]></FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r53079 -r53574
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 53079)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 53574)
@@ -565,6 +565,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	if $$$Not(InkomendSalesId = OrderSalesId) {
+		Do ..Mailer.VerzendOrderBestaatMetVerschillendeSalesId(InkomendSalesId, OrderSalesId)
 		#dim Exception As TECH.IException = ##class(TECH.Exceptions.InvalidInputException).%New("Er bestaat reeds een order met verschillend SalesId. OrderSalesId '" _OrderSalesId _"' en InkomendSalesId '" _InkomendSalesId _"'. Er wordt geen update uitgevoerd")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
Index: AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u -r53079 -r53574
--- AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 53079)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 53574)
@@ -3,6 +3,11 @@
 <Class name="AXimpl.Dynamics.SalesOrderIn.Converter.Mailer">
 <Super>TECH.Mockable</Super>
 
+<Property name="AxOrderCreatorLookup">
+<Type>AXimpl.Dynamics.SalesOrderIn.Converter.AxOrderCreatorLookup</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="GebruikerLookup">
 <Type>AXimpl.Admin.Common.GebruikerLookup</Type>
 <Private>1</Private>
@@ -44,7 +49,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MailApi:TECH.Mail.MailAPI="",VerkoopAPI:DOM.VKP.VerkoopAPI,DateTimeAPI:TECH.DateTime.DateTimeAPI,GebruikerLookup:AXimpl.Admin.Common.GebruikerLookup,GebruikerApi:DOM.common.GebruikerAPI</FormalSpec>
+<FormalSpec>MailApi:TECH.Mail.MailAPI="",VerkoopAPI:DOM.VKP.VerkoopAPI,DateTimeAPI:TECH.DateTime.DateTimeAPI,GebruikerLookup:AXimpl.Admin.Common.GebruikerLookup,GebruikerApi:DOM.common.GebruikerAPI,AxOrderCreatorLookup:AXimpl.Dynamics.SalesOrderIn.Converter.AxOrderCreatorLookup=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -55,6 +60,7 @@
 	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
 	Set ..GebruikerLookup = $$$Inject(GebruikerLookup,##class(AXimpl.Admin.Common.GebruikerLookup).%New())
 	Set ..GebruikerApi = $$$Inject(GebruikerApi,##class(DOM.common.impl.GebruikerAPIimpl).%New())
+	Set ..AxOrderCreatorLookup = $$$Inject(AxOrderCreatorLookup, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.AxOrderCreatorLookup).%New())
 	Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
 	Set ..GeblokkeerdeOrderLijnenTekst = ""
 
@@ -160,6 +166,47 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerzendOrderBestaatMetVerschillendeSalesId">
+<FormalSpec>InkomendSalesId:%String,OrderSalesId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim AxUser As %String
+	#dim GebruikerId As %String = ""
+	#dim Gebruiker As DOM.common.Gebruiker
+	#dim MailTo As %String = ""
+	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
+	
+	Do Mail.ZetVerzender($$$SystemMail("Ax order naar admin"))
+	Do Mail.ZetIsHTML($$$True)
+	
+	#dim Titel As %String = ##class(TECH.StringUtils).BuildText("Order met OrderSalesId {0} kan niet worden verwerkt door Cache", InkomendSalesId)
+	Do Mail.ZetOnderwerp(Titel)
+	
+	#dim Inhoud As %String = ##class(TECH.StringUtils).BuildText("Beste, " _$$$CRLF _$$$CRLF)
+	Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("Order {0} kan niet geupdate worden in Admin, omdat bij {1} de laatste 6 karakters gelijk zijn en admin dus geen updates kan doen. " _$$$CRLF, InkomendSalesId, OrderSalesId) 
+	Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("Gelieve order '{0}' in een nieuw order steken, zodat de update opnieuw plaats kan vinden. " _$$$CRLF, InkomendSalesId)
+	Set Inhoud = Inhoud _"Bij vragen kun je naar Nicolas, Nicky of Bart gaan." _$$$CRLF _$$$CRLF
+	Set Inhoud = Inhoud _"Alvast bedankt!" _$$$CRLF _$$$CRLF
+	Set Inhoud = Inhoud _"ICT"
+	
+	Set AxUser = ..AxOrderCreatorLookup.GeefAxOrderCreatorUser(InkomendSalesId)
+	
+	If ..GebruikerLookup.BestaatGebruiker(AxUser) {
+		Set GebruikerId = ..GebruikerLookup.GeefGebruikerId(AxUser)
+		Set Gebruiker = ..GebruikerApi.GeefGebruiker(GebruikerId)
+		Do Mail.VoegToeOntvangerCC(..GeefBartVanDamAlsGebruiker().GeefEmailAdres())
+	} Else {
+		Set Inhoud = Inhoud _##class(TECH.StringUtils).BuildText("De door AX doorgegeven User '{0}' is niet gevonden in admin." _$$$CRLF _$$$CRLF , AxUser)
+		Set Gebruiker = ..GeefBartVanDamAlsGebruiker() // Of toch bidi support mailbox ???
+	}
+	
+	Set MailTo = Gebruiker.GeefEmailAdres()
+	Do Mail.VoegToeOntvanger(MailTo)
+	Do Mail.ZetInhoud(Inhoud)
+	
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+
 <Method name="Verzend">
 <FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,AXUsername:%String,Titel:%String,Inhoud:%String</FormalSpec>
 <Private>1</Private>
Index: AXimpl/Dynamics/SalesOrderIn/Converter/AxOrderCreatorLookup.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/SalesOrderIn/Converter/AxOrderCreatorLookup.cls.xml	(revision 0)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/AxOrderCreatorLookup.cls.xml	(revision 53574)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.SalesOrderIn.Converter.AxOrderCreatorLookup">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxOrderCreatorUser">
+<FormalSpec>OrderSalesId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT createdby FROM "
+	_"(SELECT salesid,CREATEDBY, CREATEDDATETIME, ROW_NUMBER() over(partition by salesid order by createddatetime desc) nr FROM MCROrderEventTable "
+	_"WHERE dataareaid = 'vhbe' AND createdby != 'AIF_User') x "
+	_"WHERE x.nr = 1 and salesid = '"_OrderSalesId_"'"
+	
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+	// Wat als ResultSet leeg is ??? Kan AX-SYS zijn !!!
+	Quit ..ResultSet.GetData(1)
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do:$IsObject(..ResultSet) ..SqlQueryConnection.Disconnect()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml
===================================================================
diff -u -r53079 -r53574
--- vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 53079)
+++ vhTest/Mock/AXimpl/Dynamics/SalesOrderIn/Converter/Mailer.cls.xml	(.../Mailer.cls.xml)	(revision 53574)
@@ -26,6 +26,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerzendOrderBestaatMetVerschillendeSalesId">
+<FormalSpec>InkomendSalesId:%String,OrderSalesId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerzendOrderBestaatMetVerschillendeSalesId",InkomendSalesId,OrderSalesId)
+]]></Implementation>
+</Method>
+
 <Method name="ZetMeldingGeblokkeerdeOrderLijn">
 <FormalSpec><![CDATA[&Order:DOM.VKP.Order,InventTransId:%String=""]]></FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetMeldingGeblokkeerdeOrderLijn",.Order,InventTransId)