Page 1 of 1

Nuevo registro (alta) en TsBrowse

PostPosted: Sat Jun 22, 2013 8:26 pm
by noe aburto
Saludos

Tengo mis aplicaciones donde uso el tsbrowse 9.0 y mi unico problema con esta clase del Mr. Mercado es en la alta de registros.
Que hago:
1 Creo mi tsbrowse y visualizo mis dbfs
2.Con una funcion de alta de registros propia, hago en mi funcion lo comun:
a) pido mis nuevos datos con get
b) al aceptar los datos, hago el append blank
c) realizo el replace
d) desbloqueo y hago el commit
mi problema es: Como hago para que mi sbrowse me refresque mi oBrw justo en mi nuevo registro segun el orden del cdx usado, he intentdo varias formas sin exito alguno, como lo siguiente:

oBROWSE:nLen:=OrdKeyCount()
oBROWSE:nRowPos:=OrdKeyNo()
oBROWSE:GoPos(recno())
oBROWSE:DrawSelect()
oBROWSE:UpStable()
oBROWSE:Refresh(.t.)

y al hacer el refresh() no me posiciona mi sbrowse en el nuevo registro que añadi a mi dbf.
Alguna sugerencia:

Re: Nuevo registro (alta) en TsBrowse

PostPosted: Mon Jun 24, 2013 2:34 am
by cmsoft
Prueba reteniendo el registro creado en la dbf y luego refresca el browse
Code: Select all  Expand view

mitabla->(DBAppend())
nRecno := mitabla->(Recno())
REPLACE ....
mitabla->(DBUnlock())
mitabla->(DBCommit())
oBrowse:UpStable()
mitabla->(DBGoto(nRecno())
oBrowse:Refresh()

Espero te pueda servir

Re: Nuevo registro (alta) en TsBrowse

PostPosted: Tue Jun 25, 2013 11:14 pm
by Patricio Avalos Aguirre
Hola

Puedes probar de esta manera
Code: Select all  Expand view
   
oLbx:Reset():Default():GoBottom():Refresh()
 

Re: Nuevo registro (alta) en TsBrowse

PostPosted: Thu Jun 27, 2013 12:52 pm
by devtuxtla
Hola Noe

Al momento de definir el browse adiciona esta instruccion:

oBrw::lInitGoTop:=.F.

Espero te sirva.

Saludos