Index: vhUnitTest/AXif/Dynamics/SalesOrderIn/Envelope/TestCorrelate.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXif/Dynamics/SalesOrderIn/Envelope/TestCorrelate.cls.xml	(revision 0)
+++ vhUnitTest/AXif/Dynamics/SalesOrderIn/Envelope/TestCorrelate.cls.xml	(revision 44020)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXif.Dynamics.SalesOrderIn.Envelope.TestCorrelate">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Aangeleverde structuur kan gecorreleerd worden naar envelop klasse">
+<Implementation><![CDATA[
+	Set XMLCorrelater = ##class(TECH.XMLCorrelater).%New()
+	#dim Envelope As AXif.Dynamics.SalesOrderIn.Envelope = XMLCorrelater.FromString(..GeefAxSalesOrder(), "AXif.Dynamics.SalesOrderIn.Envelope", "Envelope")
+	
+	Do $$$AssertIsObject(Envelope)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxSalesOrder">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AxSalesOrder As %String = "<?xml version=""1.0"" encoding=""UTF-8""?>"
+	Set AxSalesOrder = AxSalesOrder	_"<Envelope xmlns=""http://schemas.microsoft.com/dynamics/2011/01/documents/Message"">"
+	Set AxSalesOrder = AxSalesOrder	_"<Header>"
+	Set AxSalesOrder = AxSalesOrder	_"<MessageId>{F5666AAA-392D-4C44-B3F5-FA84C74D8369}</MessageId>"
+	Set AxSalesOrder = AxSalesOrder	_"<Company>AX</Company>"
+	Set AxSalesOrder = AxSalesOrder	_"<Action>http://tempuri.org/ADUMsgSalesOrderOutQueryService/read</Action>"
+	Set AxSalesOrder = AxSalesOrder	_"<RequestMessageId>{F5666AAA-392D-4C44-B3F5-FA84C74D8369}</RequestMessageId>"
+	Set AxSalesOrder = AxSalesOrder	_"</Header>"
+	Set AxSalesOrder = AxSalesOrder	_"<Body>"
+	Set AxSalesOrder = AxSalesOrder	_"<MessageParts xmlns=""http://schemas.microsoft.com/dynamics/2011/01/documents/Message"">"
+	Set AxSalesOrder = AxSalesOrder	_"<ADUMsgSalesOrderOutQuery xmlns=""http://schemas.microsoft.com/dynamics/2008/01/documents/ADUMsgSalesOrderOutQuery"">"
+	Set AxSalesOrder = AxSalesOrder	_"<SenderId>prbe</SenderId>"
+	Set AxSalesOrder = AxSalesOrder	_"<OrderHeader class=""entity"">"
+
+	Set AxSalesOrder = AxSalesOrder	_"<CreatedDateTimeHeader localDateTime=""2017-07-24T13:29:46"" timezone=""GMTPLUS0100BRUSSELS_COPENHAGEN_MADRID"">2017-07-24T11:29:46Z</CreatedDateTimeHeader>"
+	Set AxSalesOrder = AxSalesOrder	_"<CurrencyCode>EUR</CurrencyCode>"
+	Set AxSalesOrder = AxSalesOrder	_"<CustAccount>12526</CustAccount>"
+	Set AxSalesOrder = AxSalesOrder	_"<DeliveryName>Testklant 2 primair adres</DeliveryName>"
+	Set AxSalesOrder = AxSalesOrder	_"<DeliveryPostalAddress>Boudewijnlaan 25 9300 AALST BELGIE</DeliveryPostalAddress>"
+	Set AxSalesOrder = AxSalesOrder	_"<DlvAddrCity>AALST</DlvAddrCity>"
+	Set AxSalesOrder = AxSalesOrder	_"<DlvAddrCountry>BE</DlvAddrCountry>"
+	Set AxSalesOrder = AxSalesOrder	_"<DlvAddrState>OVL</DlvAddrState>"
+	Set AxSalesOrder = AxSalesOrder	_"<DlvAddrStreet1>Boudewijnlaan 25</DlvAddrStreet1>"
+	Set AxSalesOrder = AxSalesOrder	_"<DlvAddrZipCode>9300</DlvAddrZipCode>"
+	Set AxSalesOrder = AxSalesOrder	_"<DlvMode>03</DlvMode>"
+	Set AxSalesOrder = AxSalesOrder	_"<InvoiceAccount>12526</InvoiceAccount>"
+	Set AxSalesOrder = AxSalesOrder	_"<LanguageId>nl-be</LanguageId>"
+	Set AxSalesOrder = AxSalesOrder	_"<ModifiedByAlias>KarelP</ModifiedByAlias>"
+	Set AxSalesOrder = AxSalesOrder	_"<ReceiptDateRequested>2017-07-25</ReceiptDateRequested>"
+	Set AxSalesOrder = AxSalesOrder	_"<SalesId>VO1600000303</SalesId>"
+	Set AxSalesOrder = AxSalesOrder	_"<ShippingDateRequested>2017-07-25</ShippingDateRequested>"
+
+	Set AxSalesOrder = AxSalesOrder	_"<OrderLine class=""entity"">"
+	Set AxSalesOrder = AxSalesOrder	_"<CurrencyCode>EUR</CurrencyCode>"
+	Set AxSalesOrder = AxSalesOrder	_"<DlvMode>03</DlvMode>"
+	Set AxSalesOrder = AxSalesOrder	_"<InventTransId>000005313</InventTransId>"
+	Set AxSalesOrder = AxSalesOrder	_"<ItemId>0.965.200.6</ItemId>"
+	Set AxSalesOrder = AxSalesOrder	_"<ItemName>KU-BEH. ECO-BOX 3A R746</ItemName>"
+	Set AxSalesOrder = AxSalesOrder	_"<Name>ECOBOX-verpakking type 3AStapelbaar; 599x399x153mmPolypropyleen-Copolymer Kunststof"
+	Set AxSalesOrder = AxSalesOrder	_"</Name>"
+	Set AxSalesOrder = AxSalesOrder	_"<PriceUnit>1.00</PriceUnit>"
+	Set AxSalesOrder = AxSalesOrder	_"<QtyOrdered>4.00</QtyOrdered>"
+	Set AxSalesOrder = AxSalesOrder	_"<ReceiptDateConfirmed>2017-07-28</ReceiptDateConfirmed>"
+	Set AxSalesOrder = AxSalesOrder	_"<ReceiptDateRequested>2017-07-28</ReceiptDateRequested>"
+	Set AxSalesOrder = AxSalesOrder	_"<RemainSalesPhysical>4.00</RemainSalesPhysical>"
+	Set AxSalesOrder = AxSalesOrder	_"<SalesId>VO1600000303</SalesId>"
+	Set AxSalesOrder = AxSalesOrder	_"<SalesStatus>Backorder</SalesStatus>"
+	Set AxSalesOrder = AxSalesOrder	_"<ShippingDateConfirmed>2017-07-27</ShippingDateConfirmed>"
+	Set AxSalesOrder = AxSalesOrder	_"<ShippingDateRequested>2017-07-27</ShippingDateRequested>"
+	Set AxSalesOrder = AxSalesOrder	_"</OrderLine>"
+	
+	Set AxSalesOrder = AxSalesOrder	_"</OrderHeader>"
+	Set AxSalesOrder = AxSalesOrder	_"</ADUMsgSalesOrderOutQuery>"
+	Set AxSalesOrder = AxSalesOrder	_"</MessageParts>"
+	Set AxSalesOrder = AxSalesOrder	_"</Body>"
+	Set AxSalesOrder = AxSalesOrder	_"</Envelope>"
+	Quit AxSalesOrder
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
