FiveTech Support Forums

Amigos,

Tenho este browse e gostaria de clicar em um botao e recarregar o browse com a nova QUERY, como posso fazer isso?

cQuery := "SELECT codigo,descricao FROM produtos order by codigo"
oServerQry := oServer:Query( cQuery )

redefine xbrowse oBrw fields trans(oServerQry:codigo,'999999'),;
oServerQry:descricao,;
headers 'Código',;
'Descrição';
colsizes 50,300 lines ID 101 OF oDlg

redefine button id 102 of odlg action(ALTERARQUERY(obrw,oServer,oServerQry ) )

oBrw:SetDolphin(oServerQry, .f.)
oDlg:oClient := oBrw
...

/************************************/
FUNCTION ALTERARQUERY(obrw,oServer,oServerQry )
/*
*/
cQuery := "SELECT codigo,descricao FROM produtos order by descricao" ///<-ALTERAR QUERY
oServerQry := oServer:Query( cQuery )
obrw:refresh()
return(.t.)

Hola,

pregunto, y por que no lo ordenas por el xbrowse por la columna "descripcion" ?, de esa forma no tenes que cargar de nuevo el query si ya lo tenes.

Saludos, ariel

Hola.
Con TMySql lo hago asi, te puede servir de guía.

REDEFINE BTNBMP oDoc1 ID 221 OF oDlg RESOURCE "cdiario" LEFT 2007 ACTION ( oTbTemp:End(), oTbTemp := oServer:Query("SELECT * FROM comprobd ORDER BY numdoc ;"), oLbx:SetMySql(oTbTemp,.f.), oTbTemp:Gotop(), oTbTemp:Refresh(), oLbx:Refresh(), cDocum := 'CD', oDocu:Refresh() )

Saludos.

Hola

/*****/
FUNCTION ALTERARQUERY(obrw,oServer,oServerQry )
/
*/
cQuery := "SELECT codigo,descricao FROM produtos order by descricao" ///<-ALTERAR QUERY
oServerQry := oServer:Query( cQuery )
oBrw:SetDolphin(oServerQry, .f.)
obrw:refresh()
return(.t.)