Index: vhTest/Utils/DOM/VKP/Order.cls.xml =================================================================== diff -u -r53113 -r53123 --- vhTest/Utils/DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 53113) +++ vhTest/Utils/DOM/VKP/Order.cls.xml (.../Order.cls.xml) (revision 53123) @@ -30,8 +30,8 @@ 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("GeefEmailAdresBesteller").DanReturn("EmailAdresBesteller") - Do Order.IndienMethodCall("GeefEmailAdresBevestiging").DanReturn("EmailAdresBevestiging") + Do Order.IndienMethodCall("GeefEmailAdresBesteller").DanReturn("EmailAdresBesteller@vanhoecke.be") + Do Order.IndienMethodCall("GeefEmailAdresBevestiging").DanReturn("EmailAdresBevestiging@vanhoecke.be") Quit Order ]]> Index: vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml =================================================================== diff -u -r53116 -r53123 --- vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 53116) +++ vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 53123) @@ -14,9 +14,9 @@ AXLeveradresId MessageId OorsprongKetting - EmailAdresBesteller + EmailAdresBesteller@vanhoecke.be OrderReferentie EDINummer - EmailAdresBevestiging + EmailAdresBevestiging@vanhoecke.be AXSalesId \ No newline at end of file Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml =================================================================== diff -u -r53116 -r53123 --- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 53116) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 53123) @@ -29,8 +29,8 @@ do $$$AssertEquals(OrderHeader.SalesIdAX,"AXSalesId") do $$$AssertEquals(OrderHeader.class,"entity") do $$$AssertEquals(OrderHeader.MessageId,"MessageId") - do $$$AssertEquals(OrderHeader.OrderedByEmail,"EmailAdresBesteller") - do $$$AssertEquals(OrderHeader.SalesConfirmEmail,"EmailAdresBevestiging") + do $$$AssertEquals(OrderHeader.OrderedByEmail,"EmailAdresBesteller@vanhoecke.be") + do $$$AssertEquals(OrderHeader.SalesConfirmEmail,"EmailAdresBevestiging@vanhoecke.be") Do $$$AssertEquals(OrderHeader.SalesOriginId,"") Do $$$AssertEquals(OrderHeader.RefSalesOriginId,"EDINummer") Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml =================================================================== diff -u -r53116 -r53123 --- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 53116) +++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 53123) @@ -39,8 +39,8 @@ Set OrderHeader.InvoiceAccount = OrderHeader.CustAccount Set OrderHeader.ReceiptDateRequested = ..GeefLeverDatumVanOrder(Order) Set OrderHeader.SalesIdAX = Order.GeefAxSalesId() - Set OrderHeader.OrderedByEmail = Order.GeefEmailAdresBesteller() - Set OrderHeader.SalesConfirmEmail = Order.GeefEmailAdresBevestiging() + Set OrderHeader.OrderedByEmail = $$$If(##class(TECH.MailUtils).Check(Order.GeefEmailAdresBesteller()),Order.GeefEmailAdresBesteller(),"") + Set OrderHeader.SalesConfirmEmail = $$$If(##class(TECH.MailUtils).Check(Order.GeefEmailAdresBevestiging()),Order.GeefEmailAdresBevestiging(),"") Set OrderHeader.SalesOriginId = ##class(AXimpl.AdminToAxUtils).ConvertOrigin(Order.GeefOorsprong()) Set OrderHeader.RefSalesOriginId = Order.GeefEDINummer()