Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter/Test.cls.xml
===================================================================
diff -u -r42884 -r42898
--- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter/Test.cls.xml (.../Test.cls.xml) (revision 42884)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter/Test.cls.xml (.../Test.cls.xml) (revision 42898)
@@ -6,7 +6,7 @@
+
+
+1
+DOM.VKP.Order
+
+
Index: AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r42891 -r42898
--- AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 42891)
+++ AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 42898)
@@ -29,10 +29,27 @@
Set MessageParts = ##class(AXif.Dynamics.SalesOrderOut.MessageParts).%New()
Do MessageParts.ADUMsgSalesOrderInQuery.OrderHeader.SetAt(..ConverteerOrderHoofding(Order),1)
+ #dim it as TECH.Iterator = Order.GeefOrderLijnIterator()
+ While it.HasNext() {
+ #dim Orderlijn as DOM.VKP.Orderlijn = it.Next()
+ try {
+ Do MessageParts.ADUMsgSalesOrderInQuery.OrderHeader.GetAt(1).OrderLine.Insert(..ConverteerOrderlijn(Orderlijn))
+ } catch{
+ #dim Exception As TECH.Exceptions.Exception = ##class(AXimpl.NoConversionNeededException).Catch()
+ }
+ }
+
Quit MessageParts
]]>
+
+Orderlijn:DOM.VKP.Orderlijn
+AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderLine
+
+
+
Order:DOM.VKP.Order
1