Una ayudita con los TABS

[jfafive]

Hola amigos del foro!!

Se me ocurrió utilizar los TABS pues quedan muy vistosos para la aplicación.
Pero ahora me encuentro con el dilema de cómo habilitar ó deshabilitar uno o varios TABS en base a un valor.

Sería lo mismo que hace la clausula WHEN.
Pero en la documentación, parece ser que este control no dispone de WHEN.

En fin, que sí alguien se le ocurre como puedo indicar al control TABS que habilite o inhabilite
una opción en base a un valor, se le estaría muyyyy agradecido.

Aquí les dejo el código que estoy implementando.

Un saludo y gracias.

Code: Select all

@ 0, 0 TABS oTabs OF oWnd ;
       PROMPTS "Altas",;
               "Bajas",;
               "Consultas",;
               "Modificacion",;
                "Salir" ;
       BITMAPS "..\bitmaps\16x16\people.bmp",;
               "..\bitmaps\16x16\people.bmp",;
               "..\bitmaps\16x16\people.bmp",;
               "..\bitmaps\16x16\people.bmp" ;
                ACTION MsgInfo( oTabs:nOption ) 
 

[ADBLANCO]

Realmente no se, pero se me ocurre:

oTabs:aPrompts[1]:Disable()

[jfafive]

Gracias,

Pero parece que el método Disable(), no existe.
O eso es lo que entiendo por el error que genera:

Code: Select all

Application
===========
   Path and name: c:\FWH\z\prueba.exe (32 bits)
   Size: 2,188,800 bytes
   Time from start: 0 hours 0 mins 11 secs 
   Error occurred at: 26-05-09, 09:52:00
   Error description: Error BASE/1004  No existe el m‚todo: DISABLE
   Args:
     [   1] = C   &Personas Físicas

Stack Calls
===========
   Called from:  => DISABLE(0)
   Called from: .\prueba.PRG => (b)FOPENGESTIONPROPIETARIOS(0)
   Called from:  => TWINDOW:ACTIVATE(0)
   Called from:  => TMDICHILD:ACTIVATE(0)
   Called from: .\prueba.PRG => FOPENGESTIONPROPIETARIOS(0)
   Called from: .\prueba.PRG => (b)MAIN(0)
   Called from:  => TBTNBMP:CLICK(0)
   Called from:  => TBTNBMP:LBUTTONUP(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from:  => TCONTROL:HANDLEEVENT(0)
   Called from:  => TBTNBMP:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from:  => TMDIFRAME:ACTIVATE(0)
   Called from: .\prueba.PRG => MAIN(0)
 

[ronaldo]

Creo que la única forma sería desactivar la acción de bAction

[jfafive]

Gracias por vuestra respuesta.

Al final lo solucioné redirigiendo la acción a un dialogo o a otro según el valor de un avariable.
Así evito que el usuario entre en el formulario cuando no tiene permiso.

Un saludito.