使用 AX 2009 ReturnOrderInService Web 服务的 vb.Net 代码

Question

需要在 vb.NET aspx 页面中使用 AX 2009 ReturnOrderInService Web 服务的 create 方法在 AX 中创建 RMA。

我在下面编写的代码在 AX 中创建 RMA，但不会在 AX RMA 表单中显示行详细信息，即使记录位于 SalesTable 和 SalesLine 中。

InventTrans 中是否需要记录，或者某处是否缺少 InventRefId 值？

---

    Dim rmaClient As ReturnOrderInServiceClient = New ReturnOrderInServiceClient("WSHttpBinding_ReturnOrderInService1")
    Dim roi As AxdReturnOrderIn = New AxdReturnOrderIn

    Dim st As AxdEntity_SalesTable = New AxdEntity_SalesTable
    st.CustAccount = "123"
    st.ReturnReasonCodeId = "RRC1"
    st.DlvMode = "01"
    st.SalesType = 4  'return item
    st.ReturnDeadline = DateAdd(DateInterval.Day, 15, Now())

    Dim sl As AxdEntity_SalesLine = New AxdEntity_SalesLine
    sl.ItemId = "ITEM 123"        
    sl.ExpectedRetQty = -2
    sl.LineAmount = 0           
    sl.InventTransIdReturn = "" 

    st.SalesLine = New AxdEntity_SalesLine() {sl}
    roi.SalesTable = New AxdEntity_SalesTable() {st}

    txtFeedback.Text = ""

    Try
        Dim returnedSalesOrderEntityKey As EntityKey() = rmaClient.create(roi)
        Dim returnedSalesOrder As EntityKey = CType(returnedSalesOrderEntityKey.GetValue(0), EntityKey)            
        txtFeedback.Text = GetRMANo(returnedSalesOrder.KeyData(0).Value)
    Catch ex As Exception
        txtFeedback.Text = ex.Message
    End Try

    rmaClient.Close()

Answer 1

您是否按照 http:/ 中所述生成代理类/msdn.microsoft.com/en-us/library/cc652581(v=ax.50).aspx？
这应该创建所需的 AxdEntity 类。

首先，我会尝试翻译 示例 到VB。我无法帮助您了解具体的语法，但这里没有什么花哨的东西，所以它应该相当简单。

关于 AX 中 Web 服务的使用，另请参阅：

• http://www.axaptapedia.com/Webservice
• http://blogs.msdn.com/b/aif/archive/2011/06/15/microsoft-dynamics-ax-2012-services-and-aif-white-papers.aspx
• http://blogs.msdn.com/b/aif/archive/2007/11/28/consuming-the-customer-service-from-ac-client.aspx（最后一部分)
• http://channel9.msdn.com/blogs/sanjayjain/microsoft-dynamics-ax-2009-aif-web-services-screencast