Fórum Quick reporter com datas #166510

procedure TfrmRelOrEntrega.BitBtn1Click(Sender: TObject);
var
a, b, c: string;
begin
if rbCliente.Checked = true then
begin
a:=´SELECT USUARIOS.NOME, USUARIOS.CODIGO,[Ordem Producao].OP_Solicitacao, [Ordem Producao OD].OD_numero,[Ordem Producao OD].OD_DataExp, [Ordem Producao OD].OD_Aprovada, [Ordem Producao OD].OD_ValorItem ´;
b:=´FROM ([Ordem Producao OD] INNER JOIN [Ordem Producao] ON [Ordem Producao OD].OP_numero = [Ordem Producao].OP_numero) INNER JOIN USUARIOS ON [Ordem Producao].CODIGO = USUARIOS.CODIGO ´;
c:=´where [Ordem Producao OD].OD_DataExp between :Ini and :Fim and USUARIOS.CODIGO =:codigo order by [Ordem Producao OD].OD_numero´;

relOrdEntrega.qryOrEntrega.sql.clear;
relOrdEntrega.qryOrEntrega.SQL.Add(a+b+c);
relOrdEntrega.qryOrEntrega.ParamByName(´codigo´).AsString := dataModule1.tbClientesCODIGO.Value;
relOrdEntrega.qryOrEntrega.ParamByName(´Ini´).AsDateTime := trunc(dpDataInicial.date);
relOrdEntrega.qryOrEntrega.ParamByName(´Fim´).AsDateTime := trunc(dpDataFinal.date);
relOrdEntrega.qryOrEntrega.open;

//relOrdEntrega.qrTipo.caption := ´Em aberto´;
//relOrdEntrega.qrIni.Caption := DateToStr(dpDataInicial.date);
//relOrdEntrega.qrFim.Caption := DateToStr(dpDataFinal.date);
relOrdEntrega.QuickRep1.Preview;
end;

Esqueci de complementar, neste exemplo eu tenho um form com 2 datatimepicker, e uma query no qreport....

espero que ajude, se quiser este exemplo completo mande um mail edson_gouveia@bol.com.br

[]´s

Aproveitando oq vc´s estao falando eu queria perguntar oq é QUICKREPORT tem varios topicos falando sobre isso e ainda nawn sei oq é :( :(