GRID + ON HEADCLICK

[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

[SALINETAS24]

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

[mustafa]

Ahora Si !!! tuto correcto !!!
con la nueva corrección ==> Procedure SearchChange_3()
Funcionando OK !!!
Cuidado con el "bixu"
Saludos
Mustafa