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 + +