13 Abr 2020 21:04
13 Abr 2020 21:21
Itamar M. Lins Jr. escreveu:Isso é um problema da rede mapeada, usando servidores de DBF, NetIO, LetoDbf, ADS, isso não "ecziste"
Como eu disse, normalmente eu não edito no browse. Mas existe essa possibilidade.
13 Abr 2020 21:48
13 Abr 2020 22:03
13 Abr 2020 22:30
11 Jul 2020 22:37
set filter to cPrd$produto
12 Jul 2020 02:31
cjp escreveu:Gostaria de saber se existe alguma forma de filtrar um campo no Tbrowse com ADO.
12 Jul 2020 18:17
prd=space(15)
@ maxrow()-1,1 say "Produto:"get prd pict "@!"
read
oRs:Filter="upper(produto) like '%"+alltrim(prd)+"%'"
12 Jul 2020 19:55
cjp escreveu:Tem algo errado?
oRs:Filter = "produto like '%" + alltrim( prd ) + "%'"
12 Jul 2020 22:35
DO WHILE .T.
oTBrowse:forceStable()
oTBrowse:refreshCurrent()
nKey := Inkey(0)
if upper(chr(nkey)) =="P" .and. procname(1)="BROWSECOMPRAS"
prd=space(15)
@ maxrow()-1,1 say "Produto:"get prd pict "@!"
read
oRs:Filter="produto like '%"+alltrim(prd)+"%'"
elseif nkey == 27
cSair="S"
exit
endif
IF oTBrowse:applyKey( nKey ) == TBR_EXIT
cSair="S"
EXIT
ENDIF
ENDDO
03 Set 2020 11:04
04 Set 2020 01:06
04 Set 2020 02:19
04 Set 2020 10:45
04 Set 2020 10:59
@ x,y SAY "tITULO" GET cVariavel
@ x+1,y SAY "TITULO 2" GET cVariavel2 VALID FUNCAODEPESQUISA()
SET CURSOR ON
READ
SET CURSOR OFF
inicio da função de pesquisa
LOCAL nCursor := SetCursor(0) // Desativa o cursor e envia o estado anterior para nCursor
aqui suas rotinas
antes de retornar faça :
SetCursor( nCursor ) // Isso garante a volta ao estado anterior
RETURN