-5002 Error on adding of A/P Invoice and Company.GetLastError returns 0/""

Question

Hi
Hopefuly someone here can help me. I have written a small addon that places orders, Invoices etc between two Companies. One is a sales company and the other a production company.
The problem I am having is at the production company when they do an AR invoice to the sales company I create a AP Invoice (sales company side). This works fine for documents with one line item but not for more. Could someone please try to shed some light on this.
I use the following code :
oGoodsReceipt = oIntercompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseInvoices)
                '// PO header
                oGoodsReceipt.Series = iSeries
                oGoodsReceipt.CardCode = sPartnerCC
                oGoodsReceipt.HandWritten = SAPbobsCOM.BoYesNoEnum.tNO
                oGoodsReceipt.DocDate = oInvoice.DocDate
                oGoodsReceipt.DocDueDate = oInvoice.DocDueDate
                oGoodsReceipt.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
                oGoodsReceipt.DocObjectCode = SAPbobsCOM.BoObjectTypes.oPurchaseOrders
                oGoodsReceipt.Comments = "Inter Company receipt of Invoice No " & CStr(oInvoice.DocNum) _
                                    & " for Purchase Order " & oInvoice.UserFields.Fields.Item("U_FC_ICDocEntry").Value _
                                    & " " & oPurchaseOrders.Comments
                '// PO Lines
                For i = 0 To oInvoice.Lines.Count - 1
                    If i <> 0 Then
                        oInvoice.Lines.SetCurrentLine(i)
                        oGoodsReceipt.Lines.Add()
                    End If
                    oGoodsReceipt.Lines.BaseType = SAPbobsCOM.BoAPARDocumentTypes.bodt_PurchaseOrder
                    oGoodsReceipt.Lines.BaseEntry = oPurchaseOrders.DocEntry
                    oGoodsReceipt.Lines.Quantity = oInvoice.Lines.Quantity
                    oGoodsReceipt.Lines.ItemCode = oPurchaseOrders.Lines.ItemCode
                    oGoodsReceipt.Lines.BaseLine = oInvoice.Lines.LineNum
                Next i
                RetVal = oGoodsReceipt.Add()

Answer 1

Never mind solved it I was using  "oGoodsReceipt.Lines.ItemCode = oPurchaseOrders.Lines.ItemCode" instead of the Item Code of the Invoice