Acabei conseguindo emitir a NFSe.
Tiver alterar o arquivo pnfsNFSeR. Estou anexando o arquivo modificado para validação.
Na linha 454, alterei o codigo para:
if (Leitor.rExtrai(4, 'IdentificacaoTomador') <> '') or
(Leitor.rExtrai(3, 'IdentificacaoTomador') <> '') then
begin
NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal := Leitor.rCampo(tcStr, 'InscricaoMunicipal');
if (Leitor.rExtrai(4, 'CpfCnpj') <> '') or (Leitor.rExtrai(5, 'CpfCnpj') <> '') then Acrescentei a verificação no nível 4
begin
if Leitor.rCampo(tcStr, 'Cpf') <> '' then
NFSe.Tomador.IdentificacaoTomador.CpfCnpj := Leitor.rCampo(tcStr, 'Cpf')
else
NFSe.Tomador.IdentificacaoTomador.CpfCnpj := Leitor.rCampo(tcStr, 'Cnpj');
end;
end;
Antes estava:
if (Leitor.rExtrai(4, 'IdentificacaoTomador') <> '') or
(Leitor.rExtrai(3, 'IdentificacaoTomador') <> '') then
begin
NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal := Leitor.rCampo(tcStr, 'InscricaoMunicipal');
if Leitor.rExtrai(5, 'CpfCnpj') <> '' then
begin
if Leitor.rCampo(tcStr, 'Cpf') <> '' then
NFSe.Tomador.IdentificacaoTomador.CpfCnpj := Leitor.rCampo(tcStr, 'Cpf')
else
NFSe.Tomador.IdentificacaoTomador.CpfCnpj := Leitor.rCampo(tcStr, 'Cnpj');
end;
end;
Favor, verificar se está correto, nessa alteração que realizei, consegui emitir duas notas normalmente.
Aguardo o retorno.
pnfsNFSeR.pas