Index: AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter.cls.xml =================================================================== diff -u -r42873 -r42904 --- AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter.cls.xml (.../SalesLineStatusUpdateConverter.cls.xml) (revision 42873) +++ AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter.cls.xml (.../SalesLineStatusUpdateConverter.cls.xml) (revision 42904) @@ -30,9 +30,15 @@ #dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder($Piece(Command.SubjectId,"_",1)) #dim Orderlijn As DOM.VKP.Orderlijn = Order.GeefOrderLijn($Piece(Command.SubjectId,"_",2)) - Set MessageParts.MessagePart.InventTransId = Orderlijn.GeefAxInventTransId() - Set MessageParts.MessagePart.OrderStatusId = Command.Message + Set AxdEntitySalesLineUpd = ##class(AXif.Dynamics.SalesLineStatusOut.MessageParts.AxdEntitySalesLineUpd).%New() + Set AxdEntitySalesLineUpd.InventTransId = Orderlijn.GeefAxInventTransId() + Set AxdEntitySalesLineUpd.OrderStatusId = Command.Message + Set ADUMsgSalesLineUpd = ##class(AXif.Dynamics.SalesLineStatusOut.MessageParts.AxdADUMsgSalesLineUpdInQuery).%New() + Set MessageParts.MessagePart = ADUMsgSalesLineUpd + + Do MessageParts.MessagePart.SalesLineUpd.Insert(AxdEntitySalesLineUpd) + Quit MessageParts ]]>