Депозит Quickbooks SDK не заполняет получателя платежа по основному депозиту

Я создаю программу, используя QBFC13, которая должна создать депозит со счета другого типа текущего актива на банковский счет. Однако при выполнении метода depositadd получатель платежа не заполняется на банковском счете. Как мне заполнить информацию о получателе платежа? У меня недостаточно высокая репутация, чтобы публиковать изображения, поэтому это ссылка на изображение поля, которое мне нужно заполнить: http://i.stack.imgur.com/nqWOh.jpg

Вот мой текущий код:

    Public Sub CreateDeposit()
    On Error GoTo Errs
    Dim depositadd As IDepositAdd
    depositadd = msgSetRequest.AppendDepositAddRq()
    depositadd.DepositToAccountRef.FullName.SetValue("checking")

    depositadd.Memo.SetValue("newdeposit test")
    depositadd.TxnDate.SetValue(Date.Today)



    Dim depositLineAdd As IDepositLineAdd
    depositLineAdd = depositadd.DepositLineAddList.Append()
    depositLineAdd.ORDepositLineAdd.DepositInfo.AccountRef.ListID.SetValue("1EE0000-943382783")
    depositLineAdd.ORDepositLineAdd.DepositInfo.EntityRef.ListID.SetValue("80002534-1335362979")
    depositLineAdd.ORDepositLineAdd.DepositInfo.Amount.SetValue(150.0)
    depositLineAdd.ORDepositLineAdd.DepositInfo.Memo.SetValue("test memo lineitem")


    ' send the request to QB
    Dim msgSetResponse As IMsgSetResponse
    msgSetResponse = qbSessionManager.DoRequests(msgSetRequest)

    ' check to make sure we have objects to access first
    ' and that there are responses in the list
    If (msgSetResponse Is Nothing) Or _
        (msgSetResponse.ResponseList Is Nothing) Or _
        (msgSetResponse.ResponseList.Count <= 0) Then
        Exit Sub
    End If

    ' Start parsing the response list
    Dim responseList As IResponseList
    responseList = msgSetResponse.ResponseList
    MsgBox(msgSetRequest.ToXMLString())
    ' go thru each response and process the response.
    ' this example will only have one response in the list
    ' so we will look at index=0
    Dim response As IResponse
    response = responseList.GetAt(1)
    If (Not response Is Nothing) Then
        If response.StatusCode <> "0" Then
            MsgBox("DepositFunds unexpexcted Error - " & vbCrLf & "StatusCode = " & response.StatusCode & vbCrLf & vbCrLf & response.StatusMessage)
        Else
            MsgBox("The funds were successfully deposited in Checking")
            MsgBox(msgSetResponse.ToXMLString())
        End If
    End If

    Exit Sub

Errs:
        MsgBox("HRESULT = " & Err.Number & " (" & Hex(Err.Number) & ") " & vbCrLf & vbCrLf & Err.Description, _
                MsgBoxStyle.Critical, _
                "Error in DepositFunds")



End Sub

quickbooks qbfc
person Greg M    schedule 23.05.2014    source источник

Ответы (1)


arrow_upward
0
arrow_downward

На самом деле это не проблема SDK, так как QuickBooks был разработан. Поскольку депозитная транзакция в QuickBooks может содержать несколько строк, в банковском реестре не будут отображаться имена, даже если есть только одна строка. Вы можете вручную зайти в реестр банка и добавить имя, но через SDK это сделать невозможно. Это можно сделать в два этапа даже в QuickBooks, где вы создаете депозит, а затем идете и редактируете его в реестре.

Если вам нужно, чтобы эта информация отображалась из транзакции с помощью SDK, возможно, вам придется использовать записи журнала вместо транзакции депозита.

person TravestyOfCode    schedule 23.05.2014
comment
Большое спасибо! Думаю, мне придется попробовать вести журнал и убедиться, что с бухгалтерией все в порядке! - person Greg M; 23.05.2014