Get search on TopBar of a Xbrowse

[Silvio.Falconi]

I need to enter the search with the get control at the top of the xbrowse and also the combobox to select the column on which to search



while the combobox run ok ( change the oBrowse:cFilterFld and refresh the xbrowse)
when I digit a letter then the data is not searched

Code: Select all  Expand view

Function test()

  local cSeek := Space( 100 )
   local oGet
    local oBrowse
....

  @ 140,10 XBROWSE oBrowse  ;
           SIZE -20,-40 PIXEL;
           OF oDlg ;
           DATASOURCE oReserva COLUMNS aBrowse NOBORDER

            PreGridReserva(oBrowse,oReserva,@oGet,@cSeek)

WITH OBJECT oBrowse
                       :MakeTotals()
                      :lfooter          := .T.
                      :ldrawborder:=.t.
                      :nClrBorder := CLR_GRAY
                      :nMarqueeStyle       := MARQSTYLE_HIGHLWIN7
                      :lHscroll            := .F.
                      :l2007               := .F.
                      :l2015               := .T.

                       :lIncrFilter   := .t.
                      :oSeek         := oGet
                       :CreateFromCode()
         END

PreGridReserva(oBrowse,oReserva,@oGet,@cSeek)

Code: Select all  Expand view

STATIC Function PreGridReserva(oBrowse,oReserva,oGet,cSeek)
        local  cHead    := "Numero"
        local oCbx

      oBrowse:nTopBarHeight := 60
      oBrowse:SetStyle( 2015 )
      oBrowse:bOnAdjust := <||
         local  aHead    := {"Cognome","Nome","Tipo","Numero"} // ArrTranspose( aBrowse )[ 2 ]
         local  oSay1,oSay2
         local nRow:= 20

          @ nRow,  11  SAY oSay1 Prompt "Cerca:"     SIZE  55,   24 PIXEL  OF  oBrowse
          @ nRow,  375 SAY oSay2 Prompt "in:"        SIZE  55,   24 PIXEL  OF  oBrowse

   @ nRow,75 GET oGet VAR cSeek SIZE 200,24 PIXEL OF oBrowse;
               BITMAP "GRID_CANCELLA" ACTION (cSeek    := Space( 100 ),oBrowse:Seek( "" ),;
                         oBrowse:refresh(),oGet:refresh())

    @ nRow, 400 COMBOBOX oCbx VAR cHead ITEMS aHead ;
          SIZE 150,200 PIXEL OF oBrowse ;
          ON CHANGE (SetIndexReserva(oCbx:NAT,oReserva),;
                      oBrowse:Seek( "" ), ;
                      oBrowse:cFilterFld := oBrowse:oCol( cHead ):cExpr, ;
                      oBrowse:refresh() ,;
                      oBrowse:SetFocus() )



      return nil
        >
        return nil

where is the error ?

[Silvio.Falconi]

I tried also the original test of Nages adding the get of search on topbar xbrowse




while the combobox seem to work good refreshing the xbrowse , the get not search any info

Code: Select all  Expand view

   #include "fivewin.ch"

    REQUEST DBFCDX

    //----------------------------------------------------------------------------//

    function Main()

       local oDlg, oFont, oBrw, aCols, oGet, oCbx, cHead, aHead
       local cSeek    := Space( 100 )


       SET DATE ITALIAN
       SET CENTURY ON
       SET DELETED ON

       SetGetColorFocus()

       FERASE( "CUSTOMER.CDX" )
       USE CUSTOMER VIA "DBFCDX"
       FW_CdxCreate()
       SET ORDER TO TAG FIRST
       GO TOP

       aCols    := { ;
          { "FIRST",  "Nome",,      120, },;
          { "LAST",   "Cognome",,   120, },;
          { "STREET", "Indirizzo",, 180, },;
          { "CITY",   "Città",,     150, },;
          { "STATE",  "Stato",,      50, } }

       aHead    := ArrTranspose( aCols )[ 2 ]
       cHead    := "Nome"

       DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
       DEFINE DIALOG oDlg SIZE 800,600 PIXEL TRUEPIXEL FONT oFont


       /*
       @ 20, 20 COMBOBOX oCbx VAR cHead ITEMS aHead ;
          SIZE 150,200 PIXEL OF oDlg ;
          ON CHANGE ( oBrw:Seek( "" ), ;
                      oBrw:cFilterFld := oBrw:oCol( cHead ):cExpr, ;
                      oBrw:SetFocus() )

       @ 20,300 GET oGet VAR cSeek SIZE 480,24 PIXEL OF oDlg

        */


       @ 70, 20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
          DATASOURCE "CUSTOMER" COLUMNS aCols ;
          AUTOSORT CELL LINES NOBORDER


            TopBarXbrowse(@cSeek,@oGet,oBrw,aHead,cHead)


       WITH OBJECT oBrw
          :lIncrFilter   := .t.
          :oSeek         := oGet
          //
          :CreateFromCode()
       END

       ACTIVATE DIALOG oDlg CENTERED ON INIT oBrw:SetFocus()
       RELEASE FONT oFont

    return nil

    //----------------------------------------------------------------------------//


    Function TopBarXbrowse(cSeek,oGet,oBrw,aHead,cHead)
        local oCbx

      oBrw:nTopBarHeight := 60
      oBrw:SetStyle( 2015 )
      oBrw:bOnAdjust := <||
         local  oSay1,oSay2
         local nRow:= 20

          @ nRow, 20 COMBOBOX oCbx VAR cHead ITEMS aHead ;
          SIZE 150,200 PIXEL OF oBrw ;
          ON CHANGE (SetIndex(oBrw,oCbx:nAt), oBrw:Seek( "" ), ;
                      oBrw:cFilterFld := oBrw:oCol( cHead ):cExpr, ;
                      oBrw:SetFocus() )

       @ nRow,250 GET oGet VAR cSeek SIZE 200,24 PIXEL OF oBrw

      return nil
        >


        return nil
//--------------------------------------------------------------------------------/

      Function SetIndex(oBrw,n)
         Do case
            Case n= 1
               SET ORDER TO TAG FIRST
            Case n= 2
                  SET ORDER TO TAG LAST
            Case n= 3
                  SET ORDER TO TAG STREET
            Case n= 4
                  SET ORDER TO TAG CITY
            Case n= 5
                  SET ORDER TO TAG STATE
               Endcase

        oBrw:refresh()
     return nil