Impressão de 1 registro...Urgente...
Olá pessoal...Me ajudem por favor.
Tenho um cadastro e quero fazer o seguinte: Quando preencher todos os dados do cadastro, ao clicar no botão gravar, esses dados irem para um QuikReport, tipo imprimir um comprovante de cadastro.
Não consigo. Ta acontecendo de aparecer no QR todos os registro já cadastrados.
Por favor, alguém me ajude...É urgente.
Abraço a todos. :?: :)
Tenho um cadastro e quero fazer o seguinte: Quando preencher todos os dados do cadastro, ao clicar no botão gravar, esses dados irem para um QuikReport, tipo imprimir um comprovante de cadastro.
Não consigo. Ta acontecendo de aparecer no QR todos os registro já cadastrados.
Por favor, alguém me ajude...É urgente.
Abraço a todos. :?: :)
Gean Coutto
Curtidas 0
Respostas
Marconi
30/09/2003
Filtre a sua tabela pelo index que deve ser único, antes de imprimir.
Marconi
Marconi
GOSTEI 0
Gean Coutto
30/09/2003
Bom Amigo Marconi...
não entendi muito bem. Como fazer para filtrar a index:
Mais já valeu a resposta...
[]´s
não entendi muito bem. Como fazer para filtrar a index:
Mais já valeu a resposta...
[]´s
GOSTEI 0
Silviogs
30/09/2003
Olá amigo
no form2 na propriedade SQL do TQuery coloque:
select * from cadcli
where ClienteID=:mcodigo
clique na prop. params, abra o editor e mude a propriedade do parametro para ftString.
Obs: o form1 é para a tela de dados e o form 2 para usar o Quickreport para impressão ok.
...
implementation
uses unit2;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.Query1.close;
form2.Query1.parambyname(´mcodigo´).asstring := editclienteid.text;
form2.Query1.open;
form2.QuickRep1.preview;
end;
Boa sorte!
Atenciosamente,
Silvio Guedes
no form2 na propriedade SQL do TQuery coloque:
select * from cadcli
where ClienteID=:mcodigo
clique na prop. params, abra o editor e mude a propriedade do parametro para ftString.
Obs: o form1 é para a tela de dados e o form 2 para usar o Quickreport para impressão ok.
...
implementation
uses unit2;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.Query1.close;
form2.Query1.parambyname(´mcodigo´).asstring := editclienteid.text;
form2.Query1.open;
form2.QuickRep1.preview;
end;
Boa sorte!
Atenciosamente,
Silvio Guedes
GOSTEI 0
Luizfernando777
30/09/2003
eu usaria o SetRanger
try
DM.Tabela.SetRange([DM.TabelaCodigo.Value],
[DM.TabelaCodigo.Value]);
Application.CreateForm( TFImprimir, FImprimir );
FImprimir.Print;//Preview;
finally
DM.Tabela.CancelRange;
FImprimir.Free;
end;
try
DM.Tabela.SetRange([DM.TabelaCodigo.Value],
[DM.TabelaCodigo.Value]);
Application.CreateForm( TFImprimir, FImprimir );
FImprimir.Print;//Preview;
finally
DM.Tabela.CancelRange;
FImprimir.Free;
end;
GOSTEI 0
Japa
30/09/2003
Bom amigo tem um modo mais trabalhoso mais funciona!! hehhee eu quando quero colocar um valor, tipo uma conta ou apenas o nome, no oncreate do formulario que contem o quickreport eu mudo o caption de alguns QrLabels, tipo deixo posicionado certinho e mudo antes de criar :wink: para fazer isso eu uso a unit anterior..
Exemplo:
no oncreate do formulario:
QrLabel.caption:= FmFormulario.EdNome.text;
Bom e so para dar uma ideiazinha amigo.... Mas que funciona isso funciona hehehehe :wink:
Exemplo:
no oncreate do formulario:
QrLabel.caption:= FmFormulario.EdNome.text;
Bom e so para dar uma ideiazinha amigo.... Mas que funciona isso funciona hehehehe :wink:
GOSTEI 0
Jeancamila
30/09/2003
Bem, de todas as idéias fico com o uso de query para relatório é mais rápido.
Que é a idéia do silviogs
Que é a idéia do silviogs
GOSTEI 0
Marconi
30/09/2003
Só para não deixar sem resposta.
Mesmo que na sua tabela o campo Codigo do cliente não seja o index principal, funciona do mesmo jeito.
Na sua rotina de impressao voce coloca
tabela.filter:=´codigo =´´´+tabela[´codigo´]+´´´´;
tabela.filtered:=true; // neste momento voce só tem o registro que interessa.
....... imprima o relatório
tabela.filter:=emptystr;
tabela.filtered:=false;
Marconi
Mesmo que na sua tabela o campo Codigo do cliente não seja o index principal, funciona do mesmo jeito.
Na sua rotina de impressao voce coloca
tabela.filter:=´codigo =´´´+tabela[´codigo´]+´´´´;
tabela.filtered:=true; // neste momento voce só tem o registro que interessa.
....... imprima o relatório
tabela.filter:=emptystr;
tabela.filtered:=false;
Marconi
GOSTEI 0