Buscar por fecha en Dbedit??
Publicado por Raul Andrade (14 intervenciones) el 29/04/2010 19:29:40
Hola a todos los programadores queria pedirles una ayuda tengo un programa en el cual me permite visualizar el contenido de mi base de datos a traves de un DBEDIT pero normalmente lo tengo con busqueda por letra o apellido, pero mi inquietud es q en vez de hacerme la busqueda por letra o apellido me haga la busqueda por fecha ya q en el dbedit q tengo se guarda automaticamente la fecha del sistema y la visualiza..
DBEDIT queda asi:
Fecha: -----> Aquí quiero q busque x Fecha y no por apellido
______________________________________
Fecha Puesto Apellido P F A HE HS
______________________________________
28-04-2010 CHARLY ANDRADE
10-04-2010 OSCAR PIGUAY
A continuación les dejo la codificación:
USE INGRESO
*
* Se crea indice V_APNO al abrir la base INGRESO.DBF por apellido y nombre
*
INDEX ON APELLIDO+NOMBRE TO V_APNO
SET COLOR TO W*/N
@ 19,10 SAY "Escriba la Fecha que desea buscar..."
SET COLOR TO W/N
@ 5,2,18,76 BOX caja2
@ 4,35 say "Fecha: "
campos:={"Fecha","Puesto","Apellido","P","F","A","HE","HS","HEX","REE","OBS"}
bus=""
index on apellido to apel
dbedit(6,3,17,75,campos,"editar") // Consulta de Bitacora
use ingreso
RETURN
function editar(estado,puntero)
tecla:=lastkey()
if tecla=27
DO MENU-------> No me funciona el Return ya que quiero regresar al menu no Salir al DOS
endif
if tecla=13
seek bus
endif
if tecla=8 // identifica tecla backspace
@4,35 say Space(len(bus)+10)// borro cadena de pantalla
bus=left(bus,len(bus)-1)
@4,35 say "Fecha: " + bus
else
if tecla >64 .and. tecla < 91 .OR. tecla >96 .and. tecla < 123
bus=bus+Upper(chr(tecla))
@4,35 say "Fecha: " + bus
endif
endif
return(1)
Gracias
Saludos Cordiales
DBEDIT queda asi:
Fecha: -----> Aquí quiero q busque x Fecha y no por apellido
______________________________________
Fecha Puesto Apellido P F A HE HS
______________________________________
28-04-2010 CHARLY ANDRADE
10-04-2010 OSCAR PIGUAY
A continuación les dejo la codificación:
USE INGRESO
*
* Se crea indice V_APNO al abrir la base INGRESO.DBF por apellido y nombre
*
INDEX ON APELLIDO+NOMBRE TO V_APNO
SET COLOR TO W*/N
@ 19,10 SAY "Escriba la Fecha que desea buscar..."
SET COLOR TO W/N
@ 5,2,18,76 BOX caja2
@ 4,35 say "Fecha: "
campos:={"Fecha","Puesto","Apellido","P","F","A","HE","HS","HEX","REE","OBS"}
bus=""
index on apellido to apel
dbedit(6,3,17,75,campos,"editar") // Consulta de Bitacora
use ingreso
RETURN
function editar(estado,puntero)
tecla:=lastkey()
if tecla=27
DO MENU-------> No me funciona el Return ya que quiero regresar al menu no Salir al DOS
endif
if tecla=13
seek bus
endif
if tecla=8 // identifica tecla backspace
@4,35 say Space(len(bus)+10)// borro cadena de pantalla
bus=left(bus,len(bus)-1)
@4,35 say "Fecha: " + bus
else
if tecla >64 .and. tecla < 91 .OR. tecla >96 .and. tecla < 123
bus=bus+Upper(chr(tecla))
@4,35 say "Fecha: " + bus
endif
endif
return(1)
Gracias
Saludos Cordiales
Valora esta pregunta
0