Erro ao consultar nota Tecnos

[Felipe Mesturini]

Boa tarde.

Quando executo o método consultar lote, com o provedor Tecnos, um erro é retornonado.

E0800 - Referência de objeto não definida para uma instância de um objeto.

Chamada do Método

ConsultarLoteRps(84, 00000000000001);

A nota eu consegui autorizar porém não estou conseguindo autorizar.

Existe alguma outra maneira de realizar a consulta?

Desde já agradeço.
 

[Italo Giurizzato Junior]

Bom dia Felipe,

Essa mensagem de erro é retornada pelo provedor?

Se sim, por favor anexo os XMLs de consulta e retorno.

Quando estamos realizando testes é sempre bom deixar o componente configurado para gerar os arquivos soap, esses arquivos ajudam muito na detecção de erros.

Configuracoes.WebServices.Salvar := True;

[Felipe Mesturini]

Bom dia Italo.

Essa mensagem é retornada pelo provedor, estou enviando em anexo os arquivos XMLs gerados.

NFS-e.zip

[Italo Giurizzato Junior]

Felipe,

Comparando o XML enviado com o schema e mais o WSDL do web service conclui:

1. não encontrei nenhum nome de TAG ou Grupo diferente do que esta estabelecido, inclusive aparecem na ordem definida.

2. no WSDL existe o grupo <cabecalho> tanto no método do envio quando da consulta, mas eles não são gerados pelo componente e esse grupo no WSDL consta como opcional.

3. achei estranho o web service retornar após o envio o numero de protocolo contendo 23 dígitos, sendo que no schema ConsultarLoteRpsEnvio.XSD que contem a estrutura do XML para realizar a consulta ao lote consta que a TAG Protocolo é do tipo Integer. E o que esta sendo informado é exatamente o retorno do envio, ou seja, o protocolo com 23 dígitos que com certeza poderia ocorrer erro no Web Service. 

No seu envio, foi informado o numero de lote = 88, pelo que notei o numero do protocolo nada mais é do que o CNPJ + numero do lote formatado com 9 dígitos totalizando os 23 dígitos.

Tente consultar novamente mas passando os seguintes valores:

 ====> sintaxe: function ConsultarLoteRps(ANumLote, AProtocolo: string): Boolean;

OK := ACBrNFSe.ConsultarLoteRps('88', '88');

[Felipe Mesturini]

Italo,

Segui suas instruções, fiz um teste usando o sistema no qual desenvolvo e fiz o mesmo teste pelo sistema de exemplo que acompanha o componente do ACBR, porém ainda ocorre a mesma mensagem, estou enviando a mensagem gerado pelo demo do ACBr.

 

Editado 4 Fevereiro, 2016 por Felipe Mesturini

[Italo Giurizzato Junior]

Felipe,

Esta difícil interpretar corretamente essa mensagem de erro.

Em um primeiro momento podemos concluir que esta sendo feita uma referencia a um objeto que não existe, se é isso, então qual é esse objeto?

Como lhe disse não encontrei nada de errado na grafia das TAGs bem como a sua ordem.

Como a mensagem de erro não é clara sugiro que entre em contato com o pessoal da Tecnos quem sabe eles dizem o que esta errado.

[Felipe Mesturini]

Italo,

Vou entrar em contato com o pessoal da Tecnos para ver se não é um problema Técnico deles. Qualquer novidade posto aqui.

 

[Felipe Mesturini]

Após muito tempo tentando contado com pessoal da Tecnos eles identificaram que havia um problema no ambiente de homologação deles, corrigirão o bug e está funcionando agora.

Só para dar um feedback do andamento do problema.

Resolvido o problema.

[Italo Giurizzato Junior]

Boa tarde Felipe,

Por favor faça todos os testes, envio, consulta e cancelamento e nos de um retorno para que possamos incluir a Tecnos como mais um provedor que esta funcionando 100%.

[Felipe Mesturini]

A principio está funcionando corretamente para Flores da Cunha, porem tivemos que fazer algumas modificações no componente.

Vou realizar alguns testes sem as modificações que fizemos depois coloco o resultado.

Obrigado.