ACBrBoleto com FastReport

[jairo]

Olá colegas,

Estou tentando implementar a impressão de boletos e gerar remessa e retorno bancário com o ACBrBoleto, minha aplicação é em Delphi 2010+FastReport, porém ainda não consegui. Já instalei o componente ACBrBoleto no delphi, mas mesmo procurando na net ainda não consegui implementar em minha aplicação.

Se alguém puder me ajudar com um tutorial, um exemplo de aplicação para fazer esta impressão ou se está faltando instalar algo mais, não sei ainda qual o componente faz a ligação com o fastreport para a impressão do boleto.

Desde já agradeço a atenção e ajuda.

Aguardo.

[Juliana Tamizou]

Boa tarde Jairo.

Oque exatamente você não conseguiu fazer?

Att.

[jairo]

Olá,

Vou tentar explicar:

Possuo uma aplicação que a loja ao gerar um parcelamento próprio de determinada compra, gera as parcelas e destas parcelas preciso gerar boletos bancários para o Banrisul, que posteriormente o cliente da loja usa este boleto para pagar nas agencias bancárias.

Como tentei fazer isso:

Coloquei o componente ACBrBoleto e o componente ACBrBoletoFC, tentei configurar os 2 componentes e quando do o comando para ACBrBoleto.imprimir ele da mensagem de erro: "DataOnly does not ....." e não imprime nada.

Deve estar faltando algo mas não consigo decifrar o problema, se tiver um tutorial de como implementar isso na aplicação.

Espero que consiga me entender.

Aguardo

[Juliana Tamizou]

Bom dia Jairo.

Você passou todas as informações necessárias ao componente? (Dados do Cedente, Dados do Sacado e do boleto....)

Att.

[jairo]

Oi,

Sim passei os dados diretamente nas propriedades do componente ACBRBoleto

[jairo]

Apenas os dados do boleto não lembro, pois não estou tendo acesso agora ao projeto, estou em outro computador. Teria algum componente para colocar estas propriedades dos valores, vencimentos, etc...?

[jairo]

Estou postando o erro que ocorre ao tentar imprimir o boleto.

[Régys Silveira]

ao que parece a sua versão do fastreport não possui essa propriedade mostrada na mensagem de erro.

abra o pacote ACBr_BoletoFC_FR.dpk e recompile

depois recompile sua aplicação e tente novamente.

[jairo]

Olá,

Recompilei o pacote conforme orientaste, porém continua dando os mesmos erros anteriores:

Por favor me ajudem !!!!

Já está batendo o desespero.

[Régys Silveira]

Tente abrir os arquivos do pacote ACBr_BoletoFC_FR.dpk e verifique se o Delphi emite o erro de falta da propriedade, se sim, após isso salve e recompile.

[jairo]

Olá,

O delphi abre normal o pacote, compilei novamente e ao clicar em install (instalar), surge o erro:

Não sei agora o que devo fazer !!

[jairo]

Olá,

O delphi abre normal o pacote, compilei novamente e ao clicar em install (instalar), surge o erro:

Não sei agora o que devo fazer !!

Oi,

Alguém pode me ajudar !!!??

Mandar um exemplo de uso destes componentes em uma aplicação ?? Não tive sucesso com o demo do ACBrBoleto, não consegui adaptar em minha aplicação.

[Juliana Tamizou]

Bom dia.

O problema quanto a instalação do package foi resolvido?

Att.

[jairo]

Bom dia,

Infelizmente não, continua trazendo o mesmo erro mencionado anteriormente.

Gostaria de poder resolver este problema, pois talvez assim eu consiga ter mais progresso no desenvolvimento deste boleto.

[jairo]

Olá,

Finalmente consegui ter progressos, porém agora está aparecendo a seguinte mensagem ao criar a lista de títulos (antes de imprimir):

Não sei onde pode estar ocorrendo este erro de conversão, se puderem me ajudar !!

Agradeço

[Régys Silveira]

Aparente você está passando um valor string para um campo que deveria ser double, verifique na sua rotina se não está passando algum valor errado para o componente.

[jairo]

Aparente você está passando um valor string para um campo que deveria ser double, verifique na sua rotina se não está passando algum valor errado para o componente.

Olá,

Continua dando o mesmo erro, pois não consegui definir ainda qual o campo ou variável está com conversão incorreta, porém achei importante lhe passar mais detalhes do erro, acredito que você conseguirá me ajudar com esta informação.

[Régys Silveira]

Tente emitir um boleto utilizando o Demo e veja se ocorre o mesmo problema, eu fiz testes aqui e está tudo normal.

[FGGLUIZ]

Aparente você está passando um valor string para um campo que deveria ser double, verifique na sua rotina se não está passando algum valor errado para o componente.

Olá,

Continua dando o mesmo erro, pois não consegui definir ainda qual o campo ou variável está com conversão incorreta, porém achei importante lhe passar mais detalhes do erro, acredito que você conseguirá me ajudar com esta informação.

Amigo, estive olhando e alguns Delphi c/ FastReport vai gerar estes erros, porque o arquivo BOLETOFR.FR3 esta com a propriedade DisplayFormat errada em quase todo os Views, por exemplo: no Memo45 esta como dd/mm/yyyy.

Para resolver isso, você deverá ver todos os Views e corrigir eles.

Eu tenho duas versões do Delphi, a versão 7 esta gerando este erro a outra não.

Espero ter ajudado.

Fábio

[jairo]

Aparente você está passando um valor string para um campo que deveria ser double, verifique na sua rotina se não está passando algum valor errado para o componente.

Olá,

Continua dando o mesmo erro, pois não consegui definir ainda qual o campo ou variável está com conversão incorreta, porém achei importante lhe passar mais detalhes do erro, acredito que você conseguirá me ajudar com esta informação.

Amigo, estive olhando e alguns Delphi c/ FastReport vai gerar estes erros, porque o arquivo BOLETOFR.FR3 esta com a propriedade DisplayFormat errada em quase todo os Views, por exemplo: no Memo45 esta como dd/mm/yyyy.

Para resolver isso, você deverá ver todos os Views e corrigir eles.

Eu tenho duas versões do Delphi, a versão 7 esta gerando este erro a outra não.

Espero ter ajudado.

Fábio

Olá,

Ajudou sim, afinal toda a ajuda está sendo m]bem vinda !

Mas desculpe minha ignorância, mas onde posso alterar o formato destes views para corrigir ?

Aguardo

[FGGLUIZ]

Aparente você está passando um valor string para um campo que deveria ser double, verifique na sua rotina se não está passando algum valor errado para o componente.

Amigo, estive olhando e alguns Delphi c/ FastReport vai gerar estes erros, porque o arquivo BOLETOFR.FR3 esta com a propriedade DisplayFormat errada em quase todo os Views, por exemplo: no Memo45 esta como dd/mm/yyyy.

Para resolver isso, você deverá ver todos os Views e corrigir eles.

Eu tenho duas versões do Delphi, a versão 7 esta gerando este erro a outra não.

Espero ter ajudado.

Fábio

Olá,

Ajudou sim, afinal toda a ajuda está sendo m]bem vinda !

Mas desculpe minha ignorância, mas onde posso alterar o formato destes views para corrigir ?

Aguardo

Jairo, e só você adicionar em qualquer formulário "frxReport", abrir o "BOLETOFR.FR3" e editar.

Se você não conseguir, avise que tento alterar para você até segunda-feira.

Fábio

[jairo]

Olá,

Não devo ter feito correto, abri o BoletoFR.FR3 e no código dele está assim:

procedure MDOnBeforePrint(Sender: TfrxComponent);

begin

  frxReport; // Coloquei agora

  if Trim() <> '' then

  begin              

     Logo_1.Picture.LoadFromFile( + '\' +  + '.bmp');

     Logo_2.Picture.Assign(Logo_1.Picture);

     Logo_3.Picture.Assign(Logo_1.Picture);

  end;                   

end;


begin


end.

E infelizmente não deu certo também, talvez devo adicionar de outra forma.

[FGGLUIZ]

Olá,

Não devo ter feito correto, abri o BoletoFR.FR3 e no código dele está assim:

procedure MDOnBeforePrint(Sender: TfrxComponent);

begin

frxReport; // Coloquei agora

if Trim() <> '' then

begin

Logo_1.Picture.LoadFromFile( + '\' + + '.bmp');

Logo_2.Picture.Assign(Logo_1.Picture);

Logo_3.Picture.Assign(Logo_1.Picture);

end;

end;

begin

end.

E infelizmente não deu certo também, talvez devo adicionar de outra forma.

Jairo, você fez certo em abrir, só que não esta na procedure, esta no "Page1".

Eu alterei o arquivo e estou anexando aqui, faça um teste e retorne para poder solicitar a atualização nos fontes.

No aguardo.

Fábio

BoletoFR.rar

[jairo]

Olá,

Não devo ter feito correto, abri o BoletoFR.FR3 e no código dele está assim:

procedure MDOnBeforePrint(Sender: TfrxComponent);

begin

frxReport; // Coloquei agora

if Trim() <> '' then

begin

Logo_1.Picture.LoadFromFile( + '\' + + '.bmp');

Logo_2.Picture.Assign(Logo_1.Picture);

Logo_3.Picture.Assign(Logo_1.Picture);

end;

end;

begin

end.

E infelizmente não deu certo também, talvez devo adicionar de outra forma.

Jairo, você fez certo em abrir, só que não esta na procedure, esta no "Page1".

Eu alterei o arquivo e estou anexando aqui, faça um teste e retorne para poder solicitar a atualização nos fontes.

No aguardo.

Fábio

Olá Fábio,

MUUIITTOOO obrigado!

Deu certinho, só peço mais 1 coisa pra você, como procedo para que o campo "Nosso Número" seja preenchido corretamente, pois ele fica zerado, ainda não descobri como fazer.

Abração !

[FGGLUIZ]

Olá,

Não devo ter feito correto, abri o BoletoFR.FR3 e no código dele está assim:

procedure MDOnBeforePrint(Sender: TfrxComponent);

begin

frxReport; // Coloquei agora

if Trim() <> '' then

begin

Logo_1.Picture.LoadFromFile( + '\' + + '.bmp');

Logo_2.Picture.Assign(Logo_1.Picture);

Logo_3.Picture.Assign(Logo_1.Picture);

end;

end;

begin

end.

E infelizmente não deu certo também, talvez devo adicionar de outra forma.

Jairo, você fez certo em abrir, só que não esta na procedure, esta no "Page1".

Eu alterei o arquivo e estou anexando aqui, faça um teste e retorne para poder solicitar a atualização nos fontes.

No aguardo.

Fábio

Olá Fábio,

MUUIITTOOO obrigado!

Deu certinho, só peço mais 1 coisa pra você, como procedo para que o campo "Nosso Número" seja preenchido corretamente, pois ele fica zerado, ainda não descobri como fazer.

Abração !

Juliana ou Regys, por gentileza, poderia subir a correção do arquivo BOLETOFR.FR3 em anexo, assim que estiver com versões anteriores do Delphi não vai ocorrer mais este tipo de erro.

Jairo, de uma olhada no Demo, o campo "Nosso Número" esta em negrito, como você esta iniciando agora, você vai ter que fazer alguns testes, o Demo vai ser sua melhor opção, use também a ferramenta de busca do forum.

Abraço.

Fábio

var

Titulo : TACBrTitulo;

begin

Titulo := ACBrBoleto1.CriarTituloNaLista;

with Titulo do

begin

Vencimento := StrToDate(edtVencimento.Text);

DataDocumento := StrToDate(edtDataDoc.Text);

NumeroDocumento := edtNumeroDoc.Text;

EspecieDoc := edtEspecieDoc.Text;

if cbxAceite.ItemIndex = 0 then

Aceite := atSim

else

Aceite := atNao;

DataProcessamento := Now;

NossoNumero := edtNossoNro.Text;