Pessoal , é o seguinte.
Estou querendo montar uma pesquisa que conforme vai digitando vai fazendo a busca. No clipper tradicional faco isso tranquilo, mas no FIVEWIN encontrei dificuldade.
Abaixo esta um modelo de como estou montando a pesquisa, o que nao estou entendendo é pq minha pesquisa so comeca a fazer a Busca apartir da 2º letra.
O que estou fazendo de errado....OBRIGADO POR QUALQUER AJUDA
OBS..: Estou aprendendo, portanto nao manjo muito
#include "FiveWin.ch"
#include "INKEY.ch"
/************************************/
FUNCTION TESTE()
LOCAL ODLG , OLBX , CBUSCA , OGET
DEFAULT cBusca := space(50)
REQUEST DBFCDX
RddSetDefault("DBFCDX")
SELECT("MOE")
MOE->(DBSETORDER(2)) //=> ordem de nome
MOE->(DBGOTOP())
DEFINE DIALOG oDlg TITLE "Buscar" FROM 01,01 TO 30,50
@ 00,01 SAY "Nome:" OF oDlg
@ 01,01 GET oGet VAR cBusca PICTURE "@!" OF oDlg ;
ON CHANGE( oLbx:Refresh(), Buscar( nKey, oGet ) )
@ 02,01 LISTBOX oLbx FIELDS moe->NOME HEADERS "Nome" SIZE 180,180 OF oDlg
ACTIVATE DIALOG oDlg
RETURN
/************************************/
FUNCTION BUSCAR(NKEY,OGET)
local cFras
IF (NKEY >= 032 .OR. NKEY <= 126)
CFRAS := UPPER(ALLTRIM(OGET:CTITLE))
SEEK CFRAS
ELSEIF NKEY == 08
CFRAS := SUBSTR( CFRAS, 01, LEN(CFRAS)-1)
SEEK CFRAS
ENDIF
RETURN NIL