In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Ayuda para filtros

Foro público de Xailer en español
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

Ayuda para filtros

Mensaje por PILO »

Hola tengo lo siguiente
METHOD BtnBmpFiltrarClick( oSender ) CLASS TFDatosAnimales
local variables := space(0)
local control := .f.
WITH OBJECT ::oDbfAnimales1
SET FILTER TO
IF ::oDateNACI1:Value != CTOD("")
If len(VARIABLES) > 0
VARIABLES = VARIABLES + " .AND. "
end if
VARIABLE := "F_NACI>=" +CHR(34)+ DTOC(::oDateNACI1:Value) + CHR(34)
msginfo(VARIABLE)
end if
//::oDbfAnimales1:Filter(VARIABLES)
SET FILTER TO &VARIABLES.
end with
::oDBBrAnimales:Refresh()
retrun
quiero dado una fecha en el un oDate filtral la base de datos con la fecha
mayor o igual a la dada
en el dataset oDbfAnimales1 y el campo es FNACI
Responder