FiveTech Software tech support forums

Posted: **Mon May 25, 2009 3:31 pm**

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 )

Posted: **Mon May 25, 2009 9:32 pm**

Realmente no se, pero se me ocurre:

oTabs:aPrompts[1]:Disable()

Posted: **Tue May 26, 2009 7:54 am**

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)

Posted: **Tue May 26, 2009 12:34 pm**

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

Posted: **Tue May 26, 2009 4:36 pm**

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.

FiveTech Software tech support forums

Una ayudita con los TABS

Una ayudita con los TABS

Re: Una ayudita con los TABS

Re: Una ayudita con los TABS

Re: Una ayudita con los TABS

Re: Una ayudita con los TABS