Boa Tarde,
Após gravar um documento em uma empresa “A” preciso de criar outro em automático na empresa “B” e nesta realizar a integração na contabilidade.
Estou a ter problemas na ligação à Contabilidade. Código VBA:
Sub DocVendaGrupo()
Dim oMotor As New ErpBS
Dim Transacao As New StdBETransaccao
Dim docVenda As New GcpBEDocumentoVenda
‘Abre outra Empresa
oMotor.AbreEmpresaTrabalho tpEmpresarial, “ZGZ”, Aplicacao.Utilizador.Utilizador, Aplicacao.Utilizador.Password, Transacao, Instancia, True
‘Preenche Objeto DocVenda
docVenda.tipodoc = “FA”
docVenda.entidade = “C00588”
docVenda.tipoentidade = “C”
docVenda.CondPag = “1”
oMotor.Comercial.Vendas.PreencheDadosRelacionados docVenda, 5
oMotor.Comercial.Vendas.AdicionaLinha docVenda, “PA205107072.15.00”, 1
oMotor.Comercial.Vendas.Actualiza docVenda
Debug.Print docVenda.tipodoc & ” ” & docVenda.serie & ” ” & docVenda.numdoc & ” ” & oMotor.Contexto.CodEmp
oMotor.Comercial.LigacaoCBL.IntegraDocumentoLogCBL “V”, docVenda.tipodoc, docVenda.serie, docVenda.numdoc, docVenda.Filial
End Sub
Em IntegraDocumentoLogCBL, surge o erro: “Object variable or With block variable not set”
O objetivo é criar o documento e realizar a integração na contabilidade em automático na empresa “B”.
Nota: Se for ao VBA da empresa “B” e colocar no depois de gravar o:
BSO.Comercial.LigacaoCBL.IntegraDocumentoLogCBL “V”, me.DocumentoVenda.tipodoc, me.DocumentoVenda.serie, me.DocumentoVenda.numdoc, me.DocumentoVenda.Filial
a integração na contabilidade é realiza com sucesso.
Com os melhores cumprimentos,
Vitor Ferreira