ISSRio - Retorno nota unitária

[Lfm_]

Bom Dia,

não sei se algo mudou na nota carioca, porém neste mês o componente ACBrNFSeX não consegue mais fazer a leitura do retorno da emissão de nota fiscal única (modoEnvio = meUnitario).

Segue em anexo o XML de retorno gerado pelo componente.

Abaixo segue linhas do código da unit ISSRio.Provider, método TACBrNFSeProviderISSRio.TratarRetornoEmitir, percebam que o componente busca a tag ListaNfse, porém no XML de retorno ela não existe quando é nota única:

if Response.ModoEnvio <> meUnitario then
  begin
    inherited TratarRetornoEmitir(Response);
    Exit;
  end;

  Document := TACBrXmlDocument.Create;
  try
    try
      Document.LoadFromXml(Response.ArquivoRetorno);

      ProcessarMensagemErros(Document.Root, Response);
      ProcessarMensagemErros(Document.Root, Response, 'ListaMensagemRetornoLote');

      ANode := Document.Root;

      Response.Data := ObterConteudoTag(ANode.Childrens.FindAnyNs('DataRecebimento'), tcDatHor);
      Response.Protocolo := ObterConteudoTag(ANode.Childrens.FindAnyNs('Protocolo'), tcStr);

      ANode := Document.Root.Childrens.FindAnyNs('ListaNfse');
      if not Assigned(ANode) then
      begin
        AErro := Response.Erros.New;
        AErro.Codigo := Cod202;
        AErro.Descricao := ACBrStr(Desc202);
        Exit;
      end;

Estou configurando algo errado ou de fato mudou algo no provedor ISSRio?

Fico no aguardo e agradeço a atenção.

Luiz

0-ger-nfse.xml 0-lista-nfse-ger.xml

[Italo Giurizzato Junior]

Bom dia @Lfm_,

Faça um teste com a unit em anexo.

ISSRio.Provider.pas

Após substituir a unit se faz necessário reinstalar o ACBr e recompilar a aplicação.

[Lfm_]

Boa tarde Ítalo,

desculpe pela demora e obrigado pelo retorno.

Deu certo!!!

Abraço,

Luiz

[Juliomar Marchetti]

Obrigado por reportar.

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

[Italo Giurizzato Junior]

Boa tarde @Lfm_,

Já esta no SVN.