PDA

Ver la Versión Completa : problemas con wuick report


oscarac
21-09-2023, 20:58:16
buenas tardes
asi es como normalmente invoco las rutinas de reporte

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

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

Neftali [Germán.Estévez]
22-09-2023, 08:59:00
Sólo como test, prueba a comentar esta línea, a ver si los errores desaparece:
FreeAndNil(qrReciboHonorarios);

Si desaparece, hablamos...