Mover solo sobre algunas columnas del xbrowse

[VitalJavier]

Que tal, buen día.
Solicitando su ayuda.

Tengo un xbrowse de 5 Columnas, pero solo quiero poder moverme de la 1 a la 2 (arriba y abajo ...todos los renglones)

Alguien me pudiera echar la mano ??

Saludos.

[Antonio Linares]

Javier,

Prueba a hacer esto:

oBrw:aCols[ 3 ]:nCreationOrder := 5

De no funcionar, por favor prueba esto:

MsgInfo( oBrw:aCols[ 5 ]:nCreationOrder )

y dime que muestra

[VitalJavier]

Antonio , buen dia
Gracias por tu respuesta

oBrw:aCols[ 3 ]:nCreationOrder := 5
No hace nada

MsgInfo( oBrw:aCols[ 5 ]:nCreationOrder )
Me marca un "5"

[FranciscoA]

Javier:
Me ha interesado tu requerimiento ya que es posible que muy pronto lo necesite.
He codificado lo siguiente (FW1204). Adaptalo a tus necesidades.

Code: Select all  Expand view

//--------------------------
Function Probando()
   local oDlg, oBrw
   LOCAL cOldSele := Select()

   DBSELECTAREA(.t.,,"MAEPRODT","MAEPRODT",.T.)

   DEFINE DIALOG oDlg SIZE 600,500 PIXEL
   @ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      DATASOURCE "MAEPRODT" ;
      COLUMNS "CASILLA", "FECHAACT", "FECHA", "COSTOFOB","MARGENFOB" ;   //CINCO COLUMNAS TODAS VISIBLES
      CELL LINES NOBORDER

   WITH OBJECT oBrw
     :lColChangeNotify := .t.
     :lKinetic         := .f.
     :nStretchCol      := 1
     :lHScroll         := .f.
   END

   oBrw:CreateFromCode()

   oBrw:bChange  := {|nRow,nCol| if(oBrw:nColSel>=3, (oBrw:nColSel:=2,oBrw:Refresh()) ,) }

   ACTIVATE DIALOG oDlg CENTERED

   dbSelectArea(cOldSele)
return nil
 

Saludos.

[VitalJavier]

Francisco, Buen Dia
Gracias por tu ayuda

Quedo perfecto con 2 líneas:

Code: Select all  Expand view

   oBrow:lColChangeNotify := .t.
   oBrow:bChange  := {|nRow,nCol| if(oBrow:nColSel>=3, (oBrow:nColSel:=2,oBrow:Refresh()) ,) }

 

Saludos.

[FranciscoA]

   Francisco, Buen Dia
Gracias por tu ayuda
Quedo perfecto con 2 líneas:oBrow:lColChangeNotify := .t.
   oBrow:bChange  := {|nRow,nCol| if(oBrow:nColSel>=3, (oBrow:nColSel:=2,oBrow:Refresh()) ,) }

Me alegra que te haya sido util.
Saludos.