Ir para conteúdo
  • Cadastre-se

dev botao

Erro na linha digitavel e codigo de barras banco SICOOB


Ver Solução Respondido por eraldocg,
  • Este tópico foi criado há 593 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Olá senhores,

Gostaria de relatar um problema que temos enfrentado com a emissão de boletos nesta conta bancária do SICOOB que nosso cliente utiliza há cerca de 3 anos. Desde janeiro, temos observado que os boletos registrados através do remessa e impressos através do ACBR não estão sendo pagos devido a erros na leitura do código de barras ou da linha digitável. No entanto, quando os boletos são impressos através do sistema SICOOB, não há problemas.

veja abaixo o mesmo boleto:

codigo gerado atraves do acbr: 75691.30664 01083.681807 01083.280055 2 93460000126301

codigo gerado atraves do sicoob: 75691.30664 01083.681807 01083.280014 1 93460000126301

Agradecemos se puderem nos ajudar a solucionar esta questão.

  • Moderadores
Postado

Pela linha digitável a diferença está no número da parcela, você está informando a parcela 5 enquanto pelo SICOOB está gerando a parcela 1.

image.png

Informe parcela 1 na sua aplicação e compare.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • Solution
Postado
Em 13/04/2023 at 10:39, BigWings disse:

Pela linha digitável a diferença está no número da parcela, você está informando a parcela 5 enquanto pelo SICOOB está gerando a parcela 1.

image.png

Informe parcela 1 na sua aplicação e compare.

De fato, estava ligado a parela, mas sempre enviei nesse campo o numero da parcela, ao definir um valor padrão o boleto foi registrado e e ja consigo pagar.

case BancodeDados.ACBrBoleto1.Banco.Numero of
   756 :
   begin
     TotalParcelas :=1;
     Parcela           :=1;
   end
   else
   begin
     if RetornaNumeros(BoletosPARCELA.AsString)<>EmptyStr then
     TotalParcelas      := StrToInt(RetornaNumeros(copy(BoletosPARCELA.AsString,3,3)) );

     if RetornaNumeros(BancodeDados.BoletosPARCELA.AsString)<>EmptyStr then
      Parcela           := StrToIntDef(RetornaNumeros(copy(BoletosPARCELA.AsString,1,2)),1);
   end;
 end;

deixei assim como acima, mas vou entrar em contato com o banco para bsucar mais explicações.

 

Obgado pela atencao

  • Este tópico foi criado há 593 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.