Problemas com Boleto SIGCB (Caixa Econômica)

[Nilson Sérgio]

Olá amigos,

estava fazendo testes com o ACBrBoleto e encontrei alguns problemas no trato do boleto da CEF (SIGCB), mais especificamente na geração da linha digitável e na leitura do arquivo retorno.

Posto abaixo alguns ajustes que precisei fazer para que ambos os procedimentos funcionassem.

1 - ACBrBoleto.pas (linha 1835)

de acordo com o manual da caixa, para calcular o digito verificador o multiplicador inicial é 2, depois 1 e assim sucessivamente. No meu código fonte estava ao contrário (primeiro 1, depois 2). O que fiz foi exatamente trocar os valores dos multiplicadores inicial e final. ficando assim:

fpModulo.MultiplicadorInicial := 2;

fpModulo.MultiplicadorFinal := 1;

2 - ACBrCaixaEconomica (linha 550)

na leitura do arquivo retorno padrão 240 o componente estava lendo o vencimento com apenas 2 digitos no ano (ddmmyy), sendo que o arquivo retorna o vencimento com 4 digitos (ddmmyyyy). Alterei a linha citada para que fossem lidos os 4 digitos, como segue:

Vencimento := StringToDateTimeDef( Copy(Linha,74,2)+'/'+

Copy(Linha,76,2)+'/'+

Copy(Linha,78,4),0, 'DD/MM/YY' );

[Juliana Tamizou]

Bom dia Nilson.

A alteração feita por você na unit ACBrBoleto.pas irá afetar a todos os demais bancos que estão funcionando corretamente, verifique a forma de efetuar o ajuste apenas para o banco em questão.

Att.

[Nilson Sérgio]

Olá, fiz o seguinte: sobrescrevi o método montar linha digital e antes de invoca o inherited eu adicionei a linha

fpModulo.MultiplicadorAtual := 2. Ficou assim:

function TACBrCaixaEconomica.MontarLinhaDigitavel(const CodigoBarras: String): String;

begin

  fpModulo.MultiplicadorAtual := 2;

  Result := inherited MontarLinhaDigitavel(CodigoBarras);

end;

[Juliana Tamizou]

Boa tarde.

A função MontarLinhaDigitavel da unit ACBrBoleto.pas já faz essa atribuição....

Att.

[Nilson Sérgio]

Boa tarde,

Desculpe, mas não encontrei essa atribuição no ACBrBoleto.pas.

Estou com a versão atualizada.

[Juliana Tamizou]

Boa tarde.

Sua unit não está desta maneira:

function TACBrBancoClass.MontarLinhaDigitavel (const CodigoBarras: String): String;

var

Campo1, Campo2, Campo3, Campo4, Campo5: String;

begin

fpModulo.FormulaDigito := frModulo10;

fpModulo.MultiplicadorInicial := 1;

fpModulo.MultiplicadorFinal := 2;

fpModulo.MultiplicadorAtual := 2;

[Nilson Sérgio]

Minha unit não está dessa forma. Vou atualizar meu acbr pra ver.

[Nilson Sérgio]

Conferido, atualizei meu ACBr e continua do mesmo jeito, acho q esta alteração só existe no seus fontes.

[Juliana Tamizou]

Bom dia Nilson.

Tente excluir a sua unit e baixar novamente...pois todas as minhas units estão atualizadas no svn.

Att.

[Nilson Sérgio]

Olá,

removi o arquivo, atualizei e funcionou.

Caso resolvido!!!

[Nilson Sérgio]

Olá, desculpem ressuscitar este tópico, mas o problema na linha 559 do arquivo ACBrCaixaEconomica ainda persiste.

A data de vencimento do arquivo retorno está formatada com 4 dígitos para o ano (yyddmmmm). O componentes está lendo apenas 2 dígitos para o ano.

Alguém poderia corrigir e atualizar o repositório, por favor?

[Juliana Tamizou]

Bom dia Nilson.

Se desejar, efetue a correção, faça um teste e se der certo, anexe aqui a unit alterada.

Att.

[Nilson Sérgio]

Olá,

seguem compactados os 3 arquivos que eu alterei:

1) ACBrCaixaEconomica.pas: alterei a função FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String para ela não truncar os últimos 2 dígitos do nosso número e alterei a leitura do arquivo retorno para ele ler os 4 digitos do ano do vencimento.

2) ACBrBoletoFCFortesFr.pas e ACBrBoletoFCFortesFr.dfm: alterei o tipo do componente txtNomeSacadoCarne: TRLLabel para mNomeSacadoCarne: TRLMemo para exibir quebra de linha quando os nomes forem extensos.ACBrBoleto_ArquivosAlterados.rar

[thiagoporto]

Isso já foi implementado no acbrboleto?

[thiagoporto]

Implementei essas units no nos fontes e deu vários erros.

[Juliana Tamizou]

Bom dia.

Quanto a unit da caixa, a única alteração que falta ser implementada é a leitura da data do arquivo retorno(ler 4 caracteres)...

As demais linhas já estão corretas...

Att.