Hola
Estoy atascado en el primer escalón, quiero conectar a B1 con DI-API y he visto un montón de sitios con el mismo código, pero yo no consigo hacerlo funcionar, estoy usando esto:
Public Function ConectarSBO() As String
Dim lRetCode, ErrorCode As Long
Dim ErrorMessage As String = ""
oCompany = New SAPbobsCOM.Company()
oCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_HANADB
oCompany.language = SAPbobsCOM.BoSuppLangs.ln_Spanish
oCompany.DbUserName = "SYSTEM" 'UsuarioHANA
oCompany.DbPassword = "xxxxxxxxxx" 'PasswordHANA
oCompany.Server = "miservidor:30015"
oCompany.LicenseServer = "miservidor:40000"
oCompany.SLDServer = "miservidor:40000"
oCompany.CompanyDB = "SBO_BBDD"
oCompany.UserName = "manager"
oCompany.Password = "1234"
oCompany.UseTrusted = False
lRetCode = oCompany.Connect()
If lRetCode <> 0 Then
oCompany.GetLastError(ErrorCode, ErrorMessage)
ConectarSBO = "Desconectado"
MsgBox(ErrorMessage + ErrorCode.ToString + oCompany.GetLastErrorDescription)
Else
ConectarSBO = "Conectado"
MsgBox("OK")
End If
End Function
Haga lo que haga y use el usuario que use siempre obtengo error de conexión ("Error during SBO user authentication -132)
El usuario de HANA (SYSTEM en el ejemplo) es correcto, tengo varios y con ellos puedo conectar con el Hana Studio, el usuario de la BBDD (manager) también existe y puedo conectar con el cliente de B1 sin problemas a la BBDD elegida.
He probado sin SLD Server (he visto algunos ejemplos donde no lo usan), mismo resultado.
¿Alguna idea?