ajuda sobre boleto bancário

[Guest Frota Neto]

favor urgente alguém pode com o sistema q gerar boleto bancário

enviar pra esse e-mail::

suporte-netsistema@hotmail.com

[Progr'amador]

Cara,

na net você acha um monte de exemplos, teste esse:

procedure TFmGerRec.BtBoletaClick(Sender: TObject);
Var
  Impressora:TextFile;
begin
  AssignFile(Impressora,'LPT1:');
  Rewrite(Impressora);
  Writeln(impressora);
//Imprime Local de pagamento
  Write(impressora,Format('%-50s',[' (PAGAVEL EM QUALQUER BANCO ATE O VENCIMENTO)']));
//Imprime Data Vencto e pula para próxima linha
  Writeln (impressora,Format('%-20s',[''+DatetoStr(DmDados.TbcontasRecRec_DataVencto.Value)]));
  //pula três linhas
  Writeln(Impressora);
  Writeln(impressora);
  Writeln(impressora);

 //Imprime Data de Emissão e Número Documento e salta duas linhas

  Writeln(impressora,Format('%-50s',[''+DatetoStr(DmDados.TbcontasRecRec_DataEmissao.Value)]));
  Writeln(impressora,Format('%-52s',[''+InttoStr(DmDados.TbcontasRecRec_Numero.Value)]));

  Writeln(impressora);

 //Imprime valor do Documento e pula p/ Próxima linha

  Write(impressora, Format('%-55s',[ ' ']));
  Writeln(impressora, Format('%-8.2m',[DmDados.TbContasRecRec_Valor.Value]));


 //Pula duas linhas
  Writeln(impressora);
  Writeln(impressora);

 //Imprime informações de Responsabilidade do Cedente

  Writeln(impressora, Format('%-50s',[' Neste Espaco Voce pode imprimir o Texto']));
  Writeln(impressora, Format('%-50s',[' De Responsabilidade do Cedente, comum em ']));
  Writeln(impressora, Format('%-50s',[' Diversos Bancos,Ex: ']));
  Writeln(impressora, Format('%-50s',[' -Cobrar Juros de 10%/Mes Apos Vencimento']));

 // Pula duas Linhas

 WriteLn(impressora);
 Writeln(impressora);

 //imprime informações do Sacado

  Writeln(impressora, Format('%-50s',[''+DmDados.TbcontasRecRazao.Value+'-CGC/CPF'+
                                                           Dmdados.TbContasRecCgc.Value]));
  Writeln(impressora, Format('%-50s',[''+DmDados.TbContasRecEndereco.Value]));
  Writeln(impressora, Format('%-50s',[' CEP'+DmDados.TbContasRecCEP.Value+''+
                                                         Dmdados.TbContasRecCidade.Value+''+ 
                                                         Dmdados.TbContasRecEstado.Value]));

//Pula três linhas
  Writeln(impressora);
  Writeln(impressora);
  Writeln(impressora);
  CloseFile(impressora);
end;[/codebox]

Abs. Progr'amador.

Editado Junho 25, 2008 por Progr'amador

[Jhonas]

alguém pode indicar onde achar um sistema para gerar boleto bancário ?

https://www.scriptbrasil.com.br/script/delp..._boleto_2_0.zip

http://codigolivre.org.br/projects/jboleto/

http://sourceforge.net/project/showfiles.php?group_id=42111

abraço