Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r49804 -r49928 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 49804) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 49928) @@ -98,6 +98,11 @@ 1 + +%Boolean +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,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,LeverAdresMaker:AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker 1 @@ -213,6 +218,8 @@ Do ..OrderlijnenSorteerder.SorteerGepersisteerdeOrderLijnen(Order) + Do:..IsNieuwOrder(Order) ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(..OrderID) + Do ..SluitOrder(Order) Do ..Mailer.VerzendMeldingGeblokkeerdeOrderLijnen(Order) @@ -261,16 +268,23 @@ ]]> + +Order:DOM.VKP.Order +1 + + + Order:DOM.VKP.Order 1 @@ -285,11 +299,6 @@ Do OrderLijn.ZetEenheidPrijsExclBTW((OrderLine.LineAmount / OrderLine.RemainSalesPhysical) * OrderLine.PriceUnit) 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) @@ -327,7 +336,6 @@ %String @@ -338,7 +346,6 @@ %String @@ -349,7 +356,6 @@ %String @@ -396,8 +402,9 @@ 1 DOM.VKP.Order