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