Clarion - Para que aparezcan los cumpleaños en un browse

   
Vista:

Para que aparezcan los cumpleaños en un browse

Publicado por Martin (15 intervenciones) el 09/03/2009 14:42:07
Necesitaría saber como hago para buscar quienes nacieron en una determinada fecha, pero independientemente del año, es decir, tengo un browse, y quiero que me aparezcan los que nacieron cierto día y cierto mes, pero en distintos años, tengo definido el campo fecha de nacimiento como un date
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
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu

RE:Para que aparezcan los cumpleaños en un browse

Publicado por EDC (82 intervenciones) el 09/03/2009 18:19:12
!para armar el browse...
LOOP (tabla)
if error....
if day(tabla:fecha)=loc:dia and month(tabla:fecha)=loc:mes
!este si
else
! este no
end
END

o

!o si esta armado....

BRW1.SETFILTER('day(tabla:fecha)=loc:dia and month(tabla:fecha)=loc:mes','ALGO')

y se filtra re lindo!. Espero te sirva.
Eduardo
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:Para que aparezcan los cumpleaños en un browse

Publicado por Marcelo Madelon (572 intervenciones) el 10/03/2009 10:32:26
Hola.

Lo que yo hago es:
en una tabla guardo la fecha de nacimiento y la declaro como clave duplicada.

EMP:FechaNac (Campo)

EMP:KeyFechaNac (Clave)
EMP:FechaNac ! Incluyo la fecha

luego leo la tabla, cargo una Queue con los registros que coinciden con Today()
y las muestro en el browse.

! Cargo la fecha de hoy
EMP:FechaNac = Today()
! me posiciono a partir de la fecha = Today()
Set (EMP:KeyFechaNac,EMP:KeyFechaNac)
! Leo hasta que el campo EMP:FechaNac sea > a Today()
LOOP UNTIL Access:Empleado.Next() or EMP:FechaNac > Today()
! Aca cargo la queue
End ! Loop

Luego la muestro

Si quiesiera incluir los cumpleaños de Hoy y los de mañana sería:
LOOP UNTIL Access:Empleado.Next() or EMP:FechaNac > (Today() + 1)

! El resto igual

Espero te sirva.

Avisame si solucionaste.

Desde Venado Tuerto un abrazo.
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