Browse - Como filtrar registros

[wtfw]

Pessoal, preciso carregar uma browse só com alguns registros da tabela. Fiz como abaixo, mas ele carrega todos os registros, não obedecendo o Set Filter. Alguém pode me dar um help?

FUNCTION I30BuscaSi()

LOCAL oDlg, oBrw

DEFINE DIALOG oDlg resource "procura"

ODLG:LHELPICON := .F.

oDlg:SetColor("n*/w+")

sele inf2

Set Filter TO inf2->inf2cp02="00" .and. ;

inf2->inf2cp03="00"

GO top

redefine COLUMN BROWSE oBrw OF oDlg ;

id 101 ;

ON DBLCLICK (I30Atuget(oDl30)

ADD COLUMN TO BROWSE oBrw ;

DATA Alltrim(inf2->inf2cp01) ;

SIZE 60 NOBAR ;

CENTER ;

HEADER "Sistema"

REDEFINE BUTTON ID 102 ACTION(I30Fecha(oDLg))

oBrw:Refresh()

ACTIVATE DIALOG oDlg

SELE Inf2

SET FILTER TO

RETURN (Nil)

Obrigado,

[wtfw]

Pessoal, preciso carregar uma browse só com alguns registros da tabela. Fiz como abaixo, mas ele carrega todos os registros, não obedecendo o Set Filter. Alguém pode me dar um help?

FUNCTION I30BuscaSi()

LOCAL oDlg, oBrw

DEFINE DIALOG oDlg resource "procura"

ODLG:LHELPICON := .F.

oDlg:SetColor("n*/w+")

sele inf2

Set Filter TO inf2->inf2cp02="00" .and. ;

inf2->inf2cp03="00"

GO top

redefine COLUMN BROWSE oBrw OF oDlg ;

id 101 ;

ON DBLCLICK (I30Atuget(oDl30)

ADD COLUMN TO BROWSE oBrw ;

DATA Alltrim(inf2->inf2cp01) ;

SIZE 60 NOBAR ;

CENTER ;

HEADER "Sistema"

REDEFINE BUTTON ID 102 ACTION(I30Fecha(oDLg))

oBrw:Refresh()

ACTIVATE DIALOG oDlg

SELE Inf2

SET FILTER TO

RETURN (Nil)

Obrigado,

[wtfw]

Pessoal, preciso carregar uma browse só com alguns registros da tabela. Fiz como abaixo, mas ele carrega todos os registros, não obedecendo o Set Filter. Alguém pode me dar um help?

FUNCTION I30BuscaSi()

LOCAL oDlg, oBrw

DEFINE DIALOG oDlg resource "procura"

ODLG:LHELPICON := .F.

oDlg:SetColor("n*/w+")

sele inf2

Set Filter TO inf2->inf2cp02="00" .and. ;

inf2->inf2cp03="00"

GO top

redefine COLUMN BROWSE oBrw OF oDlg ;

id 101 ;

ON DBLCLICK (I30Atuget(oDl30)

ADD COLUMN TO BROWSE oBrw ;

DATA Alltrim(inf2->inf2cp01) ;

SIZE 60 NOBAR ;

CENTER ;

HEADER "Sistema"

REDEFINE BUTTON ID 102 ACTION(I30Fecha(oDLg))

oBrw:Refresh()

ACTIVATE DIALOG oDlg

SELE Inf2

SET FILTER TO

RETURN (Nil)

Obrigado,

[pauloaraujo]

Wilson, isso é covardia, não uso WS e nem o BROWSE (HAHAHAHAHA)

Tente colocar esse pedaço antes do DEFINE DIALOG:

sele inf2

Set Filter TO inf2->inf2cp02="00" .and. ;

inf2->inf2cp03="00"

GO top

Um abraço

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar é um prazer, agradecer é uma obrigação

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005

Inscreva-se: http://www.installsis.com.br/encontro

[kapiaba]

VEJA O COMANDO ORDSCOPE() DO CLIPPER 5.3B COM ELE, VOCE PODERÃ FILTRAR O QUE QUISER, COM UMA VELOCIDADE MAIOR DO QUE A DO SEEK().

PROCURE NA PAGINA PRINCIPAL, POR ORDSCOPE.

TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

[aferra]

sele inf2

inf2->(ordScope(0,inf2->inf2cp02+inf2->inf2cp03=="0000"))

inf2->(ordScope(1,inf2->inf2cp02+inf2->inf2cp03=="0000"))

inf2->(dbGoTop())

redefine COLUMN BROWSE oBrw OF oDlg ;

id 101 ;

ON DBLCLICK (I30Atuget(oDl30)

ADD COLUMN TO BROWSE oBrw ;

DATA Alltrim(inf2->inf2cp01) ;

SIZE 60 NOBAR ;

CENTER ;

HEADER "Sistema"

REDEFINE BUTTON ID 102 ACTION(I30Fecha(oDLg))

oBrw:Refresh()

ACTIVATE DIALOG oDlg

SELE Inf2

inf2->(ordScope(0,))

inf2->(ordScope(1,))

Abraços

Alessandro F. Silva - Ribeirão Preto/SP

aferracini@terra.com.br

FW2.0d + CL53b

MSN: ferracini_silva@hotmail.com

[wtfw]

citação:

Wilson, isso é covardia, não uso WS e nem o BROWSE (HAHAHAHAHA)

---

id=quote>id=quote>

Isso é para você ver como estou apanhando...... (rs), nunca sei o que é melhor para usar.....

Não para te fazer aquela visita essa semana, mas na próxima, se você puder, eu vou. Ok?

Abraços,

Wilson