Provedor NFSE (talvez) sendo identificado errado no lote RPS

[Rodrigo - Digibyte]

Estava observando em uma leitura de RPS que alguns dados não vinham corretos. Pesquisando descobri que o provedor era identificado como sendo o local onde o serviço foi prestado e não onde foi gerado o lote RPS (Curitiba no caso). Pois bem, no código abaixo dá pra ver que realmente isso acontece. Primeiro tenta o orgão gerador, depois a tag SERVICO e por último a tag PRESTADOR DE SERVICO. No meu XML ocorre primeiro a tag servico e depois prestador de servico, isso gera um erro pois identifica o municipio do cliente como "emissor" da nota no que se refere ao provedor

function TNFSeR.LerNFSe: Boolean;
var
  ok: Boolean;
  CM: String;
  DataHorBR: String;
begin
  if FProvedor = proNenhum then
  begin
    if (Leitor.rExtrai(1, 'OrgaoGerador') <> '') then
    begin
      CM := Leitor.rCampo(tcStr, 'CodigoMunicipio');
      FProvedor := CodCidadeToProvedor(CM);
    end;

    if FProvedor = proNenhum then
    begin
      if (Leitor.rExtrai(1, 'Servico') <> '') then
      begin
        CM := Leitor.rCampo(tcStr, 'CodigoMunicipio');
        FProvedor := CodCidadeToProvedor(CM);
      end;
    end;

    if FProvedor = proNenhum then
    begin
      if (Leitor.rExtrai(1, 'PrestadorServico') <> '') then
      begin
        CM := OnlyNumber(Leitor.rCampo(tcStr, 'CodigoMunicipio'));
        if CM = '' then
          CM := Leitor.rCampo(tcStr, 'Cidade');
        FProvedor := CodCidadeToProvedor(CM);
      end
    end;

    if FProvedor = proNenhum then
      FProvedor := FProvedorConf;
  end;

 

 

 

[Rodrigo - Digibyte]

Bom dia, alguém deu uma olhada nessa questão?

[Rodrigo - Digibyte]

Pessoal, alguma informação a respeito do erro relatado ? Aqui provisoriamente eu alterei os fontes fazendo a busca do provedor primeiro dentro da tag PRESTADOR DE SERVICO

[Juliomar Marchetti]

Está passando correção aos fontes?

se sim anexe o mesmo aqui !

[Rodrigo - Digibyte]

Eu posso passar a correção que fiz e funcionou 100% aqui mas minha dúvida é saber porque estava daquela forma, tinha algum motivo? Isso para não provocar outro erro, arrumar uma situação e estragar outra. De qualquer forma vou atualizar os fontes, enviar a correção e vocês podem avaliar.

[Rodrigo - Digibyte]

Fonte corrigido em anexo

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Boa noite,

Muito obrigado pela colaboração, já esta no repositório.