Page 1 of 1

busqueda incremental y scope

Posted: Mon Oct 15, 2007 12:54 am
by 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

Posted: Mon Oct 15, 2007 6:14 am
by Antonio Linares
Miguel,

Revisa este ejemplo:

Code: Select all

#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 

Posted: Mon Oct 15, 2007 9:54 pm
by Miguel Salas
marca tget bPostkey message not found[/img]

Posted: Mon Oct 15, 2007 11:24 pm
by 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 ?