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