Iepppp! He encontrado una solución mediante el método oCompany.StartTransaction()
Aquí os paso mi código para el que le pueda interesar!
'Iniciar objeto de la compañía
'oCompany = New SAPbobsCOM.Company
'Definir datos de la conexión
oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2005 'Tipo de BD
oCompany.DbUserName = "sa"
oCompany.DbPassword = "********" 'Contraseña usuario SA
oCompany.Server = "SERV" 'IP o servidor de SQL
oCompany.CompanyDB = "VVPeru_STDJOR" 'BASE DE DATOS
oCompany.UserName = "manager"
oCompany.Password = "*******" 'contraseña usuario manager
oCompany.language = SAPbobsCOM.BoSuppLangs.ln_Spanish_La 'lenguaje de SQL, si está en español usa SAPbobsCOM.BoSuppLangs.ln_Spanish
oCompany.UseTrusted = False
'Conectar a la base de SAP B1
lRetCode = oCompany.Connect()
If lRetCode = 0 Then
oCompany.StartTransaction()
'Document = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)
oDoc = oCompany.GetBusinessObject(BoObjectTypes.oInvoices)
oDoc.CardCode = "J00984"
oDoc.FolioPrefixString = "12"
oDoc.FolioNumber = "58950"
oDoc.NumAtCard = "12-020-58950"
oDoc.DocDate = Today
oDoc.DocDueDate = Today
oDoc.TaxDate = Today
oDoc.Series = 107
oDoc.DocumentSubType = BoDocumentSubType.bod_Bill
'oDoc.Series = "12-020"
oDoc.Comments = "Prueba subida Boleta : 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)
If ret Then
oDoc.CardCode = "C00984"
oDoc.FolioPrefixString = "12"
oDoc.FolioNumber = "58951"
oDoc.NumAtCard = "12-020-58951"
oDoc.DocDate = Today
oDoc.DocDueDate = Today
oDoc.TaxDate = Today
oDoc.Series = 107
oDoc.DocumentSubType = BoDocumentSubType.bod_Bill
