Func Alter_pre()
Local aPro := {}
Prosismk->( dbEval( { || AADD( aPro, TRIM( Prosismk->nome_pro ) ) } ) )
ASORT( aPro )
dbselectarea('prosismk')
ordsetfocus('nome_pro')
prosismk->(dbgotop())
DEFINE WINDOW FORM_PRE ;
AT 0,0 ;
WIDTH 820 ;
HEIGHT 610 ;
TITLE 'Cadastro de Produtos' ;
MODAL;
NOSIZE
*__________________
DEFINE BROWSE Browse_1
ROW 010
COL 010
WIDTH 800
HEIGHT 490
FONTNAME "Tahoma"
FONTSIZE 10
HEADERS { 'Produto' , 'Código barras' , 'Preço de venda 1'}
WIDTHS { 500 , 140 , 140 }
WORKAREA prosismk
FIELDS { 'prosismk->nome_pro' , 'prosismk->cbar_pro' , 'prosismk->pve1_pro' }
VALUE 1
LOCK .T.
INPLACEEDIT .T.
ALLOWEDIT .T.
ALLOWAPPEND .F.
ALLOWDELETE .T.
READONLY { .F. , .T. , .F. }
END BROWSE
*__________________
*__________________
DEFINE LABEL lbl_nome_pro
ROW 530
COL 010
AUTOSIZE .T.
HEIGHT 020
VALUE "Digite sua pesquisa"
FONTNAME "Tahoma"
FONTSIZE 10
END LABEL
DEFINE COMBOSEARCHBOX oGet_nome_pro
ROW 530
COL 150
WIDTH 300
ITEMS aPro
UPPERCASE .T.
ON ENTER PESQ_PRO2(form_pre.oGet_nome_pro.value)
END COMBOSEARCHBOX
*__________________
END WINDOW
CENTER WINDOW FORM_PRE
ACTIVATE WINDOW FORM_PRE
RETURN(nil)
#include "combosearchbox.prg"
*_______________________________________________________________________________
Func pesq_pro2(par1)
cPesq := alltrim(par1)
dbselectarea('prosismk')
ordsetfocus('nome_pro')
prosismk->(dbgotop())
prosismk->(dbseek(cPesq))
if found()
Form_pre.Browse_1.value := recno()
Form_pre.Browse_1.Refresh
endi
return(nil)
*_______________________________________________________________________________
Esta é uma simples rotina de busca num browse, código limpo, simples de se fazer, no entanto, quando tento processar o evento ON ENTER por exemplo, as coisas não saem como o esperado, eu gostaria de neste caso digitar o texto no combosearchbox e ele fosse me mostrando os registros que correspondem a a quele texto, até ai tudo bem, ele faz isto com nobreza, aparecem os registros abaixo do combosearchbox e inclusive me mostra o primeiro registro com a cor azul, ai é que vem o problema, gostaria que quando o texto que eu digitasse e aparecendo o que eu procuro eu clicasse enter e ele fosse para o browse no registro correspondente, mas isto nao ocorre, so vai ocorrer se eu posicionar o cursor no final do combosearchbox e clicar enter. em tempo, uso a minigui extended, ultima versao.