Remessa de Boletos Registrados ITAU 400

[Rafael Stoffel]

Prezados, boa tarde.

é um feliz natal a todos.

conforme anexo o itau esta informando que o CPF é invalido, porem eu só estou informando CNPJ, porem na posição 219 a 220 é obrigado a informar 01=Fisica e 02=Juridica, porem não consigo alterar mesmo passando somente numero no campo       Sacado.CNPJCPF    := OnlyNumber(CNPJCPF);

existe como mudar isso?

podem me ajudar? 

segue codigo

var
  Titulo : TACBrTitulo;
  NomePdf : string;
begin
  if LimpaBoleto = False then
  begin
    Titulo := Boleto.CriarTituloNaLista;
    with Titulo do
    begin
      Vencimento        := dt_vencimento;
      DataDocumento     := Data_Documento;
      NumeroDocumento   := Numero_Documento;
      EspecieDoc        := Especie_Doc;
      Aceite            := atNao;
      DataProcessamento := Now;

      Carteira          := carteira_banco;
      NossoNumero       := Nosso_Numero;
      ValorDocumento    := valor;

      NomePdf           := NomeSacado;
      Sacado.NomeSacado := NomeSacado;
      Sacado.CNPJCPF    := OnlyNumber(CNPJCPF);

      Sacado.Logradouro := Endereco;
      Sacado.Numero     := complemento;
      Sacado.Bairro     := bairro;
      Sacado.Cidade     := cidade;
      Sacado.UF         := uf;
      Sacado.CEP        := cep;

      LocalPagamento    := LocalPgto;
      Mensagem.Text     := Descri_Boleto + Msg1 + #13 + Msg2;
    end;
  end 

cb211216.rem

valida_cb211216rem.pdf

[Rafael Stoffel]

Alguem pode ajudar?

[Juliomar Marchetti]

veja que existe uma propriedade chamada TipoInscricao

tente mudar ela e veja se resolve.

[Rafael Stoffel]

Juliomar, boa tarde.

obrigado pelo retorno, porem para o sacado essa opção não é publica não consigo alterar ela. ela só é publica para o cedente

[Juliomar Marchetti]

veja então com outro nome chamado pessoa somente

 

[Rafael Stoffel]

Meu parceiro exatamente isso então meu código ficou da seguinte forma e funcionou. 

Muito obrigado.

 

   Titulo := Boleto.CriarTituloNaLista;
    with Titulo do
    begin
      Vencimento        := dt_vencimento;
      DataDocumento     := Data_Documento;
      NumeroDocumento   := Numero_Documento;
      EspecieDoc        := Especie_Doc;
      Aceite            := atNao;
      DataProcessamento := Now;

      Carteira          := carteira_banco;
      NossoNumero       := Nosso_Numero;
      ValorDocumento    := valor;

      NomePdf           := NomeSacado;
      Sacado.NomeSacado := NomeSacado;
      Sacado.CNPJCPF    := OnlyNumber(CNPJCPF);

      if Length(OnlyNumber(CNPJCPF)) = 14 then
        Sacado.Pessoa     := pJuridica;
      if Length(OnlyNumber(CNPJCPF)) = 11 then
        Sacado.Pessoa     := pFisica;

      Sacado.Logradouro := Endereco;
      Sacado.Numero     := complemento;
      Sacado.Bairro     := bairro;
      Sacado.Cidade     := cidade;
      Sacado.UF         := uf;
      Sacado.CEP        := cep;

      LocalPagamento    := LocalPgto;
      Mensagem.Text     := Descri_Boleto + Msg1 + #13 + Msg2;
    end;