CPFCNPJTomador informado incorretamente

[Igor Cibiac]

Boa tarde.

Estou realizando a emissão de um RPS para o municio de PARANATINGA - MT, e estou tendo o retorno:

Campo CPFCNPJTomador informado incorretamente. Numero do RPS em que ocorreu o erro: 5001
O campo CPFCNPJTomador e numerico e devera ter tamanho maximo de 14 digitos.

 

Ao examinar o xml gerado, as informações estão corretas, não consigo identificar o problema.

Gostaria de auxílio, estou anexando o xml enviado.

5001-rec.xml nfse-rps5001.xml

[Italo Giurizzato Junior]

Boa tarde Igor,

Verifique se o CPF informado realmente é valido, as vezes o numero esta errado e o webservice retorna uma rejeição que não tem nada haver.

[Igor Cibiac]

Boa tarde, obrigado pelo retorno.

Verificado o CPF e está correto. Alterei para um CNPJ válido e ocorreu o mesmo retorno.

 

Segue xml enviado.

 

Mandei e-mail para prefeitura mas não me deram retorno.

rps.xml

[Igor Cibiac]

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

[Italo Giurizzato Junior]

Bom dia Igor,

Esse é o grande problema, por conta da falta de padronização da NFS-e as rotinas que fazem a leitura do XML ainda não atende toda lambança feita pelos provedores.

É por isso que sempre peço para não gerar o XML do RPS, depois carrega-lo e por fim enviar.

Mas muito obrigado pela colaboração, já inclui na minha lista de tarefas.

[Igor Cibiac]

Bom dia Italo,

Obrigado pelo retorno e prestatividade.

[Italo Giurizzato Junior]

Boa tarde Igor,

Já enviei para o repositório.