hbrowse

[clebervn]

Meu trecho de programa :

@ 0, 0 BROWSE oBrowse1 DATABASE SIZE nTamTela,220 STYLE WS_VSCROLL ;
FONT oFontNorm ;
FIRST {|| DBGOTOP() } ;
WHILE {|| &vNomeBase->TIPO == " " } ;
ON KEYDOWN {|o,key| BrowseKey(o, key) } ;
ON CLICK {|o,key| BrowseKey()} ;
ON POSCHANGE {|| SetFocus(oBrowse1:handle ) }

Da o seguinte erro qdo me desloco com cursor para o próximo registro :

Error BASE/1004 Class: 'NIL' has no exported method: NFIRSTRECORDFILTER
Called from ->NFIRSTRECORDFILTER(0)
Called from hbrowse.prg->FLTGOTOP(2143)
Called from hbrowse.prg->(b)HBROWSE:INITBRW(618)
Called from hbrowse.prg->VSCROLLPOS(2018)
Called from hbrowse.prg->HBROWSE:LINEDOWN(1353)
Called from hbrowse.prg->HBROWSE:ONEVENT(354)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(156)
Called from RHCADTAB.PRG->RHCADTAB(55)
Called from RH.PRG->(b)MENUCAD00(1242)
Called from hdialog.prg->DLGCOMMAND(341)
Called from hdialog.prg->(b)(_INITSTATICS00003)(0)
Called from hdialog.prg->HDIALOG:ONEVENT(192)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(156)
Called from RH.PRG->MENUCAD00(1262)
Called from RH.PRG->(b)MAIN(222)
Called from hdialog.prg->DLGCOMMAND(341)
Called from hdialog.prg->(b)(_INITSTATICS00003)(0)
Called from hdialog.prg->HDIALOG:ONEVENT(192)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(156)
Called from RH.PRG->MAIN(240)

HwGUI 2.16 xHarbour build 1.0.0 Intl. (SimpLex)
Date:09/01/09
Time:17:18:47

[Itamar M. Lins Jr.]

Ola!
Me parece que em "first" é o filtro. Tipo OrdScope. E deve retonar .f. ou .t.
Exemplo First {||field->nome == "MARIA"}

Saudações,
Itamar M. Lins Jr.

[clebervn]

o FIRST é o posicionamento no primeiro registro do GRID, é o q entendo, embora já o tenha feito do jeito q vc falou e deu na mesma.

obg.....mais alguém pode dar um help ?!

[Itamar M. Lins Jr.]

o FIRST é o posicionamento no primeiro registro do GRID, é o q entendo, embora já o tenha feito do jeito q vc falou e deu na mesma.

Correto, entretanto deve retornar .t. ou .f.

Eu expliquei certo e exemplifiquei errado.
É para usar first {|| Dbseek('XXX')} //Vai retornar .t. ou .f.

Saudações,
Itamar M. Lins Jr.

[clebervn]

troquei tudo isso utilizando o ORDSCOPE()....o q substitui tb o SET FILTER.....

a única coisa q me da problema agora é q qdo entro num gride altero uma coisa, ele se perde no grid, isso acontece somente no XP

[clebervn]

explicando melhor.... no meu caso eu iniciei assim

&vNomeBase->(ORDSCOPE(0," "))
&vNomeBase->(ORDSCOPE(1," "))


ai qdo da enter, mudo a filtragem :

&vNomeBase->(ORDSCOPE(0,"A"+cCodigo))
&vNomeBase->(ORDSCOPE(1,"A"+cCodigo))

ai dou esc e retorno pra primeira....