@ 440,125 textbox txt_pesquisa;
width 495;
tooltip 'Digite o começo do nome que deseja encontrar';
size 10;
fontcolor BLACK;
maxlength 40;
uppercase;
on change {|| Pesq_Cli()}
@ 070,010 grid grid_cli;
of form_cli;
width 770;
height 348;
HEADERS {'Razão Social','Nome Fantasia','Telefone','Fax','C.N.P.J.','C.N.P.F','|'} ;
WIDTHS {300,140,140,100,100,100,0};
backcolor _AMARELO ;
on dblclick Altera_Cliente()
*________________________________________________________________________________________________
function Pesq_Cli()
local cPesq := upper(alltrim(form_cli.txt_pesquisa.value))
local nTamanhoNomeParaPesquisa := len(cPesq)
local nQuantRegistrosProcessados := 0
dbselectarea('clinomad')
ordsetfocus('NOME_CLI')
dbseek(cPesq)
if lGridFreeze
form_cli.grid_cli.disableupdate
endif
delete item all from grid_cli of form_cli
while .not. eof()
if substr(field->NOME_CLI,1,nTamanhoNomeParaPesquisa) == cPesq
nQuantRegistrosProcessados += 1
add item {clinomad->nome_cli,clinomad->fant_cli,clinomad->tele_cli,clinomad->faxx_cli,clinomad->cnpj_cli,clinomad->cnpf_cli,clinomad->flag_cli} to grid_cli of form_cli
elseif substr(field->NOME_CLI,1,nTamanhoNomeParaPesquisa) > cPesq
exit
endif
dbskip()
end
if lGridFreeze
form_cli.grid_cli.enableupdate
endif
return(nil)
*________________________________________________________________________________________________
Obrigado a todos do forum, comecei a migrar meus sistemas de clipper 5.2 para Harbour Minigui e estou gostando muito do resultado. Tenho apanhado muito mas a coisa ta indo pra frente
Nota de Moderação:
