Utilizacion de Ordwildseek - Mayusculas/minusculas
Posted: Wed Aug 08, 2018 4:46 pm
Buenas
A ver si alguien me ayuda, estoy atascado.
Se trata de presentarme un browse con los datos procesados mediante Ordwildseek(), y una de dos, si utilizo upper, solo me presenta los datos que esten grabados en mayusculas, y si no lo hago, me presenta sólo los que estan en minuscula, necesito que me presente ambos.
Utilizo una rutina que puso aquí The Full.
llamada a la funcion:
Función:
Un Saludo
A ver si alguien me ayuda, estoy atascado.
Se trata de presentarme un browse con los datos procesados mediante Ordwildseek(), y una de dos, si utilizo upper, solo me presenta los datos que esten grabados en mayusculas, y si no lo hago, me presenta sólo los que estan en minuscula, necesito que me presente ambos.
Utilizo una rutina que puso aquí The Full.
llamada a la funcion:
Code: Select all
static function buscalle(aAlias)
MsgGet( "Introduzca las letras a buscar","BUSQUEDA POR CADENA EN LA CALLE",@codibus )
FastFilter( "*"+ Upper(alltrim(codibus) ), 4 ) //El 3 para indicar el numero del Indice
Publicas:Filtro:=.T.
return nilCode: Select all
Function FastFilter( cCad, nOrder )
Local nIndice := OrdNumber()
Set order to nOrder
index on &(upper(IndexKey())) tag temp TO tHarbourt CUSTOM ADDITIVE MEMORY
Set order to nOrder
dbGotop()
Do While OrdWildSeek( cCad, .T. )
OrdKeyAdd( "temp" )
Enddo
OrdSetFocus( "temp" )
Browse()
Return nIndice