Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml =================================================================== diff -u -r50325 -r53100 --- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 50325) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 53100) @@ -29,6 +29,7 @@ do $$$AssertEquals(OrderHeader.SalesIdAX,"AXSalesId") do $$$AssertEquals(OrderHeader.class,"entity") do $$$AssertEquals(OrderHeader.MessageId,"MessageId") + do $$$AssertEquals(OrderHeader.OrderedByEmail,"EmailAdresBesteller") Do $$$AssertEquals(OrderHeader.SalesOriginId,"") Do $$$AssertEquals(OrderHeader.RefSalesOriginId,"EDINummer") Index: vhTest/Utils/DOM/VKP/Order.cls.xml =================================================================== diff -u -r52181 -r53100 --- vhTest/Utils/DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 52181) +++ vhTest/Utils/DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 53100) @@ -18,6 +18,7 @@ Do Order.IndienMethodCall("ZetEDINummer",$$$ElkeWaarde).DanDoeNiks() Do Order.IndienMethodCall("ZetLeveringVoorwaarde",$$$ElkeWaarde).DanDoeNiks() Do Order.IndienMethodCall("ZetVerzendingWijze",$$$ElkeWaarde).DanDoeNiks() + Do Order.IndienMethodCall("ZetEmailAdresBesteller",$$$ElkeWaarde).DanDoeNiks() Do Order.IndienMethodCall("GeefKlantID").DanReturn("K||1234") Do Order.IndienMethodCall("GeefID").DanReturn(1000) Do Order.IndienMethodCall("GeefCommissieReferentie").DanReturn("CommissieReferentie") @@ -28,7 +29,7 @@ Do Order.IndienMethodCall("GeefOorsprongKetting").DanReturn("OorsprongKetting") Do Order.IndienMethodCall("GeefEDINummer").DanReturn("EDINummer") Do Order.IndienMethodCall("GeefEindPersonality").DanReturn(##class(DOM.common.VanHoeckePersonality).Instance()) - Do Order.IndienMethodCall("ZetEmailAdresBesteller",$$$ElkeWaarde).DanDoeNiks() + Do Order.IndienMethodCall("GeefEmailAdresBesteller").DanReturn("EmailAdresBesteller") Quit Order ]]> Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml =================================================================== diff -u -r51069 -r53100 --- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 51069) +++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 53100) @@ -39,6 +39,7 @@ Set OrderHeader.InvoiceAccount = OrderHeader.CustAccount Set OrderHeader.ReceiptDateRequested = ..GeefLeverDatumVanOrder(Order) Set OrderHeader.SalesIdAX = Order.GeefAxSalesId() + Set OrderHeader.OrderedByEmail = Order.GeefEmailAdresBesteller() Set OrderHeader.SalesOriginId = ##class(AXimpl.AdminToAxUtils).ConvertOrigin(Order.GeefOorsprong()) Set OrderHeader.RefSalesOriginId = Order.GeefEDINummer() Index: vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml =================================================================== diff -u -r51069 -r53100 --- vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 51069) +++ vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 53100) @@ -14,6 +14,7 @@ AXLeveradresId MessageId OorsprongKetting + EmailAdresBesteller OrderReferentie EDINummer AXSalesId