Possível correção Cancelamento IPM Cascavel.

[mdogomes]

Na implementação do cancelamento para cidade de Cascavel-PR para o Provedor IPM identifiquei os seguintes problemas:

1- Na Unit IPM.Provider foi necessário alterar a procedure "procedure TACBrNFSeProviderIPM.TratarRetornoCancelaNFSe", pois o metódo não conseguia tratar o retorno visto que o XML vinha com um padrão diferente e a tag <nfse> não era encontrada, foi necessário realizar a seguinte alteração: (Segue em exemplo um XML de solicitação de cancelamento em anexo).

 ANode := Document.Root;
      if Document.Root.Name <> 'nfse' then
      begin
        ANode := ANode.Childrens.Find('documentos');
        ANode := ANode.Childrens.Find('nfse');
      end;
 ProcessarMensagemErros(ANode, Response);

2- Foi necessário adicionar no arquivo ACBrNFSeXServicos.ini o parametro "SolicitarCancelamento" para a cidade de Cascavel-PR:

[4104808]
; Atualizado em 19/10/2021
Nome=Cascavel
UF=PR
Provedor=IPM
Versao=1.01
Params=NaoGerarGrupoRps:|SolicitarCancelamento:
;
ProRecepcionar=https://cascavel.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao&eletron=1
HomRecepcionar=https://homologacao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=integracoes&eletron=1

 

15702-can.xml

Editado 26 Maio, 2023 por mdogomes

[Italo Giurizzato Junior]

Boa tarde Gomes,

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

[mdogomes]

Boa tarde,

Fiz mais uns testes e foi necessário fazer mais uma alteração na Unit IPM.Provider foi necessário alterar a procedure "procedure TACBrNFSeProviderIPM.TratarRetornoCancelaNFSe"

Como estava: 

NotaCompleta := (Pos('<nfse>', Response.ArquivoRetorno) > 0)

Como ficou:

NotaCompleta := (Pos('<nfse>', Response.ArquivoRetorno) > 0) and (ANota.NFSe.NfseSubstituida = '');

A alteração foi necessária pois caso fique como NotaCompleta ele tenta verificar se o ANodeArray está assigned causando erro. no seguinte trecho de código:

if NotaCompleta then
      begin
        if not Assigned(ANodeArray) and (Response.Sucesso) then
        begin
          AErro := Response.Erros.New;
          AErro.Codigo := Cod203;
          AErro.Descricao := ACBrStr(Desc203);
          Exit;
        end;
...

 

[Italo Giurizzato Junior]

Boa tarde Gomes,

Você poderia anexar a unit alterada para que possamos analisar?

[mdogomes]

Boa tarde,

Desculpe a demora. Segue em anexo a unit que foi necessário alterar.

IPM.Provider.pas

[Italo Giurizzato Junior]

Boa tarde Gomes,

Para mim a sua alteração vai falhar.

Sua primeira alteração:

      NotaCompleta := (Pos('<nfse>', Response.ArquivoRetorno) > 0) and (ANota.NFSe.NfseSubstituida = '');

Ao executar a linha acima a variável ANota ainda não foi preenchida, logo esta com todos as suas classes e campos vazios.

Segunda alteração:

      if Document.Root.Name <> 'nfse' then
      begin
        ANode := ANode.Childrens.Find('documentos');
        ANode := ANode.Childrens.Find('nfse');
      end;

Ao executar o IF acima se a condição for verdadeira você esta confirmando que existe a tag documentos e em seguida a tag nfse.

Terceira alteração:

Você removeu a linha abaixo que esta dentro do ( if NotaCompleta then )

        ANodeArray := ANode.Childrens.FindAllAnyNs('nfse');

Com a remoção dessa linha a variável ANodeArray fica vazio.

Vamos fazer o seguinte, faça um teste com a unit em anexo.

IPM.Provider.pas

[mdogomes]

Bom dia,

Fiz o teste e agora ele ficou como nota completa, porém o XML que retorna não é de nota completa e no método TACBrNFSeProviderIPM.TratarRetornoCancelaNFSe agora dá erro de memória devido ao ANode estar nulo.

755-can.xml

[Italo Giurizzato Junior]

Boa tarde Gomes,

Em qual linha ocorre o erro?

Pois não tenho como testar.

[mdogomes]

1 hora atrás, Italo Giurizzato Junior disse:

Boa tarde Gomes,

Em qual linha ocorre o erro?

Pois não tenho como testar.

with Response do
        begin
          NumeroNota := ObterConteudoTag(ANode.Childrens.FindAnyNs('numero_nfse'), tcStr);
          SerieNota := ObterConteudoTag(ANode.Childrens.FindAnyNs('serie_nfse'), tcStr);
          Data := ObterConteudoTag(ANode.Childrens.FindAnyNs('data_nfse'), tcDatVcto);
          Data := Data + ObterConteudoTag(ANode.Childrens.FindAnyNs('hora_nfse'), tcHor);
          Situacao := ObterConteudoTag(ANode.Childrens.FindAnyNs('situacao_codigo_nfse'), tcStr);
          DescSituacao := ObterConteudoTag(ANode.Childrens.FindAnyNs('situacao_descricao_nfse'), tcStr);
          Link := ObterConteudoTag(ANode.Childrens.FindAnyNs('link_nfse'), tcStr);
          Link := StringReplace(Link, '&amp;', '&', [rfReplaceAll]);
          Protocolo := ObterConteudoTag(ANode.Childrens.FindAnyNs('cod_verificador_autenticidade'), tcStr);
          CodigoVerificacao := Protocolo;
        end;

Quando vai atribuir o NumerodaNota já ocorre o erro, por não ser uma nota completa.

[Italo Giurizzato Junior]

Gomes,

Veja se com essa ocorre o mesmo erro.

IPM.Provider.pas

[mdogomes]

Em 30/06/2023 at 17:45, Italo Giurizzato Junior disse:

Gomes,

Veja se com essa ocorre o mesmo erro.

IPM.Provider.pas 68.92 kB · 0 downloads

Boa tarde, com essa versão deu certo, lembrando que foi necessário adicionar os parametros no arquivo ACBrNFSeXServicos.ini.

Obrigado.

[Italo Giurizzato Junior]

Boa tarde Gomes,

Por favor anexe aqui a alteração que você fez na cidade em questão, não precisa anexar o arquivo INI inteiro somente as linhas referente a cidade.

Desde já muito obrigado pela colaboração.

[mdogomes]

5 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Gomes,

Por favor anexe aqui a alteração que você fez na cidade em questão, não precisa anexar o arquivo INI inteiro somente as linhas referente a cidade.

Desde já muito obrigado pela colaboração.

Segue as alterações feitas:

Foi necessário adicionar no arquivo ACBrNFSeXServicos.ini o parametro "SolicitarCancelamento" para a cidade de Cascavel-PR:

[4104808]
; Atualizado em 19/10/2021
Nome=Cascavel
UF=PR
Provedor=IPM
Versao=1.01
Params=NaoGerarGrupoRps:|SolicitarCancelamento:
;
ProRecepcionar=https://cascavel.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao&eletron=1
HomRecepcionar=https://homologacao.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=integracoes&eletron=1

[Italo Giurizzato Junior]

Boa tarde Gomes,

Muito obrigado pelo retorno, já enviei para o SVN.

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

[mdogomes]

Bom dia,

Atualizei os fontes e tudo ok, obrigado.

[Alexandre de Paula]

Obrigado por reportar.

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