Provedor IPM - Cascavel / PR - Não está separando código de retorno da mensagem.

[Osmar de Luca]

Não está seprando o codigo de retorno com a msg

Está retornando do componente assim:

Erro(s):
Código  : 00027 - O valor total da NFSe não pode ser zero (0,00)..
Mensagem: 
Correção:

deveria vir assim:

Erro(s):
Código  : 00027
Mensagem:  O valor total da NFSe não pode ser zero (0,00)..

 

------------------------------
Versão OpenSSL
OpenSSL 1.1.1j  16 Feb 2021
01.01.01.0AF
C:\Windows\SYSTEM32\libcrypto-1_1.dll
C:\Windows\SYSTEM32\libssl-1_1.dll
------------------------------
Requisição
Ambiente: 1
Cidade  : Cascavel/PR
Provedor: IPM Versão: 1.01
 
Método Executado: Gerar NFSe
 
Parâmetros de Envio
Numero do Lote: 1
 
Parâmetros de Retorno
Data de Envio : 30/12/1899
Numero do Prot: 
Numero da Nota: 
Link          : 
Código Verif. : 
Sucesso       : False
 
Erro(s):
Código  : 00027 - O valor total da NFSe não pode ser zero (0,00)..
Mensagem: 
Correção:

 

 

[Renato Rubinho]

Boa noite,

O componente exibe a mensagem como é recebida do provedor.

Veja o XML recebido que a mensagem deve estar igual, sem separar em tags isoladas.

[Osmar de Luca]

Bom dia, concordo plenamente Renato, porém no codigo está assim:

      Codigo := ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('codigo'), tcStr);
      AMSG := ACBrStr(ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('Mensagem'), tcStr));
      {
        Codigo = 00001 significa que o processamento ocorreu com sucesso, logo não
        tem erros.
      }

      if Codigo <> '00001' then
      begin

        ....

     end;

Nesse caso teria que comparar assim:

      if Codigo <> '00001 - Sucesso' then
      begin

        ....

     end;

[Italo Giurizzato Junior]

Bom dia Osmar,

Você poderia anexar o XML de retorno para que possamos analisar e fazer os devidas correções?

[Osmar de Luca]

Opa, segue o XML, temporariamente resolvi assim:

      if (Codigo <> '00001') and (Codigo <> '00001 - Sucesso') then
      begin

1473-lista-nfse-ger.xml

Editado 29 Novembro, 2023 por Osmar de Luca

[Renato Rubinho]

@Osmar de Luca, obrigado pela contribuição.

@Italo Giurizzato Juniorsugiro o código a seguir, veja o que acha.

 

if (Copy(Codigo, 1, 5) <> '00001') then
  .
  .
  .

 

[Italo Giurizzato Junior]

Boa tarde Renato,

É uma boa solução, mas seria interessante separar o código da mensagem.

Já inclui na minha lista de tarefas para analise do problema. TK-4807

[Renato Rubinho]

Boa tarde Italo,

Não imaginei que fosse manipular o retorno para armazenar cada parte em uma propriedade.

Sem dúvida, é o ideal.

[Italo Giurizzato Junior]

Boa tarde Osmar,

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

[Osmar de Luca]

Boa tarde, deu certo sim Italo.

Obrigado pela sua ajuda!

 

[Italo Giurizzato Junior]

Obrigado por reportar.

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