Gerador de Boletos Bancários em Delphi

 

Para que o mesmo funcione é necessário ter a biblioteca Barcode no delphi 7.

 

unit UTratamentoBoletos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Barcode;

type
  TFormTrataBoletos = class(TForm)
    ModeloBanco: TRadioGroup;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    edCodCedente: TEdit;
    Label8: TLabel;
    edCarteira: TEdit;
    Label3: TLabel;
    dtpVencimento: TDateTimePicker;
    Agencia: TLabel;
    edAgencia: TEdit;
    Label6: TLabel;
    edContaCorrente: TEdit;
    Label5: TLabel;
    NossoNumero: TEdit;
    Label4: TLabel;
    edValor: TEdit;
    Label7: TLabel;
    edDigitoCC: TEdit;
    GroupBox2: TGroupBox;
    edModeloCarteira: TEdit;
    GroupBox3: TGroupBox;
    edConvenio: TEdit;
    GroupBox4: TGroupBox;
    Label14: TLabel;
    edSacado: TEdit;
    Label16: TLabel;
    edBairro: TEdit;
    Label20: TLabel;
    edCNPJ: TEdit;
    edCidade: TEdit;
    Label15: TLabel;
    edEndereco: TEdit;
    Label18: TLabel;
    edUF: TEdit;
    Label17: TLabel;
    edCep: TEdit;
    Label1: TLabel;
    Button1: TButton;
    ListView1: TListView;
    Button2: TButton;
    StatusBar1: TStatusBar;
    procedure Button2Click(Sender: TObject);
  private
// procedures para verificação dos campos se foram informados corretamente
    procedure VerificaBanco001;
    procedure VerificaBanco033;
    procedure VerificaBanco237;
    procedure VerificaBanco104;
    procedure VerificaBanco151;
    procedure VerificaBanco341;
    procedure VerificaBanco353;
    procedure VerificaBanco409;
    procedure VerificaBanco356;
//funcões para formatação da string de como aparece agencia / codigo do cedente em seus respectivos bancos
    function FormataAgenciaCedente001:string;
    function FormataAgenciaCedente033:string;
    function FormataAgenciaCedente237:string;
    function FormataAgenciaCedente104:string;
    function FormataAgenciaCedente151:string;
    function FormataAgenciaCedente341:string;
    function FormataAgenciaCedente353:string;
    function FormataAgenciaCedente409:string;
    function FormataAgenciaCedente356:string;
//funções para formatação da string de apresentação do nosso numero em seus respectivos bancos
    function FormataNossoNumero001:string;
    function FormataNossoNumero033:string;
    function FormataNossoNumero237:string;
    function FormataNossoNumero104:string;
    function FormataNossoNumero151:string;
    function FormataNossoNumero341:string;
    function FormataNossoNumero353:string;
    function FormataNossoNumero409:string;
    function FormataNossoNumero356:string;
//funcões referente ao calculo do digito verificador do nosso numero
    function CalculaDigNossoNumero001:string;
    function CalculaDigNossoNumero033:string;
    function CalculaDigNossoNumero237:string;
    function CalculaDigNossoNumero104:string;
    function CalculaDigNossoNumero151:string;
    function CalculaDigNossoNumero341:string;
    function CalculaDigNossoNumero353:string;
    function CalculaDigNossoNumero409:string;
    function CalculaDigNossoNumero356:string;
//funções para geração do campo livre em relação ao boleto bancario
    function RetornaCampoLivre001:string;
    function RetornaCampoLivre033:string;
    function RetornaCampoLivre237:string;
    function RetornaCampoLivre104:string;
    function RetornaCampoLivre151:string;
    function RetornaCampoLivre341:string;
    function RetornaCampoLivre353:string;
    function RetornaCampoLivre409:string;
    function RetornaCampoLivre356:string;
//funções referente ao retorno do número do banco selecionado sem digito
    function RetonaNumeroBanco001(Digito:boolean):string;
    function RetonaNumeroBanco033(Digito:boolean):string;
    function RetonaNumeroBanco237(Digito:boolean):string;
    function RetonaNumeroBanco104(Digito:boolean):string;
    function RetonaNumeroBanco151(Digito:boolean):string;
    function RetonaNumeroBanco341(Digito:boolean):string;
    function RetonaNumeroBanco353(Digito:boolean):string;
    function RetonaNumeroBanco409(Digito:boolean):string;
    function RetonaNumeroBanco356(Digito:boolean):string;
//funções para retornar nome do banco referente ao banco selecionado
    function RetornaNomeBanco001:string;
    function RetornaNomeBanco033:string;
    function RetornaNomeBanco237:string;
    function RetornaNomeBanco104:string;
    function RetornaNomeBanco151:string;
    function RetornaNomeBanco341:string;
    function RetornaNomeBanco353:string;
    function RetornaNomeBanco409:string;
    function RetornaNomeBanco356:string;
    { Private declarations }
  public
    function PadL(Oque: string; Tamanho: integer; ComOque: char): string;
    function Modulo10(Valor: string): string;
    function Modulo11(Valor: string; Base: integer; var Resto: integer): string;
    function CalcDigVerificador(CodigoBarras: string): char;
    function Modulo11BB(str:string;base:integer):char;
    function Modulo11Unibanco(Valor: string): string;
    function GeraFatorVencimento:string;
    function RetornaCodigoBarras:string;
    function GeraLinhaDigitavel:string;

    { Public declarations }
  end;

var
  FormTrataBoletos: TFormTrataBoletos;
  CodAgenciaCedente, NossoNumeroImpresso,CampoLivre,
  NumBancoSemDigito, NumBancoComDigito,NomeBanco:string;

implementation

uses uFormBoletoUnico;

{$R *.dfm}

{ TFormTrataBoletos }

function TFormTrataBoletos.CalcDigVerificador(CodigoBarras: string): char;
...