Jump to content

logo_acbr_paygo.png

Chegou o TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao_saibamais.png

beneficios.png

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

sorrilha

Membros
  • Content Count

    20
  • Joined

  • Last visited

Community Reputation

4 Neutral

About sorrilha

  • Rank
    Novato

Profile Information

  • Sexo
    Masculino
  • Localização
    marilia

Recent Profile Visitors

452 profile views
  1. Obrigado Juliana; Tópico fechado.
  2. Boa tarde a todos, espero que estejam bem... Me surgiu a necessidade de impressão de boleto tipo arrecadação. Boletos como os de conta de energia, telefone, impostos, etc.... Estes tipo de boleto não requer envio de remessa/registro. Gostaria de saber se o AcbrBoleto contempla este modelo, procurei e não encontrei nada. Desde já agradeço pelas respostas e pelo interesse. Obrigado
  3. Bom dia amigos/as; Com muita dificuldade consegui falar no sac da CEF para tirar esta dúvida. Este arquivo de pré-critica somente é um informativo, mas no arquivo de retorno do dia seguinte estas pré-criticas tbém são informadas. Assim, não há necessidade de processá-lo. Agradeço novamente pelo interesse. Tópico finalizado.
  4. Boa tarde amigos/as A CEF, logo depois da envio da remessa 240, retorna um arquivo de nominado pré-critica "REMESSA PROCESSADA PRET PRE CRI-PRODUCAO " Passando por este momento do processamento do retorno no AcbrBoleto if Copy(SlRetorno.Strings[0],143,1) <> '2' then Raise Exception.Create( ACBrStr( NomeArq + sLineBreak + 'Não é um arquivo de Retorno de cobrança com layout CNAB240') ); BancoRetorno := Copy(SlRetorno.Strings[0],0,3); LayoutRemessa := c240 ; Assim, o componente me retorna o erro do RAISE. O componente não contemple este arquivo de pré-critica? Agradeço a todos/as novamente.
  5. 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.
  6. 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
  7. 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
  8. Boa noite amigos; Algum problema com homologação dos boletos CEF? Agradeço a atenção.
  9. recebi um retono da CEF com "43-PrazoparaBaixa/DevoluçãoInválido" na geração da remessa: Vencimento := cdsFatvencimento.AsDateTime; DataDocumento := date(); NumeroDocumento := PadLeft(copy(cdsFatn_numero.AsString,1,10),11,'0'); EspecieDoc := cdsFatEspecie.AsString; Aceite := atSim; DataProcessamento := date(); NossoNumero := copy(cdsFatN_numero17.AsString,3,15); Carteira := 'RG';//dtmCad.cdsFatCARTEIRA.AsString; ValorDocumento := cdsFatvalor.AsFloat; Sacado.NomeSacado := RemoveAcentos(uppercase(cdsFatnome.AsString)); Sacado.CNPJCPF := cdsFatcpf.AsString; Sacado.Logradouro := RemoveAcentos(uppercase(cdsFatendereco.AsString)); Sacado.Numero := cdsFatnumero.AsString; Sacado.Bairro := RemoveAcentos(uppercase(cdsFatbairro.AsString)); Sacado.Cidade := RemoveAcentos(uppercase(cdsFatcidade.AsString)); Sacado.UF := cdsFatUF.AsString; Sacado.CEP := cdsFatCEP.AsString; ValorAbatimento := 0; LocalPagamento := RemoveAcentos(uppercase(dtmcad.cdsInstlocal_pagamento.AsString)); ValorMoraJuros := cdsFatmora_diaria.AsFloat; ValorDesconto := 0; ValorAbatimento := 0; DataMoraJuros := cdsFatvencimento.AsDateTime; dataMulta := cdsFatvencimento.AsDateTime+1; Vencimento := cdsFatvencimento.AsDateTime; DataDocumento := date(); NumeroDocumento := PadLeft(copy(cdsFatn_numero.AsString,1,10),11,'0'); EspecieDoc := cdsFatEspecie.AsString; Aceite := atSim; DataProcessamento := date(); NossoNumero := copy(cdsFatN_numero17.AsString,3,15); Carteira := 'RG';//dtmCad.cdsFatCARTEIRA.AsString; ValorDocumento := cdsFatvalor.AsFloat; Sacado.NomeSacado := RemoveAcentos(uppercase(cdsFatnome.AsString)); Sacado.CNPJCPF := cdsFatcpf.AsString; Sacado.Logradouro := RemoveAcentos(uppercase(cdsFatendereco.AsString)); Sacado.Numero := cdsFatnumero.AsString; Sacado.Bairro := RemoveAcentos(uppercase(cdsFatbairro.AsString)); Sacado.Cidade := RemoveAcentos(uppercase(cdsFatcidade.AsString)); Sacado.UF := cdsFatUF.AsString; Sacado.CEP := cdsFatCEP.AsString; ValorAbatimento := 0; LocalPagamento := RemoveAcentos(uppercase(dtmcad.cdsInstlocal_pagamento.AsString)); ValorMoraJuros := cdsFatmora_diaria.AsFloat; ValorDesconto := 0; ValorAbatimento := 0; DataMoraJuros := cdsFatvencimento.AsDateTime; dataMulta := cdsFatvencimento.AsDateTime+1; databaixa := ????? ESTA LINHA NÃO TINHA QDO EMITI A REMESA, PODE SER ESTE O ERRO? O QUE SERIA ESTE PARAMETRO? DataDesconto := 0; DataAbatimento := 0; DataProtesto := cdsFatdata_protesto.asdateTime; PercentualMulta := cdsFatmulta.AsFloat; Mensagem.Text := ''; OcorrenciaOriginal.Tipo := toRemessaregistrar; DataDesconto := 0; DataAbatimento := 0; DataProtesto := cdsFatdata_protesto.asdateTime; PercentualMulta := cdsFatmulta.AsFloat; Mensagem.Text := ''; OcorrenciaOriginal.Tipo := toRemessaregistrar; Agradeço pelas respostas.
  10. em uma remessa pode enviar vários tipos de ocorrências? Tipo: baixar, protestar, alterar, etc..... Obrigado
  11. Aproveitando o post, qual comando uso pra mandra a informação na remessa de não protestar? Obrigado
  12. Obrigado Agnaldo, era isso mesmo que eu precisava. Grato.
  13. Olá amigo; Como pego a descrição da acorrência na importação do retorno CEF? Obrigado var CodOcorrencia: Integer; begin CodOcorrencia := StrToIntDef(TipoOCorrenciaToCod(TipoOcorrencia),0); if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then begin case CodOcorrencia of 01: Result := '01-Solicitação de Impressão de Títulos Confirmada'; 02: Result := '02-Entrada Confirmada'; 03: Result := '03-Entrada Rejeitada'; 04: Result := '04-Transferência de Carteira/Entrada'; 05: Result := '05-Transferência de Carteira/Baixa';
  14. Boa tarde amigos. No componente AcbrBoleto eu consigo gerar incluir boletos o dia todo e no final do dia emitir uma única remessa? Exemplo: cliente A 10 boletos cliente B 05 boletos Final do dia gerar a remessa com os 15 registros? Obrigado a todos.
×
×
  • Create New...