Index: vhUnitTest/AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter/Convert/Test.cls.xml =================================================================== diff -u -r42895 -r42904 --- vhUnitTest/AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 42895) +++ vhUnitTest/AXimpl/Dynamics/SalesLineStatusOut/Converter/SalesLineStatusUpdateConverter/Convert/Test.cls.xml (.../Test.cls.xml) (revision 42904) @@ -27,8 +27,8 @@ #dim Response As AXif.Dynamics.SalesLineStatusOut.MessageParts = Converter.Convert(Request) - Do $$$AssertEquals(Response.MessagePart.InventTransId,"AxInventTransId") - Do $$$AssertEquals(Response.MessagePart.OrderStatusId,"NieuweStatus") + Do $$$AssertEquals(Response.MessagePart.SalesLineUpd.GetAt(1).InventTransId,"AxInventTransId") + Do $$$AssertEquals(Response.MessagePart.SalesLineUpd.GetAt(1).OrderStatusId,"NieuweStatus") ]]> Index: AXif/Dynamics/SalesLineStatusOut/Body.cls.xml =================================================================== diff -u -r42869 -r42904 --- AXif/Dynamics/SalesLineStatusOut/Body.cls.xml (.../Body.cls.xml) (revision 42869) +++ AXif/Dynamics/SalesLineStatusOut/Body.cls.xml (.../Body.cls.xml) (revision 42904) @@ -9,22 +9,21 @@ 1 + +http://schemas.microsoft.com/dynamics/2011/01/documents/Message + + 0 AXif.Dynamics.SalesLineStatusOut.MessageParts - - -http://schemas.microsoft.com/dynamics/2011/01/documents/Message - - %Library.CacheSerialState BodyState Index: AXif/Dynamics/SalesLineStatusOut/Header.cls.xml =================================================================== diff -u -r42578 -r42904 --- AXif/Dynamics/SalesLineStatusOut/Header.cls.xml (.../Header.cls.xml) (revision 42578) +++ AXif/Dynamics/SalesLineStatusOut/Header.cls.xml (.../Header.cls.xml) (revision 42904) @@ -48,6 +48,28 @@ + + +%Library.CacheSerialState +HeaderState +^AXif.Dynamics.Sales8CC3.HeaderS + +listnode + + +MessageId + + +Company + + +Action + + +RequestMessageId + + + Index: AXif/Dynamics/SalesLineStatusOut/MessageParts/AxdADUMsgSalesLineUpdInQuery.cls.xml =================================================================== diff -u --- AXif/Dynamics/SalesLineStatusOut/MessageParts/AxdADUMsgSalesLineUpdInQuery.cls.xml (revision 0) +++ AXif/Dynamics/SalesLineStatusOut/MessageParts/AxdADUMsgSalesLineUpdInQuery.cls.xml (revision 42904) @@ -0,0 +1,46 @@ + + + +serial + +1 +AXif.DataTransferObject +right + + +1 + + + +http://schemas.microsoft.com/dynamics/2008/01/documents/ADUMsgSalesLineUpdInQuery + + + +AxdADUMsgSalesLineUpdInQuery + + + +1 + + + +AXif.Dynamics.SalesLineStatusOut.MessageParts.AxdEntitySalesLineUpd +list + + + + + +%Library.CacheSerialState +AxdADUMsgSalesLineUpdInQueryState +^AXif.DynamAC3E.AxdADUMsgSaA745S + + +SalesLineUpd + + + + + + + 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 ]]> Index: AXif/Dynamics/SalesLineStatusOut/MessageParts.cls.xml =================================================================== diff -u -r42865 -r42904 --- AXif/Dynamics/SalesLineStatusOut/MessageParts.cls.xml (.../MessageParts.cls.xml) (revision 42865) +++ AXif/Dynamics/SalesLineStatusOut/MessageParts.cls.xml (.../MessageParts.cls.xml) (revision 42904) @@ -5,28 +5,20 @@ %SerialObject,%XML.Adaptor left - -0 - - http://schemas.microsoft.com/dynamics/2011/01/documents/Message - -AXif.Common.EntityKey.MessageParts.EntityKeyList - - - - - + +0 + -AXif.Dynamics.SalesLineStatusOut.MessageParts.AxdEntitySalesLineUpd +AXif.Dynamics.SalesLineStatusOut.MessageParts.AxdADUMsgSalesLineUpdInQuery - - + + @@ -37,6 +29,14 @@ + +AXif.Common.EntityKey.MessageParts.EntityKeyList + + + + + + %Library.CacheSerialState MessagePartsState