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

[Roberto rrrFerminoRrrrrerw]

Boa tarde

Implementei o banco daycoval, a remessa e boleto foi certinho, porém peguei o retorno do cliente, e esta dando esta mensagem: Arquivo de retorno do banco diferente do cedente, olhando o arquivo aparentemente esta correto.

Poderiam me dar uma luz ai, grato.

[Alexandre de Paula]

Boa noite,

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

Você usa componentes, ACBrLib ou ACBrMonitor?

[Roberto rrrFerminoRrrrrerw]

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

[Alexandre de Paula]

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.

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

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

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

[Roberto rrrFerminoRrrrrerw]

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á.

 

[Juliomar Marchetti]

Creio que tu está com alterações locais

acabei de pegar seu arquivo e testar com o seu código acima e não obtive erros. e os dados estavam ali

[Roberto rrrFerminoRrrrrerw]

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?

 

[Alexandre de Paula]

Bom dia,

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

Vai encontrar essa informação:

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.

[Roberto rrrFerminoRrrrrerw]

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.
 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.