Busqueda incremental con Array en xBrowse

Board index FiveWin para Harbour/xHarbour Busqueda incremental con Array en xBrowse

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Busqueda incremental con Array en xBrowse
Posted: Wed Apr 20, 2011 09:59 PM

Hola amigos

Con esto puedo mostrar lo que voy escribiendo con Array

      DEFINE DIALOG oDlg TITLE "ASISTENCIA DEL PERSONAL" SIZE 590,440
             @1,0 XBROWSE oBrw1 OF oDlg SIZE 140, 192
       oBrw1:nMarqueeStyle := MARQSTYLE_HIGHLWIN7
       oBrw1:SetArray( aEmpleados, .T. )      
       oBrw1:lRecordSelector:=.F.
       oBrw1:lHScroll := .F.

       oBrw1:aCols[1]:cHeader := "COD."
       oBrw1:aCols[1]:nWidth:=30
       
                   oBrw1:aCols[2]:cHeader := "NOMBRE Y APELLIDOS"
                   oBrw1:aCols[2]:nWidth:=240
  
       oBrw1:CreateFromCode()
       oDlg:bStart:={ || oBrw1:Gotop() }
      
//Asi es como lo coloco y no funciona con Array,  funciona con DBF
             @.1,8 SAY oSay VAR xCad Size 30,7 of oDlg PICTURE "@!"
            oBrw1:bSeek := {|c| DbSeek(UPPER(c))  }
            oBrw1:oSeek:=oSay
ACTIVATE DIALOG oDlg CENTERED

Gracias por la ayuda

Saludos,

Adhemar

Saludos,

Adhemar C.

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Busqueda incremental con Array en xBrowse
Posted: Thu Apr 21, 2011 03:47 PM

Instead of

Code (fw): Select all Collapse

             @.1,8 SAY oSay VAR xCad Size 30,7 of oDlg PICTURE "@!"
            oBrw1:bSeek := {|c| DbSeek(UPPER(c))  }
            oBrw1:oSeek:=oSay

Please substitute:

Code (fw): Select all Collapse

             @.1,8 SAY oBrw1:oSeek VAR oBrw1:cSeek Size 30,7 of oDlg PICTURE "@!"

Explanation:
When we called the method oBrw1:SetArray( aEmpleados, .t. ), with second parameter as True, xBrowse already constructed correct codeblock for oBrw1:bSeek appropriate for array seek.

We should not re-assign with our own codeblock which does not work on arrays. When we use SetArray, SetDbf, etc methods with AutoSort flag ON, XBrowse automatically creates the correct and the most appropriate bSeek codeblocks automatically.
We are advised not to assign our own bSeek codeblocks, which very likely not as versatile as xBrowse's generated codeblocks.

Regards

G. N. Rao.

Hyderabad, India

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Busqueda incremental con Array en xBrowse
Posted: Thu Apr 21, 2011 05:34 PM

Thanks G. N. Rao.

Run perfect

Regards,

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion