como pular uma etiqueta no delphi com fastreports apos imprimir uma vez?

08/03/2020

0

Boa noite, criei um programa em Delphi e preciso imprimir uma etiqueta, só que eu imprimo a primeira etiqueta e apos na hora de mandar imprimir novamente tem que pular uma e imprimir na segunda etiqueta, eu fiz assim, mais não muda, toda hora que vai imprimir ele fica na primeira etiqueta.

procedure TFm_livros.EtiquetasEmBranco;
var
li,cont: Integer;
begin
cont := 1;
for li := 0 to cont -1 do
begin
dm.cdsEtiquetas.Append;
dm.cdsEtiquetas.Post;
cont:=cont+1;
end;
end;

procedure TFm_livros.visualizar;
begin
dm.CDSETIQUETAS.Open;
EtiquetasEmBranco;
PreencherOsProdutos;
dm.frxDBDataset_IDE_LIVRO.DataSet := dm.CDSEtiquetas; {Joga a tabela de etiquetas para o relaório}
dm.IDE_LIVRO.PrepareReport;
dm.IDE_LIVRO.ShowReport;
end;

procedure TFm_livros.PreencherOsProdutos;
begin
dm.CDS_IDE_LIVRO.First;
while not dm.CDS_IDE_LIVRO.Eof do
begin
dm.cdsEtiquetas.Append;
dm.CDSETIQUETAScod.Value := StrToInt(dbedit1.Text);
dm.CDSETIQUETAStipo.value := DBLookupComboBox2.Text;
dm.cdsEtiquetas.Post;
dm.CDS_IDE_LIVRO.Next;
end;
dm.cdsEtiquetas.IndexFieldNames := dm.CDS_IDE_LIVRO.IndexFieldNames;
end;
Diego Ribeiro

Diego Ribeiro

Responder

Posts

11/03/2020

Dirceu Morais

Boa noite, criei um programa em Delphi e preciso imprimir uma etiqueta, só que eu imprimo a primeira etiqueta e apos na hora de mandar imprimir novamente tem que pular uma e imprimir na segunda etiqueta, eu fiz assim, mais não muda, toda hora que vai imprimir ele fica na primeira etiqueta.

procedure TFm_livros.EtiquetasEmBranco;
var
li,cont: Integer;
begin
cont := 1;
for li := 0 to cont -1 do
begin
dm.cdsEtiquetas.Append;
dm.cdsEtiquetas.Post;
cont:=cont+1;
end;
end;

procedure TFm_livros.visualizar;
begin
dm.CDSETIQUETAS.Open;
EtiquetasEmBranco;
PreencherOsProdutos;
dm.frxDBDataset_IDE_LIVRO.DataSet := dm.CDSEtiquetas; {Joga a tabela de etiquetas para o relaório}
dm.IDE_LIVRO.PrepareReport;
dm.IDE_LIVRO.ShowReport;
end;

procedure TFm_livros.PreencherOsProdutos;
begin
dm.CDS_IDE_LIVRO.First;
while not dm.CDS_IDE_LIVRO.Eof do
begin
dm.cdsEtiquetas.Append;
dm.CDSETIQUETAScod.Value := StrToInt(dbedit1.Text);
dm.CDSETIQUETAStipo.value := DBLookupComboBox2.Text;
dm.cdsEtiquetas.Post;
dm.CDS_IDE_LIVRO.Next;
end;
dm.cdsEtiquetas.IndexFieldNames := dm.CDS_IDE_LIVRO.IndexFieldNames;
end;



Você esta *indexando* as etiquetas por qual campo?

Tenta assim:
procedure TFm_livros.EtiquetasEmBranco;
var
li,cont: Integer;
begin
cont := 1;
for li := 0 to cont -1 do
begin
dm.cdsEtiquetas.Append;
dm.CDSETIQUETAScod.Value :=   0;   //Acrescentei alguma coisa para tabela não ficar vazia
dm.cdsEtiquetas.Post;
cont:=cont+1;
end;
end;


Depois ordenaria a tabela pelo CODIGO
Responder

11/03/2020

Diego Ribeiro

Boa noite, criei um programa em Delphi e preciso imprimir uma etiqueta, só que eu imprimo a primeira etiqueta e apos na hora de mandar imprimir novamente tem que pular uma e imprimir na segunda etiqueta, eu fiz assim, mais não muda, toda hora que vai imprimir ele fica na primeira etiqueta.

procedure TFm_livros.EtiquetasEmBranco;
var
li,cont: Integer;
begin
cont := 1;
for li := 0 to cont -1 do
begin
dm.cdsEtiquetas.Append;
dm.cdsEtiquetas.Post;
cont:=cont+1;
end;
end;

procedure TFm_livros.visualizar;
begin
dm.CDSETIQUETAS.Open;
EtiquetasEmBranco;
PreencherOsProdutos;
dm.frxDBDataset_IDE_LIVRO.DataSet := dm.CDSEtiquetas; {Joga a tabela de etiquetas para o relaório}
dm.IDE_LIVRO.PrepareReport;
dm.IDE_LIVRO.ShowReport;
end;

procedure TFm_livros.PreencherOsProdutos;
begin
dm.CDS_IDE_LIVRO.First;
while not dm.CDS_IDE_LIVRO.Eof do
begin
dm.cdsEtiquetas.Append;
dm.CDSETIQUETAScod.Value := StrToInt(dbedit1.Text);
dm.CDSETIQUETAStipo.value := DBLookupComboBox2.Text;
dm.cdsEtiquetas.Post;
dm.CDS_IDE_LIVRO.Next;
end;
dm.cdsEtiquetas.IndexFieldNames := dm.CDS_IDE_LIVRO.IndexFieldNames;
end;



Você esta *indexando* as etiquetas por qual campo?

Tenta assim:
procedure TFm_livros.EtiquetasEmBranco;
var
li,cont: Integer;
begin
cont := 1;
for li := 0 to cont -1 do
begin
dm.cdsEtiquetas.Append;
dm.CDSETIQUETAScod.Value :=   0;   //Acrescentei alguma coisa para tabela não ficar vazia
dm.cdsEtiquetas.Post;
cont:=cont+1;
end;
end;


Depois ordenaria a tabela pelo CODIGO


desculpe eu sou novo em delphi, como assim ordenar a tabela pelo codigo?
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar