Hi Diego.
He sends error in the part of the connection, re order code follows.
The strange thing is that sends error connecting to the SBO-COMMONS
<WebMethod()> _
Public Function prueba(ByVal msje As String) As String
Dim lRetCode As Long
oCompany = New SAPbobsCOM.Company
oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2008
oCompany.DbUserName = "[XX]"
oCompany.DbPassword = "[XX]"
oCompany.Server = "[XXXXXX]"
oCompany.CompanyDB = "[XXXXXX]"
oCompany.UserName = "[XXXX]"
oCompany.Password = "[XXXXX]"
oCompany.UseTrusted = False
oCompany.language = SAPbobsCOM.BoSuppLangs.ln_Spanish_La
lRetCode = oCompany.Connect()
If lRetCode <> 0 Then
MsgBox(oCompany.GetLastErrorDescription())
Else
Dim vDoc As SAPbobsCOM.JournalEntries
vDoc = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oJournalEntries)
vDoc.Memo = "Prueba"
vDoc.Lines.AccountCode = "_SYS00000000117"
vDoc.Lines.ContraAccount = "_SYS00000000117"
vDoc.Lines.ShortName = "_SYS00000000117"
vDoc.Lines.CostingCode = 301
vDoc.Lines.Debit = 2000
vDoc.Lines.Credit = 2000
lRetCode = vDoc.Add()
If lRetCode <> 0 Then
oCompany.GetLastError(lErrCode, sErrMsg)
MsgBox(lErrCode & " " & sErrMsg) ' Display error message
Else
MsgBox("Asiento Creado", MsgBoxStyle.Information)
End If
Return "Create"
oCompany.Disconnect()
End If
End Function
Thanks