Limite de Dígitos - Caixa Econômica Federal

[Marcos Leonardo Martins]

Boa tarde,

Hoje ao tentar ler um retorno da Caixa Federal, obtive o seguinte erro:

Agencia\Conta do arquivo inválido

Verifiquei o arquivo ACBrBancoCaixa.pas e pude ver que a variável rAgencia pega o número da agência do arquivo, com 5 dígitos.

Porém, no ACBrBoleto.pas, o tamanho máximo de agência está limitado a 4.

Isso ocasiona o erro, pois nessa caso, a agência é 04025 e o componente lê 4025.

Tem como mudar ou é um bug mesmo ?

Abaixo os códigos:

constructor TACBrBancoClass.create(AOwner: TACBrBanco);
begin
   inherited create;

   fpAOwner                := AOwner;
   fpDigito                := 0;
   fpNome                  := 'Não definido';
   fpNumero                := 0;
   fpTamanhoMaximoNossoNum := 10;
   fpTamanhoAgencia        := 4;
   fpTamanhoConta          := 10;
   fpCodigosMoraAceitos    := '12';
   fpCodigosGeracaoAceitos := '0123456789';
   fpModulo                := TACBrCalcDigito.Create;
   fpOrientacoesBanco      := TStringList.Create;
end;

 

if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or
          (rConta+rDigitoConta  <> OnlyNumber(Cedente.CodigoCedente))) then
         raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));

 

[rubenstz]

Boa tarde,

Tive a mesma dificuldade Marcos tanto em retorno como em remessa, tive de fazer ajustes manuais para gerar corretamente com os 4 digitos.