Gerar Chave ESocial

[Curitiba Computer Ltda]

bom dia, na geração da chave do esocial, ao comparar o cnpj está considerando o tamanho 14, quando a quantidade do valor enviado é de 8 (raiz do cnpj), gerando erro ao informar 2 para cnpj e 1 para cpf. como não conheço de componente, fiz a mudança abaixo no arquivo pcesgerador, na funcao gerarchaveesocial, e resolveu.

de

  if (Length(CNPJF) = 14) then // errado
    Result := Result + IntToStr(1)
  else
    Result := Result + IntToStr(2);

para

  if (Length(CNPJF) <> 11) then // para a garantia de que se for cpf tera o tamanho 11
    Result := Result + IntToStr(1)
  else
    Result := Result + IntToStr(2);

att

 

pcesGerador.pas

[Italo Giurizzato Junior]

Bom dia,

(tópico movido para a área do SAC)

Não veja a necessidade dessa alteração uma vez que sempre devemos informar o CNPJ completo com os 14 dígitos, pois dependendo de onde essa informação for utilizada será considerado apenas os 8 primeiros dígitos ou os 14 dígitos.