Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml =================================================================== diff -u -r43688 -r43705 --- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 43688) +++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 43705) @@ -67,22 +67,48 @@ 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.impl.DataM.DataMProductOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlant(Order, Order.GeefKlantID(), ProductID, OrderLine.QtyOrdered) - Do ProductOrderLijn.ZetAxInventTransId(OrderLine.InventTransId) - Do ProductOrderLijn.ZetMunt(OrderLine.CurrencyCode) - Do ProductOrderLijn.ZetLeverdag(..GeefLeverDatum(OrderLine)) - Do ProductOrderLijn.ZetEenheidPrijsExclBTW(OrderLine.LineAmount / OrderLine.QtyOrdered) - Do ProductOrderLijn.ZetTotaalNettoExclBTW(OrderLine.LineAmount) + If ..IsProductLijn(OrderLine) { + Do ..VoegToeProductLijn(Order, OrderLine) + } Else { + Do ..VoegToeMaatwerkLijn(Order, OrderLine) + } - ;Do ProductOrderLijn.ZetProjectReferentie(OrderLine. ) - ;Do ProductOrderLijn.ZetPakketReferentie(OrderLine. ) } Do ..OrderAPI.Bewaar(Order) ]]> + +OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine +1 +%Boolean + + + + +Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine +1 + + + + +Order:DOM.VKP.Order,OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine +1 + + OrderLine:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderLine 1