topic-14589

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Hubicarse en un registro de un listbox
Posted: Sat Feb 14, 2009 10:26 PM

Estimados

Como era para hubicarme dentro de un lugar determinado del listox luego de hacer un refresh()

oLbx:GoTop()
oLbx:Refresh()

gracias

david
argentina

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: Hubicarse en un registro de un listbox
Posted: Sat Feb 14, 2009 11:27 PM

Hola amigo...
Prueba lo siguiente:

oDbf:GoTo(nRegistro)
oLbx:Refresh()

Espero te sirva.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Hubicarse en un registro de un listbox
Posted: Sat Feb 14, 2009 11:35 PM

Saludos...

pueden intentar tambien con

oLbx:Select( nNro )
oLbx:refresh()

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: Hubicarse en un registro de un listbox
Posted: Wed Feb 25, 2009 10:44 PM

Estimados....

No funcionó....

Code (fw): Select all Collapse

...
.
.

  DBSELECTAREA( PRESUPU )
  @ 0.875,  1 LISTBOX oLbxPRESU ;
                     FIELDS Transform(&(PRESUPU)->SOL_NRO,'9999999999') ,;
                            Transform(&(PRESUPU)->PRE_NRO,'9999999999') ,;
                            &(PRESUPU)->NOMB ,;
                            StatusPresupuesto(&(PRESUPU)->CANCSPR) ,;
                            &(PERAUTO)->NOMBRE ,;
                            str(&(PRESUPU)->CANCSPR,2) ;
                     HEADERS 'Sol.Cotizacion' ,;
                             'Presupuesto',;
                             'Cliente',;
                             'Status' ,;
                             'Usuario Actual:' ,;
                             ' ' ;
                     SELECT 'USUACTU' FOR mRESP TO mRESP ;
                     on change ( If(&(PRESUPU)->PRE_NRO<>0,;
                                     (oBTN2:DISABLE(),oBTN5:ENABLE() ) ,;
                                     (oBTN2:ENABLE() ,oBTN5:DISABLE())) ,;
                                 oLbxPRESU:nClrPane:={||If(&(PRESUPU)->URGENCI==1,;
                                                                            CLR_HCYAN,;
                                                                                                                    CLR_HGRAY ) } ) ;
                     FIELDSIZES 70,70,180,250,180,40 ;
                       SIZE 290,145 ;
                         of oDlgCar

   oLbxPRESU:nLineStyle = 1

   oLbxPRESU:SetFilter( 'USUACTU' ,mRESP ,mRESP )
   oLbxPRESU:GoTop()
   oLbxPRESU:Refresh()
  
ACTIVATE DIALOG oDlgCar CENTERED  ;
                ON INIT (ActuaLista(oLbxPRESU,PRESUPU,&(PRESUPU)->(recno()),mRESP,oDlgCar),;
                         oLbxPRESU:SetFocus())

dbcloseall()

return .t.

Code (fw): Select all Collapse

FUNCTION ActuaLista(oLbx , base, nRecno , mRESP , oDlg)
LOCAL oTmr
          
DEFINE TIMER oTmr INTERVAL 10000 ;
             ACTION (oLbx:SetFilter( 'USUACTU' ,mRESP ,mRESP ) ,;
                     oLbx:GoTop() ,;
                     oLbx:Refresh(),;
                     select(nRecno) ) ;  //&(base)->(dbgoto(nRecno))) ;
                     of oDlg
ACTIVATE TIMER oTmr  

RETURN nil

Ramon Paredes

Posts: 215

Joined: Fri Feb 02, 2007 03:38 PM

Re: Hubicarse en un registro de un listbox
Posted: Thu Feb 26, 2009 09:00 PM

Amigo prueba lo siguiente :

DEFINE TIMER oTmr INTERVAL 10000 ;
ACTION (oLbx:SetFilter( 'USUACTU' ,mRESP ,mRESP ) ,;
oLbx:GoTop() ,;
oLbx:Refresh(),;
go nRecno // select(nRecno) ) ; //&(base)->(dbgoto(nRecno))) ; //
oLbx:Upstable
oLbx:Refresh() of oDlg
ACTIVATE TIMER oTmr

RETURN nil

ojala y te funciones

... Desde la Tierra de lagos y Volcanes......

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: Hubicarse en un registro de un listbox
Posted: Fri Feb 27, 2009 07:44 AM

Muchas gracias

lo implemento y te aviso

david

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: Hubicarse en un registro de un listbox
Posted: Fri Feb 27, 2009 09:54 AM