ACBRPagFor, CNAB240.LerTxtRetorno, TArquivoR_CNAB240.LerRegistro1(I: Integer)

[cne]

Olá,

Estou implementando a rotina de pagamentos, e encontrei um problema.

Comentei o código abaixo para importar arquivo DDA do banco do Brasil, no arquivo do banco essas posições estão vazias.

Att.

Vanessa Passos

[Daniel Simoes]

Olá @Italo Giurizzato Junior, pode nos ajudar com essa demanda ?

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Italo Giurizzato Junior]

Boa tarde Vanessa,

Já inclui na minha lista de tarefas. TK-3011

[Italo Giurizzato Junior]

Bom dia Vanessa,

Analisando o código referente a leitura de um campo do tipo data que se encontra na unit ACBrPagForLerTxt temos o seguinte:

    tcDat:
      begin
        if length(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;

Se o conteúdo da variável "ConteudoCampo" não for vazio e diferente de "00000000" converte o conteúdo em uma data , caso contrario retorna o valor zero.

Você esta com todos os fontes de todas as pastas atualizados?

Não tem nenhuma unit que compõe o componente com uma bolinha vermelha em seu ícone?

Caso afirmativo, delete essa unit e atualiza novamente, reinstale o ACBr e por fim faça novos testes.

[Italo Giurizzato Junior]

Tópico fechado por falta de retorno do usuário