HMGforum.com

Posted: **Sun Jan 31, 2021 4:29 pm**

Hola a todos,

Os paso un programa que permite la búsqueda de cualquier cadena en el campo del indice de una dbf usando la función "ORDWILDSEEK".

El caso es que supongo que será un error, no consigo que tenga en cuenta el primer registro.
He probado de varias formas pero no lo consigo.

Articulo->(OrdWildSeek( cBusca , .T. ,.F.))
Articulo->(OrdWildSeek( cBusca , .F. ,.F.))
.... / ....

Pero con resultado negativo.....

En el ejemplo tenéis dos GRID, arriba permite busca y bajo para comprobar los registros.
el 1er Registro es

Code: Select all

CODIGO 12 
 NOMBRE  ARTICULO 12

Este articulo es "fantasma"

Si en el campo BUSCAR ponemos la cadena "ES" nos mostrará los artículos que contienen "ES"

Code: Select all

CODIGO     NOMBRE
6               ESTANTERIA 6
1               MESA 1 
3               MESITA 3 
2               SILLA RESPALDO 2

Pero si buscas la cadena "ARTI" no aparece....., ¡¡Y ES EL PRIMER REGISTRO!!.

Si alguien sabe, por el contrario lo solucionare a pedal.., comprobando el primer registro

Posted: **Sun Jan 31, 2021 7:06 pm**

SALINETAS24 wrote: ↑Sun Jan 31, 2021 4:29 pm Hola a todos,

Os paso un programa que permite la búsqueda de cualquier cadena en el campo del indice de una dbf usando la función "ORDWILDSEEK".

...
Pero si buscas la cadena "ARTI" no aparece....., ¡¡Y ES EL PRIMER REGISTRO!!.

Si alguien sabe, por el contrario lo solucionare a pedal.., comprobando el primer registro

Hola,

PLEASE TRY THE UPDATED SAMPLE CODE BELOW:

Code: Select all

*--------------------
Static Procedure Buscar
*--------------------

Local cBusca  := "*" + AllTrim(Main.Text_1.Value) + "*"

* Use Articulo
Articulo->(DbSetOrder(1))
Articulo->(DbGoTop())

DELETE ITEM ALL FROM Grid_1 OF Main

If !Empty(Main.Text_1.Value)
 IF Articulo->(OrdWildSeek( cBusca ))  // 1st time call

    ADD ITEM { Codigo , Codigo , Nombre } TO Grid_1 OF Main
    Do While Articulo->(OrdWildSeek( cBusca , .T. ))
      ADD ITEM { Codigo , Codigo , Nombre } TO Grid_1 OF Main
   EndDo 
 Endif
Endif

Main.Grid_1.Value := Main.Grid_1.ItemCount
Main.Grid_1.Setfocus

Return

HTH

Posted: **Sun Jan 31, 2021 9:34 pm**

See...

http://mail.hmgforum.com/viewtopic.php?t=6055

Posted: **Mon Feb 01, 2021 3:32 am**

Just an added note to Grigory`s procedure. I would add upper(cBusca) just so it does not matter about upper or lower data MR. Mr. Smith
or which way you add it text_1.

Code: Select all

Static Procedure Buscar
*--------------------

Local cBusca  := "*" + AllTrim(upper(Main.Text_1.Value)) + "*"                //upper

* Use Articulo
Articulo->(DbSetOrder(1))
Articulo->(DbGoTop())

DELETE ITEM ALL FROM Grid_1 OF Main
If !Empty(Main.Text_1.Value)
 IF Articulo->(OrdWildSeek( upper(cBusca) ))  // 1st time call               // upper

    ADD ITEM { Codigo , Codigo , Nombre } TO Grid_1 OF Main
    Do While Articulo->(OrdWildSeek( upper(cBusca) , .T. ))                   //upper
      ADD ITEM { Codigo , Codigo , Nombre } TO Grid_1 OF Main
   EndDo 
 Endif
Endif


Main.Grid_1.Value := Main.Grid_1.ItemCount
Main.Grid_1.Setfocus

HMGforum.com

ORDWILDSEEK - BUG

ORDWILDSEEK - BUG

Re: ORDWILDSEEK - BUG

Re: ORDWILDSEEK - BUG

Re: ORDWILDSEEK - BUG