Nuevo registro (alta) en TsBrowse

Nuevo registro (alta) en TsBrowse

Postby noe aburto » Sat Jun 22, 2013 8:26 pm

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:
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: Nuevo registro (alta) en TsBrowse

Postby cmsoft » Mon Jun 24, 2013 2:34 am

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
User avatar
cmsoft
 
Posts: 1189
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Nuevo registro (alta) en TsBrowse

Postby Patricio Avalos Aguirre » Tue Jun 25, 2013 11:14 pm

Hola

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

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
User avatar
Patricio Avalos Aguirre
 
Posts: 1059
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Re: Nuevo registro (alta) en TsBrowse

Postby devtuxtla » Thu Jun 27, 2013 12:52 pm

Hola Noe

Al momento de definir el browse adiciona esta instruccion:

oBrw::lInitGoTop:=.F.

Espero te sirva.

Saludos
Visite Chiapas, el paraiso de México.
devtuxtla
 
Posts: 392
Joined: Tue Jul 29, 2008 1:55 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 75 guests