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