Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml =================================================================== diff -u -r48491 -r48496 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 48491) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 48496) @@ -100,13 +100,17 @@ Do OrderMock.VerwachtMethodCall("VerwijderOrderLijnViaAxInventTransId", $$$ElkeWaarde).ExactAantalKeer(0) Set SalesOrderLineStatusRepositoryMock = ##class(vhTest.Mock.AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New() - Do SalesOrderLineStatusRepositoryMock.VerwachtMethodCall("IsVrijVoorUpdateViaAxInventTransId", $$$ElkeWaarde).DanReturn($$$False) + Do SalesOrderLineStatusRepositoryMock.VerwachtMethodCall("IsVrijVoorUpdateViaAxInventTransId", "000019541").DanReturn($$$False) - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock),,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,..GeefToeleveringService(),,, SalesOrderLineStatusRepositoryMock) + Set MailerMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.Mailer).%New() + Do MailerMock.VerwachtMethodCall("VerzendMeldingGeblokkeerdeOrderLijn", OrderMock, "000019541").ExactAantalKeer(1).DanDoeNiks() + + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock),,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,..GeefToeleveringService(),,, SalesOrderLineStatusRepositoryMock, ,MailerMock) Do SalesOrderConverter.Convert(StandaardOrder) Do SalesOrderLineStatusRepositoryMock.Verifieer() Do OrderMock.Verifieer() + Do MailerMock.Verifieer() ]]> Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r48489 -r48496 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48489) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48496) @@ -78,8 +78,13 @@ 1 + +AXimpl.Dynamics.SalesOrderIn.Converter.Mailer +1 + + -OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI +OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer 1 1 %Status @@ -96,6 +101,7 @@ Set ..OrderIngaveService = $$$Inject(OrderIngaveService, ##class(APPS.VKP.OrderIngaveService).%New()) Set ..OfferteRepository = $$$Inject(OfferteRepository, ##class(APPS.VKP.Offerte.impl.OfferteRepository).%New()) Set ..SalesOrderLineStatusRepository = $$$Inject(SalesOrderLineStatusRepository, ##class(AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New()) + Set ..Mailer = $$$Inject(Mailer,##class(AXimpl.Dynamics.SalesOrderIn.Converter.Mailer).%New()) Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New()) @@ -124,6 +130,7 @@ #dim OrderLine As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine = OrderLineIterator.Next() If $$$Not(..MagOrderLijnUpdaten(OrderLine)) { + Do ..Mailer.VerzendMeldingGeblokkeerdeOrderLijn(Order, OrderLine.InventTransId) Do ..Logger.Debug("SalesOrderIn - Orderlijn is geblokkeerd", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is in verwerking. Er wordt geen update uitgevoerd.") Continue }