Index: AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r42667 -r42704
--- AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 42667)
+++ AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter.cls.xml (.../SalesOrderConverter.cls.xml) (revision 42704)
@@ -29,11 +29,26 @@
Set MessageParts = ##class(AXif.Dynamics.SalesOrderOut.MessageParts).%New()
Set OrderHeader = ##class(AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderHeader).%New()
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()
Do MessageParts.ADUMsgSalesOrderInQuery.OrderHeader.SetAt(OrderHeader,1)
+
Quit MessageParts
]]>
+
+
+Order:DOM.VKP.Order
+1
+%Date
+
+
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter/Test.cls.xml
===================================================================
diff -u -r42667 -r42704
--- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter/Test.cls.xml (.../Test.cls.xml) (revision 42667)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/SalesOrderConverter/Test.cls.xml (.../Test.cls.xml) (revision 42704)
@@ -13,10 +13,16 @@
Set SalesOrderConvertor = ##class(AXimpl.Dynamics.SalesOrderOut.Converter.SalesOrderConverter).%New(OrderAPI)
#dim Messageparts as AXif.Dynamics.SalesOrderOut.MessageParts = SalesOrderConvertor.Convert(..GeefRequest())
+ #dim OrderHeader as AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderHeader = Messageparts.ADUMsgSalesOrderInQuery.OrderHeader.GetAt(1)
-
- do $$$AssertEquals(Messageparts.ADUMsgSalesOrderInQuery.OrderHeader.GetAt(1).SalesIdAX ,"")
- do $$$AssertEquals(Messageparts.ADUMsgSalesOrderInQuery.OrderHeader.GetAt(1).ConfirmBody ,"CommissieReferentie")
+ do $$$AssertEquals(OrderHeader.ConfirmBody,"CommissieReferentie")
+ do $$$AssertEquals(OrderHeader.CurrencyCode,"EUR")
+ do $$$AssertEquals(OrderHeader.CustAccount,"01000")
+ do $$$AssertEquals(OrderHeader.CustomerRef,"OrderReferentie")
+ do $$$AssertEquals(OrderHeader.InvoiceAccount,"01000")
+ do $$$AssertEquals(OrderHeader.ReceiptDateRequested,"")
+ do $$$AssertEquals(OrderHeader.SalesIdAX,"AXSalesId")
+
Do OrderAPI.Verifieer()
]]>
@@ -36,6 +42,7 @@
+1
DOM.VKP.Order