buenas tardes
asi es como normalmente invoco las rutinas de reporte
Código Delphi
[-] qryRetenciones.SQL.Clear;
qryRetenciones.SQL.Add(SqlStr);
qryRetenciones.Close;
qryRetenciones.Open;
if qryRetenciones.IsEmpty then
_Alert('No existen Movimientos en el mes', mtWarning, [mbRetry], ['Aceptar'])
else
begin
if qrReciboHonorarios = Nil then
qrReciboHonorarios := TqrReciboHonorarios.Create(Nil);
with qrReciboHonorarios do
begin
qrlEmpresa.Caption := dmGlobal.g_NombreEmpresa;
qrlRuc.Caption := 'R.U.C.: ' + dmGlobal.g_RUCEmpresa;
qrlTitulo.Caption := 'Registro de Compras';
qrlSubTitulo.Caption := 'Recibos por Honorarios';
qrlSubTitulo2.Caption := 'del Mes de ' + NombreMes(StrToInt(dmGlobal.g_Mes)) + ' del ' + Izquierda(dmGlobal.g_Periodo, 4);
preview;
end;
FreeAndNil(qrReciboHonorarios);
end;
qryRetenciones.Close;
el asunto es que me he dado cuenta que aparentemente el "foco" no lo tiene el reporte si no el formulario donde previamente he invocado al reporte, y cuando muevo el scroll del mouse me aparecen errores
Cita:
exception class Erange Error with message Range check error
|
peeeeeero...
si cuando aparece el reporte doy click en cualquier parte del mismo y uso el scroll ya no aparece el error cuando uso el scroll
hice otra prueba, en el onkeypress del formulario puse que me detecte la tecla escape, se activo el reporte presione escape y el foco siempre lo tiene el formulario invocador
estoy usaneo XE7 y quickreport 5.06.02