Erro ao Ler DDA Banco do Brasil

[Desenv. AT Info Sistemas]

Boa tarde,

Estou tentando ler o arquivo DDA do Banco do Brasil e está retornando o erro abaixo:

Não Foi Possível ler os Registros do Arquivo
Nao Foi Possível ler os registros no arquivo.
'/' is not a valid integer value.

 

Pude identificar que ocorre ao ler a data de gravação que está em branco no retorno.

Nesta  unit "ACBrPagForLerTxt"  falta retirar ou testar se o campo esta com espaços.

 

function TArquivoRClass.LerCampo(const Linha: string; Inicio, Tamanho: Integer;
  Tipo: TTipoCampo): Variant;
var
  ConteudoCampo: string;
  iDecimais: Integer;
begin
  ConteudoCampo := Copy(Trim(Linha), Inicio, Tamanho);

  case Tipo of
    tcStr:
      result := Trim(ConteudoCampo);

    tcDat:
      begin

  ***  Aqui a variavel ConteudoCampo = '          '

  **** ela está com espaços em branco dentro então o    Length  > 0

**** acredito que tem que alterar este teste

        if length(trim(ConteudoCampo)) > 0 then

        begin
          if ConteudoCampo <> '00000000' then
          begin
            ConteudoCampo := Copy(ConteudoCampo, 1, 2) + '/' +
                             Copy(ConteudoCampo, 3, 2) + '/' +
                             Copy(ConteudoCampo, 5, 4);
            result := EncodeDataHora(ConteudoCampo, 'DD/MM/YYYY');
          end
          else
            Result := 0;
        end
        else
          result := 0;
      end;
 

No Aguardo

Obrigado

Adriano Lucas

 

 

[Italo Giurizzato Junior]

Bom dia Adriano,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-3578

[Italo Giurizzato Junior]

Boa tarde Adriano,

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

Fiz um pouco diferente da sua proposta.

[Desenv. AT Info Sistemas]

Bom dia, 

Vou testar.

Muito obrigado

[Desenv. AT Info Sistemas]

Boa tarde!

Funcionou a leitura.

Muito obrigado

[Italo Giurizzato Junior]

Obrigado por reportar.

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