[Protocolo NFS-e]

Olá equipe SAC ACBR.

Tudo bem com vocês?

Preciso de ajuda com a emissão de NFS-e usando o provedor WebISS em Palmas – TO.

Nós usamos um RPS por Lote.

Nosso código de emissão de NFS-e funciona desde a fase de homologação do servidor.

No entanto, de uns tempos para cá, aleatoriamente ocorre o seguinte erro ao Emitir NFS-e.

(figura 1: Erro ao Emitir NFS-e)

Um de nossos clientes relatou que em quase toda 1ª emissão de NFS-e do dia o erro ocorre.

Após o erro, o protocolo do RPS não é gravado no BD, mesmo que o Lote\RPS tenha sido recebido pelo servidor WebISS. Neste momento, naturalmente, o registro da NFS-e permanece com o status 1 – NÃO ENVIADO no banco de dados.

Analisando o Log implementado em meu executável, constatou-se que sempre que o referido erro ocorre, o Protocolo não é retornado\armazenado nos atributos:

·         dmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Protocolo;

·         dmNFSe.ACBrNFSe.WebServices.ConsSitLoteRPS.Protocolo;

Ou seja: os atributos que armazenam o Protocolo do RPS ficam em branco.

 

Ao executar a mesma instrução de Envio novamente, aparece o erro “RPS JÁ INFORMADO”, pois estou tentando Emitir uma NFS-e com um RPS já associado a um protocolo anterior.

 

 

 

(figura 2: Rps já informado)

 

 

Nesses casos, minha equipe de suporte está sendo acionada e nós temos que procurar manualmente no site do webISS o número do protocolo associado ao RPS, para só então executar a função de Processar e atualizar o RPS.

(figura 3: Consulta Protocolo por RPS no site WebISS)

 

 

 

 

Durante os testes, foi identificado que a exceção “1 – O tempo limite da operação foi atingido” ocorre na linha 870 ao chamar a instrução dmNFSe.ACBrNFSe.Enviar( Lote );

(figura 4: método de envio de RPS da NFS-e)

 

 

O código seguinte, de concluirNfse(), simplesmente salva o protocolo e situação retornados pelo objeto acbrNfse e os grava no BD. Segue o código para fins de avaliação:

(figura 5: método concluirNFSe() )

 

 

Nós tentamos fazer algumas alterações para esse tipo de situação de contingência, mas não obtivemos sucesso. Nossa última tentativa foi disparar na exceção do método EnviarNFSe (figura 4) a instrução para recuperar o número do protocolo e o armazenar no BD em seguida.

Tentamos utilizar a instrução  dmNFSe.ACBrNFSe.ConsultarNFSeporRPS(...) para de alguma forma recuperar o Protocolo, mas não obtivemos êxito.

(figura 6: método enviarNFSe() com contingência para recuperar o protocolo)

Sempre que se forçava o delphi em debug a executar a exceção, nos era retornada a seguinte mensagem:

(figura 7: erro ConsultarNFSePorRps)

 

 

Temos algumas perguntas a fazer e gostaríamos que os senhores nos orientassem na melhor abordagem:

1_Há alguma forma de reproduzir a exceção “tempo limite a operação foi atingido” em modo de debug? Em quais situações ela costuma ocorrer?

2_Qual a instrução correta para gravar no BD o número do protocolo após o evento Enviar(Lote) ?

·         dmNFSe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Protocolo;

·         dmNFSe.ACBrNFSe.WebServices.ConsSitLoteRPS.Protocolo;

 

3_Se no momento de disparar o método Enviar(Lote), ocorrer a exceção de “tempo limite da operação foi atingido”, como posso recuperar o número do protocolo na exceção logo em seguida? Qual seria a instrução para substituir a dmNFSe.ACBrNFSe.ConsultarNFSeporRPS(...) ?

4_Em um outro caso de contingência, onde a internet do emitente tenha caído, não seja possível recuperar o Protocolo de imediato e a NFS-e fique com o status 1 – Não processado no BD, como devo proceder para que o executável identifique que já houve uma tentativa de emissão desse RPS, acesse o servidor webISS, recupere o protocolo e Consulte a situação do lote ao mesmo tempo?! K

 

 

Atenciosamente,

Equipe Inorte Sistemas.