Hola a Todos Compañeros.....
A ver....me siento un poco contrariado por mi....no se como se le llame...pero ahi va..
¿Cómo puedo saber si un Query esta abierto?...el caso es el siguiente, debo enviar de la consulta que se ejecuta a un reporte todos los datos que se visualizan en pantalla, por lo tanto, debo evaluar primero si la consulta está abierta,
He probado este codigo:
Código Delphi
[-]If(Inventario_Escolar.HandleAllocated=true) and (DataModule2.Inv_Escolar.IsEmpty=TRUE)then
ShowMessage('No puede Imprimir Datos. Necesario Ejecutar la Consulta ')
else
begin
Label9.Caption:='Inventario General';
if Application.MessageBox('¿Es Correcta la Selección de la Consulta?','Biblioteca', MB_YesNo+Mb_IconQuestion)=IDYes then
Reporte_Inv_Escolar.QuickRep1.Preview
end;
La primera verificación ubica que pestaña de un componente PageControl está activa, la segunda es la verificación es la que les comento.
Ahora, corríjanme si estoy mal, o bien si hay alguna opción más, las opiniones son bienvenidas....
Agradeciéndoles....
{Saludos}