Pesquisar na Comunidade

Boa noite, eu gostaria de saber se é obrigatório eu passar o campo de variação do banco para o banco do brasil e bradesco, caso for obrigatório onde eu informo no componente do acbrBoleto Delphi

Prezados, Gostaria de saber onde e como informo o campo Variaçao no ACBRMONITORPLUS. O banco aceita como default a variaçao 019, porem, tenho de informar a variaçao 027. Esse campo VARIAÇÃO, não tem campo especifico no ACBRMONITOR. Agradeço a contribuiçao.

Saudações. Eu não sei bem onde informar, mas aqui em Rondônia, mais especificamente em Ji-Paraná, nós trabalhamos com a Carteira e a Variação da carteira "17-019", e eu não achei este tratamento específico para no ACBr. Eu optei então por informar no campo Carteira o valor '17-019' e pelo menos o boleto imprime normal com a numeração do código de barras funcionando para pagar, apesar de eu ver todo o tratamento para (Carteira = 18, ou 16, etc... que por sorte nós não entramos nesta condição mesmo e pegar sempre o else). O problema é que o código de barras propriamente dito não lê de jeito nenhum. Para resolver este problema, no procedimento onde monta o código de barras (procedure MontarCodigoBarras) na Unit ACBrBancoBrasil, eu fiz a seguinte alteração no trecho: de CodigoBarras := IntToStrZero(Banco.Numero, 3) + '9' + FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) + IfThen((Length(AConvenio) = 7), '000000', '') + ANossoNumero + IfThen((Length(AConvenio) < 7), padR(OnlyNumber(Cedente.Agencia), 4, '0'), '') + IfThen((Length(AConvenio) < 7), IntToStrZero(StrToIntDef(OnlyNumber(Cedente.Conta),0),8), '') + ACBrTitulo.Carteira; para CodigoBarras := IntToStrZero(Banco.Numero, 3) + '9' + FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) + IfThen((Length(AConvenio) = 7), '000000', '') + ANossoNumero + IfThen((Length(AConvenio) < 7), padR(OnlyNumber(Cedente.Agencia), 4, '0'), '') + IfThen((Length(AConvenio) < 7), IntToStrZero(StrToIntDef(OnlyNumber(Cedente.Conta),0),8), '') + Copy(ACBrTitulo.Carteira,1,2); ou seja, ao invés de colocar o campo ACBrTitulo.Carteira, eu usei somente os dois primeiros digitos. Assim funcionou, quem estiver com este mesmo problema está ai a solução. Estou informando aqui para ver se alguém faz a correção do componente para eu não me preocupar em ficar sempre alterando após cada atualização. Aguardo alguma resposta, Obrigado. Duílio Lobianco

Bom dia pessoal, estou começando a fazer boletos dos principais bancos para homologação. Observei que os Código Cedentes mudam de acordo com cada banco, cada banco trata de um jeito. Então eu gostaria de compartilhar com vocês esta parte do meu código para saber a opinião de vocês e como cada pessoa trata isso, pois no meu código abaixo eu acho que ainda não vai encaixar em todas as ocorrências que viram daqui pra frente. case ACBrBoleto.Banco.Numero of 1: begin (* Banco do Brasil *) ACBrBoleto.Cedente.CodigoCedente := FormatFloat('00000000000',StrToInt(ACBrBoleto.Cedente.Conta))+'-'+ACBrBoleto.Cedente.ContaDigito; ACBrBoleto.Cedente.Modalidade := qBanco.FieldByName('VARIACAO').Text; end; 33: begin (* Santander *) ACBrBoleto.Cedente.CodigoCedente := sContaComDigito; ACBrBoleto.Cedente.Modalidade := qBanco.FieldByName('CARTEIRA').Text; end; 104: begin (* Caixa Sicob *) ACBrBoleto.Cedente.CodigoCedente := ACBrBoleto.Cedente.Agencia+'870'+ACBrBoleto.Cedente.Convenio; end; 237: begin (* Bradesco *) ACBrBoleto.Cedente.CodigoCedente := FormatFloat('0000000',StrToInt(ACBrBoleto.Cedente.Conta))+'-'+ACBrBoleto.Cedente.ContaDigito; end; 341: begin (* Itau *) ACBrBoleto.Cedente.CodigoCedente := qBanco.FieldByName('CONTA').Text; end; end; (* Cedente.DigitoCodigoCedente := ''; *) No código acima não coloco nada no DigitoCodigoCedente e não sei pra que serve.