Hola,
Encontrarás un código de muestra en el archivo de ayuda de DI API.
Private Sub cmdTest_Click()
On Error GoTo ErrorHandler
Dim vCompany As SAPbobsCOM.Company
'crear objeto de compañía
Set vCompany = New SAPbobsCOM.Company
'establecer parámetros para la conexión
vCompany.CompanyDB = "SBODemo_US"
vCompany.Password = "manager"
vCompany.UserName = "manager"
vCompany.Server = "(local)"
'conectar al servidor de base de datos
If (0 <> vCompany.Connect()) Then
MsgBox "Fallo al conectar"
Exit Sub
End If
Dim nErr As Long
Dim errMsg As String
'Configuraremos un contacto con BP D10008, el 15 de diciembre de 2002
'si el contacto ya existe, simplemente refrescarlo, de lo contrario
'agregarlo.
Dim bFound As Boolean
bFound = False
Dim iNum As Long
iNum = 1
Dim vContact As SAPbobsCOM.Contacts
Set vContact = vCompany.GetBusinessObject(oContacts)
While ((vContact.GetByKey(iNum) = True) And (bFound = False))
If (vContact.CardCode = "HU1001") Then
If (vContact.Closed = tNO) Then
bFound = True
End If
End If
iNum = iNum + 1
Wend
vContact.CardCode = "HU1001"
vContact.Closed = tNO
vContact.ContactDate = CDate("15/12/2002")
vContact.Notes = "Discutir el plan financiero del próximo año"
If (bFound = False) Then
'no se puede encontrar un contacto existente para usar, simplemente crear uno nuevo
vContact.DocType = oContacts
If (vContact.Add() <> 0) Then
MsgBox "Fallo al agregar un contacto"
Else
MsgBox ("Éxito al agregar contacto")
vContact.SaveXml ("C:\temp\Contact" + vContact.DocEntry + ".xml")
End If
Else
If (0 <> vContact.Update()) Then
MsgBox ("Fallo en la actualización del contacto")
Else
MsgBox ("Éxito en la actualización del contacto")
vContact.SaveXml ("C:\temp\Contact" + vContact.DocEntry + ".xml")
End If
End If
'Verificar error
Call vCompany.GetLastError(nErr, errMsg)
If (0 <> nErr) Then
MsgBox ("Error encontrado:" + Str(nErr) + "," + errMsg)
End If
'desconectar el objeto de compañía y liberar recursos
Call vCompany.Disconnect
Set vCompany = Nothing
Exit Sub
ErrorHandler:
MsgBox ("Excepción:" + Err.Description)
End Sub
Saludos, Chris
