Quantcast
Channel: Tópicos
Viewing all articles
Browse latest Browse all 14700

Motores Primavera vba

$
0
0
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

Viewing all articles
Browse latest Browse all 14700

Trending Articles