ACBrNFSeX - Equiplano - LerXmlNfse - Correcao ao carregar xml para envio por email

[MarcosRWeimer]

Ola!

 

Simulação:

- carregar e emitir NFSe (retorno lote em processamento)

- consultar NFSe por RPS

- Retorno: autorizado/nfse

- descarregar o xml do componente (fechar o sistema)

- Carregar o xml da NFSe

- Por padrão a opção GerarXML é marcada então carregar o xml e tenta gerar o XML novamente, ai ocorre o erro de conversion from integer.

 

Causa:

- Quando carrega o XML da NFSe (TNFSeR_Equiplano.LerXMLNfse) não carrega os dados do(s) serviço(s), deixando o "ItemListaServico" em branco (vazio) causando o erro de conversão na hora de gerar o xml.

 

Solução/Correção:

- Incluido "LerListaServico" para carregar os dados do(s) serviço(s)

- Não tem impacto negativo pois dentro da própria procedure "LerListaServico" valida se existe ou não o node "listaServicos"

 

Correção:

 

anexo arquivo com a alteração.

 

Equiplano.LerXml.pas

[Italo Giurizzato Junior]

Boa tarde Marcos,

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

[Italo Giurizzato Junior]

Boa tarde Marcos,

Já esta no SVN.

[MarcosRWeimer]

Em 28/02/2022 at 17:09, Italo Giurizzato Junior disse:

Boa tarde Marcos,

Já esta no SVN.

Boa Tarde Italo!

 

Acabei atualizar e testar aqui, está ok.

Obrigado

[Italo Giurizzato Junior]

Obrigado por reportar.

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