使用 vb.net 和 QuickBooks 2015 在 QuickBooks 中添加简单发票答案

【问题标题】：Simple Invoice add in QuickBooks using vb.net and QuickBooks 2015使用 vb.net 和 QuickBooks 2015 在 QuickBooks 中添加简单发票
【发布时间】：2015-03-27 05:07:32
【问题描述】：

当我尝试将发票添加到 QuickBooks 时，我将 response.staus 显示为“状态正常”，但在 QuickBooks 中看不到值。

Dim customerRet As ICustomerRet = customerRetList.GetAt(i)
                CustomerName = customerRet.Name.GetValue()
                QuickBooksID = customerRet.ListID.GetValue()
                requestMsgSet = sessionManager.CreateMsgSetRequest("US", 13, 0)
                requestMsgSet.Attributes.OnError = ENRqOnError.roeContinue
                Dim invoiceAddRq As IInvoiceAdd = requestMsgSet.AppendInvoiceAddRq()
                invoiceAddRq.CustomerRef.ListID.SetValue(customerRet.ListID.GetValue())
               invoiceAddRq.CustomerRef.FullName.SetValue(customerRet.FullName.GetValue())
                invoiceAddRq.RefNumber.SetValue(15)
                ' Add these lines to your request
                Dim invoiceLineAdd As IORInvoiceLineAdd = invoiceAddRq.ORInvoiceLineAddList.Append()

                invoiceLineAdd.InvoiceLineAdd.ItemRef.FullName.SetValue("Sales")
                ' invoiceLineAdd.InvoiceLineAdd.Amount.SetValue(1000)
                invoiceLineAdd.InvoiceLineAdd.Desc.SetValue("Test")
                invoiceLineAdd.InvoiceLineAdd.Quantity.SetValue(Convert.ToDouble(1))
                invoiceLineAdd.InvoiceLineAdd.ORRatePriceLevel.Rate.SetValue(Convert.ToDouble(10))
              invoiceLineAdd.InvoiceLineAdd.Amount.SetValue(Convert.ToDouble(1005))
                invoiceLineAdd.InvoiceLineAdd.ServiceDate.SetValue(DateTime.Now)
                Dim invoiceResponseMsgSet As IMsgSetResponse = sessionManager.DoRequests(requestMsgSet)
                Dim invoiceResponse As IResponse = invoiceResponseMsgSet.ResponseList.GetAt(0)
                Dim invoiceRet As IInvoiceRet = DirectCast(invoiceResponse.Detail, IInvoiceRet)

                Dim StatusMessage As String = response.StatusMessage
                Dim statusCode As Integer = response.StatusCode

【问题讨论】：

标签： vb.net quickbooks

【解决方案1】：

当您说在 QuickBooks 中找不到它时，您是如何搜索的？有几行显得多余或奇怪。

invoiceLineAdd.InvoiceLineAdd.Quantity.SetValue(Convert.ToDouble(1))
invoiceLineAdd.InvoiceLineAdd.ORRatePriceLevel.Rate.SetValue(Convert.ToDouble(10))
invoiceLineAdd.InvoiceLineAdd.Amount.SetValue(Convert.ToDouble(1005))

如果您输入数量和费率，QuickBooks 将计算金额，或者如果您输入数量和金额，QuickBooks 将计算费率。我不确定您的发票是什么样子，因为您的数量为 1，费率为 10（总计 10.00 美元）和金额为 1005 美元（即费率为 1005 美元）。

您没有设置发票的交易日期。 QuickBooks 中有一个设置是使用今天的日期作为默认日期，或者使用上次使用的交易日期，因此可能是发票的日期与预期的日期不同。

您的 RefNum 值似乎也是一个数字，但应该是一个字符串。不知道VB会不会自动帮你改。

如果您收到 Status OK 响应，请检查返回的值以查看它们是否与您发送的内容相匹配。我也建议做一个搜索

【讨论】：