Ver Mensaje Individual
  #3  
Antiguo 09-01-2016
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Reputación: 21
santiago14 Va por buen camino
Wink

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.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita