Pesquisar na Comunidade
Showing results for tags 'Boleto BB'.
Encontrado 4 registros
-
Não sei se alguém usa esse comando, mas incluí essas linhas em "GerarRegistroTransacao400" no "ACBrBancoBrasil.pas" para que o banco envie o email ao sacado:
-
Olá, caros colegas. Nos convênios com 7 dígitos e cuja carteira é 17, o ACBrBoleto não deixa montar o boleto porquê o tamanho do nosso número é de 17 dígitos. Para isso, tive que alterar o fonte do ACBrBancoBrasil (Trunk2). Segue o método para apreciação dos moderadores e posterior commit. Um abraço a todos. function TACBrBancoBrasil.CalcularTamMaximoNossoNumero( const Carteira: String; NossoNumero : String = ''): Integer; var wCarteira : String; wTamConvenio: Integer; begin Result := 10; if (ACBrBanco.ACBrBoleto.Cedente.Convenio = '') then raise Exception.Create(ACBrStr('Banco do Brasil requer que o Convênio do Cedente '+ 'seja informado.')); if (Carteira = '') then raise Exception.Create(ACBrStr('Banco do Brasil requer que a carteira seja '+ 'informada antes do Nosso Número.')); wCarteira:= Trim(Carteira); wTamConvenio:= Length(Trim(ACBrBanco.ACBrBoleto.Cedente.Convenio)); if (Length(trim(NossoNumero)) > 10) and (((wTamConvenio = 6) and ((wCarteira = '16') or (wCarteira = '18'))) or ((wTamConvenio = 7) and (wCarteira = '18'))) then Result:= 17 else if (wTamConvenio <= 4) then Result := 7 else if ((wTamConvenio > 4) and (wTamConvenio < 6)) or ((wTamConvenio = 6) and ((wCarteira = '12') or (wCarteira = '15') or (wCarteira = '17'))) then Result := 5 else if (wTamConvenio = 6) then Result := 11 // Geazi - 04.01.2016 // Mudança para atender ao convênio com tamanho = 7 e carteira = '17' else if ((wTamConvenio = 7) and (wCarteira = '17')) then Result := 17 else if (wTamConvenio = 7) then Result := 10; end;
-
Bom dia, Estou passando por um problema para gerar os boletos para um cliente. O convênio é de 6 dígitos, carteira 18, banco do Brasil. Eu informo ao componente o nosso numero assim: 11383. O componente formata com zeros a frente do numero que informo. No momento da impressão o nosso numero fica com o valor que informei com os zeros, e acredito eu que deveria ter também o numero do convenio. Estou informando algo errado?Alguém já passou por esse problema que possa me ajudar?
-
Olá a todos, estou com este problema que está me tirando o sono a alguns dias, Usando o ACBr Boleto e o FC_Quick, gero o boleto, o codigo digitavel funciona perfeitamente, mas o código de barras não é lido de maneira alguma. Fiz teste inclusive com o boleto gerado pelo SAC do ACBr e leu perfeitamente, as configurações do FC_Quick para gerar o boleto estão da seguinte maneira: ACBrBarCode1.Typ := bcCode_2_5_interleaved; ACBrBarCode1.Ratio := 3; ACBrBarCode1.Modul := 1; ACBrBarCode1.Text := '00194584200000120000000001343399012629091318'; // codigo gerado pela leitura do boleto do SAC do ACBr BMP := TBitmap.Create; try BMP.Width := ACBrBarCode1.Width; BMP.Height := ACBrBarCode1.Height; ACBrBarCode1.DrawBarcode(BMP.Canvas); imgBarra.Width := ACBrBarCode1.Width; imgBarra.Height := ACBrBarCode1.Height; imgBarra.Picture.Bitmap := BMP; finally BMP.Free; end; mas apesar disso o codigo gerado não é lido pela leitora, e outros códigos de barras de outras faturas são lidos normalmente. anexo imagem gerado pelo componente em tempo de projeto e a imagem gerada em tempo de execução. Desde já agradeço a atenção:
