busqueda incremental y scope

[Miguel Salas]

Que tal a Todos:

Necesito lo siguente: En el campo "cuenta" del catalogo tengo 999-99-99-99-999-9999, quiero que cada vez que complete un nivel haga un scope en la tabla CatCtas para mostrar en un listbox solo las cuentas que van quedando disponibles .

Se me ocurre que puede ser con un treeview solo que nunca los he utilizado.

Otra forma que me ayudaría es ¿como lanzar un evento por cada vez que se complete un nivel y refrescar cada oSay de cada nivel?

de antemano gracias por la ayuda que pueda surgir.

Atte MSalas

[Antonio Linares]

Miguel,

Revisa este ejemplo:

Code: Select all  Expand view

#include "FiveWin.ch"

REQUEST DBFCDX

* Incremental Search with a get object Example

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

FUNCTION Main()

LOCAL oWnd, oBrw
LOCAL cSearch, oSearch

USE Customer VIA "DBFCDX"
INDEX ON Customer->Last TO LAST 
OrdSetFocus( "LAST" )
DbGoTop()

cSearch := SPACE(LEN(Customer->Last))

DEFINE WINDOW oWnd TITLE "IncSearch"                ;
       FROM 1,100 TO 212,408 PIXEL NOMAXIMIZE
   
@  4,3 GET oSearch VAR cSearch OF oWnd              ;
       PIXEL size 145,17                            ;
       PICTURE "@!"                                 

@ 30,1 LISTBOX oBrw                                 ;
       FIELDS Customer->Last, Customer->First       ;
       HEADERS "Last","First"                       ;
       SIZE 300, 155 PIXEL

* This is the main trick.
oSearch:bPostKey = { || Search(oSearch:oGet:buffer),;
                        oBrw:Refresh() }
   
ACTIVATE WINDOW oWnd ON INIT WndCenter(oWnd:hWnd)
   
RETURN nil

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

FUNCTION Search(cSearch )

DbSeek( cSearch, .t. )

RETURN nil


[Miguel Salas]

marca tget bPostkey message not found[/img]

[Antonio Linares]

Miguel,

Necesitas usar una versión más reciente de la clase TGet de FWH

Que versión de FWH estás usando ?