Reporte - FastReport

[mantraxer21]

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]

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]

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.