Imprimir so o que eu quero

Question

Ol� pessoal

Eh o seguinte uso o delphi 6 e tenho um form com uma tabela (paradox) onde tenho os campos - codigo, referente, data e valor - o que eu queria e imprimir apenas a data de tal a data tal tipo 01/12/2003 a 31/12/2003 s� que eu n�o sei nem como come�ar. por favor alguem pode me da um passo a passo

F�rum Vini · Answer

Ol� Wagner,coloque um Query no seu formul�rio, mude sua propriedade Sql para:�Select * from tabela where (Data BETWEEN �1/1/2003� and �12/12/2003�)�; Mude a propriedade Active para True e pronto! :lol: Espero ter ajudado.Vinicius....

Wagner · Answer

Ajudou bastante, mais eu ainda tenho duvidas (desculpe-me) mais como devo proceder eu tenho um formulario:

Cod.
Referente
data
Valor

Bot�o imprimir
dai abre outro formulario com 2 edit�s onde coloco data inicial e final e bot�o imprimir, � essa minha sequencia desculpe-me se n�o fui mais detalhado, essa dica funcionaria para essa forma? onde coloca-la?

Obrigado

Edilcimar · Answer

substitua as datas que est�o l� em cima por edit1.text e edit2.text...

Wagner · Answer

Beleza Edilcimar, voce sempre respondendo minhas duvidas, obrigado,Mais onde eu coloco no evento onclick do bot�o imprimir?...

Franck.c · Answer

vc vai ter q colocar na tela um quickreport e configurar ele e colocar o que vc quer imprimir, e fazer sua folha de impressao...

Wagner · Answer

Ate ai eu sei a duvida e como fazer para so o dias que eu quero ir para relatorio...

F�rum Vini · Answer

Ol� novamente,mude a propriedade DataSet do QuickReport para o Query que voc� usou.[quote:1b2802c76b]Ate ai eu sei a duvida e como fazer para so o dias que eu quero ir para relatorio[/quote:1b2802c76b]Espero ter ajudado.Vinicius....

Jfalexandre · Answer

[b:fbd50d89c7]Coloque no Bot�o Mesmo[/b:fbd50d89c7]

Form_Relatorio := TForm_Relatorio.Create(Self);
Frm_Relatorio.QuickRep1.Preview;

Pesquisa Po Data

Crie uma vari�vel string exemplo �Pesq�

[b:fbd50d89c7]var[/b:fbd50d89c7]
Pesq:[b:fbd50d89c7]String[/b:fbd50d89c7]
[b:fbd50d89c7]Begin[/b:fbd50d89c7]
Pesq := �Data do Banco de Dados�;
[b:fbd50d89c7]if [/b:fbd50d89c7](MaskEdit1.text = � / / �) [b:fbd50d89c7]or [/b:fbd50d89c7](MaskEdit2.Text = � / / �) [b:fbd50d89c7]then[/b:fbd50d89c7]

[b:fbd50d89c7]Begin[/b:fbd50d89c7]
ShowMessage(�Voce Tem que Digitar as Datas�);
[b:fbd50d89c7]end[/b:fbd50d89c7]
[b:fbd50d89c7]else[/b:fbd50d89c7]
Query1.Close;
Query1.Sql.Clear;
Query1.SQL.Add(�Select * from Tabela�);
Query1.SQL.Add(�Where �+Pesq+�>=:Inicio and �+Pesq+�<=:Final�);
Query1.Sql.Add(�Order By �+Pesq);
Query1.ParamByName(�Inicio�).AsDate:=StrToDate (MaskEdit1.text);
Query1.ParambyName(�Final�).AsDate:=StrToDate (MaskEdit2.text);
Query.execSql;
Query.Open;
[color=blue:fbd50d89c7]Form_Relatorio := TForm_Relatorio.Create(Self);
Form_Relatorio.QuickRep1.Preview;[/color:fbd50d89c7]
[b:fbd50d89c7]end;
end;[/b:fbd50d89c7]

[b:fbd50d89c7]Espero ter esclarecido Melhor.[/b:fbd50d89c7]
[/b]

Wagner · Answer

Colega eu fiz dessa forma mais nao esta funcionando o que estou fazendo errado?

var
Pesq:String;
Begin
Pesq := �datapag�;
if (MaskEdit1.text = � / / �) or (MaskEdit2.Text = � / / �) then

Begin
ShowMessage(�Voce Tem que Digitar as Datas�);
end
else
t_reccond.Close;
Query1.Sql.Clear;
Query1.SQL.Add(�Select * from Tabela�);
Query1.SQL.Add(�Where �+Pesq+�>=:Inicio and �+Pesq+�<=:Final�);
Query1.Sql.Add(�Order By �+Pesq);
Query1.ParamByName(�Inicio�).AsDate:=StrToDate (MaskEdit1.text);
Query1.ParambyName(�Final�).AsDate:=StrToDate (MaskEdit2.text);
Query1.execSql;
t_reccond.Open;
F_relrectaxa:= F_relrectaxa.Create(Self);
F_reltaxa.QuickRep1.Preview;
end;

Wagner · Answer

Poxa! amigos niguem pode me ajudar?...

Wagner · Answer

Colegas � o seguinte ele compila legal entra no sistema e tudo mais, o erro aconte�e quando eu informo a data e tento imprimir ele da a seguinte mensagem � project admincondo1.exe raised exception class edbemginerror whith message table does not exist�

file :c:\arq..prog..\admincodo1\tabela.db
file :c:\arq..prog..\admincodo1\tabela.dbf
file :c:\arq..prog..\admincodo1\tabela.txt

Alguma coisa esta passando despercebido?

var
Pesq:String; // campo a ser pesquisado
Begin
Pesq := �datapag�;
if (MaskEdit1.Text = � / / �) or (MaskEdit2.Text = � / / �) then
ShowMessage(�Voce Tem que Digitar as Datas�)
else
begin
Query1.Sql.Clear;
Query1.SQL.Add(�Select * from Tabela�);
Query1.SQL.Add(�Where �+Pesq+� between :Inicio and :Final�);
Query1.SQL.Add(�Order By �+Pesq);
Query1.ParamByName(�Inicio�).AsDate:=StrToDate (MaskEdit1.text);
Query1.ParambyName(�Final�).AsDate:=StrToDate (MaskEdit2.text);
Query1.Prepare; // devido altera��o na query em tempo de execu��o
Query1.Open;
F_relrectaxa:= F_relrectaxa.Create(Self);
F_reltaxa.QuickRep1.Preview;
end;
end;

Wagner · Answer

Cara era isso mesmo, resolveu em parte o projeto entra tudo bem legal dai quando eu informo as datas apare�e agora outro erro

� project admincondo1.exe raised exception class estackoverflow with message �extravasamento da pilha processo stopped use step on run to continue �

Meu irm�o acho que o delphi t� xingando at� minha m�e :lol: pode me ajudar por favor?

Wallacest · Answer

Amigo, Todos os meus relat�rios eu crio um form e coloco os componentes do QR e dou o .Previw Pronto. Alias,

if (MaskEdit1.Text = � / / �) or (MaskEdit2.Text = � / / �) then
ShowMessage(�Voce Tem que Digitar as Datas�)

if (MaskEdit1.Text =��) or (MaskEdit2.Text =��) then
ShowMessage(�Voce Tem que Digitar as Datas�)

A segunda comigo d� certo.

Abra�os

Wagner · Answer

Continua dando o mesmo erro quando informo as datas�Extravasamento de pilha�...

Wagner · Answer

Fica o problema ai, infelizmente so acesso o forum fins de semana e mais barato j� que eu uso conex�o discada :lol: so vou puder consultar as dicas agora no proximo fim de semana, obrigado e fico no aguardo.

F�rum Imprimir so o que eu quero #203183