Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Reporte sin datos (https://www.clubdelphi.com/foros/showthread.php?t=84239)

Nomad 24-09-2013 18:11:11

Reporte sin datos
 
Hola

Que puedo hacer para que cuando un reporte no tiene datos, ni si quiera me muestre la pantalla, sino que me muestre un mensaje que diga: "El reporte no se puede generar por falta de datos" o algo así.

Yo se que podría crear un procedimiento que me revise eso, pero la pregunta es mas bien, si hay alguna forma de preguntar a Quick Reporte si el reporte viene vacio para que no lo muestre.

Slds

oscarac 24-09-2013 18:49:51

podrias hacer algo como esto

Código Delphi [-]
  qryListadoComprasArticuloAnalitico.Open;  <- Data asociada al reporte
  if qryListadoComprasArticuloAnalitico.IsEmpty then
   MessageDlg('No existe informacion en el rango solicitado',mtWarning,[mbRetry],0)
  Else
  begin
    if qrListadoComprasArticuloAnalitico = Nil then
      qrListadoComprasArticuloAnalitico := TqrListadoComprasArticuloAnalitico.Create(Nil);  <- Reporte
      with qrListadoComprasArticuloAnalitico do
      begin
        qrListadoComprasArticuloAnalitico.qrlEmpresa.Caption:= dmGlobal.g_NombreEmpresa;
        qrListadoComprasArticuloAnalitico.qrlRuc.Caption:= dmGlobal.g_RUCEmpresa;
        qrListadoComprasArticuloAnalitico.qrlSubTitulo.Caption :=  'En moneda ' + iif (rgmoneda.itemindex =0, 'Nacional ','Extranjera') +  ' Del ' + DateToStr(dtInicial.Date) + ' al ' + DateToStr(dtFinal.Date);
        qrListadoComprasArticuloAnalitico.Preview;
      end;
      FreeAndNil(qrListadoComprasArticuloAnalitico);
  End;
  qryListadoComprasArticuloAnalitico.Close;

Nomad 24-09-2013 19:05:46

Muchas gracias!

Nomad 25-09-2013 04:33:07

Listo, ya está arreglado!


La franja horaria es GMT +2. Ahora son las 18:58:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi