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
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