Creating Invoice from a Delivery Note using SDK

Question

Hi,
I am working on SAP 2005 A Patch 4 with SQL 2000 SP 4. I am using VB.NET (VS2005). I am trying to create a Invoice from a Delivery note which is created based on a Sales order.
I am getting the following error
Error occured while saving Invoice: 0 - '15' is not a valid value for field 'BaseType'. The valid values are: '-1' - '',  '0' - '',  '23' - 'Sales Quotation',  '17' - 'Sales Order',  '16' - 'A/R Returns'
The Code that i used to create the invoice is as follows
Dim oInvoice As SAPbobsCOM.Documents
        oInvoice = pcompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
        oDelivery = pcompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDeliveryNotes)
        Try
            If oDelivery.GetByKey(iDlvNo) = True Then
                sTaxCodes = sTaxCode
                oInvoice = pcompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
                oInvoice.CardCode = oDelivery.CardCode
                oInvoice.SalesPersonCode = oDelivery.SalesPersonCode
                oInvoice.DocType = SAPbobsCOM.BoDocumentTypes.dDocument_Items
                oInvoice.DocumentSubType = SAPbobsCOM.BoDocumentSubType.bod_None
                oInvoice.Address = oDelivery.Address
                oInvoice.ShipToCode = oDelivery.ShipToCode
                oInvoice.Address2 = oDelivery.Address2
                oInvoice.JournalMemo = "Invoice - " & oDelivery.CardCode
                oInvoice.Comments = "Based on Delivery  " & oDelivery.DocNum
                oInvoice.PaymentGroupCode = oDelivery.PaymentGroupCode
                oInvoice.DocDueDate = Now.Month & "/" & Now.Day & "/" & Now.Year
                For iRowNo = 0 To oDelivery.Lines.Count - 1
                    If iRowNo > 0 Then
                        oInvoice.Lines.Add()
                    End If
                    oDelivery.Lines.SetCurrentLine(iRowNo)
                    oInvoice.Lines.ItemCode = oDelivery.Lines.ItemCode
                    oInvoice.Lines.Quantity = oDelivery.Lines.Quantity
                    oInvoice.Lines.Rate = oDelivery.Lines.Rate
                    oInvoice.Lines.BaseType = SAPbobsCOM.BoAPARDocumentTypes.bodt_DeliveryNote
                    oInvoice.Lines.BaseEntry = iDlvNo 'DocEntry of Delivery Note
                    oInvoice.Lines.BaseLine = iRowNo
                    oInvoice.Lines.TaxCode = sTaxCodes
                Next
                iReturnValue = oInvoice.Add()
                If iReturnValue <> 0 Then
                    pcompany.GetLastError(iReturnValue, sErrorDescription)
                    Throw New Exception("Error occured while saving Invoice: " + _
                                       iErrorNo.ToString() + " - " + sErrorDescription)
                Else
                    MessageBox.Show("Invoice created succesfully")
                End If
            End If
Since in the error message it has specified that i have given the BaseType as Delivery which has a value of 15 i changed that from bodt_DeliveryNote to bodt_Order which has a value as 17.
When i tried creating the invoice again it gave the error
Error occured while saving Invoice: 0 - Target item number does not match base item number.  [RDR1.TargetType][line: 2]
I am not able to proceed further ... can any one help me
thanks in advance
Ganesh

Answer 1

Greetings,
I am having a similar problem, only I'm doing it as suggested in Louis' reply.  In fact I copied that code and tried it.  It's giving me a 2028 error with no description.
I had been doing it slightly differently and the error I was getting was 5002 "Item no. is missing [INV1.ItemCode][line 2]"  I don't have 2 lines and I'm certain I have an item code.  The numbers I'm putting in for baseentry & baseline are absolutely in the table and the order is open.
Here is that code:
        oDNUpd = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
        oDNUpd.CardCode = CardCode.Text
        oDNUpd.Lines.BaseEntry = CInt(SalesOrder.Text)
        oDNUpd.Lines.BaseLine = CInt(baseline.Text)
        oDNUpd.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oOrders
        oDNUpd.Lines.Add()
        lretcode = oDNUpd.Add
I'm using SBO 2005 patch 7 (and the new dll).  I have similar code doing a stock transfer and it's working fine.
Thanks for any suggestions you can offer
John