Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml =================================================================== diff -u -r48265 -r48269 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 48265) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestUpdate.cls.xml (.../TestUpdate.cls.xml) (revision 48269) @@ -38,7 +38,7 @@ #dim StandaardOrder As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrder() - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, , , ,DocumentReferentiesRepositoryMock, ..GeefOrderLijnenSorteerder(),,..GeefToeleveringService()) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, , , ,DocumentReferentiesRepositoryMock, ..GeefOrderLijnenSorteerder(),,..GeefToeleveringService(),,,..GeefSalesOrderLineStatusRepository()) Do SalesOrderConverter.Convert(StandaardOrder) Do $$$AssertEquals("Mijn orderreferentie", OrderDocRef.OrderReferentie) @@ -72,18 +72,37 @@ #dim ToeleveringServiceMock As vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New() Do ToeleveringServiceMock.VerwachtMethodCall("VerwijderToeleveringenViaOrder" , OrderMock).ExactAantalKeer(1).DanDoeNiks() - - Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() - Do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()) - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock),,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,ToeleveringServiceMock,,,VerkoopApiStub) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock),,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,ToeleveringServiceMock,,,..GeefSalesOrderLineStatusRepository(), ..GeefVerkoopApiStub()) Do SalesOrderConverter.Convert(StandaardOrder) Do OrderMock.Verifieer() Do ProductOrderlijnMock.Verifieer() Do ToeleveringServiceMock.Verifieer() ]]> + + + + Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerwijderOrderLijn.cls.xml =================================================================== diff -u -r47991 -r48269 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerwijderOrderLijn.cls.xml (.../TestVerwijderOrderLijn.cls.xml) (revision 47991) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/TestVerwijderOrderLijn.cls.xml (.../TestVerwijderOrderLijn.cls.xml) (revision 48269) @@ -30,7 +30,7 @@ Do OrderMock.VerwachtMethodCall("BestaatOrderLijnViaAxInventTransId", "000019541").ExactAantalKeer(1).DanReturn($$$True) Do OrderMock.VerwachtMethodCall("VerwijderOrderLijnViaAxInventTransId", "000019541").ExactAantalKeer(1).DanDoeNiks() - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock) ,,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(),, ..GeefToeleveringService()) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock) ,,,,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(),, ..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository()) Do SalesOrderConverter.Convert(StandaardOrder) Do OrderMock.Verifieer() Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r48265 -r48269 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48265) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48269) @@ -68,13 +68,18 @@ 1 + +AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository +1 + + DOM.VKP.VerkoopAPI 1 -OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",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,VerkoopApi:DOM.VKP.VerkoopAPI +OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",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 1 1 %Status @@ -90,6 +95,8 @@ Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New()) 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 ..VerkoopApi = $$$Inject(VerkoopApi, ##class(APPS.VKP.impl.VerkoopAPI).%New()) Set ..Logger = ##class(vhLib.Logger).%New() @@ -116,6 +123,10 @@ While OrderLineIterator.HasNext() { #dim OrderLine As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine = OrderLineIterator.Next() + If $$$Not(..MagOrderLijnUpdaten(OrderLine)) { + Continue + } + If ..IsGeannuleerd(OrderLine) { Do ..VerwijderOrderLijn(Order, OrderLine) Continue @@ -161,10 +172,12 @@ Do OrderLijn.ZetMunt(OrderLine.CurrencyCode) Do OrderLijn.ZetEenheidPrijsExclBTW(OrderLine.LineAmount / OrderLine.RemainSalesPhysical) Do OrderLijn.ZetTotaalNettoExclBTW(OrderLine.LineAmount) + If (..VerkoopApi.GeefKlant(OrderLijn.GeefOrder().GeefKlantID()).GeefFacturatieWijze() = ##class(DOM.VKP.enu.FacturatieWijze).Incl()) { Do OrderLijn.ZetEenheidPrijsExclBTW(##class(TECH.Math).Round(OrderLijn.GeefEenheidPrijsExclBTW()/(1+(##class(DOM.common.enu.BTWCode).LogicalToDisplay(OrderLijn.GeefBTWCode())/100))),2) Do OrderLijn.ZetTotaalNettoExclBTW(##class(TECH.Math).Round(OrderLijn.GeefTotaalNettoExclBTW()/(1+(##class(DOM.common.enu.BTWCode).LogicalToDisplay(OrderLijn.GeefBTWCode())/100))),2) } + Do OrderLijn.ZetLeverdag(..GeefLeverDatum(OrderLine)) Do OrderLijn.ZetAxConfigId(OrderLine.ConfigId) Do:..IsReedsVerwerkteOrderlijn(OrderLine) OrderLijn.ZetToeleveringLijnNr(..#ToeleveringLijnIsReedsVerwerkt) @@ -464,6 +477,14 @@ Quit Value ]]> + + +OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine +1 +%Boolean + + Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Base.cls.xml =================================================================== diff -u -r48187 -r48269 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Base.cls.xml (.../Base.cls.xml) (revision 48187) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Base.cls.xml (.../Base.cls.xml) (revision 48269) @@ -79,6 +79,25 @@ Quit ToeleveringServiceMock ]]> + + +vhTest.Mock.AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository + + + + +vhTest.Mock.DOM.VKP.VerkoopAPI + + Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml =================================================================== diff -u -r48265 -r48269 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 48265) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 48269) @@ -43,11 +43,8 @@ Set OrderLijnenSorteerderMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New() Do OrderLijnenSorteerderMock.VerwachtMethodCall("SorteerGepersisteerdeOrderLijnen", OrderMock).DanDoeNiks() - - Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() - Do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()) - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock,, ..GeefToeleveringService(),,,VerkoopApiStub) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock,, ..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository()) Do SalesOrderConverter.Convert(StandaardOrder) Do $$$AssertEquals("Mijn orderreferentie", OrderDocRef.OrderReferentie) @@ -86,10 +83,7 @@ Do ProductBepalerMock.VerwachtMethodCall("GeefProductId","0.741.108.3").DanReturn("DummyProductID") Do ProductBepalerMock.VerwachtMethodCall("GeefFoutmeldingIndienGenerischProduct","DummyProductID").DanDoeNiks() - Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() - Do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()) - - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock), OrderLevenCyclusServiceMock,,ProductBepalerMock,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(),, ..GeefToeleveringService(),,, VerkoopApiStub) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock), OrderLevenCyclusServiceMock,,ProductBepalerMock,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(),, ..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository(), ..GeefVerkoopApiStub()) Do SalesOrderConverter.Convert(StandaardOrder) Do OrderMock.Verifieer() @@ -128,10 +122,7 @@ #dim ToeleveringServiceMock As vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New() Do ToeleveringServiceMock.VerwachtMethodCall("VerwijderToeleveringenViaOrder" , OrderMock).ExactAantalKeer(1).DanDoeNiks() - Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() - Do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()) - - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock), OrderLevenCyclusServiceMock,,ProductBepalerMock,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,ToeleveringServiceMock,,,VerkoopApiStub) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock), OrderLevenCyclusServiceMock,,ProductBepalerMock,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,ToeleveringServiceMock, ,,..GeefSalesOrderLineStatusRepository(), ..GeefVerkoopApiStub()) Do SalesOrderConverter.Convert(StandaardOrder) Do OrderMock.Verifieer() @@ -159,8 +150,6 @@ Do ProductOrderlijnMock.VerwachtMethodCall("ZetTotaalNettoExclBTW", 250).DanDoeNiks() Do ProductOrderlijnMock.VerwachtMethodCall("ZetAxConfigId", "").DanDoeNiks() Do ProductOrderlijnMock.VerwachtMethodCall("ZetTekstVoorAfdrukDocumentType", "PackingSlipBody", ##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon()).DanDoeNiks() - Do ProductOrderlijnMock.IndienMethodCall("GeefEenheidPrijsExclBTW",).DanReturn(25) - Do ProductOrderlijnMock.IndienMethodCall("GeefBTWCode",).DanReturn(8) Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New() Do OrderLevenCyclusServiceMock.IndienMethodCall("MaakOrderMetKlantGegevens", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(OrderMock) @@ -170,10 +159,7 @@ Do ProductBepalerMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","0.741.108.3",##class(DOM.AKP.enu.Leverancier).Blum(),"SOPRContractId").DanReturn("DummyProductID") Do ProductBepalerMock.VerwachtMethodCall("GeefFoutmeldingIndienGenerischProduct","DummyProductID").DanDoeNiks() - Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() - Do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()) - - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock), OrderLevenCyclusServiceMock,,ProductBepalerMock,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,..GeefToeleveringService(),,,VerkoopApiStub) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(..GeefOrderApi(OrderMock), OrderLevenCyclusServiceMock,,ProductBepalerMock,..GeefDocumentReferentie(), ..GeefOrderLijnenSorteerder(), ,..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository(), ..GeefVerkoopApiStub()) Do SalesOrderConverter.Convert(StandaardOrder) Do OrderMock.Verifieer() @@ -237,10 +223,7 @@ Set OrderSluiterMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiter).%New() Do OrderSluiterMock.VerwachtMethodCall("Sluit", OrderMock.GeefID(),"","").ExactAantalKeer(1).DanDoeNiks() - Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() - Do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()) - - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock, OrderSluiterMock, ..GeefToeleveringService(),,,VerkoopApiStub) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock, OrderSluiterMock, ..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository()) Do SalesOrderConverter.Convert(StandaardOrder) Do OrderSluiterMock.Verifieer() @@ -278,14 +261,12 @@ Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New() Do OrderLevenCyclusServiceMock.IndienMethodCall("MaakOrderMetKlantGegevens", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(OrderMock) Do OrderLevenCyclusServiceMock.IndienMethodCall("VoegToeProductVoorKlant",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(ProductOrderlijnMock) + - Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() - Do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()) - Set OrderLijnenSorteerderMock = ##class(vhTest.Mock.AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New() Do OrderLijnenSorteerderMock.IndienMethodCall("SorteerGepersisteerdeOrderLijnen", OrderMock).DanDoeNiks() - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock, , ..GeefToeleveringService(),,,VerkoopApiStub) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock, , ..GeefToeleveringService(), ,,..GeefSalesOrderLineStatusRepository(), ..GeefVerkoopApiStub()) Do SalesOrderConverter.Convert(StandaardOrderMetProductLijn) Do ProductOrderlijnMock.Verifieer() @@ -327,11 +308,8 @@ Do StandaardOfferte.ZetOrderID(StandaardOfferte.GeefID()) Do OfferteRepositoryStub.VerwachtMethodCall("Bewaar",StandaardOfferte).DanDoeNiks() - Set VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() - Do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()) - #dim StandaardOrder As AXif.Dynamics.SalesOrderIn.Envelope = ##class(vhTest.Utils.AXif.Dynamics.SalesOrderIn.Envelope).StandaardOrder() - Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock,, ..GeefToeleveringService(), OrderIngaveServiceMock, OfferteRepositoryStub, VerkoopApiStub) + Set SalesOrderConverter = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter).%New(OrderAPIMock, OrderLevenCyclusServiceMock, , ,DocumentReferentiesRepositoryMock, OrderLijnenSorteerderMock,, ..GeefToeleveringService(), OrderIngaveServiceMock, OfferteRepositoryStub,..GeefSalesOrderLineStatusRepository()) Do SalesOrderConverter.Convert(StandaardOrder) Do OrderAPIMock.Verifieer() @@ -344,8 +322,9 @@ ]]> - +