Convert sales order to sales invoice

Question

Hi Dear;
in SBO there is Document generation wizard utitity that help us to convert many sales orders to sales invoices, but for non multilanguage Business partners.
could you help me and send to me the syntax that convert a/r sales oerder to a/r sales invoice please?
regards;

Answer 1

Hi Dany,
Here's some sample code of how to convert a Sales Order (object type 17) to an invoice. I have used sales order number 10 as an example here.
        Dim oInvoice As SAPbobsCOM.Documents
        Dim oOrder As SAPbobsCOM.Documents
        Dim iDocEntry As Integer
        Dim i As Integer
        iDocEntry = 10
        oOrder = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)
        oInvoice = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
        oOrder.GetByKey(iDocEntry)
        oInvoice.CardCode = oOrder.CardCode
        oInvoice.CardName = oOrder.CardName
        oInvoice.Address = oOrder.Address
        oInvoice.DocDate = oOrder.DocDate
        oInvoice.DocDueDate = oOrder.DocDate
        For i = 0 To oOrder.Lines.Count - 1
            oOrder.Lines.SetCurrentLine(i)
            If i > 0 Then
                oInvoice.Lines.Add()
            End If
            oInvoice.Lines.BaseEntry = oOrder.DocEntry
            oInvoice.Lines.BaseLine = oOrder.Lines.LineNum
            oInvoice.Lines.BaseType = 17
        Next
        If oInvoice.Add() <> 0 Then
            oApplication.MessageBox("Error: " & oCompany.GetLastErrorDescription)
        End If
Hope it helps,
Adele