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