Boleto CEF - Leitores ópticos

[sorrilha]

Bom dia Amigos;
Estou com um problema no leitor de código de barras. Estou passando todos os parâmetros para que possa ser bem exemplificado.
Não utilizo a impressão pelo componente, gero somente o código de barras e a linha digitável.

        dtmBoleto.info_banco_cedente;
        dtmBoleto.ACBrBoleto.ListadeBoletos.Clear;
        Titulo := dtmBoleto.ACBrBoleto.CriarTituloNaLista;
        with Titulo do
        begin
          Vencimento        := data_vencimento;//cdsMulVencimento.AsDateTime;
          DataDocumento     := date();
          NumeroDocumento   := PadLeft(copy(cdsMulNosso_numero.AsString,1,10),11,'0');
          EspecieDoc        := cdsMulEspecie_docto_reg.AsString;
          Aceite := atSim;
          DataProcessamento := date();
          NossoNumero       := copy(cdsMulN_numero17.AsString,3,15);
          Carteira          := 'RG';
          ValorDocumento    := cdsMulValor.AsFloat;
          Sacado.NomeSacado := RemoveAcentos(uppercase(cdsMulProprietario.asstring));
          Sacado.CNPJCPF    := cdsMulCPF_cnpj.AsString;
          Sacado.Logradouro := RemoveAcentos(uppercase(cdsMulENDERECO.AsString));
          Sacado.Numero     := cdsMulNumero.AsString;
          Sacado.Bairro     := RemoveAcentos(uppercase(cdsMulBAIRRO.AsString));
          Sacado.Cidade     := RemoveAcentos(uppercase(cdsMulMunicipio.AsString));
          Sacado.UF         := cdsMulUF.AsString;
          Sacado.CEP        := cdsMulCEP.AsString;
          ValorAbatimento   := 0;
          LocalPagamento    := RemoveAcentos(uppercase(sqlGen.fieldbyName('LOCAL_PAGAMENTO_REG').asString));
          ValorMoraJuros    := (cdsMulMora_diaria_reg.AsFloat/100) * cdsMulValor.AsFloat;
          ValorDesconto     := 1;
          ValorAbatimento   := 2;
          DataMoraJuros     := data_Vencimento+1;
          DataMulta         := data_Vencimento+1;
          databaixa         := data_Vencimento + sqlGen.fieldbyName('DIAS_BAIXA_REG').AsInteger;
          DataDesconto      := data_Vencimento;
          DataAbatimento    := data_Vencimento;
          DataProtesto      := data_Vencimento + sqlGen.fieldbyName('DIAS_PROTESTO_REG').AsInteger;
          PercentualMulta   := cdsMulMulta_reg.AsFloat;
          Mensagem.Text     := '';
          OcorrenciaOriginal.Tipo := toRemessaregistrar;
          Instrucao1        := '00';//padL(trim(dtmCad.cdsInstINSTRUCAO_01.AsString),2,'0');
          Instrucao2        := '00';//padL(trim(dtmCad.cdsInstINSTRUCAO_02.AsString),2,'0');
          TotalParcelas     := 1;
          Parcela           := 1;
        end;
        dtmBoleto.ACBrBoleto.ChecarDadosObrigatorios;
      end;                                                               

      cod_barras := dtmBoleto.ACBrBoleto.Banco.MontarCodigoBarras(Titulo);
      qrLinha_dig.Caption := dtmBoleto.ACBrBoleto.Banco.MontarLinhaDigitavel(cod_barras, titulo);
      qrNN.Caption := dtmBoleto.ACBrBoleto.Banco.MontarCampoNossoNumero(Titulo);
      qrCod_cedente.caption := dtmBoleto.ACBrBoleto.Banco.MontarCampoCodigoCedente(Titulo);

      CriaCodigo(cod_barras, banco_cod_barras.Canvas);
      

Código de Barras

Fator de Vencimento : '7804' - 18/02/2019
Nosso numero : '14000000000002756'
Campo Livre c/ DV: '9235434000100040000027560'
Cod Barras s/ DV : '1049780400000195239235434000100040000027560'
Dv cod Barras : '7'
Cod Barras c/ DV : '10497780400000195239235434000100040000027560'

Linha digitável

Campo1 : '10499.23541'

Campo2 : '34000.100049'

Campo3 : '00000.275602'

Campo4 : '7'

Campo5 : '78040000019523'

Linha Digitavel : '10499.23541 34000.100049 00000.275602 7 78040000019523'

Nosso Numero

Nosso numero c/ DV : '14000000000002756-7'

Cedente

Cedente c/ DV : '923543-4'

      
O PROBLEMA É QUE QDO FAÇO A LEITURA COM LEITORES ÓPTICOS DIFERENTES, UM DE PISTOLA E OUTRO DE ''PASSAR'', O DE PISTOLA DA MARCA FEASSO E DE PASSAR DA MARCA HOMEBANK - NONUS OS CÓDIGOS SÃO LIDOS DIFERENTES

Cod Barras c/ DV gerado pelo componente: '10497780400000195239235434000100040000027560'

LEITOR FEASSO : 10497780400000195239235413400010004900000275602 - INCLUIR O NUMERO 1 NA POSIÇÃO 25 E NUMERO 9 NA POSIÇÃO 36 ALÉM DE TRAZER 48 POSIÇÕES QDO NO MANUAL CEF DIZ 44

LEITOR HOMEBANK : 10499235413400010004900000275602778040000019523 - NESTE CASO NÃO CONSIGO NEM VER AS DEFINIÇÕES DE POSICIONAMENTO

Gostaria, se possível, alguém que pudesse me orientar com relação a isso. Um possível erro meu, problemas com os leitores e/ou um site ou aplicativo que eu possa testar a linha digitável e cod de barras.
Desde já agradeço a atenção de vcs.
Muito obrigado.

Sorrilha

[Juliana Tamizou]

Boa tarde.

Como vc está fazendo a impressão do código de barras? Qual componente?

Att.

[sorrilha]

Olá Juliana;

De ante-mão obrigado pelo seu interesse na ajuda.

Uso o Tbarcode.

 

      Bar_banco.Digits := cod_barras;

      Bar_banco.BarcodeCopy;
      ima_banco.Picture.Assign(ClipBoard);

 

depois jogo no QrImage no Quickrep

 

 

[Juliana Tamizou]

Boa tarde.

Verifique as configurações do componente relacionadas ao tipo de código de barras e espessura das mesmas.

Att.

[Antonio Gomes]

Olha, sem querer ser chato, mas me parece que o homebank da nonus, ja manipula do jeito que precisa nos sites de banco, tanto é estranho que as vezes uso a pistola também, e tenho que deixar aquela marcação do site do banco para o codigo de barras ser lido ao inves de digitado, com o nomus, so pega digitado.

Pelo que reparei, ele coloca como se o operador estivesse digitando o nosso numero, repare:

 

Pelo nomus: 07790001161200000050000816758478377440000034620

pistola: 07793774400000346200001112000000500081675847

Se reparar o do nonus, é igual a linha digitavel.

Não vejo como problema isso com vc, se o meu está assim também.
 

Imagem do boleto.

Editado 19 Janeiro, 2019 por Antonio Gomes
imagem

[sorrilha]

Olá amigos/as.

Obrigado pelo interesse no assunto. Mas realmente os leitores de pistola não manipulam o código de barras corretamente, exceto, os próprio pra este fim.

Tópico finalizado.

Editado 31 Janeiro, 2019 por sorrilha

[Felipe E. Resende Mesquita]

Obrigado por reportar.

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