Boa tarde,
Solucinamos a questão da leitura do código de barras do ACBrBancoItau.
Tivemos que modificar o ACBrBoletoFCQuickFr.pas
- Na procedure TACBrBoletoFCQuickFr.RLBandDatailBeforePrint, abaixo do código
- CodBarras := Banco.MontarCodigoBarras( Titulo );
- LinhaDigitavel := Banco.MontarLinhaDigitavel( CodBarras );
Acrescentamos o código
- if Banco.Numero = 341 then
begin
CodBarras := LinhaDigitavel;
CodBarras := StringReplace(CodBarras, ' ', '', [rfReplaceAll]);
CodBarras := StringReplace(CodBarras, '.', '', [rfReplaceAll]);
CodBarras := copy( CodBarras, 1, 4) + copy( CodBarras, 33, 15) + copy( CodBarras, 5, 5) + copy( CodBarras, 11, 6);
end;
Funcinou a leitura pelo leitor de mão perfeitamente
Essa solução foi a que nós encontramos. Ela pode ser melhorada
Wharley Ornelas da Rocha