FoxPro/Visual FoxPro - filtros

   
Vista:

filtros

Publicado por florencia (21 intervenciones) el 24/04/2009 16:11:14
hola esroy haciendo un filtrado entre dos fechas anda bien uso este codigo

Select ctacteprov
set filter to ((fecha>=thisform.Text1.value) .and. (fecha<=thisform.Text2.value)
REPORT FORM reportpagos PREVIEW
thisform.text1.Value={}
thisform.text2.Value={}
thisform.refresh

y si me muestra las fechas ingresadas si es q existen pero si no existen no me trae nada yo quiero agregarle un messagebox q diga q no existe el dato pero lo pongo asi y siempre me sale dato no encontrado como seria????

Select ctacteprov
set filter to ((fecha>=thisform.Text1.value) .and. (fecha<=thisform.Text2.value)
in FOUND()
REPORT FORM reportpagos PREVIEW
thisform.text1.Value={}
thisform.text2.Value={}
ELSE
x=MESSAGEBOX("dato no encontrado")
endif
thisform.refresh

gracias desde ya
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Filtros

Publicado por Mauricio (1367 intervenciones) el 24/04/2009 18:01:57
Florencia, prueba esto:
Select ctacteprov
set filter to ((fecha>=thisform.Text1.value) .and. (fecha<=thisform.Text2.value)
IF RECC() > 0
REPORT FORM reportpagos PREVIEW
thisform.text1.Value={}
thisform.text2.Value={}
ELSE
x=MESSAGEBOX("dato no encontrado")
endif
thisform.refresh
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Filtros

Publicado por florencia (21 intervenciones) el 24/04/2009 18:13:03
lo acabo de probar , pero no me anda no me trae el reporte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Filtros

Publicado por Mario (199 intervenciones) el 24/04/2009 18:33:55
Colocá un BROWSE antes de llamar al reporte para ver que información tenés.
Fijate si en el DataEnvironment del reporte está todo en orden y si la banda de detalle está apuntando a donde corresponde.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Filtros

Publicado por LAP (3 intervenciones) el 24/04/2009 18:57:36
SET FILTER TO ........
GO TOP
IF !EOF()
* Encontrado
.......................
ELSE
.......................
* No encontrado
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar