Jump to content

dev botao

Retorno banco DayCoval - Arquivo de retorno do banco diferente do cedente


Go to solution Solved by Roberto rrrFerminoRrrrrerw,

Recommended Posts

  • Consultores

Boa noite,

Pode dar mais detalhes? A mensagem de erro é exatamente essa? em que momento acontece o erro?

Você usa componentes, ACBrLib ou ACBrMonitor?

Consultor SAC ACBr

Alexandre de Paula
Ajude o Projeto ACBr crescer - Assine o SAC                    

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  ícone Discórdia Discord   

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

 

 

Link to comment
Share on other sites

  • Membros Pro

Ocorre no momento que chega na linha LerRetorno()

    LBoleto := TACBRBoleto.Create(nil);
    LBoleto.DirArqRetorno := ExtractFilePath(edArquivo.Text);
    LBoleto.NomeArqRetorno := ExtractFileName(edArquivo.Text);
    LBoleto.ListadeBoletos.Clear;
    LBoleto.LerRetorno();  ===============Nesta linha ocorre esta mensagem

Anexei o arquivo aqui

V9616977.23O

Link to comment
Share on other sites

  • Consultores

A mensagem é 'Código da Empresa do arquivo inválido.' ?

Se for verifique o codigo do cedente que está configurado no componente quando você faz a leitura do arquivo.

image.png

Testei no programa exemplo com os dados marcados em vermelho e leu o retorno normalmente.

Outra opção é marcar "Ler Cedente do Arq. Retorno"

image.png

Aí o componente não verifica o codigo do cedente no componente e usa direto do arquivo.

Consultor SAC ACBr

Alexandre de Paula
Ajude o Projeto ACBr crescer - Assine o SAC                    

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  ícone Discórdia Discord   

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

 

 

Link to comment
Share on other sites

  • Membros Pro

Boa tarde, grato pelo retorno, porém após fazer estas configurações, o nosso numero vem zerado e o seu número vem em branco.

    LBoleto := TACBRBoleto.Create(nil);
    LBoleto.LayoutRemessa := c400;
    LBoleto.LeCedenteRetorno := true;
    LBoleto.LerNossoNumeroCompleto := true;
    LBoleto.DirArqRetorno := ExtractFilePath(edArquivo.Text);
    LBoleto.NomeArqRetorno := ExtractFileName(edArquivo.Text);
    LBoleto.ListadeBoletos.Clear;
    LBoleto.LerRetorno();
 

Parou aquela mensagem e consegue carregar o arquivo, mais como disse o nosso número vem zerado, e olhando no arquivo via bloco de notas, as informações estão lá.

 

Link to comment
Share on other sites

  • Membros Pro

Abrindo um pouco mais o código: 

    LBoleto := TACBRBoleto.Create(nil);
    LBoleto.LayoutRemessa := c400;
    LBoleto.LeCedenteRetorno := true;
    LBoleto.LerNossoNumeroCompleto := true;
    LBoleto.DirArqRetorno := ExtractFilePath(edArquivo.Text);
    LBoleto.NomeArqRetorno := ExtractFileName(edArquivo.Text);
    LBoleto.ListadeBoletos.Clear;
    LBoleto.LerRetorno();

    if LBoleto.Banco.Numero <> 707 then
    begin
      mensagem('Este arquivo nao pertence ao DayCoval, ou não é de retorno, verifique!');
      exit;
    end;

    LBaixados := 0;
    LNaobaixados := 0;

    LRetorno := LBoleto.ListadeBoletos;
    for I := 0 to Pred(LRetorno.Count) do
    begin
      LNossoNumero := trim(LRetorno[I].NossoNumero);   <-------------------------------------------
      LSeuNumero := trim(LRetorno[I].SeuNumero);
      Lcnpj := trim(LRetorno[I].Sacado.CNPJCPF);
 

Faço a leitura do nosso número desta forma, como vc pode observar é um objeto criado do zero, mais se vc esta dizendo que ai leu o nosso número, então alguma coisa esta diferentente né, agora o que?

 

Link to comment
Share on other sites

  • Consultores

Bom dia,

Verifique esse link:
https://acbr.sourceforge.io/ACBrMonitor/Particularidades.html

Vai encontrar essa informação:
image.png

Preenchendo com o valor 6 que é o padrão o retorno já trouxe o nosso numero preenchido. Mas é importante você verificar a sua versão e se o numero retornado está correto.

image.png

  • Like 1
Consultor SAC ACBr

Alexandre de Paula
Ajude o Projeto ACBr crescer - Assine o SAC                    

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  ícone Discórdia Discord   

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

 

 

Link to comment
Share on other sites

  • Membros Pro
  • Solution

Então bati cabeça aqui, mais consegui descobrir o problema, além de colocar esta versão seis ai, foi OBRIGATORIO eu colocar esta linha:

LBoleto.Banco.TipoCobranca := cobDaycoval;

E ela precisa obrigatoriamento estar no inicio, logo depois de criar o objeto, ai tudo funcionou.

Agradeço a todos.
 

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.