Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml =================================================================== diff -u -r42748 -r42793 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 42748) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 42793) @@ -25,6 +25,32 @@ Do OrderMock.Verifieer() ]]> + + + + Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r42748 -r42793 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 42748) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 42793) @@ -23,8 +23,13 @@ 1 + +APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler +1 + + -OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",AxToAdminUtils:AXimpl.AxToAdminUtils +OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime="",AxToAdminUtils:AXimpl.AxToAdminUtils,ProductBepaler:APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler 1 1 %Status @@ -34,7 +39,8 @@ Set ..DateTimeAPI = $$$Implementation(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI()) Set ..OrderLevenCyclusService = $$$Inject(OrderLevenCyclusService,##class(APPS.VKP.OrderLevenCyclusService).%New(..DateTimeAPI)) Set ..AxToAdminUtils = $$$Inject(AxToAdminUtils, ##class(AXimpl.AxToAdminUtils).%New()) - + Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(APPS.Blum.impl.OnlineProductConfigurator.ProductBepaler).%New()) + Quit $$$OK ]]> @@ -55,6 +61,16 @@ Do LeverAdres.ZetNaam(OrderHeader.DeliveryName) Do Order.ZetAfleveradres(LeverAdres) + + // Enkel nog maar productLijn. + Set OrderLineIterator = ##class(TECH.ListIterator).%New(OrderHeader.OrderLine) + While OrderLineIterator.HasNext() { + #dim OrderLine As AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine = OrderLineIterator.Next() + #dim ProductID As %String = ..ProductBepaler.GeefProductNummer(OrderLine.ItemId, Order.GeefKlantID()) + #dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlant(Order, Order.GeefKlantID(), ProductID, OrderLine.LineAmount) + ;Do ProductOrderLijn.ZetProjectReferentie(ProductLijn.GeefProjectReferentie()) + ;Do ProductOrderLijn.ZetPakketReferentie(ProductLijn.GeefPakketReferentie()) + } Do ..OrderAPI.Bewaar(Order) ]]> Index: vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml =================================================================== diff -u -r42748 -r42793 --- vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml (.../Envelope.cls.xml) (revision 42748) +++ vhTest/Utils/AXif/Dynamics/SalesOrderIn/Envelope.cls.xml (.../Envelope.cls.xml) (revision 42793) @@ -22,6 +22,22 @@ Quit StandaardOrder ]]> + + +1 +AXif.Dynamics.SalesOrderIn.Envelope + +