Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r48187 -r48194 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48187) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 48194) @@ -58,8 +58,18 @@ 1 + +APPS.VKP.OrderIngaveService +1 + + + +APPS.VKP.Offerte.OfferteRepository +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 +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 1 1 %Status @@ -73,6 +83,8 @@ Set ..OrderlijnenSorteerder = $$$Inject(OrderlijnenSorteerder, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder).%New()) Set ..OrderSluiter = $$$Inject(OrderSluiter, ##class(CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01).%New()) 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 ..Logger = ##class(vhLib.Logger).%New() @@ -246,7 +258,14 @@ Do Order.ZetVerzendingWijze(..MaakVerzendingWijze(OrderHeader)) Do Order.ZetAxSalesId(OrderHeader.SalesId) Do Order.ZetTekstVoorAfdrukDocumentType(OrderHeader.ProductionBody, ##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering()) - + + If $$$HasLength(OrderHeader.RefSalesOriginId) { + If ..OfferteRepository.BestaatViaExterneId(OrderHeader.RefSalesOriginId) { + #dim Offerte As APPS.VKP.Offerte = ..OfferteRepository.GeefViaExterneId(OrderHeader.RefSalesOriginId) + Do Order.ZetOorsprongKetting($$$LCVT(..OrderIngaveService.BepaalOorsprongKetting(Offerte))) + } + } + Do ..Logger.Debug("Aanmaken Order", "Hoofding op order gezet voor Order " _Order.GeefID()) ]]> Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml =================================================================== diff -u -r48187 -r48194 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 48187) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 48194) @@ -272,6 +272,52 @@ Do ProductOrderlijnMock.Verifieer() ]]> + + + +