FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour ubicarse posicion registro determinado xbrowse - SOLUCIONADO
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM

ubicarse posicion registro determinado xbrowse - SOLUCIONADO

Posted: Wed Nov 13, 2013 05:46 PM
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 (fw): Select all Collapse
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: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..
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM

Re: ubicarse posicion registro determinado xbrowse

Posted: Wed Nov 13, 2013 10:21 PM

Leandro

oBrw:Gotop()
oBrw:Skip(nFila)

Saludos,

Adhemar

Saludos,



Adhemar C.
leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM

Re: ubicarse posicion registro determinado xbrowse

Posted: Sat Nov 16, 2013 11:34 PM
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 (fw): Select all Collapse
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.
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM

Re: ubicarse posicion registro determinado xbrowse

Posted: Sun Nov 17, 2013 12:35 AM

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

saludos..

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: ubicarse posicion registro determinado xbrowse

Posted: Sun Nov 17, 2013 04:23 PM

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

Saludos

postinelli
Posts: 150
Joined: Tue Jul 15, 2008 07:12 PM

Re: ubicarse posicion registro determinado xbrowse

Posted: Mon Nov 18, 2013 01:53 PM

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

leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM

Re: ubicarse posicion registro determinado xbrowse

Posted: Tue Dec 03, 2013 01:51 PM
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 (fw): Select all Collapse
Registro:=oLamcla:oRsBodega:AbsolutePosition()


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

Code (fw): Select all Collapse
oLamcla:oRsBodega:Requery()
oLamcla:oRsBodega:Move(Registro-1)
oLamcla:oBrwBode:Refresh()
oLamcla:oBrwBode:setfocus()


Gracias a todos por la ayuda
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions