IF obrw2:nColAct == 1
uProduto := ar_prnow2[obrw2][1]
uQuantidade := ar_prnow2[obrw2][10]
bGet := {|| uProduto:= ar_prnow2[obrw2], ;
obrw2:lEditCol( 1, @uProduto,"@!",, CLR_RED, CLR_YELLOW), ;
obrw2:Refresh() }
Eval( bGet )
if substr(uproduto,1,1) = '*'
tbceca2(14,2)
endif
id=code>id=code>tem como no get acima mencionado colocar a tecla f2 para consulta.. e uma lupa no get...
agradeço a dica
mais é listbox nativo
fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles
programadorcp80@hotmail.com.br ;