Problemas Na Leitura Da Consulta Do Rps Nfse

[Joel]

pnfsGerarNfseResposta.pas

Verifiquei a falta de um tratamento na leitura do retorno do RPS, não sei, acho que a prefeitura de MARINGÁ volta e meia está mudando as tags desse retorno, pois não pode ser eu havia corrigido isso a um tempo atrás. 

 

 

É na unit pnfsGerarNfseResposta;

 

Linha: 735

 

          if FProvedor <> proISSe  then // Alterado por Joel Takei Maringá-PR 26/02/2015

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

 

 

 

Linha: 745  Percebi que um parceiro fez uma modificação para MG e o outro em seguida para BA, porém ele não tratou e está                             afetando o provedor ISSE e talvez demais provedores.

                    Coloquei um tratamento para o mesmo, para não afetar o fonte de nosso parceiro que talvez precise de um tratamento                     pois está um pouco redundante, mas achei melhor não mexer.

                     Penso que sempre que precisarem colocar um tratamento que por favor coloquem um filtro de provedor para não afetar os demais.

Grato pela compreensão!

 

 

        if FProvedor <> proISSe  then // Alterado por Joel Takei Maringá-PR 26/02/2015

        begin

        

          // Jonatan - Nova Lima MG

          i := 0;

          while Leitor.rExtrai(2, 'ListaMensagemRetorno', '', i + 1) <> '' do

          begin

            ListaNfse.FMsgRetorno.Add;

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

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

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

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

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

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

 

            inc(i);

          end;

 

          // Andeson de Jesus - Luiz Eduardo Magalhães - BA

          i := 0;

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

          begin

            ListaNfse.FMsgRetorno.Add;

            ListaNfse.FMsgRetorno.FCodigo   := Leitor.rCampo(tcStr, 'ErroID');

            ListaNfse.FMsgRetorno.FMensagem := Leitor.rCampo(tcStr, 'ErroMensagem');

            ListaNfse.FMsgRetorno.FCorrecao := Leitor.rCampo(tcStr, 'ErroSolucao');

 

            inc(i);

          end;

        end; 

 

 

 

 

[Italo Giurizzato Junior]

Boa tarde Joel,

 

Por favor quanto postar correções em código fonte do componente, anexe a Unit alterada para que possamos realizar o merge.

 

Não post as linhas alteradas como parte da postagem.

[Joel]

Boa tarde Italo,

Eu enviei em anexo, como você já havia me pedido.

Só coloquei a parte que alterei para explicar o que estava acontecendo. Mas sem problemas, da próxima vez não vou postar o fonte.

Abraços!

[Italo Giurizzato Junior]

Boa tarde Joel,

 

Muito obrigado pela colaboração, já esta disponível.

 

Desculpa, não percebi que o arquivo em anexo estava logo na primeira linha da postagem.

[julio_cld]

Boa tarde!

Estava testando emissão de NFSe layout betha e me deparei com um erro, "erro desconhecido ao consultar a situação do lote"

verifiquei que tem haver com a alteração comentado neste post.

 

 

segue a unit alterada com o tratamento para solucionar o problema.

 

Obrigado.

pnfsConsSitLoteRpsResposta.pas

[Joel]

Acredito que não tenha a ver, pois a unit é outra Julio. Não encontrei a marcação sua de alteração do código.

Se puder coloque uma identificação com o seu nome sempre que fazer um tratamento.

 

 

A unit que fiz a alteração foi esta:

pnfsGerarNfseResposta.pas

[julio_cld]

Bom dia!

 

Obrigado pelo feedback

 

Eu peguei esse mesmo desfecho em relação a erro da leitura do xml.

Verifiquei que logo após a aleração da revisão 8371 por: Nilton Olher começou esse erro:

 

Unit alterada foi pnfsConsSitLoteRpsResposta linha 227 

 

linha antiga

 

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

 

linha nova

 

InfSit.FMsgRetorno.FIdentificacaoRps.Tipo   := StrToTipoRPS(Ok, Leitor.rCampo(tcStr, 'Tipo')); // tratar a conversão
 

pnfsConsSitLoteRpsResposta.pas

[Joel]

No Caso de Maringá-PR , este tratamento não resolveria, apesar de estarmos falando de arquivos diferentes, mas é o mesmo caso.

O provedor de Maringá não tem este campo Tipo. E por isso dava erro ao fazer leitura do XML.

Abs