Vamos, algo como esto:
Código Delphi [-]
type
Tver = (vTotales, vSumaYSigue);
procedure TFrmQRFactura.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if detalle.RecordCount = 0 then
Ver(vTotales)
else
if (qrfact.PageNumber * 23 div detalle.RecordCount) > 0 then
Ver(vTotales)
else
Ver(vSumaYSigue);
end;
procedure tfrmqrfactura.Ver(queVer: TVer);
begin
lblSumaYSigue.Enabled := (queVer = vSumaYSigue);
dbtSumaYSigue.Enabled := (queVer = vSumaYSigue);
lblSUMA.Enabled := (queVer = vtotales);
DBTBimponible.Enabled := (queVer = vtotales);
lblIVA.Enabled := (queVer = vtotales);
DBTiva.Enabled := (queVer = vtotales);
dbtIvaPercent.Enabled := (queVer = vtotales);
lbltotal.Enabled := (queVer = vtotales);
DBTimporte.Enabled := (queVer = vtotales);
end;
lbl = labels con el texto 'suma y sigue' o solo 'suma'
DB = qrdbtext.
Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|