Ajuste na ConsultaNFSeporRps para Equiplano

[everson.turossi]

Quanto utilizo o método ConsultaNFSeporRps no provedor Equiplano para NFS-e que foram canceladas, não está lendo as tags de cancelamento. A alteração que fiz para resolver foi a seguinte:

//if (Leitor.rExtrai(3, 'cancelamento') <> '') then
if (Pos('<cancelamento>', Leitor.Arquivo) > 0) then
begin
  NFSe.NfseCancelamento.DataHora := Leitor.rCampo(tcDatHor, 'dtCancelamento');
  NFSe.MotivoCancelamento        := Leitor.rCampo(tcStr, 'dsCancelamento');
  NFSe.Status := srCancelado;
  NFSe.Cancelada := snSim;
end;

Segue unit completa em anexo.

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Bom dia Everson,

Será que o problema não é o nível que não é 3?

Tentou mudar ele para 2 ou 4 para ver ser resolve o problema?

[everson.turossi]

Boa tarde Italo,

Já havia testado com nível 2 e 4, e não havia dado certo, então resolvi trocar para nível 1, ai ele entrou na condição.

Segue unit alterada novamente.

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Bom dia Everson,

Você teria o XML da nota para que eu possa analisar melhor?

Se sim, favor anexar ele.

[everson.turossi]

Boa tarde, seguem em anexo.

Só um porém, está sendo adicionado ao final das tags os caracteres &#xd; Não influencia na leitura, mas só acontece nos XML´s que são salvos de retornos. Se executo a mesma consulta com uma revisão mais antiga, os caracteres não aparecem.

721-comp-nfse.xml

[Italo Giurizzato Junior]

Boa tarde Everson,

Favor atualizar todos os fontes de todas as pastas.

Note que fiz uma alteração no arquivo INI do provedor Equiplano.