0

I am writing a custom application that will allow our accountant to enter payments into our Accounting system using the qbsdk. Specifically I am using the AppendReceivePaymentAddRq (I will detail my code below). My concern is when using the QB interface by going to Receive payment, the payment gets put into Undeposited Funds, then we can go to Banking > Make Deposit and we see the payment there.

While using the AppendReceivePaymentAddRq method the payments gets put into Undeposited Funds however when we go to Banking > Make Deposit we don't see the payment. However the payments does get applied to the invoice.

Am I doing something wrong in the AppendReceivePaymentAddRq?? Here is my code.

Dim msgSetRequest As IMsgSetRequest = Common.CreateRequest()
        Dim paymentRequest As IReceivePaymentAdd = msgSetRequest.AppendReceivePaymentAddRq()
        paymentRequest.CustomerRef.ListID.SetValue(Me.CustomerListId)
        paymentRequest.ARAccountRef.FullName.SetValue(Me.ARAccount)
        paymentRequest.TxnDate.SetValue(Me.TransactionDate)
        paymentRequest.TotalAmount.SetValue(Me.TotalAmount)
        paymentRequest.PaymentMethodRef.FullName.SetValue(Me.PaymentMethod)
        paymentRequest.Memo.SetValue(Me.Memo)
        paymentRequest.DepositToAccountRef.FullName.SetValue(Me.DepositToAccount)
        paymentRequest.RefNumber.SetValue(Me.PayRef)
        For Each invoice As Invoice In Me.OpenInvoices
            If invoice.PaymentAmount > 0 Then
                Dim appliedPayment As IAppliedToTxnAdd = paymentRequest.ORApplyPayment.AppliedToTxnAddList.Append()
                appliedPayment.TxnID.SetValue(invoice.TransactionId)
                appliedPayment.PaymentAmount.SetValue(invoice.PaymentAmount)
            End If
        Next

 Dim msgSetResponse As IMsgSetResponse = Common.SessionManager.DoRequests(msgSetRequest)
        Dim responseList As IResponseList = msgSetResponse.ResponseList
        If responseList IsNot Nothing Then
            For i As Integer = 0 To responseList.Count - 1
                Dim response As IResponse = responseList.GetAt(i)
                If (response.StatusCode = 0) Then
                    FieldManager.UpdateChildren(Me)
                Else
                    Dim message = response.StatusMessage
                    Throw New ApplicationException(message)
                End If
            Next
        End If
2
  • 1
    Check to see if there is more than one Undeposited Funds account. Undeposited Funds is a special type of account that QuickBooks creates automatically. There are times that the user has created an account called Undeposited Funds on their own, so when QuickBooks creates the account it names it "*Undeposited Funds". The Make Deposit window only shows payments that hit the QuickBooks generated Undeposited Funds account.
    – Hpjchobbes
    Jan 8, 2014 at 15:12
  • Thank you, that was the problem exactly. There were 2 accounts called Undeposited funds, but one had a "*" in front of it. Changing my code to include the * made the difference. Thanks for your help
    – Richard S.
    Jan 8, 2014 at 15:40

1 Answer 1

0

Didn't know how to mark Hpjchobbes's comment as the answer, so I up-voted him and here is the answer if anyone cares.

There were 2 accounts matching the Undeposited funds account, I was mistakenly posting the the wrong one. QB was looking in the account marked "*Undeposited Funds" Changing my code the reflect the * solved my issue.

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.