Page 2 of 2
Re: GRID + ON HEADCLICK
Posted: Fri Sep 25, 2020 9:59 am
by mustafa
Hola amic SALINETAS24
Muy logrado Maestro el Arreglo !!!
Estoy probando tu Arreglo y tengo algunas dudas ?
1º- Si pongo "A" ==> salen todas las Aguas (4)
2º- Si pongo "AGUA L" ==> salen las (2) que empiezan por "L"
3º- Si pongo "AGUA LA" ==> sale (1) "AGUA LANJARONE"
*-------------------------------------------------------------------------------------------*
4º- Si pongo "L" de "LANJARONE" No Sale Nada (es una palabra intermedia
en el registro ==> "AGUA LANJARONE"
Creía que con el arreglo se podría buscar por ejemplo por "LANJARONE"
que no es el principio del registro es la letra "A" ==> en este caso
la búsqueda es para "AGUA" , no me busca por "LANJARONE" ?
Un cordial saludo
Mustafa
Re: GRID + ON HEADCLICK
Posted: Fri Sep 25, 2020 10:47 am
by SALINETAS24
mustafa wrote: ↑Fri Sep 25, 2020 9:59 am
Hola amic SALINETAS24
Muy logrado Maestro el Arreglo !!!
Estoy probando tu Arreglo y tengo algunas dudas ?
1º- Si pongo "A" ==> salen todas las Aguas (4)
2º- Si pongo "AGUA L" ==> salen las (2) que empiezan por "L"
3º- Si pongo "AGUA LA" ==> sale (1) "AGUA LANJARONE"
*-------------------------------------------------------------------------------------------*
4º- Si pongo "L" de "LANJARONE" No Sale Nada (es una palabra intermedia
en el registro ==> "AGUA LANJARONE"
Creía que con el arreglo se podría buscar por ejemplo por "LANJARONE"
que no es el principio del registro es la letra "A" ==> en este caso
la búsqueda es para "AGUA" , no me busca por "LANJARONE" ?
Un cordial saludo
Mustafa
Yeeep mesieur...,
¿Te has bajado la 2ª versión, que he colgado.? A mi me funciona correctamente.
Si pongo la palabra IDEAL me salen los Pizzas.
Te paso la función que he modificado .., compruebalo.
Un saludo
Code: Select all
*---------------------------------------------------------*
Procedure SearchChange_3()
*---------------------------------------------------------*
Local cTxt, nLen, i
cTxt := GetProperty( 'Form_50','Text_002X','Value' )
nLen := Len( cTxt )
// Nesse ponto preciso saber qual o número da coluna da Grid
nCol:= Form_50.Grid_6.Col
Form_50.Grid_6.DeleteAllItems
// Procura o texto
/*
For i := 1 To Len( aGrid )
If Upper( cTxt ) = Upper( Left( aGrid [ i ] [ 2] , nLen ) ) // [ 2] <------- PRODUCTO
Form_50.Grid_6.AddItem ( aGrid [ i ] )
Endif
Next
*/
// ---------------------------------------------
// --> NUEVA RUTINA DE BUSQUEDA POR APROXIMACION
// --> BY SARGANTANA SOFT - PETRER CITY
// ---------------------------------------------
FOR i := 1 To Len( aGrid )
IF AT( Upper( cTxt ), Upper(aGrid [ i ] [ 2]) ) != 0 .OR. LEN(cTxt)=0
Form_50.Grid_6.AddItem ( aGrid [ i ] )
Endif
NEXT
Return
Re: GRID + ON HEADCLICK
Posted: Fri Sep 25, 2020 11:08 am
by mustafa
Ahora Si !!! tuto correcto !!!
con la nueva corrección ==> Procedure SearchChange_3()
Funcionando OK !!!
Cuidado con el "bixu"
Saludos
Mustafa