Criar etiqueta e definindo quantidades a serem impressas no Delphi FastReport

Criar etiqueta e definindo quantidades a serem impressas no Delphi FastReport

  outubro 15, 2021    Ana Paula Novello

---

Esse post irei fazer será um adicional de um antigo post.

Vamos supor que queremos imprimir uma folha de etiquetas mas tem algumas destas etiquetas que queremos que seja impressão mais de uma quantidade.

Para isso vamos utilizar um TClientDataSet para selecionar os produtos e as quantidades de cada etiqueta por produto, e outro TClientDataSet para receber as informações de acordo com as quantidades informadas no TClientDataSet anterior;

Vamos baixar o exemplo do post anterior e fazer nossas alterações em cima dele, no TForm vamos colocar mais um TClientDataSet com os campos que iremos imprimir na nossa etiqueta, e um TDBGrid,

e acrescentar o campo QUANTIDADE do tipo Integer no TClientDataSet já existe.

Lembramos de sempre colocar padrão para carregar 1 quantidade, senão não irá apresentar informação alguma do produto. Vamos duplicar o TClientDataSet com as informações que vamos exibir na etiqueta.

Depois disso criaremos uma Procedure com o nome de CarregarInformacoes;

procedure TFSistema.CarregarInformacoes;
var
  i: Integer;
begin
  CdsBarras.EmptyDataSet;
  CDSEtiquetas_Teste.First;
  while not CDSEtiquetas_Teste.Eof do begin
    for I := 0 to CDSEtiquetas_TesteQUANTIDADE.Value - 1 do begin
      CdsBarras.append;
      CdsBarrasDESCRICAO.Value := CDSEtiquetas_TesteDESCRICAO.Value;
      CdsBarrasCODBARRAS.Value := CDSEtiquetas_TesteCODBARRAS.Value;
      CdsBarras.Post;
    end;
    CDSEtiquetas_Teste.Next;
  end;
end;

Essa Procedure faremos um while para passar em todos os registros da tabela, e na linha de baixo um for para cadastrar a quantidade de etiquetas que informamos no TDBGrid.

O Botão de impressão da etiqueta vai ficar assim:

procedure TFSistema.btnVisualizarClick(Sender: TObject);
begin
  if CDSEtiquetas_Teste.IsEmpty then begin
    Application.MessageBox(Pchar('Seleção sem registros'), Pchar(Caption), MB_ICONINFORMATION + MB_OK + MB_DEFBUTTON1 + MB_SYSTEMMODAL);
    Exit;
  end;
  if Ler_Arquivo('Etiquetas_6x16.fr3') then begin
    CarregarInformacoes; {Nossa procedure}
    frxTable.DataSet := CdsBarras; {Joga a tabela de etiquetas que criamos nova}
    if Sender = btnVisualizar then
      frxReport.ShowReport
    else begin
      frxReport.PrepareReport;
      frxReport.Print;
    end;
  end;
end;

Percebe que coloquei no DataSet a tabela que criei depois a CdsBarras, e a procedure acima da linha onde e colocado o FrxTable.DataSet.

Vamos testar oque fizemos: 

Espero ter acendido uma pequena luz no final do túnel de como fazer um documento com três tabelas.

Exemplo: Download do exemplo