topic-26714

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

INCRFILTER de xBrowse
Posted: Wed Jul 03, 2013 02:42 PM

Distinguidos Antonio/G. N. Rao.

Que parte del xBrowse hay que modificar para que la búsqueda incremental de:

@4,205 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 95,12 PIXEL OF oBrw

para que pulsando las vocales con tilde (áéíóú/ÁÉÍÓÚ) sean ubicadas al puslar aeiou/AEIOU Ej: que muestre tanto días/DÍAS como dias/DIAS

Tengo FWH 12.12 que trae búsqueda incremental filtrada

Gracias por la ayuda.

Saludos,

Adhemar

Saludos,

Adhemar C.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: INCRFILTER de xBrowse
Posted: Fri Jul 05, 2013 01:17 PM

??

Saludos,

Adhemar

Saludos,

Adhemar C.

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: INCRFILTER de xBrowse
Posted: Fri Jul 05, 2013 01:51 PM

Hola amigo...
Tené en cuenta que son caracteres distintos...
Lo que se me ocurre es usar el STRTRAN para reemplazar los tildes por caracteres comunes.
Espero te sirva la idea.
Saludos,

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: INCRFILTER de xBrowse
Posted: Fri Jul 05, 2013 02:02 PM

Gracias Esteban por responder
Este el método del xBrowse

Code (fw): Select all Collapse

METHOD RddIncrFilter( cExpr, uSeek ) CLASS TXBrowse

   local oBrw     := Self
   local lFound   := .f.
   local cKey
   local cFilter

   if ::bFilterExp == nil
      DEFAULT ::cFilterFld   := OrdKey()
      cKey  := ::cFilterFld
      if ValType( &cKey ) == 'C'
         if ! "UPPER" $ Upper( cKey )
            cKey  := "UPPER( " + cKey + " )"
         endif
      else
         cKey  := "CVALTOCHAR(" + cKey + ")"
      endif
      if Empty( cExpr )
         cFilter     := '!deleted()'
      elseif ::lSeekWild
#ifdef __XHARBOUR__
         cFilter     := 'WildMatch("*' + Upper( Trim( cExpr ) ) + '*",' + cKey + ')'
#else
         cFilter     := 'HB_WildMatch("*' + Upper( Trim( cExpr ) ) + '*",' + cKey + ')'
#endif
      else
         cFilter     := cKey + '="' + Upper( Trim( cExpr ) ) + '"'
      endif
   else
      cFilter        := Eval( ::bFilterExp, cExpr )
   endif

   if &cFilter
      uSeek          := ::BookMark
   endif
   SET FILTER TO &cFilter
   GO TOP
   lFound      := ::KeyCount() > 0

return lFound

Cómo seria?

Saludos,

Adhemar

Saludos,

Adhemar C.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: INCRFILTER de xBrowse
Posted: Fri Jul 05, 2013 03:12 PM

Amigos

He dado solución con el índice

Code (fw): Select all Collapse

INDEX ON StrTran1(NOMBRE) TAG NOMBRE 
.....
FUNCTION StrTran1(NOMBRE)
      NOMBRE:=StrTran(NOMBRE,"á","a")
      NOMBRE:=StrTran(NOMBRE,"é","e")
      NOMBRE:=StrTran(NOMBRE,"í","i")
      NOMBRE:=StrTran(NOMBRE,"ó","o")
      NOMBRE:=StrTran(NOMBRE,"ú","u")
Return NOMBRE

Saludos,

Adhemar

Saludos,

Adhemar C.

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: INCRFILTER de xBrowse
Posted: Fri Jul 05, 2013 04:45 PM

interesante solucion,
saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: INCRFILTER de xBrowse
Posted: Sat Jul 06, 2013 11:57 PM

FE LI CI TA CIO NES !!

Relamente ingeniosa solución

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: INCRFILTER de xBrowse
Posted: Sun Jul 07, 2013 11:23 AM

Gracias, amigos.

Saludos,

Adhemar

Saludos,

Adhemar C.

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: INCRFILTER de xBrowse
Posted: Wed Jul 10, 2013 01:20 PM

Adhemar...
Del mismo modo que hiciste la función para las minúsculas, no te olvides de hacer lo propio para las mayúsculas.
El STRTRAN() en general soluciona todos estos problemitas.
Saludos,

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: INCRFILTER de xBrowse
Posted: Wed Jul 10, 2013 05:45 PM

Gracias Esteban por la idea.

Ya lo hice también con las mayúsculas.

Saludos,

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion