Iepppp! Encontrei uma solução usando o método oCompany.StartTransaction()
Aqui está o meu código para quem possa estar interessado!
'Iniciar objeto da empresa
'oCompany = Novo SAPbobsCOM.Company
'Definir dados da conexão
oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2005 'Tipo de BD
oCompany.DbUserName = "sa"
oCompany.DbPassword = "********" 'Senha do usuário SA
oCompany.Server = "SERV" 'IP ou servidor SQL
oCompany.CompanyDB = "VVPeru_STDJOR" 'BANCO DE DADOS
oCompany.UserName = "manager"
oCompany.Password = "*******" 'Senha do usuário manager
oCompany.language = SAPbobsCOM.BoSuppLangs.ln_Spanish_La 'idioma do SQL, se estiver em espanhol, use SAPbobsCOM.BoSuppLangs.ln_Spanish
oCompany.UseTrusted = False
'Conectar ao banco SAP B1
lRetCode = oCompany.Connect()
Se lRetCode = 0 Então
oCompany.StartTransaction()
oDoc = oCompany.GetBusinessObject(BoObjectTypes.oInvoices)
oDoc.CardCode = "J00984"
oDoc.FolioPrefixString = "12"
oDoc.FolioNumber = "58950"
oDoc.NumAtCard = "12-020-58950"
oDoc.DocDate = Hoje
oDoc.DocDueDate = Hoje
oDoc.TaxDate = Hoje
oDoc.Series = 107
oDoc.DocumentSubType = BoDocumentSubType.bod_Bill
oDoc.Comments = "Teste de upload da fatura: 6 - app UtilsSAPBobsCOM - " & oDoc.NumAtCard
oDoc.SalesPersonCode = 24
oDoc.DocType = BoDocumentTypes.dDocument_Items
oDoc.Lines.ItemCode = "000119"
oDoc.Lines.Quantity = 1
oDoc.Lines.WarehouseCode = "03"
oDoc.Lines.UnitPrice = 29
oDoc.Lines.WTLiable = BoYesNoEnum.tNO
oDoc.Lines.SalesPersonCode = 24
oDoc.Lines.Add()
oDoc.Lines.ItemCode = "000132"
oDoc.Lines.Quantity = 1
oDoc.Lines.WarehouseCode = "03"
oDoc.Lines.UnitPrice = 25
oDoc.Lines.WTLiable = BoYesNoEnum.tNO
oDoc.Lines.SalesPersonCode = 24
oDoc.Lines.Add()
oDoc.Lines.ItemCode = "000133"
oDoc.Lines.Quantity = 5
oDoc.Lines.WarehouseCode = "03"
oDoc.Lines.UnitPrice = 32
oDoc.Lines.WTLiable = BoYesNoEnum.tNO
oDoc.Lines.SalesPersonCode = 24
'oDoc.Lines.Add()
ret = validaDocAdd(oCompany, oDoc)
Se ret Então
oDoc.CardCode = "C00984"
oDoc.FolioPrefixString = "12"
oDoc.FolioNumber = "58951"
oDoc.NumAtCard = "12-020-58951"
oDoc.DocDate = Hoje
oDoc.DocDueDate = Hoje
oDoc.TaxDate = Hoje
oDoc.Series = 107
oDoc.DocumentSubType = BoDocumentSubType.bod_Bill
