Ol·,
VocÍ encontrar· um cÛdigo de exemplo no arquivo de ajuda do DI API.
Private Sub cmdTest_Click()
On Error GoTo ErrorHandler
Dim vCompany As SAPbobsCOM.Company
'criar objeto da empresa
Set vCompany = New SAPbobsCOM.Company
'estabelecer par‚metros para a conexÌo
vCompany.CompanyDB = "SBODemo_US"
vCompany.Password = "manager"
vCompany.UserName = "manager"
vCompany.Server = "(local)"
'conectar ao servidor de banco de dados
If (0 <> vCompany.Connect()) Then
MsgBox "Falha ao conectar"
Exit Sub
End If
Dim nErr As Long
Dim errMsg As String
'Configuraremos um contato com BP D10008, em 15 de dezembro de 2002
'se o contato j· existir, simplesmente atualize-o, caso contr·rio
'adicion·-lo.
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 o plano financeiro do prÛximo ano"
If (bFound = False) Then
'nÌo foi possÌvel encontrar um contato existente para usar, simplesmente crie um novo
vContact.DocType = oContacts
If (vContact.Add() <> 0) Then
MsgBox "Falha ao adicionar um contato"
Else
MsgBox ("Sucesso ao adicionar contato")
vContact.SaveXml ("C:\temp\Contact" + vContact.DocEntry + ".xml")
End If
Else
If (0 <> vContact.Update()) Then
MsgBox ("Falha na atualizāo do contato")
Else
MsgBox ("Sucesso na atualizāo do contato")
vContact.SaveXml ("C:\temp\Contact" + vContact.DocEntry + ".xml")
End If
End If
'Verificar erro
Call vCompany.GetLastError(nErr, errMsg)
If (0 <> nErr) Then
MsgBox ("Erro encontrado:" + Str(nErr) + "," + errMsg)
End If
'desconectar objeto da empresa e liberar recursos
Call vCompany.Disconnect
Set vCompany = Nothing
Exit Sub
ErrorHandler:
MsgBox ("Excė„o:" + Err.Description)
End Sub
SaudaÁıes, Chris
