1

需要在 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()
4

1 回答 1

0

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

首先,我会尝试将示例翻译成 VB。我无法为您提供具体的语法,但这里没有什么花哨的,所以应该相当简单。

关于 AX 中 Web 服务的使用,另请参见:

于 2011-07-25T09:16:41.417 回答