ubicarse posicion registro determinado xbrowse - SOLUCIONADO

[leandro]

Amigos del foro tengan buen día....

Como dice el encabezado necesito ubicarme en una fila especifica del xbrowse..despues de actualizar un recorset por ejemplo

Code: Select all  Expand view  RUN

Registro:=oLamcla:oRsBodega:AbsolutePosition()
Consec:=oLamcla:oRsBodega:Fields( "oo_itemci" ):Value

IF valtype(xVal)="C"
  vOpc := val(subs(xVal,1,1))
ELSEIF valtype(xVal)="N"
  vOpc := xVal
ENDIF

vConsCB:="UPDATE "+oLamcla:tCier+" SET oo_cierr='"+if(xVal=1,"OK","HA")+"',usuari='"+uCou+"',ufecha='"+uFe2+"',uhoras='"+uTim+"' WHERE oo_itemci="+alltrim(str(Consec))
msginfo(vConsCB)
MSGINFO(registro)
/*
TRY
  oLamcla:oServer:Execute(vConsCB)
CATCH oError
  MsgInfo(oLamcla:mRegi,oLamcla:mDato)
END*/

oLamcla:oRsBodega:Requery()
oLamcla:oBrwBode:Refresh()
 

Con esta función yo le digo al xbrowse que vaya al tope
xbrow:GoTop()

Con esta que vaya al final
xbrow:GoBottom()

Con cual función le digo que vaya a un registro especifico?

Espero haberme hecho entender..

[acuellar]

Leandro

oBrw:Gotop()
oBrw:Skip(nFila)

Saludos,

Adhemar

[leandro]

Amigo acuellar, primero que todo gracias por responder..

Intente de la manera que tu me indicas pero no me funciona correctamente...

Buscando en la clase del xbrowse encontré esta función

Code: Select all  Expand view  RUN

oBrw:setpos()
 

Pero tampoco funciona.... He intentando volver al registro que actualizo después de hacer el requery()..Pero nada
Alguien tiene otra idea..

de antemano gracias.

[sysctrl2]

oBrw:nColSel := 2
oBrw:nRowSel := nRen

saludos..

[horacio]

Esto funciona para mi, oBrw : nArrayAt := nRecno. Espero te sirva

Saludos

[postinelli]

IF MsgGet( "Mover","Nº Registro: ",@cMoveIt )
IF cMoveIt>0
Goto cMoveIt
ENDIF
ENDIF

[leandro]

Buenos días para todos y muchas gracias por responder...

Finalmente encontré la solución a mi problema, y el problema no era que tenia
que retornar la posición en el xbrowse si no en el recorset para luego si actualizar el
xbrowse...

el código me quedo de la siguiente manera:

grabo en numero del registro recorset

Code: Select all  Expand view  RUN

Registro:=oLamcla:oRsBodega:AbsolutePosition()
 

Luego me posiciono en el registro recorset y actualizo el xbrowse.

Code: Select all  Expand view  RUN

oLamcla:oRsBodega:Requery()
oLamcla:oRsBodega:Move(Registro-1)
oLamcla:oBrwBode:Refresh()
oLamcla:oBrwBode:setfocus()
 

Gracias a todos por la ayuda