Index: APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml
===================================================================
diff -u -r39365 -r39794
--- APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 39365)
+++ APPS/EDIExport/AankoopOrderResponse/BLUM/impl/BLOrdRspService.cls.xml	(.../BLOrdRspService.cls.xml)	(revision 39794)
@@ -33,8 +33,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailApi">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DateTimeAPI:TECH.DateTime.impl.DateTimeAPI,Kopieerder:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder</FormalSpec>
+<FormalSpec>DateTimeAPI:TECH.DateTime.impl.DateTimeAPI,Kopieerder:APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder,MailApi:TECH.Mail.MailAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -43,6 +48,7 @@
 	set ..Logger = ##class(vhLib.Logger).%New()
 	Set ..DateTimeAPI = $$$Inject(DateTimeAPI,##class(TECH.DateTime.impl.DateTimeAPI).%New())
 	Set ..Kopieerder = $$$Inject(Kopieerder,##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.Kopieerder).%New())
+	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Context).Instance().GeefMailAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -151,7 +157,9 @@
 			} else {
 				if (indexoudste){
 					 Do ##class(vhLib.Logger).%New().WarningMail("Blum OrderBevestiging","Opkuis BLOrdRsp : geen match gevonden op datum en/of hoeveelheid : "_ToeleveringsNummer_" "_ToeleveringsLijnNummer _" Hoeveelheid " _ Aantal )
-					 ;mag dan voor de veiligheid op KAL blijven.
+					 #dim ident as %String = $Extract($Piece(@..#Global(ToeleveringsNummer,ToeleveringsLijnNummer,indexoudste),"\",1),20,27)
+					 Do ..StuurMailHoeveelheidOntvangenVerschillendVanKAL(ToeleveringsNummer,ToeleveringsLijnNummer,ident,Aantal)
+					 ;Vdr verwittigd, mag dan voor de veiligheid op KAL blijven.
 				} else {
 					; is al up to date.
 				}
@@ -164,6 +172,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StuurMailHoeveelheidOntvangenVerschillendVanKAL">
+<FormalSpec>ToeleveringNummer:%String,ToeleveringLijnNummer:%String,IdentNummer:%String,Aantal:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Mail As TECH.Mail.Mail = ""
+	Set Mail = ..MailApi.MaakNieuwMail()
+	Do Mail.ZetVerzender( $$$SystemMail("Transportbestand Verwerker") )
+	Do Mail.VoegToeOntvanger( "VDR@vanhoecke.be" )
+	Do Mail.ZetOnderwerp( "Ontvangen hoeveelheid stemt niet overeen met KAL " _ ToeleveringNummer )
+	Do Mail.ZetInhoud( "Toeleveringlijn "_ ToeleveringNummer _ "."_ToeleveringLijnNummer_" voor identnummer " _IdentNummer_ " Hoeveelheid verzonden : "_Aantal)
+	Do ..MailApi.VerstuurMail(Mail)
+]]></Implementation>
+</Method>
+
 <Method name="IsToeleveringVolledigVerwerkt">
 <FormalSpec>ToeleveringsNummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml
===================================================================
diff -u -r38700 -r39794
--- vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 38700)
+++ vhUnitTest/APPS/EDIExport/AankoopOrderResponse/BLUM/impl/Service/UpdateVerwerkVlag/Test.cls.xml	(.../Test.cls.xml)	(revision 39794)
@@ -13,20 +13,36 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MailApiStub">
+<Type>vhTest.Mock.TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Mail">
+<Type>TECH.Mail.Mail</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	do ##super()
 	Set ..ImportXML = ##class(TECH.Config.ConfigMgr).Instance().GetString("AankoopOrderResponse.BLUM.ImportXML")
 	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AankoopOrderResponse.BLUM.ImportXML",1)
+	Set ..Mail = ##class(TECH.Mail.impl.Mail).%New()
+	Set ..MailApiStub = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeOneTest">
 <FormalSpec>TestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(TestName)
-	Set ..BLOrdRspService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New()
+
+	Do ..MailApiStub.IndienMethodCall("MaakNieuwMail").DanReturn(..Mail)
+	Do ..MailApiStub.IndienMethodCall("VerstuurMail", ..Mail).DanDoeNiks()
+
+	Set ..BLOrdRspService = ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).%New(,,..MailApiStub)
 	#dim BLOrdRspData As TECH.MultiDim
  	Do ##class(vhTest.Fake.APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BLOrdRspService).ZetTestData(.BLOrdRspData)
 	Do ..BLOrdRspService.Setup(.BLOrdRspData)