Problema Na Leitura Da Resposta De Envio

[Felipe Aron]

Estou usando o provedor SimplISS (Piracicaba/SP).

 

Ao retornar os dados de resposta de envio do lote está o ocorrendo um erro na unit "pnfsEnvLoteRpsResposta", linha 231:

 

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

     begin

       InfRec.FMsgRetorno.Add;

       InfRec.FMsgRetorno.FIdentificacaoRps.Numero := Leitor.rCampo(tcStr, 'Numero');

       InfRec.FMsgRetorno.FIdentificacaoRps.Serie  := Leitor.rCampo(tcStr, 'Serie');

       InfRec.FMsgRetorno.FIdentificacaoRps.Tipo   := Leitor.rCampo(tcStr, 'Tipo');

 

       InfRec.FMsgRetorno.FCodigo   := Leitor.rCampo(tcStr, 'Codigo');

       InfRec.FMsgRetorno.FMensagem := Leitor.rCampo(tcStr, 'Mensagem');

       InfRec.FMsgRetorno.FCorrecao := Leitor.rCampo(tcStr, 'Correcao');

 

       inc(i);

     end;

 

Não existe a tag "Tipo" no retorno. Erro: "Invalid Argument"

 

Como resolver isso?

[Italo Giurizzato Junior]

Boa tarde Felipe,

 

Por favor atualize todos os fontes de todas as pastas e compile a aplicação com a opção Build.