ACBrNFSeX - Equiplano - TratarRetornoConsultaNFSeporRps - Problema com possível correção

[MarcosRWeimer]

Ola!

 

Simulação:

 

- Alimento o componente

- LACBrNFSeX.Emitir(IntToStr(ALote));

- LACBrNFSeX.NotasFiscais.Items[0].GravarXML(ExtractFileName(LCaminhoSalvar), ExtractFilePath(LCaminhoSalvar));

- retorno do provedor: 1604 - Esse lote está aguardando processamento.

- Descarrego a nota do componente (fecho o sistema)

- LACBrNFSeX.NotasFiscais.LoadFromFile(LCaminho);

- LACBrNFSeX.ConsultarNFSeporRps(IntToStr(ALote), ASerie, '', '');

- LACBrNFSeX.NotasFiscais.Items[0].GravarXML(ExtractFileName(LCaminho), ExtractFilePath(LCaminho));

 

Problema:

Neste momento (salvar o xml) salva o XML da resposta da ConsultaNFSePorRPS, quando deveria montar o xml da NFSe (equiplano não retorna a nota), verificando o codigo encontrei onde deveria montar, porem só considera o XML do RPS assinado, que não é o que está acontecendo.

 

No meu ponto de vista a correção tem de ser esta (Equiplano.Provider.pas):

 

Anexo possível correção

 

Possível pois não tenho certeza deste ponto, pois no próprio Equiplano.Provider no "Configuracao" está setando True para assinar o LoteRps, talvez minha visão esteja equivocada e o problema está no gravar o xml, debugando não consegui identificar o ponto onde deveria ter assinado ou não o LoteRps.

 

 

 

Equiplano.Provider.pas

Editado 22 Fevereiro, 2022 por -=Ma®©oS=-
adicionado informações

[Italo Giurizzato Junior]

Bom dia Marcos,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2403

[Italo Giurizzato Junior]

Boa tarde Marcos,

Já esta no SVN.

[MarcosRWeimer]

36 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Marcos,

Já esta no SVN.

Boa Tarde Italo!

 

Acabei de atualizar os fontes e reinstalar, houve alguma outra alteração que impactou.

O ANota.XmlRps está igual ao ANota.XmlNfse.

 

debug no delphi:

 

XML Antes (esquerda) e agora (direita)

[MarcosRWeimer]

Suspeito que o problema esteja aqui:

 

 

- Como pode ver no "LerXML" está sempre considerando que leu o XML da NFSe, mas pode ter lido o XML do RPS (ConsultaNFSePorRPS vai ler o xml do rps e não da nfse, até por que não tem ele ainda)

- No "GravarXML" sempre está gravando o FXmlRps, ou seja, nunca grava a NFSe.

 

Este impacto foi da alteração que acabou mudando os nomes das propriedades

 

[Italo Giurizzato Junior]

Marcos,

Ao carregar o XML, você esta mandando gerar novamente o XML, correto?

Experimente apenas carregar o XML.

[MarcosRWeimer]

9 minutos atrás, Italo Giurizzato Junior disse:

Marcos,

Ao carregar o XML, você esta mandando gerar novamente o XML, correto?

Experimente apenas carregar o XML.

Acabei de testar..

mesmo resultado:

 

Editado 23 Fevereiro, 2022 por -=Ma®©oS=-
imagem incorreta

[Italo Giurizzato Junior]

Bom dia Marcos,

Se eu entendi você primeiro esta carregando o XML do RPS e depois esta Consultando, correto?

Se não carregar o que ocorre?

[MarcosRWeimer]

14 minutos atrás, Italo Giurizzato Junior disse:

Bom dia Marcos,

Se eu entendi você primeiro esta carregando o XML do RPS e depois esta Consultando, correto?

Se não carregar o que ocorre?

Bom dia!

 

Se não carrego o XML do RPS ai ocorre "Argument out of range" quando vai obter a nota para gravar:

function TNotasFiscais.GetItem(Index: integer): TNotaFiscal;
begin
  Result := TNotaFiscal(inherited Items[Index]); <---AQUI
end;

P.S. Parâmetro para gerar o XML está ativo.

[Italo Giurizzato Junior]

Marcos,

Atualiza os fontes, reinstala o ACBr.

1. Carrega o XML do Rps;

2. Execute o Consultar;

Eu acredito que a alteração que fiz agora o componente vai saber se o XML lido é Rps ou NFS-e e portanto usar a propriedade correta.

[MarcosRWeimer]

Italo

Infelizmente não funcionou, a sua alteração (no LerXml) foi mais ou menos como havia pensado em fazer aqui, porem faltou aqui:

 

unit ACBrNFSeXNotasFiscais

 

function TNotaFiscal.GravarXML(const NomeArquivo: String; const PathArquivo: String): Boolean;
begin
  if EstaVazio(FXmlRps) then
    GerarXML;

  FNomeArqRps := CalcularNomeArquivoCompleto(NomeArquivo, PathArquivo);
  Result := TACBrNFSeX(FACBrNFSe).Gravar(FNomeArqRps, FXmlRps); <-- aqui considera o XML do RPS para salvar, o FXmlNfse está com o XML da NFSe corretamente
end;

 

[Italo Giurizzato Junior]

Marcos,

Verifica se a consulta já não esta salvando o XML da NFS-e.

Se sim, você não precisa usar o método GravarXML.

[MarcosRWeimer]

9 minutos atrás, Italo Giurizzato Junior disse:

Marcos,

Verifica se a consulta já não esta salvando o XML da NFS-e.

Se sim, você não precisa usar o método GravarXML.

 

Sim, salvando direto pela ConsultaNFSePorRPS grava corretamente, pois lá na procedure TACBrNFSeXProvider.SalvarXmlNfse(aNota: TNotaFiscal) grava usando aNota.XmlNfse, ou seja, o xml da NFSe em si. coisa que no GravarXML não faz.

 

Porem aqui por questões internas o caminho, nome do arquivo e configurações são dependentes de alguns fatores, por isso utilizamos o GravarXML.

[Italo Giurizzato Junior]

Boa tarde Marcos,

Neste caso vamos ter que estudar uma solução para o GravarXML ser capaz de identificar automaticamente o tipo de XML que ele esta gravando.

[Italo Giurizzato Junior]

Boa tarde Marcos,

Chegou a atualizar os fontes?

Se sim, notou que agora o método GravarXml possui um parâmetro para você indicar o que vai ser gravado?

[MarcosRWeimer]

Em 09/03/2022 at 15:02, Italo Giurizzato Junior disse:

Boa tarde Marcos,

Chegou a atualizar os fontes?

Se sim, notou que agora o método GravarXml possui um parâmetro para você indicar o que vai ser gravado?

Bom dia!

 

Vi sim, só não tive tempo para testar ainda (em um teste de 5 minutos parece estar ok), está meio corrido aqui

Estava focado alterações para equiplano, agora surgiu uma para IPM mas solicitei a documentação ao suporte deles, tem um campo "novo" que não tem no ACBrNFSe nem no ACBrNFSeX, mas para justificar pedi a documentação, mas isto é outra thread

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.