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