PDA

Ver la Versión Completa : Reporte sin datos


Nomad
24-09-2013, 18:11:11
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

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!