Ver Mensaje Individual
  #1  
Antiguo 01-07-2013
DOS DOS is offline
Miembro
NULL
 
Registrado: jul 2011
Posts: 173
Reputación: 15
DOS Va por buen camino
Quickreport al dia de la fecha

Hola a todos, resulta que tengo una tabla en Delphi 7(Ttable16) en un formulario(tform27) que se muestra en un DBGrid y un boton imprimir de donde salen dos opciones, imprimir todo o del dia (o sea el dia de la fecha de hoy), para el general no hay problemas imprime todo el registro el asunto es el diario, la tabla contiene un campo fecha del tipo date. En el boton diario puse lo siguiente
Código Delphi [-]
procedure TForm27.BitBtn2Click(Sender: TObject);
begin
Form29.Quickrep1.Preview;// va al formulario en donde se mostrara
Form27.Close;    //cierra el formulario que contiene los botones de opcion
 Form29.Query1.Close;
 Form29.Query1.SQL.Text:= 'SELECT * FROM turnopelu.DB'; //tabla a mostrar
 Form29.Query1.SQL.Add('Where Fecha = DateTime'); // comparar la fecha con el dia de hoy, tambien probe con Now
 Form29.Query1.Active:=true;
end;
En el formulario 29 tengo un Query
y un DataSet Relacionado con el Query
El asunto que los QRDBText Tienen el Dataset de la tabla original (Form16.Table1) pero creo que el problema esta en el Where.
Agradesco cualquier ayuda.
Responder Con Cita