Retorno Sicred 400 quando a conta é Pessoa Fisica

[AG Sistemas]

Boa tarde! 

Segue anexo uma correção no retorno do sicred quando o dono da conta é pessoa fisica. Esta dando mensagem que o CNPJ tinha q ter 14 digitos.

----------------------------------------------------------Estava assim 

    Cedente.Nome         := rCedente;   

    if Copy(rCNPJCPF,1,10) <> '0000000000' then
    begin

      if Copy(rCNPJCPF,1,3)= '000' then
        rCNPJCPF := Copy(rCNPJCPF,4,11);

      Cedente.CNPJCPF := rCNPJCPF;

    end;

----------------------------------------------------------Ficou assim

    Cedente.Nome         := rCedente;
    Cedente.TipoInscricao:= pJuridica;

    if Copy(rCNPJCPF,1,10) <> '0000000000' then
    begin

      if Copy(rCNPJCPF,1,3)= '000' then begin
        rCNPJCPF := Copy(rCNPJCPF,4,11);
        Cedente.TipoInscricao := pFisica;
      end;

      Cedente.CNPJCPF := rCNPJCPF;

    end;

ACBrBancoSicredi.pas

[José M. S. Junior]

Obrigado, estará atualizado no SVN em breve...