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;
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.