Foros Club Delphi - Reporte

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Reporte - FastReport (https://www.clubdelphi.com/foros/showthread.php?t=76268)

mantraxer21

19-10-2011 20:49:25

Reporte - FastReport

Estimados:

Estoy trabajando con FastReport + Delphi Xe, funciona impeke, el tema es que necesito primero consultar si existen datos para imprimir, entonces se ejecuta el reporte, de lo contrario enviar mensaje informando que no hay registros para imprimir !

Gracias Saludos Cordiales

mantraxer21

19-10-2011 21:15:14

Solucionado

Estimados:

Solucioné el tema

Para quienes lo requieran !!!

Código Delphi [-]qGrafico.Close;
qGrafico.Open;
if qGrafico.Eof then begin
  MessageDlg('Estimado Usuario: No existen Datos para Imprimir.',mtWarning,[mbOk],0);
    exit;
end;

ReporteGrafico.LoadFromFile('S:\reportes\GraficoAtenciones.fr3');
ReporteGrafico.ShowReport;

Young

20-10-2011 05:51:30

Hola mantraxer21, también puedes hacer uso de la propiedad IsEmpty de tipo booleano para saber si el query está vacío o no.

Código Delphi [-]if qGrafico.IsEmpty then...

Saludos.

La franja horaria es GMT +2. Ahora son las 08:36:07.