Deletes the current line.
Returns a result value that indicates success or failure.
Public Sub Delete()
Dim oOrder As SAPbobsCOM.Documents ' Order object Dim lRetCode As Integer ' Return Code ' New Order oOrder = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders) ' Fill Order details oOrder.CardCode = "C40000" oOrder.CardName = "Earthshaker Corporation" oOrder.HandWritten = SAPbobsCOM.BoYesNoEnum.tNO oOrder.DocDate = Today() oOrder.DocDueDate = Today() oOrder.DocCurrency = "USD" 'Fill 2 lines in the order oOrder.Lines.ItemCode = "A00001" oOrder.Lines.ItemDescription = "IBM Inforprint 1312" oOrder.Lines.Quantity = 1 oOrder.Lines.Price = 380 oOrder.Lines.TaxCode = "0" oOrder.Lines.LineTotal = 380 oOrder.Lines.Add() oOrder.Lines.ItemCode = "A00002" oOrder.Lines.ItemDescription = "IBM Infoprint 1222" oOrder.Lines.Quantity = 1 oOrder.Lines.Price = 380 oOrder.Lines.TaxCode = "0" oOrder.Lines.LineTotal = 380 ' Now we want to delete the second line in the Order oOrder.Lines.Delete() ' The Order will be added without the second line lRetCode = oOrder.Add
Items_PreferredVendors Object