Ir para conteúdo
  • Cadastre-se

dev botao

Ajuda ao ler Retorno


wagner_fix
  • Este tópico foi criado há 2018 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Pessoal boa noite, já faz uns 8 meses que tenho gerado arquivo remessa C400 do itaú para enviar para os meus clientes e até hoje sem problemas...

Mas para facilitar minha vida por falta de tempo queria ler o retorno para dar baixa automática, mas não estou conseguindo alguém poderia me ajudar?

Antes de dar o comando eu preencho o componente assim:

procedure TForm020BoletoRetorno.ConfiguraBoleto;
begin
  ACBrBoleto.Cedente.Agencia             := '2222';
  ACBrBoleto.Cedente.AgenciaDigito       := '0';
  ACBrBoleto.Cedente.CaracTitulo         := tcSimples;
  ACBrBoleto.Cedente.ResponEmissao       := tbCliEmite;
  ACBrBoleto.Cedente.TipoCarteira        := tctEletronica;
  ACBrBoleto.Cedente.TipoInscricao       := pFisica;
  ACBrBoleto.Cedente.CodigoCedente       := '';
  ACBrBoleto.Cedente.Conta               := '19999';
  ACBrBoleto.Cedente.ContaDigito         := '7';
  ACBrBoleto.Cedente.Nome                := Trim('MEU NOME COMPLETO');
  ACBrBoleto.Cedente.CNPJCPF             := '000.000.000-00';
end;

E para fazer a leitura tenho feito assim...

  if AbrirRet.Execute then
  begin
    ConfiguraBoleto;
    ACBrBoleto.NomeArqRetorno := AbrirRet.FileName;
    ACBrBoleto.LerRetorno;
    for i := 0 to ACBrBoleto.ListadeBoletos.Count-1 do
    begin
      if ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido > 0 then
      begin
        if (nRow > 1) then sgBoleto.Rowcount := sgBoleto.Rowcount + 1;
        sgBoleto.Cells[0,nRow]   := Trim('Sim');
        sgBoleto.Cells[1,nRow]   := DateToStr(ACBrBoleto.ListadeBoletos.Objects[i].DataBaixa);
        sgBoleto.Cells[2,nRow]   := FloatToStr(ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido);
        sgBoleto.Cells[3,nRow]   := ACBrBoleto.ListadeBoletos.Objects[i].NossoNumero;
        DM.SqlAux1.Next;
        sgBoleto.Refresh;
      end;
      Close;
    end;
  end;

Ao ler o retorno, da a seguinte mensagem: CNPJ inválido...

Ou seja, já informei para o meu componente que sou Pessoa Física, mas não tem jeito.

Alguém tem uma luz?

Grato,

Wagner

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

Como está a propriedade LeCedenteRetorno? Se estiver false, vc deve informar o CNPJ referente a conta nas propriedades do componente.

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

14 horas atrás, wagner_fix disse:

E como disse acima, os meus boletos são feito no meu nome de pessoa física de cpf não emito pelo o cnpj.

Tente setar a propriedade Cedente.CNPJCPF com seu CPF antes de fazer a leitura do arquivo retorno.

Att,

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

Em 17/09/2018 at 01:30, wagner_fix disse:

ACBrBoleto.Cedente.CNPJCPF := '000.000.000-00';

Observe que dentro do seu método ConfiguraBoleto() vc está zerando a propriedade.

Faça um teste com o demo.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

Como foi esse teste?

6 horas atrás, Juliana Tamizou disse:

Faça um teste com o demo.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2018 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.