Index: vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml =================================================================== diff -u -r46889 -r47866 --- vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 46889) +++ vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 47866) @@ -3,15 +3,15 @@ CommissieReferentie EUR 01234 - OrderReferentie + KlantOrderNummer Een Belg Sint-Niklaas BE Ankerstraat 91 9100 01234 MessageId - KlantOrderNummer + OrderReferentie EDINummer AXSalesId \ No newline at end of file Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml =================================================================== diff -u -r46889 -r47866 --- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 46889) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 47866) @@ -21,7 +21,6 @@ do $$$AssertEquals(OrderHeader.ConfirmBody,"CommissieReferentie") do $$$AssertEquals(OrderHeader.CurrencyCode,"EUR") do $$$AssertEquals(OrderHeader.CustAccount,"01234") - do $$$AssertEquals(OrderHeader.CustomerRef,"OrderReferentie") do $$$AssertEquals(OrderHeader.InvoiceAccount,"01234") do $$$AssertEquals(OrderHeader.ReceiptDateRequested,"") do $$$AssertEquals(OrderHeader.SalesIdAX,"AXSalesId") @@ -31,7 +30,8 @@ Do $$$AssertEquals(OrderHeader.SalesOriginId,"") Do $$$AssertEquals(OrderHeader.RefSalesOriginId,"EDINummer") - Do $$$AssertEquals(OrderHeader.PurchOrderFormNum,"KlantOrderNummer") + Do $$$AssertEquals(OrderHeader.PurchOrderFormNum,"OrderReferentie") + do $$$AssertEquals(OrderHeader.CustomerRef,"KlantOrderNummer") Do $$$AssertEquals(OrderHeader.DeliveryName,"Een Belg") Do $$$AssertEquals(OrderHeader.DlvAddrCountry ,"BE") Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml =================================================================== diff -u -r46889 -r47866 --- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 46889) +++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 47866) @@ -11,7 +11,6 @@ Set OrderHeader.ConfirmBody = Order.GeefCommissieReferentie() Set OrderHeader.CurrencyCode = "EUR" Set OrderHeader.CustAccount = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(Order.GeefKlantID()) - Set OrderHeader.CustomerRef = Order.GeefOrderReferentie() Set OrderHeader.InvoiceAccount = OrderHeader.CustAccount Set OrderHeader.ReceiptDateRequested = ..GeefLeverDatumVanOrder(Order) Set OrderHeader.SalesIdAX = Order.GeefAxSalesId() @@ -22,7 +21,8 @@ Set OrderHeader.class = "entity" Set OrderHeader.MessageId = MessageId - Set OrderHeader.PurchOrderFormNum = Order.GeefDocumentReferenties().KlantOrderNummer + Set OrderHeader.CustomerRef = Order.GeefDocumentReferenties().KlantOrderNummer + Set OrderHeader.PurchOrderFormNum = Order.GeefOrderReferentie() #dim Leveradres as DOM.VKP.LeverAdres = Order.GeefAfleveradres() Set OrderHeader.DeliveryName = Leveradres.GeefNaam()