No mostrar página si consulta llega vacía. FastReport

[nicolas77]

no te sirve hace un recordcount?
si esta en cero, no abris el reporte.

[santiago14]

Me respondo a mí mismo. Esto decide si mostramos o no una página de FastReport según el DataSet.

Primero, unas funciones...

Código Delphi [-]
function ObtenerDataSet(nombre:string):TFrxDataSet;
var
  q:TfrxDataset;  
begin
  q:=Report.GetDataSet(nombre);
  q.first;
  Result:=q;                        
end;          

{Pone visible o no una página, según haya datos para ponerle desde la consulta SQL}    
procedure InvisibilizarPagina(NombreDataSet:string; Pagina:TFrxReportPage);
begin
  if not ObtenerDataSet(NombreDataSet).eof then
  begin
    Pagina.Visible:=True;
  end
  else
  begin
    Pagina.Visible:=False;
  end;                  
end;

Ahora un ejemplo de como se llama esto dentro de PascalScript.

Código Delphi [-]
procedure AvisosSeccionJudicialOnBeforePrint(Sender: TfrxComponent);
begin
  InvisibilizarPagina('SeccJudicialPaginado', TFrxReportPage(Sender));  
end;

En este caso, la Sección Judicial se podría mostrar, o no, si viene la SQL (SeccJudicialPaginado) vacía.

Espero que le sirva de ayuda al foro.