Ir para conteúdo
  • Cadastre-se

dev botao

Boleto CEF - Leitores ópticos


sorrilha
Ver Solução Respondido por sorrilha,
  • Este tópico foi criado há 1883 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

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

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

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

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

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.

imagem_boleto_inter.png

Editado por Antonio Gomes
imagem
  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Este tópico foi criado há 1883 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.