ISSRio - Retorno nota unitária

Lfm_ · 30 Julho

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;