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()
]]>
+
+
+
+