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