
Comportamiento de reporte.
Publicado por Dr. Casabe (134 intervenciones) el 21/11/2009 21:34:42
Tengo el siguiente codigo en un metodo de un formulario previo a un reporte:
SELECT Empleados.codemp, Empleados.nombempl, Empleados.apelempl,;
Empleados.fechingr, Empleados.sueldo;
FROM bomba!empleados;
WHERE Empleados.nombempl = ThisForm.Combo2.Value INTO CURSOR emp
IF RECCOUNT()=0
Titulo="Mi Compañia."
Texto="No hay registros para"+" "+ALLTRIM(ThisForm.Combo2.Value)
Dialogo=0+16+0
Resp=MESSAGEBOX(Texto,Dialogo,Titulo)
DO CASE
CASE Resp=1
ThisForm.Combo2.SetFocus
ENDCASE
ELSE
REPORT FORM repoemp PREVIEW &&windows "Salida"
USE
ENDIF
Pero, no me funciona nada, puesto que me da todos los registros de la tabla que consulto para llenar el reporte, segun el criterio seleccionado en un combo.
Pero si pongo un dato que no existe en el combo, simplemente me tira el reporte con todos los registros, pasando por alto la condicion de que debe decirme "no hay registros para este criterio".
Deseo que me diga ese mensaje al consultar por un criterio inexistente, y que no me de el relampagueazo del reporte.
Gracias por sus consejos.
SELECT Empleados.codemp, Empleados.nombempl, Empleados.apelempl,;
Empleados.fechingr, Empleados.sueldo;
FROM bomba!empleados;
WHERE Empleados.nombempl = ThisForm.Combo2.Value INTO CURSOR emp
IF RECCOUNT()=0
Titulo="Mi Compañia."
Texto="No hay registros para"+" "+ALLTRIM(ThisForm.Combo2.Value)
Dialogo=0+16+0
Resp=MESSAGEBOX(Texto,Dialogo,Titulo)
DO CASE
CASE Resp=1
ThisForm.Combo2.SetFocus
ENDCASE
ELSE
REPORT FORM repoemp PREVIEW &&windows "Salida"
USE
ENDIF
Pero, no me funciona nada, puesto que me da todos los registros de la tabla que consulto para llenar el reporte, segun el criterio seleccionado en un combo.
Pero si pongo un dato que no existe en el combo, simplemente me tira el reporte con todos los registros, pasando por alto la condicion de que debe decirme "no hay registros para este criterio".
Deseo que me diga ese mensaje al consultar por un criterio inexistente, y que no me de el relampagueazo del reporte.
Gracias por sus consejos.
Valora esta pregunta


0