Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml =================================================================== diff -u -r46291 -r46395 --- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 46291) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 46395) @@ -28,6 +28,9 @@ do $$$AssertEquals(OrderHeader.class,"entity") do $$$AssertEquals(OrderHeader.MessageId,"MessageId") + Do $$$AssertEquals(OrderHeader.SalesOriginId,"Oorsprong") + Do $$$AssertEquals(OrderHeader.RefSalesOriginId,"EDINummer") + Do $$$AssertEquals(OrderHeader.PurchOrderFormNum,"KlantOrderNummer") Do $$$AssertEquals(OrderHeader.DeliveryName,"Een Belg") Index: vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml =================================================================== diff -u -r46149 -r46395 --- vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 46149) +++ vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 46395) @@ -12,5 +12,7 @@ 01234 MessageId KlantOrderNummer + EDINummer AXSalesId + Oorsprong \ No newline at end of file Index: vhTest/Utils/DOM/VKP/Order.cls.xml =================================================================== diff -u -r46287 -r46395 --- vhTest/Utils/DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 46287) +++ vhTest/Utils/DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 46395) @@ -22,6 +22,8 @@ Do Order.IndienMethodCall("GeefOrderReferentie").DanReturn("OrderReferentie") Do Order.IndienMethodCall("GeefAxSalesId").DanReturn("AXSalesId") Do Order.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New())) + Do Order.IndienMethodCall("GeefOorsprong").DanReturn("Oorsprong") + Do Order.IndienMethodCall("GeefEDINummer").DanReturn("EDINummer") Quit Order ]]> Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml =================================================================== diff -u -r46296 -r46395 --- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 46296) +++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 46395) @@ -15,6 +15,10 @@ Set OrderHeader.InvoiceAccount = OrderHeader.CustAccount Set OrderHeader.ReceiptDateRequested = ..GeefLeverDatumVanOrder(Order) Set OrderHeader.SalesIdAX = Order.GeefAxSalesId() + + Set OrderHeader.SalesOriginId = Order.GeefOorsprong() + Set OrderHeader.RefSalesOriginId = Order.GeefEDINummer() + Set OrderHeader.class = "entity" Set OrderHeader.MessageId = MessageId