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