Ubicarse en un Listbox

[dobfivewin]

Estimados

Como puedo hacer para ubicarse en una posición debtro de un ListBox de una base de dato.

Con: (PRESMOV)->( dbgoto(mPOSI) ) me ubico den el Archivo, pero en el ListBox no se actualiza.

La idea en modificar manualmente por el usuario items de la base de dato, para que los ordene como el quiera, lo hace bien pero al volver al Listbox quiero que quede en el registro que esta movimiento y NO lo hace.

aca les dejo parte del programa

muchas gracias

david
argentina

Code: Select all  Expand view

  @  13, 190 BTNBMP oICOMOVI Of  oFol:aDialogs[3] ;
                    FILE alltrim((SEMIPRSE)->UBI_BMP)+'ARRI.BMP' SIZE 10,10 ;
                    When BAJA=' ' .and. mCANCSPR<11 ;
                                ACTION( mPOSI:=OrdeLiqui( 1 , 1 , (PRESMOV)->CODCLAV , 2 , (PRESMOV)->(recno()) ) ,;
                            (PRESMOV)->( dbgoto(mPOSI) ) ,;
                            oLbxLista:Refresh() )

   @  26, 190 BTNBMP oICOMOVI Of  oFol:aDialogs[3] ;
                    FILE alltrim((SEMIPRSE)->UBI_BMP)+'ABAJ.BMP' SIZE 10,10 ;
                    When BAJA=' ' .and. mCANCSPR<11 ;
                                ACTION( mPOSI:=OrdeLiqui( 1 , 1 , (PRESMOV)->CODCLAV , 1 , (PRESMOV)->(recno()) ) ,;
                            (PRESMOV)->( dbgoto(mPOSI) ) ,;
                            oLbxLista:Refresh() )

[FranciscoA]

Si mostraras codigo de OrdeLiqui() revisaríamos por qué no lo hace. Sin embargo las instrucciones mPOSI:=(PRESMOV)->(Recno()) ; (PRESMOV)->(Dbgoto(mPOSI) ) ; oLbxLista:Refresh()
deberían funcionarte sin problemas.
Si utilizas la TWindow podrías utilizar, además, oLbxLista:UpStable()

Saludos

[dobfivewin]

aca está

Code: Select all  Expand view

*----------------------------------------------------------------- ORDENADOR DE MOVIMIENTOS
Function OrdeLiqui( mTIPOBASE , TP , mCODCLAV , Sum1Res2 , mPOSI )

* mTIPOBASE  Base de dato a Ordenar
* TP =  1    1=Suma o Resta Movimiento / -1= Ordenar colocando Numero Ordenador Correlativo
* mCODCLAV
* mSUM1RES2  1= Suma / 2=Resta
* mPOSI      Posicion (recnoc()) dentro del archivo

local NroOrdenador:=1
local mBASE

If     mTIPOBASE == 1                                                       // Movimientos PRESUPUESTO
  mBASE:=CDX_Abrir('PRESMOV',0,1,'PRESMOV')
  (mBASE)->(ORDSETFOCUS( 1 ))
  If TP == -1
    (mBASE)->(DBSETFILTER({||(mBASE)->CODCLAV== mCODCLAV}))
  EndIf
 
ElseIf mTIPOBASE == 2                                                       // Lista de Precios
  mBASE:=CDX_Abrir('PRECIOL',0,1,'PRECIOL')
  (mBASE)->(ORDSETFOCUS( 4 ))
  If TP == -1
    (mBASE)->(DBSETFILTER({||(mBASE)->RUBR== mCODCLAV}))
  EndIf

Else
  Return mPOSI
EndIf


If     TP == -1                                 //reordenamiento de códigos
  While !(mBASE)->( eof() )
    ER_2()
    (mBASE)->ORDE := NroOrdenador
    ER_0()
    NroOrdenador := NroOrdenador + 1
      (mBASE)->( dbskip() )
  EndDo

ElseIf TP == 1 .and. Sum1Res2 == 1              //BAJAR

  (mBASE)->( dbgoto(mPOSI) )
  (mBASE)->( dbskip() )
  If !(mBASE)->( eof() )
      ER_2()
    (mBASE)->ORDE := (mBASE)->ORDE - 1
    ER_0()
    (mBASE)->( dbgoto(mPOSI) )
      ER_2()
    (mBASE)->ORDE := (mBASE)->ORDE + 1
    ER_0()
    (mBASE)->(DBCOMMIT())
  EndIf    
 

ElseIf TP == 1 .and. Sum1Res2 == 2              //SUBIR

  (mBASE)->( dbgoto(mPOSI) )
  (mBASE)->( dbskip(-1) )
  If !(mBASE)->( Bof() ) .and. (mBASE)->ORDE > 0
      ER_2()
    (mBASE)->ORDE := (mBASE)->ORDE + 1
    ER_0()
    (mBASE)->( dbgoto(mPOSI) )
      ER_2()
    (mBASE)->ORDE := (mBASE)->ORDE - 1
    ER_0()
    (mBASE)->(DBCOMMIT())
  EndIf    
 
Endif

ER_4(mBASE)

Return mPOSI

[dobfivewin]

sOLUCIONÉ CON TU SUJERENCIA

MUCHAS GRACIAS

DAVID
ARGENTINA