Pongo aca el código asi me explico mejor. aca los oJump funcionan, pero no puedo hacer click en los button. en este caso, como hago para que funcione el oJump y a parte el click del button?
Gracias
Code: Select all
FUNCTION main()
LOCAL oDlg, ;
oDatos := Array( 10 ), ;
vDatos := Array( 10 ), ;
oBtns := Array( 2 )
oDlg:= Dialogo( oDatos, vDatos, oBtns )
Inicializar( oDatos, vDatos, oBtns )
//----------( Controlo los Get´s )----------
oDatos[1]:bValid:= { || oDatos[1]:oJump:= oDatos[ vDatos[1] ], .T. }
oDatos[2]:bValid:= { || oDatos[2]:oJump:= oDatos[ vDatos[2] ], .T. }
oDatos[3]:bValid:= { || oDatos[3]:oJump:= oDatos[ vDatos[3] ], .T. }
oDatos[4]:bValid:= { || oDatos[4]:oJump:= oDatos[ vDatos[4] ], .T. }
oDatos[5]:bValid:= { || oDatos[5]:oJump:= oDatos[ vDatos[5] ], .T. }
oDatos[6]:bValid:= { || oDatos[6]:oJump:= oDatos[ vDatos[6] ], .T. }
oDatos[7]:bValid:= { || oDatos[7]:oJump:= oDatos[ vDatos[7] ], .T. }
oDatos[8]:bValid:= { || oDatos[8]:oJump:= oDatos[ vDatos[8] ], .T. }
ACTIVATE DIALOG oDlg Centered
RETURN ( NIL )
//------------------------------------------------------------------------------
FUNCTION Inicializar( oDatos, vDatos, oBtns )
vDatos[1]:= 3
vDatos[2]:= 7
vDatos[3]:= 8
vDatos[4]:= 6
vDatos[5]:= 2
vDatos[6]:= 5
vDatos[7]:= 3
vDatos[8]:= 6
oDatos[1]:refresh()
oDatos[2]:refresh()
oDatos[3]:refresh()
oDatos[4]:refresh()
oDatos[5]:refresh()
oDatos[6]:refresh()
oDatos[7]:refresh()
oDatos[8]:refresh()
RETURN ( NIL )
//------------------------------------------------------------------------------
FUNCTION Dialogo( oDatos, vDatos, oBtns )
LOCAL oDlg
DEFINE DIALOG oDlg RESOURCE "DLG_PARTICULAR"
//----------( Get´s )----------
REDEFINE GET oDatos[1] VAR vDatos[1] ID 101 OF oDlg
REDEFINE GET oDatos[2] VAR vDatos[2] ID 102 OF oDlg
REDEFINE GET oDatos[3] VAR vDatos[3] ID 103 OF oDlg
REDEFINE GET oDatos[4] VAR vDatos[4] ID 104 OF oDlg
REDEFINE GET oDatos[5] VAR vDatos[5] ID 105 OF oDlg
REDEFINE GET oDatos[6] VAR vDatos[6] ID 106 OF oDlg
REDEFINE GET oDatos[7] VAR vDatos[7] ID 107 OF oDlg
REDEFINE GET oDatos[8] VAR vDatos[8] ID 108 OF oDlg
REDEFINE Checkbox oDatos[9] VAR vDatos[9] ID 109 OF oDlg
REDEFINE Checkbox oDatos[10] VAR vDatos[10] ID 110 OF oDlg
//----------( Botones )----------
REDEFINE BUTTON oBtns[1] ID 301 OF oDlg
REDEFINE BUTTON oBtns[2] ID 302 OF oDlg
RETURN ( oDlg )