Cirilo Veloso - Consultoria e Desenvolvimento ASP, PHP, Delphi.

TCJVSindical

TCJVSindical - Gerar o código de barras e Linha digitável para GRCS

O objetivo deste componente é gerar Sequencia numérica e linha digitável para a Guia GRCSU.
Após gerado a sequencia numérica e linha digitável, o componente cria uma imagem com o código de barras que pode ser copiado para um relatório no Rave ou QReport.
Disponível para Delphi 5, 6 e 7

Exemplo de utilização para Delphi 7 e Rave Report

Exemplo de utilização para Delphi 6 e QuickReport

Exemplo com Rave Report

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RpBase, RpSystem, RpDefine, RpRave, StdCtrls, CJVSindical,
  ExtCtrls, Mask, ComCtrls;

type
  TForm1 = class(TForm)
    btImprimir: TButton;
    RvProject1: TRvProject;
    RvSystem1: TRvSystem;
    CJVSindical1: TCJVSindical;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edCodigoSindical: TMaskEdit;
    Label2: TLabel;
    rdpTipo: TRadioGroup;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    edContribuinte: TMaskEdit;
    Label4: TLabel;
    edAgencia: TMaskEdit;
    edAtividade: TMaskEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edValor: TMaskEdit;
    edVencto: TDateTimePicker;
    Label8: TLabel;
    Image1: TImage;
    lblLinhaDigitavel: TLabel;
    procedure btImprimirClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure edCodigoSindicalChange(Sender: TObject);
    procedure rdpTipoClick(Sender: TObject);
  private
    { Private declarations }
    procedure AtribuirEdits;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btImprimirClick(Sender: TObject);
begin
 AtribuirEdits;
 RvProject1.Open;
{ Passa parametro para o relatorio para imprimir no
  pBarcode: sera a propriedade CodigoBarras do CJVSindical
  pLinhaDigitavel: sera a LinhaDigitavel do CJVSindical
 }
 RvProject1.SetParam('pBarCode', cjvSindical1.CodigoBarras);
 RvProject1.SetParam('pLinhaDigitavel',cjvSindical1.LinhaDigitavel);
 RvProject1.Execute;
 RvProject1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  edVencto.Date:=Date;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    key:=#0;
    SelectNext(ActiveControl,True,True);
 end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  edCodigoSindical.SetFocus;
end;

procedure TForm1.AtribuirEdits;
begin
 cjvSindical1.TipoEntidade:=inttostr(rdpTipo.itemIndex+1);
 cjvSindical1.CodigoSindical:=edCodigoSindical.Text;
 cjvSindical1.CodigoAgencia:=edAgencia.Text;
 cjvSindical1.CodigoAtividade:=edAtividade.Text;
 cjvSindical1.CodigoContribuinte:=edContribuinte.Text;
 cjvSindical1.Valor:=edValor.Text;
 cjvSindical1.Vencimento:=edVencto.date;
 cjvSindical1.GerarSequenciaNumerica;
end;

procedure TForm1.edCodigoSindicalChange(Sender: TObject);
begin
  AtribuirEdits;
  cjvSindical1.CriaBarras(cjvSindical1.CodigoBarras,image1.Canvas);
  lblLinhaDigitavel.Caption:=cjvSindical1.LinhaDigitavel;
end;

procedure TForm1.rdpTipoClick(Sender: TObject);
begin
  AtribuirEdits;
  cjvSindical1.CriaBarras(cjvSindical1.CodigoBarras,image1.Canvas);
  lblLinhaDigitavel.Caption:=cjvSindical1.LinhaDigitavel;
end;

end.

Exemplo com QuickReport

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btImprimir: TButton;
    CJVSindical1: TCJVSindical;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    edCodigoSindical: TMaskEdit;
    Label2: TLabel;
    rdpTipo: TRadioGroup;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    edContribuinte: TMaskEdit;
    Label4: TLabel;
    edAgencia: TMaskEdit;
    edAtividade: TMaskEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edValor: TMaskEdit;
    edVencto: TDateTimePicker;
    Label8: TLabel;
    Image1: TImage;
    lblLinhaDigitavel: TLabel;
    procedure btImprimirClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure edCodigoSindicalChange(Sender: TObject);
    procedure rdpTipoClick(Sender: TObject);
  private
    { Private declarations }
    procedure AtribuirEdits;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses frmGRCS;

{$R *.dfm}

procedure TForm1.btImprimirClick(Sender: TObject);
begin
 AtribuirEdits;
 fGRCS.lblLinhaDigitavel1.Caption:=CJVSindical1.LinhaDigitavel;
 fGRCS.lblLinhaDigitavel2.Caption:=CJVSindical1.LinhaDigitavel;
 CJVSindical1.CriaBarras(CJVSindical1.CodigoBarras,fGRCS.imgBarCode.Canvas);
 fGRCS.QuickRep1.Preview;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  edVencto.Date:=Date;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    key:=#0;
    SelectNext(ActiveControl,True,True);
 end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  edCodigoSindical.SetFocus;
end;

procedure TForm1.AtribuirEdits;
begin
 cjvSindical1.TipoEntidade:=inttostr(rdpTipo.itemIndex+1);
 cjvSindical1.CodigoSindical:=edCodigoSindical.Text;
 cjvSindical1.CodigoAgencia:=edAgencia.Text;
 cjvSindical1.CodigoAtividade:=edAtividade.Text;
 cjvSindical1.CodigoContribuinte:=edContribuinte.Text;
 cjvSindical1.Valor:=edValor.Text;
 cjvSindical1.Vencimento:=edVencto.date;
 cjvSindical1.GerarSequenciaNumerica;
end;

procedure TForm1.edCodigoSindicalChange(Sender: TObject);
begin
  AtribuirEdits;
  cjvSindical1.CriaBarras(cjvSindical1.CodigoBarras,image1.Canvas);
  lblLinhaDigitavel.Caption:=cjvSindical1.LinhaDigitavel;
end;

procedure TForm1.rdpTipoClick(Sender: TObject);
begin
  AtribuirEdits;
  cjvSindical1.CriaBarras(cjvSindical1.CodigoBarras,image1.Canvas);
  lblLinhaDigitavel.Caption:=cjvSindical1.LinhaDigitavel;
end;

end.

Voltar