FiveTech Software tech support forums

...   if nKey == 32 .and. ::nMarqueeStyle <= MARQSTYLE_HIGHLROWRC .and. ;                     oCol:hChecked .and. oCol:lEditable .and. Empty( ::cSeek )            oCol:CheckToggle()         elseif nKey == 32 .and. !::lFastEdit .and. ::oMultiSelCol != nil .and. Empty( ::cSeek ...

... las busquedas por 2 o mas campos asi: cQuery := "SELECT * from "+cTabla+" WHERE CONCAT (descripcion, codigo_fabrica)  LIKE '%"+cSeek+"%'  ORDER BY descripcion;" la variable cSeek es un input donde el usuario ingresa bien sea la descipcion o el codigo a buscar. creo ...

Saved me a few keystrokes
I normally would type as (oDbf:cAlias)->(dbSeek(cSeek, nil, .t.))

If you use database objects then you can just do:

oCustomer:goBottom()

Thanks Rao,
Saved me a few keystrokes
I normally would type as (oDbf:cAlias)->(dbSeek(cSeek, nil, .t.))

... MENU_PRODUCTO(cEmpresa,cUsuario) Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ] LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca:= Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50) cTab_Art:=xServer:Query("SELECT a.*, b.*, c.* FROM tab_art AS a LEFT JOIN tab_fam AS b ON ...

... MENU_PRODUCTO(cEmpresa,cUsuario) Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ] LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca:= Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50) cTab_Art:=xServer:Query("SELECT a.*, b.*, c.* FROM tab_art AS a LEFT JOIN tab_fam AS b ON ...

... or db) to do the grouping, maybe selecting it from a combobox "normal", "tree" and also make the search work with GET oGet VAR cSeek and COMBOBOX oBrw:oSortCbx example in customer.dbf field : state , city

... ITEMS { "Starting With", "Containing" } ; ON CHANGE ( oBrw:lSeekWild := ( nWild == 2 ), ; oBrw:Seek( If( oBrw:lSeekWild, oBrw:cSeek, "" ) ), ; oBrw:SetFocus() ) ; SIZE 70,400 PIXEL OF oDlg @ 11,160 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 200,10 PIXEL ; OF oDlg COLOR ...

Here is a sample for ordwildseek. It's new to me.... https://forums.fivetechsupport.com/viewtopic.php?f=3&t=39965 Mr. Venken OrdWildSeek( cSeek, ... ) is actually an (x)Harbour function in DBFNTX and DBFCDX RDDs, applicable for indexed DBFs. We can seek expressions like "*A?C" ...

... responds to the keys pressed by the user to perform the seek/filter according to the variable set as explained above. Sampe code to display cSeek:      @ nRow, 135 SAY oBrw:oSeek prompt oBrw:cSeek ;         SIZE 100,10 PIXEL UPDATE OF oDlg ;         COLOR CLR_RED,CLR_YELLOW  When the xbrowse ...

STATIC FUNCTION StripFunc( cSeek )

XBrowse automatically uses similar logic to indentify which INDEX/ORDER to be used for which column and stores the INDEXNAME in the data oCol:cSortOrder, while initially building the browse.
XBrowse uses this information to do AutoSort

... RESOURCE "MOD_REC"; ACTION Edit_UnMisura(oBrw,2,oDlg,oMisura) GROUP WHEN oMisura:OrdKeyCount() > 0 @ 10, 165 GET oGet VAR cSeek...... @ 110,10 XBROWSE oBrw SIZE -10,-10 PIXEL...... @ 10, 550 COMBOBOX oBrw:oSortCbx.... ACTIVATE DIALOG oDlg CENTER NOWAIT; VALID Chiudi_Dbf(oMisura) ...

I made the search on xbrowse with @ 10, 165 GET oGet VAR cSeek..... @ 10, 550 COMBOBOX oBrw:oSortCbx VAR oBrw:cSortOrder; SIZE 150,400 PIXEL OF oDlg HEIGHTGET 14.8 STYLE CBS_DROPDOWN I'd like add also the options "Starting With", "Containing" ...

I have this tget control When the cSeek is empty it must not show any button when the user insert any digit it must show the button and the bitmap How resolve it?  #include "FiveWin.ch" function Main()            local oDlg,oGet ...

... cRegistro,cEmpresa, cAvulso, cCodProDes, lConfirmado, nValor, dDataPagto,cNomeTrab,cNomeProv, cComp ) LOCAL aRet LOCAL nSele := Select() LOCAL cSeek, nOrdem //? cAvulso , cRegistro , cAvulso+cRegistro DEFAULT dDataPagto := "" // MsgStop( cComp ) IF Empty( cEmpresa ) nOrdem := 1 // ...