Viva,
Tenho o seguinte código que dá erro 438 (object doesn't support this propertu or method)
Public Sub AbreEmpresa()
Dim objMotorErp As ErpBS
On Error GoTo Erro
If Not (objMotorErp Is Nothing) Then objMotorErp.FechaEmpresaTrabalho
Set objMotorErp = Nothing
Set objMotorErp = New ErpBS
objMotorErp.AbreEmpresaTrabalho tpEmpresarial, Range("EMPRESA"), Range("UTILIZADOR"), Range("PASSWORD")
'cria o documento de venda
Dim docVenda As GcpBEDocumentoVenda
Set docVenda = New GcpBEDocumentoVenda
docVenda.Serie = "2016"
docVenda.Tipodoc = "GTT"
docVenda.TipoEntidade = "C"
docVenda.Entidade = "00009"
On Error GoTo Erro2
docVenda = objMotorErp.Comercial.Vendas.PreencheDadosRelacionados(docVenda)
Dim artigo As String
artigo = "22"
Call objMotorErp.Comercial.Vendas.AdicionaLinha(docVenda, "22")
Dim strAvisos As String
'gravar o documento.
Call objMotorErp.Comercial.Vendas.Actualiza(docVenda, strAvisos)
'Fecho do motor
objMotorErp.FechaEmpresaTrabalho
Set objMotorErp = Nothing
Exit Sub
Erro:
objMotorErp.FechaEmpresaTrabalho
Set objMotorErp = Nothing
MsgBox "Erro ao abrir a empresa." & vbCrLf & Err.Description, vbExclamation
Erro2:
objMotorErp.FechaEmpresaTrabalho
Set objMotorErp = Nothing
MsgBox "Erro ao adicionar linha" & vbCrLf & Err.Description & vbCrLf & Err.LastDllError & vbCrLf & Err.Number & vbCrLf & Err.Source & vbCrLf & strAvisos, vbExclamation
End Sub
↧