Clipper/FiveWin - Ayuda Dbedit

   
Vista:

Ayuda Dbedit

Publicado por Raul Andrade (14 intervenciones) el 28/04/2010 15:52:57
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 I Puesto I Apellido I P I F I A I I HE I I HS I
_________________________________________________________
28-04-2010 I CHARLY I ANDRADE
10-04-2010 I OSCAR I 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder