Boleto não imprime

[Alex Pereira]

Boa tarde pessoal.

Já procurei aqui no fórum e não consegui encontrar algum tópico que fosse igual ou parecido com o meu, por isso resolvi criar.

Oque acontece é que estou tentando gerar o boleto usando ACBRBoleto e ACBRBoletoFcQuick e quando mando imprimir, ele abre a página do quick, mas não sai nada, fica a página em 0% sem carregar.

o código que estou usando é esse:

procedure TfrmBoleto.BitBtn2Click(Sender: TObject);

var Titulo : TACBrTitulo;

begin

Titulo := ACBrBoleto1.CriarTituloNaLista;

//

with Titulo do

begin

Vencimento := edVencimento.Date;

DataDocumento := edEmissao.Date;

NumeroDocumento := '0000003241';

EspecieDoc := 'R$';

//

Aceite := atSim;

//

DataProcessamento := Now;

NossoNumero := '109/0925';

Carteira := '109';

ValorDocumento := edValorDoc.Value;

Sacado.NomeSacado := edtNome.Text;

Sacado.CNPJCPF := SoNumero(Alltrim(edtCPFCNPJ.Text));

Sacado.Logradouro := edtEndereco.Text;

Sacado.Numero := edtNumero.Text;

Sacado.Bairro := edtBairro.Text;

Sacado.Cidade := edtCidade.Text;

Sacado.UF := edtUF.Text;

Sacado.CEP := SoNumero(Alltrim(edtCEP.Text));

ValorAbatimento := 0;

LocalPagamento := 'PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO. Após o vencimento o pagamento somente poderá ser feito na Tesouraria do cedente.';

ValorMoraJuros := 0;

ValorDesconto := 0;

DataMoraJuros := edVencimento.Date + 1;

DataDesconto := 0;

DataAbatimento := 0;

DataProtesto := 0;

PercentualMulta := 0;

Mensagem.Text := mmMSG.Text;

OcorrenciaOriginal.Tipo := toRemessaBaixar;

Instrucao1 := '';

Instrucao2 := '';

end;

//

ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum;

ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao;

ACBrBoleto1.Banco.Numero := 341;

ACBrBoleto1.Banco.Digito := 7;

ACBrBoleto1.Banco.TipoCobranca := cobItau;

//

ACBrBoleto1.Imprimir;

end;

Os dados do cedente eu deixei tudo fixo no componente ACBRBoleto1.

Ele até chama o imprimir e chama o quick na tela, mas fica tudo azul e não carrega.

Alguém sabe oque pode ser?

Obrigado.

[Alex Pereira]

Boa tarde pessoal.

Já procurei aqui no fórum e não consegui encontrar algum tópico que fosse igual ou parecido com o meu, por isso resolvi criar.

Oque acontece é que estou tentando gerar o boleto usando ACBRBoleto e ACBRBoletoFcQuick e quando mando imprimir, ele abre a página do quick, mas não sai nada, fica a página em 0% sem carregar.

o código que estou usando é esse:

procedure TfrmBoleto.BitBtn2Click(Sender: TObject);

var Titulo : TACBrTitulo;

begin

Titulo := ACBrBoleto1.CriarTituloNaLista;

//

with Titulo do

begin

Vencimento := edVencimento.Date;

DataDocumento := edEmissao.Date;

NumeroDocumento := '0000003241';

EspecieDoc := 'R$';

//

Aceite := atSim;

//

DataProcessamento := Now;

NossoNumero := '109/0925';

Carteira := '109';

ValorDocumento := edValorDoc.Value;

Sacado.NomeSacado := edtNome.Text;

Sacado.CNPJCPF := SoNumero(Alltrim(edtCPFCNPJ.Text));

Sacado.Logradouro := edtEndereco.Text;

Sacado.Numero := edtNumero.Text;

Sacado.Bairro := edtBairro.Text;

Sacado.Cidade := edtCidade.Text;

Sacado.UF := edtUF.Text;

Sacado.CEP := SoNumero(Alltrim(edtCEP.Text));

ValorAbatimento := 0;

LocalPagamento := 'PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO. Após o vencimento o pagamento somente poderá ser feito na Tesouraria do cedente.';

ValorMoraJuros := 0;

ValorDesconto := 0;

DataMoraJuros := edVencimento.Date + 1;

DataDesconto := 0;

DataAbatimento := 0;

DataProtesto := 0;

PercentualMulta := 0;

Mensagem.Text := mmMSG.Text;

OcorrenciaOriginal.Tipo := toRemessaBaixar;

Instrucao1 := '';

Instrucao2 := '';

end;

//

ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum;

ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao;

ACBrBoleto1.Banco.Numero := 341;

ACBrBoleto1.Banco.Digito := 7;

ACBrBoleto1.Banco.TipoCobranca := cobItau;

//

ACBrBoleto1.Imprimir;

end;

Os dados do cedente eu deixei tudo fixo no componente ACBRBoleto1.

Ele até chama o imprimir e chama o quick na tela, mas fica tudo azul e não carrega.

Alguém sabe oque pode ser?

Obrigado.

Consegui imprimir o boleto.. Depois de muito teste achei onde estava dando problema e por isso não imprimia...

Tive que comentar este código dentro da Unit ACBRBoletoFCQuickFr:

procedure TACBrBoletoFCQuickFr.RLBandDatailBeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);

...

ACBrBarCode1.Typ := bcCode_2_5_interleaved ;

ACBrBarCode1.Text := CodBarras;

BMP := TBitmap.Create ;

try

BMP.Width := imgBarra.Width ;

BMP.Height := imgBarra.Height ;

ACBrBarCode1.DrawBarcode(BMP.Canvas);

imgBarra.Picture.Bitmap := BMP ;

imgBarra4.Picture.Bitmap := BMP;

finally

BMP.Free ;

end ;

end;

Porém sem esse código ele não imprime o Código de Barras no boleto, certo?

O que eu queria saber é se está faltando eu passar alguma coisa pra ele estar dando erro na linha que está em vermelho... Só que como estava dentro do try não dava erro nenhum, apenas não imprimia o boleto.

Fico no aguardo.

Valeu.

[Alex Pereira]

Além do código de barras, o logotipo tbm não imprime.. sai em branco, sendo que estou apontando o caminho dele no componente e deixei o nome da imagem como 341.bmp

Alguém pra me ajudar com essas duas situações?

Obrigado.

[Daniel Simoes]

Provavelmente você tem algo errado na sua instalação de Delphi, já que vários usuários usam o Boleto com QuickReport com sucesso...

Em todo caso, você pode tentar usar o Boleto em Fortes Report que é OpenSource..

[Jamil Araujo]

Boa Noite Daniel,

Eu utilizo o ACBrMonitorPlus, Tanto em Windows quanto em Linux, bem comecei essa semana a utilizar a class Boletos, deu tudo certo o boleto imprime, só não sai o Codigo de Barra...

Estou usando a ultima versao do ACBr......

 

Fico no aguardo de uma Ajuda...

[Juliana Tamizou]

Boa tarde @jamil.

Você ainda está tendo este problema? Se sim, confirme a versão do ACBrMonitorPlus utilizada e por favor anexe um pdf no qual o problema ocorre.

Att.

[Jamil Araujo]

Ola Julia,

no Layout Padrao não Imprime codigo de barra, porem no Layout Carne Imprime corretamente.... tanto em windows como em linux, então optei por usar o Layout Carne.

Quanto a versão do ACRrMonitorPlus..... em Windows é a 1.0.0 e em Linux 0.03.06 32 bits.....

mais para mim dessa maneira está resolvido já estou usando  nos meus clientes

parabéns a equipe ACBr....

Obrigado.