topic-26622

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Nuevo registro (alta) en TsBrowse
Posted: Sat Jun 22, 2013 08: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

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Nuevo registro (alta) en TsBrowse
Posted: Mon Jun 24, 2013 02:34 AM

Prueba reteniendo el registro creado en la dbf y luego refresca el browse

Code (fw): Select all Collapse

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

Espero te pueda servir

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Nuevo registro (alta) en TsBrowse
Posted: Tue Jun 25, 2013 11:14 PM

Hola

Puedes probar de esta manera

Code (fw): Select all Collapse

    
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

devtuxtla

Posts: 392

Joined: Tue Jul 29, 2008 01:55 PM

Re: Nuevo registro (alta) en TsBrowse
Posted: 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.

FiveTech Support Forums

Continue the discussion