Envio e Consulta de Lote não retorna as mensagens

[Endrigo Rodrigues]

O Envio de Lote e a consulta de lote não está gravando as mensagens para serem tratadas pela aplicação.

Segue abaixo sugestão de alteração na unit pnfsConsLoteRpsResposta na função LerXml.

Está assim hoje:

      // Ler a Lista de Mensagens

      if leitor.rExtrai(2, 'ListaMensagemRetorno') <> '' then

      begin

        i := 0;

        while Leitor.rExtrai(3, prefixo4 + 'MensagemRetorno', '', i + 1) <> '' do

        begin

          ListaNfse.FMsgRetorno.Add;

          ListaNfse.FMsgRetorno[i].FCodigo   := Leitor.rCampo(tcStr, prefixo4 + 'Codigo');

          ListaNfse.FMsgRetorno[i].FMensagem := Leitor.rCampo(tcStr, prefixo4 + 'Mensagem');

          ListaNfse.FMsgRetorno[i].FCorrecao := Leitor.rCampo(tcStr, prefixo4 + 'Correcao');


          inc(i);

        end;

      end;


      Result := True;

    end;

  except

    result := False;

  end;

Sugestão:

      // Ler a Lista de Mensagens

      if leitor.rExtrai(2, 'ListaMensagemRetorno') <> '' then

      begin

        i := 0;

        while Leitor.rExtrai(3, prefixo4 + 'MensagemRetorno', '', i + 1) <> '' do

        begin

          ListaNfse.FMsgRetorno.Add;

          ListaNfse.FMsgRetorno[i].FCodigo   := Leitor.rCampo(tcStr, prefixo4 + 'Codigo');

          ListaNfse.FMsgRetorno[i].FMensagem := Leitor.rCampo(tcStr, prefixo4 + 'Mensagem');

          ListaNfse.FMsgRetorno[i].FCorrecao := Leitor.rCampo(tcStr, prefixo4 + 'Correcao');


          inc(i);

        end;

      end;


      // Ler a Lista de Mensagens do Lote

      if leitor.rExtrai(2, 'ListaMensagemRetornoLote') <> '' then

      begin

        i := 0;

        while Leitor.rExtrai(3, prefixo4 + 'MensagemRetorno', '', i + 1) <> '' do

        begin

          ListaNfse.FMsgRetorno.Add;

          ListaNfse.FMsgRetorno[i].FCodigo   := Leitor.rCampo(tcStr, prefixo4 + 'Codigo');

          ListaNfse.FMsgRetorno[i].FMensagem := Leitor.rCampo(tcStr, prefixo4 + 'Mensagem');

          ListaNfse.FMsgRetorno[i].FCorrecao := Leitor.rCampo(tcStr, prefixo4 + 'Correcao');


          inc(i);

        end;

      end;


      Result := True;

    end;

  except

    result := False;

  end;

[Italo Giurizzato Junior]

Boa tarde Endrigo,

Post como anexo o XML de um retorno que contem ou mande por e-mail para mim fazendo o favor.

[Endrigo Rodrigues]

Ítalo, desculpe a demora.

AY0116949B20122000000270-lista-nfse.xml

[Endrigo Rodrigues]

E aí Ítalo, conseguiu verificar isso?