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
}