Error When Insert Invoice!!!

Question

Hi All!  "Item no. is missing  [INV1.ItemCode][line: 2]"
I have function to Insert A/R Invoice as follows:
Private Function Add_Invoice(ByVal TransCode As Double) As Boolean
         Dim strShop As String = "C570004"
        Dim oInv As SAPbobsCOM.Documents
        oInv = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
        oInv.CardCode = strShop
        oInv.DocDate = Now.Date
        oInv.DocDueDate = Now.Date
        oInv.Comments = "From POS System - With Transaction Code " & TransCode
        Dim disc As Double = 0
        Dim WarehouseCode As String = "HCI001"
        Dim VATGroup As String = "S10_CM"
        For i_row As Integer = 0 To jsgxDetails.RowCount - 1
            jsgxDetails.Row = i_row
            oInv.Lines.SetCurrentLine(i_row)
            oInv.Lines.ItemCode = jsgxDetails.GetValue("Item_Code")
            oInv.Lines.ItemDescription = jsgxDetails.GetValue("Item_Name")
            oInv.Lines.UnitPrice = jsgxDetails.GetValue("Item_Price")
            oInv.Lines.Quantity = jsgxDetails.GetValue("Item_Quantity")
            oInv.Lines.DiscountPercent = disc
            oInv.Lines.WarehouseCode = WarehouseCode
            oInv.Lines.VatGroup = VATGroup
            oInv.Lines.Add()
        Next
        lRetCode = oInv.Add()
       If lRetCode <> 0 Then
            oCompany.GetLastError(lErrCode, sErrMsg)
            MessageBox.Show(sErrMsg)
            Return False
else
          Return true
end if
end function
But when I Add 1 item, It Appears error "Item no. is missing  [INV1.ItemCode][line: 2]". Add 2 items appears "Item no. is missing  [INV1.ItemCode][line: 3]". I don't know this bug. Help me to solve this problem. Thanks.

Answer 1

Hi Jane Jing!
Thanks for your support I have fixed this problem. Now I want to add Payment continue in Add Invoice function:
Dim oPayment As SAPbobsCOM.Payments
                oPayment = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oIncomingPayments)
                oPayment.CardCode = strShop
                oPayment.DocDate = Now.Date
                oPayment.DocCurrency = "VND"
                oPayment.CashAccount = "111100"
                oPayment.CashSum = oInv.DocTotal
                oPayment.Series = 0
                oPayment.Remarks = "Remarks"
                oPayment.Invoices.DocEntry = oInv.DocEntry
                oPayment.Invoices.DocLine = 0
                oPayment.Invoices.InvoiceType = SAPbobsCOM.BoRcptInvTypes.it_Invoice
                oPayment.Invoices.SumApplied = oInv.DocTotal
                lRetCode = oPayment.Add
                If lRetCode <> 0 Then
                    oCompany.GetLastError(lErrCode, sErrMsg)
                    MessageBox.Show(sErrMsg)
                    Return False
                End If
The DocEntry of Invoice i have Add, but appear Error "No matching records found (ODBC -2028)" . Help me to fix it. Thanks
Edited by: Tao lao on Jun 5, 2008 12:09 PM