topic-15668

Board index FiveWin para Harbour/xHarbour Ubicarse en un Listbox

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Ubicarse en un Listbox
Posted: Thu May 21, 2009 10:12 AM

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 (fw): Select all Collapse

   @  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

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Ubicarse en un Listbox
Posted: Thu May 21, 2009 11:58 AM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: Ubicarse en un Listbox
Posted: Thu May 21, 2009 05:22 PM

aca está

Code (fw): Select all Collapse

*----------------------------------------------------------------- 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

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: Ubicarse en un Listbox
Posted: Thu May 21, 2009 05:29 PM

sOLUCIONÉ CON TU SUJERENCIA

MUCHAS GRACIAS

DAVID
ARGENTINA

FiveTech Support Forums

Continue the discussion