Page 1 of 1

Refresh xBrowse

Posted: Mon Jun 02, 2008 6:51 pm
by kbelo
Ola.
Como faço para fazer um refresh na xbrowse apos adiciona um item tanto com vetores ou matrizes(array) quando com arquivos(dbf)?

Posted: Mon Jun 02, 2008 7:58 pm
by Manuel Aranda
Por ejemplo:

REDEFINE BUTTONBMP oBtn[1] ID 104 OF oDlg;
ACTION (AltaRegistro(),oBrw:Refresh(),oBrw:SetFocus() );
BITMAP "NUEVO" PROMPT " Nuevo" TEXTRIGHT

Posted: Mon Jun 02, 2008 8:01 pm
by kbelo
Amigo isso não funciona.
O refresh é o basico e com certeza isso ja tentei.

Posted: Tue Jun 03, 2008 12:30 am
by quique
No entiendo el portugues, pero si lo que quieres es posicionarte en el último registro puedes hacer un oBrw:gobottom() o eval( ::bBookMark, nRecNo ), donde nRecNo sería el número de registro o elemento de la matriz

Posted: Tue Jun 03, 2008 1:43 am
by Ricardo Ramirez E.
Quique :
Ola.
Como faço para fazer um refresh na xbrowse apos adiciona um item tanto com vetores ou matrizes(array) quando com arquivos(dbf)?
SET PORTUGUÊS ON :)
Hola.
Como hago para hacer un refresh en un xbrowse, despues de añadir un item, tanto en vectores como en archivos DBF.
Amigo isso não funciona.
O refresh é o basico e com certeza isso ja tentei.
SET PORTUGUÊS ON :)
Amigo eso no funciona.
El refresh es basico y eso ya probé :)


Saludos.!

Posted: Tue Jun 03, 2008 2:35 am
by cmsoft
Para un agregado alcanza con esto:

Code: Select all

IF (base)->(DBAPPEND())
   REPLACE ......
ENDIF
oBrw:SetFocus()
oBrw:UpStable()
oBrw:Refresh()
Y para una eliminacion con esto

Code: Select all

IF (base)->(RLOCK())
   (base)->(DBDELETE())
   (base)->(DBUNLOCK())
   (base)->(DBSKIP(1))
   oBrw:SetFocus()
   IF (base)->(EOF())
      oBrw:GoUp()
   ENDIF
ENDIF
oBrw:UpStable()
oBrw:Refresh()
Espero te sirva

Posted: Tue Jun 03, 2008 2:56 am
by quique
Ricardo:

Gracias por el SET PORTUGUES :)
Entonces cualquiera de las dos opciones que le dí debería funcionar (el oBrw:goBottom() depende del índice)

Corrijo la seguna opción
eval( oBrw:bBookMark, nRecNo )
oBrw:refresh()

cmsoft:

xBrowse aún no tiene implementado el upstable

Posted: Tue Jun 03, 2008 11:23 am
by zazibr
opa


pra atualizar txbrowse usando array apos adicionar ou excluir


oBrw:aArrayData := aSuaArray