Impress�o de 1 registro...Urgente...

Question

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...

Marconi · Answer

Filtre a sua tabela pelo index que deve ser �nico, antes de imprimir.Marconi...

Gean Coutto · Answer

Bom Amigo Marconi...n�o entendi muito bem. Como fazer para filtrar a index:Mais j� valeu a resposta...[]�s...

Silviogs · Answer

Ol� amigono form2 na propriedade SQL do TQuery coloque:select * from cadcliwhere ClienteID=:mcodigoclique 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....implementationuses unit2;{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);begin  Table1.Open;end;procedure TForm1.BitBtn1Click(Sender: TObject);beginform2.Query1.close;form2.Query1.parambyname(�mcodigo�).asstring := editclienteid.text;form2.Query1.open;form2.QuickRep1.preview;end;Boa sorte!Atenciosamente,Silvio Guedes...

Luizfernando777 · Answer

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;

Japa · Answer

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:

Jeancamila · Answer

Bem, de todas as id�ias fico com o uso de query para relat�rio � mais r�pido.Que � a id�ia do silviogs...

Marconi · Answer

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 colocatabela.filter:=�codigo =���+tabela[�codigo�]+����;tabela.filtered:=true; // neste momento voce s� tem o registro que interessa........ imprima o relat�riotabela.filter:=emptystr;tabela.filtered:=false;Marconi...

F�rum Impress�o de 1 registro...Urgente... #185351