Index: vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml
===================================================================
diff -u -r46889 -r47866
--- vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 46889)
+++ vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder/Test/TestBelgischLeverAdres/Result.xml (.../Result.xml) (revision 47866)
@@ -3,15 +3,15 @@
CommissieReferentie
EUR
01234
- OrderReferentie
+ KlantOrderNummer
Een Belg
Sint-Niklaas
BE
Ankerstraat 91
9100
01234
MessageId
- KlantOrderNummer
+ OrderReferentie
EDINummer
AXSalesId
\ No newline at end of file
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml
===================================================================
diff -u -r46889 -r47866
--- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 46889)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 47866)
@@ -21,7 +21,6 @@
do $$$AssertEquals(OrderHeader.ConfirmBody,"CommissieReferentie")
do $$$AssertEquals(OrderHeader.CurrencyCode,"EUR")
do $$$AssertEquals(OrderHeader.CustAccount,"01234")
- do $$$AssertEquals(OrderHeader.CustomerRef,"OrderReferentie")
do $$$AssertEquals(OrderHeader.InvoiceAccount,"01234")
do $$$AssertEquals(OrderHeader.ReceiptDateRequested,"")
do $$$AssertEquals(OrderHeader.SalesIdAX,"AXSalesId")
@@ -31,7 +30,8 @@
Do $$$AssertEquals(OrderHeader.SalesOriginId,"")
Do $$$AssertEquals(OrderHeader.RefSalesOriginId,"EDINummer")
- Do $$$AssertEquals(OrderHeader.PurchOrderFormNum,"KlantOrderNummer")
+ Do $$$AssertEquals(OrderHeader.PurchOrderFormNum,"OrderReferentie")
+ do $$$AssertEquals(OrderHeader.CustomerRef,"KlantOrderNummer")
Do $$$AssertEquals(OrderHeader.DeliveryName,"Een Belg")
Do $$$AssertEquals(OrderHeader.DlvAddrCountry ,"BE")
Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml
===================================================================
diff -u -r46889 -r47866
--- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 46889)
+++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 47866)
@@ -11,7 +11,6 @@
Set OrderHeader.ConfirmBody = Order.GeefCommissieReferentie()
Set OrderHeader.CurrencyCode = "EUR"
Set OrderHeader.CustAccount = ##class(AXimpl.AdminToAxUtils).ConvertCustomerID(Order.GeefKlantID())
- Set OrderHeader.CustomerRef = Order.GeefOrderReferentie()
Set OrderHeader.InvoiceAccount = OrderHeader.CustAccount
Set OrderHeader.ReceiptDateRequested = ..GeefLeverDatumVanOrder(Order)
Set OrderHeader.SalesIdAX = Order.GeefAxSalesId()
@@ -22,7 +21,8 @@
Set OrderHeader.class = "entity"
Set OrderHeader.MessageId = MessageId
- Set OrderHeader.PurchOrderFormNum = Order.GeefDocumentReferenties().KlantOrderNummer
+ Set OrderHeader.CustomerRef = Order.GeefDocumentReferenties().KlantOrderNummer
+ Set OrderHeader.PurchOrderFormNum = Order.GeefOrderReferentie()
#dim Leveradres as DOM.VKP.LeverAdres = Order.GeefAfleveradres()
Set OrderHeader.DeliveryName = Leveradres.GeefNaam()