5 respuestas en este tema

[santiago14]

Buenas, feliz 2.016 y que todos estemos mejor en este nuevo año que comienza.

Mi consulta es la siguiente:

 

Tengo un FastReport con varias páginas, le envío la consulta sql a través del TFrxDBDataSet como siempre.

En algunos casos, la consulta llega vacía, y eso está bien, puesto que no se encontró el dato que se necesitaba imprimir. En ese caso, la segunda página de mi FastReport no debería imprimirse.

No estoy pudiendo hacer eso, actualmente me sale la segunda página vacía.

Espero haber sido claro.

 

Gracias.

Santiago.

[egostar]

Buenas, feliz 2.016 y que todos estemos mejor en este nuevo año que comienza.

Mi consulta es la siguiente:

 

Tengo un FastReport con varias páginas, le envío la consulta sql a través del TFrxDBDataSet como siempre.

En algunos casos, la consulta llega vacía, y eso está bien, puesto que no se encontró el dato que se necesitaba imprimir. En ese caso, la segunda página de mi FastReport no debería imprimirse.

No estoy pudiendo hacer eso, actualmente me sale la segunda página vacía.

Espero haber sido claro.

 

Gracias.

Santiago.

 

 

Asumo que en la segunda página debería venir el resultado del dataset, me pregunto si estarás mandando a imprimir algunos encabezados fijos ????

 

Saludos

[santiago14]

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

 

Primero, unas funciones...

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.

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.

 

Santiago.

[egostar]

Hola amigo Santiago

 

Se agradece el aporte

 

Solo un comentario, yo utilizaría la función "isEmpty" del dataset para determinar si hay datos o no en lugar de la propiedad EoF.

 

Saludos

[santiago14]

Ahhhh. Si. Lo voy a probar cómo me dices.
Tienes razón


Enviado desde mi iPhone utilizando Tapatalk

[santiago14]

Estuve probando con "IsEmpty", no funciona. Al parecer, TFrxDataSet  no tiene esa funcionalidad incorporada.

Con Eof va bien.

 

Santiago. Gracias.