How to copy Sales Order to A/R Invoice (or at least set the BaseRef)

Question

Hi, currently if I need to 'convert' a Sales Order into A/R Invoice, I have to do it via the SAP application directly. What I'm trying to achieve is to automatically do it via an EXE application (I have one ready for other purpose -> connect to SAP via DI).
So far I know how to create a new A/R Invoice and close the Sales Order, but the problem is that I can't 'link' the Invoice to the original Sales Order (ie. the BaseRef field). Is there a way to do it?
Furthermore, is there any easier way? ie. simply call a 'copy' method or something else, instead of writing the same information (field by field) from Sales Order to Invoice?
Please advise.
Thanks.

Answer 1

Hi Afandi,
This will solve your problem
Private Sub CreateInvoice()
        ' init the invoice object
        oInvoice = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
        oInvoice.CardCode = cmbCustomer.Text
        Dim sNewObjCode As String
        Dim i As Integer
        ' Get last added document number (the order that was added)
        oCompany.GetNewObjectCode(sNewObjCode)
        ' this loop adds the different items to the invoice object
        i = 0
        Do
            oInvoice.Lines.BaseEntry = sNewObjCode
            oInvoice.Lines.BaseLine = i
            oInvoice.Lines.BaseType = SAPbobsCOM.BoObjectTypes.oOrders
            oInvoice.Lines.TaxCode = TableLines.Rows(i).Item(4)
            i += 1
            If i <> TableLines.Rows.Count Then
                oInvoice.Lines.Add()
            End If
        Loop Until i = TableLines.Rows.Count
        ' Try to add the invoice object to the database
        lRetCode = oInvoice.Add()
        If lRetCode <> 0 Then ' If the addition failed
            oCompany.GetLastError(lErrCode, sErrMsg)
            MsgBox(lErrCode & " " & sErrMsg) ' Display error message
        Else
            cmdInvoice.Enabled = True
            MsgBox("inv Added to DataBase", MsgBoxStyle.Information, "Order Added")
        End If
Mohamed