FoxPro/Visual FoxPro - problema al actualizar cuadro de busqueda

problema al actualizar cuadro de busqueda

Publicado por anonymous (8 intervenciones) el 25/03/2019 21:18:58

QUE TAL SOY UN POCO NUEVO EN ESTO PERO OJALÁ PUEDAN AYUDARME TENGO UN CUADRO DE BÚSQUEDA CON GRID, EL CUAL AL MOMENTO DE PASAR UN LECTOR DE CÓDIGO DE BARRAS ESCANEE Y LEE EL CÓDIGO Y LO BUSCA EN AUTOMÁTICO, EL PROBLEMA VIENE CUANDO INTENTO ESCANEAR OTRO CODIGO NO ME LO BUSCA A MENOS QUE YO BORRE EL ANTERIOR QUE BUSCO, ¿COMO HAGO PARA QUE AUTOMATICAMENTE AL PASAR EL CODIGO EN LECTOR EN EL CUADRO DE BUSQUEDA BORRE EL ANTERIOR Y ME REALIZE LA BUSQUEDA DEL NUEVO CODIGO. ESTE ES EL CODIGO QUE TENGO EN EL CUADRO DE BUSQUEDA:

If !Empty(this.value)

	nDiag = At("/", this.value)

	cAlReves = Alltrim(SubStr(this.value, nDiag + 1)) + "/" + Padl(Int(Val(Left(this.value, nDiag - 1))), 5, "0")

	= IndexSeek(cAlreves, .t., "Lstexp")

	thisform.gridrecexp = Iif(Empty(LstExp.Numero), 0, recno("LstExp"))

	thisform.damedatos(LstExp.Numero)

	thisform.grdLstExp.refresh

	thisform.refresh

Endif

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 1.115

problema al actualizar cuadro de busqueda

Publicado por Leonardo Daniel A. (499 intervenciones) el 26/03/2019 06:14:33

revisa en la propiedad SelectOnEntry del textbox. Por default está en .F.
Si la cambias a .T. puede ser lo que necesitas.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

problema al actualizar cuadro de busqueda

Publicado por anonymous (8 intervenciones) el 26/03/2019 19:01:38

la active pero sigue igual

Valora esta respuesta

Comentar

Pos: 3

Val: 642

problema al actualizar cuadro de busqueda

Publicado por Abel (286 intervenciones) el 26/03/2019 14:14:18

Si entendí bien; lo único que tienes que hacer es limpiar el campo:
Podrías escribirlo entre estas líneas:

thisform.damedatos(LstExp.Numero)
this.value = ""
thisform.grdLstExp.refresh

o debajo de la línea:
thisform.refresh
this.value = ""

Valora esta respuesta

Comentar

problema al actualizar cuadro de busqueda

Publicado por anonymous (8 intervenciones) el 26/03/2019 19:03:35

coloque lo que me comentaste y si ya al pasar el primer codigo con el lector si lo busca y lo borra, pero todavia tengo que seleccionar el cuadro para que me vuelva hacer la segunda busqueda, como se podria hacer para que no tengan que seleccionar de nuevo el cuadro de busqueda sino que en automatico borre y realize la nueva busqueda sin colocarse de nuevo ahi

Valora esta respuesta

Comentar

Pos: 3

Val: 642

problema al actualizar cuadro de busqueda

Publicado por Abel (286 intervenciones) el 27/03/2019 13:59:57

puedes hacer que vuelva el foco hacia el grid con:

thisform.grdLstExp.SetFocus

Valora esta respuesta

Comentar

problema al actualizar cuadro de busqueda

Publicado por anonymous (8 intervenciones) el 28/03/2019 00:06:19

no me funciono aun

Valora esta respuesta

Comentar

Pos: 3

Val: 642

problema al actualizar cuadro de busqueda

Publicado por Abel (286 intervenciones) el 28/03/2019 14:17:55

Es difícil darte mucha ayuda, por que no alcanzo a comprender muy bien que es lo que desea hacer; mencionas un cuadro de búsqueda y luego indicas un grid, me confunde un poco; por favor envíame imágenes para comprender mejor.

Valora esta respuesta

Comentar

problema al actualizar cuadro de busqueda

Publicado por anonymous (8 intervenciones) el 29/03/2019 03:06:26

el cuadro señalado es el cuadro de busqueda, para que me entiendas agarrare el ejemplo de la imagen, como ejemplo tengo el codigo 1/2000 paso el codigo en el lector de codigo de barras el programa lo lee, y lo busca y me coloca los datos del expediente en la pantalla, y me deja en blanco el cuadro de busqueda de nuevo, pero supongamos que paso el codigo 19/2000 en el lector de barras y no realiza la busqueda, solamente realiza nuevas busquedas si me posiciono de nuevo en el cuadro de busqueda

Valora esta respuesta

Comentar

Pos: 3

Val: 642

problema al actualizar cuadro de busqueda

Publicado por Abel (286 intervenciones) el 29/03/2019 15:13:05

Creo haber entendido; el cursor sale del campo una vez que busca el primer dato y cuando quieres buscar el siguiente al no estar en el cuadro de búsqueda no hace nada...

If !Empty(this.value)

	nDiag = At("/", this.value)

	cAlReves = Alltrim(SubStr(this.value, nDiag + 1)) + "/" + Padl(Int(Val(Left(this.value, nDiag - 1))), 5, "0")

	= IndexSeek(cAlreves, .t., "Lstexp")

	thisform.gridrecexp = Iif(Empty(LstExp.Numero), 0, recno("LstExp"))

	thisform.damedatos(LstExp.Numero)

	thisform.grdLstExp.refresh

	thisform.refresh

        this.value = ""   && Esto es lo que te dije antes para limpiar el campo; suponiendo que lo hayas puesto aquí.

        return this         && O bien puedes usar "return 0" es el mismo efecto, no salirse del cuadro.

Endif

Valora esta respuesta

Comentar

problema al actualizar cuadro de busqueda

Publicado por anonymous (8 intervenciones) el 29/03/2019 16:03:50

de verdad muchas gracias, si ya funciono perfecto

Valora esta respuesta

Comentar

Ayuda con foxypreviewer

Me imprime un pdf desactualizado